Разработка базы данных "Страхование от несчастных случаев"

Размещено на http://www.allbest.ru/

Введение

За последние десятилетия значительно возрос объём и оборот информации во всех сферах жизнедеятельности человека. Поэтому возникает необходимость использования автоматических средств, позволяющих эффективно хранить, обрабатывать и просматривать накопленные данные.

Исходя из современных требований, предъявляемых к качеству работы предприятия, нельзя не отметить, что эффективная работа его зависит от уровня оснащения компании информационными средствами на базе компьютерных систем.

В сферах деятельности современных предприятий получили реализацию различные базы данных. Это обосновано тем, что данный раздел информационных технологий имеет значительную степень применимости в практических ситуациях и довольно просто внедряется в каждом конкретном случае.

Целью данной курсовой работы является разработка базы данных «Страхование от несчастных случаев».

Задачами курсовой работы являются возможность просматривать, редактировать, добавлять данные в базу данных, получать результаты запросов. В качестве приложения для разработки базы данных использован язык MySQL, а в качестве разработки СУБД использован программный продукт Borland Delphi 7. Разработанная программа предназначена для работы на компьютерах с операционными системами семейства Windows.



1. Этапы разработки базы данных «Страхование от несчастных случаев»

1.1 Анализ предметной области базы данных

программа компьютер windows

В качестве предметной области рассмотрим работу Страхового предприятия, деятельность которого происходит за счет заключения договоров о предоставлении услуг страхования для клиентов. Работа происходит так: клиент выбирает вид страховки, сумму страховки, срок. Клиент может при заключении договора оплатить не всю сумму сразу, при этом данные будут обновляться в случае взносов. Также при наступлении несчастных случаев, он может узнать, какая выплата будет ему предоставлена.

Данная предметная область достаточно актуальна, так как может широко применяться на многих предприятиях сотрудниками из-за наглядности и простоты использования.

1.2 Концептуальная модель базы данных

Для данной предметной области концептуальная модель будет состоять из четырех объектов.

1) КЛИЕНТЫ - хранит информацию о всех клиентах предприятия.

2) СТРАХОВЫЕ ПРОГРАММЫ- хранит информацию о всех тарифах, используемых предприятием.

3) СОТРУДНИКИ - хранится информация о всех сотрудниках предприятия.

4) ДОГОВОР - хранится информация о всех заключенных договорах.



1.3 Логическая модель базы данных

Логическая модель отражает логические связи между элементами данных вне зависимости от их содержания и среды хранения.

Логическая модель данной базы состоит из четырех сущностей:

КЛИЕНТЫ - заносится информация о клиентах страхового предприятия:

-nomer

-fio

-data_rojdenia

-propiska

-pasport_dan

-svidetelsvo_rojd

-telefon

СТРАХОВЫЕ ПРОГРАММЫ - заносится информация о тарифах страхования предприятия:

-nomer

-tarif

-vozvrat_smert_proc

-vozvrat_inval_1_proc

-vozvrat_inval_2_proc

-vozvrat_inval_3_proc

-vremya

СОТРУДНИКИ - заносится информация о сотрудниках, работающих на предприятии:

-nomer

-fio

-data_rojdenia

-propiska

-pasport_dan

-telefon

-doljnost

-zarplata

ДОГОВОР - хранится информация о заключенных договорах. Связана со всеми предыдущими сущностями:

-nomer

-straxovchik

-zastrax_lico

-tarif

-strax_na_sum

-srok_mes

-oplacheno

-agent

-data_nachal

-data_okonch

Рисунок 1- Логическая модель данных



Теория нормализации баз данных разработана Коддом в начале 70г.

Нормализация помогает сократить избыточность данных, сохраняя их целостность. База данных называется нормализованной, если её таблицы отвечают правилам нормальных форм.

В данной базе данных все колонки таблиц удовлетворяют первой нормальной форме (атомарность). Второй нормальной форме соответствуют все таблицы базы, т.е. не ключевые столбцы зависят от первичного ключа в целом, а не от его части. Но не все не ключевые столбцы не зависят от других не ключевых столбцов, так как присутствует связь ?>?.

1.4 Физическая модель базы данных

Физическое проектирование - это создание схемы базы данных для конкретной СУБД. Специфика конкретной СУБД может включать в себя ограничения на именование объектов базы данных, ограничения на поддерживаемые типы данных и т.п. Кроме того, специфика конкретной СУБД при физическом проектировании включает выбор решений, связанных с физической средой хранения данных (выбор методов управления дисковой памятью, разделение БД по файлам и устройствам, методов доступа к данным), создание индексов и т.д.

Таблица 1 - Структура таблицы «Клиент»

Field	Type	Null	Key	Default	Extra
nomer	int(6)	No	PRI	NULL	auto_increm.
fio	varchar(30)	Yes		NULL
data_rojdenia	date	Yes		NULL
propiska	varchar(30)	Yes		NULL
pasport_dan	int(15)	Yes		NULL
svidetelsvo_rojd	int(8)	Yes		NULL
telefon	varchar(15)	Yes		NULL



Таблица 2 - Структура таблицы «Страховые программы»

Field	Type	Null	Key	Default	Extra
nomer	int(5)	No	PRI	NULL	auto_increm.
tarif	varchar(15)	YES		NULL
Vozvrat_smert_proc	int(3)	Yes		NULL
vozvrat_inval_1_proc	int(3)	Yes		NULL
vozvrat_inval_2_proc	int(3)	Yes		NULL
vozvrat_inval_3_proc	int(3)	Yes		NULL
vremya	varchar(15)	Yes		NULL

Таблица 3 - Структура таблицы «Сотрудники»

Field	Type	Null	Key	Default	Extra
fio	varchar(30)	No		NULL
nomer	int(2)	Yes		NULL
data_rojdenia	date	NO		NULL
propiska	varchar(30)	Yes		NULL
pasport_dan	int(15)	NO	PRI	NULL
telefon	varchar(15)	Yes		NULL
doljnost	varchar(15)	YES		NULL
zarplata	Float(8,2)	YES		NULL

Таблица 4- Структура таблицы «Договор»

Field	Type	Null	Key	Default	Extra
nomer	int(5)	NO	PRI	NULL	Auto_increm.
straxovchik	varchar(30)	YES		NULL
zastrax_lico	varchar(30)	YES		NULL
tarif	int(5)	YES		NULL
strax_na_sum	float(8,2)	YES		NULL
srok_mes	int(3)	YES		NULL
oplacheno	int(3)	YES		NULL
oplacheno	int(3)	YES		NULL



2. Проектирование приложения для работы с базой данных

Программа начинает свою работу с главного окна, где пользователь может перейти на вкладки таблиц и запросов данной базы данных.

Рисунок 2 - Меню программы

При нажатии кнопок Клиент, Страховые программы, Сотрудники, Договор пользователь перейдет на окно «Таблицы».

На окне «Таблицы» есть меню для быстрого перехода на главную вкладку и запросы.

Рисунок 3 - Меню окна «Таблицы»

На вкладке «Клиент», доступна информация о клиентах, необходимая для составления договора и связи с клиентом. При нажатии кнопки «Форма» можно открыть форму «Клиенты», для более удобного просмотра информации.



Рисунок 4 - Вкладка Клиент

Рисунок 5 - Форма Клиент

На вкладке «Страховые программы» доступна информация, необходимая для заключения договора и выплат, в случае несчастного случая. При нажатии кнопки «Отчет» откроется отчет о всех тарифах предприятия.



Рисунок 6 - Вкладка Страховые программы

На вкладке «Договор» доступна информация о заключенных договорах, где определяется тип страховки, срок, на какую сумму клиент планирует застраховываться. При нажатии кнопок «Отчет» и «Форма», откроется отчет о всех заключенных договорах и форма для более удобного просмотра информации.

Рисунок 7 - Вкладка Договор



Рисунок 8 - Форма Договоры



3. Разработка запросов и отчетов базы данных

1. С главного окна при нажатии кнопки «Условие» откроется форма «Запросы», на вкладке «Условие». Можно использовать, когда нужно вывести некоторые записи из одной таблицы, отвечающей условию. Пример, вывести тарифы, в которых возвращаемая сумма в случае получения инвалидности 2 группы больше 85%.

Рисунок 9 - Пример работы кнопки «Условие»

2. С главного окна при нажатии кнопки «Взносы» откроется форма «Запросы», на вкладке «Взносы». Можно использовать, для того чтобы рассчитать, сколько нужно заплатить за страховку по договору. Если клиента устраивает сумма, нужно ввести оплату месяцев. Дальше нажав кнопку «Обновить», если запись успешно добавлена, то выводится надпись «Информация обновлена».



Рисунок 10 - Пример работы кнопки «Взносы»

3. С главного окна при нажатии кнопки «Выплаты» откроется форма «Запросы», на вкладке «Выплаты». Пользователь вводит нужные Ф.И.О. Клиента, и коэффициент повреждения (в том случае, если у клиента травма). При использовании кнопки, выводится тарифы, страховая сумма (указана в договоре), какие суммы полагаются страховщику в определенных случаях.

Рисунок 11 - Пример работы кнопки «Выплаты»

4. С главного окна при нажатии кнопки «Зарплата» откроется форма «Запросы», на вкладке «Заработная плата». Пользователь может выбрать месяц и с помощью кнопки «Начислить», зарплата сотрудникам будет известна.



Рисунок 12 - Пример работы кнопки «Зарплата»

5. С главного окна при нажатии кнопки «Добавление нового тарифа» откроется форма «Запросы», на вкладке «Добавление нового тарифа». Пользователь вводит с клавиатуры характеристики нового тарифа, после того как он ввел информацию нужно нажать кнопку «Добавить». Если тариф успешно добавлен, появится запись «Информация добавлена».

Рисунок 13 - Пример работы кнопки «Добавление нового тарифа»



Рисунок 14 - Добавление тарифа

6. Данный отчет сформирован на основе представления, использующий таблицы сотрудники, страховые программы, договор.

Также отчетность введется по Тарифам и Заработной плате.

Рисунок 15 - Отчет по договорам



Заключение

Разработанная в ходе выполнения курсового проекта база данных "Страхование от несчастных случаев", а также программа для работы с базой данных является актуальной на сегодняшний день и имеет большую практическую значимость. Она помогает в работе сотрудников предприятия по сбору данных, необходимых при заключении договора, а также по сбору данных о самих сотрудниках.

В результате выполнения курсового проекта были решены задачи, поставленные в начале работы. Была разработана структура базы данных; разработан интерфейс программы; в программу были включены функции выполнения различных запросов и отчетов.

В будущем возможно усовершенствование, развитие и расширение базы данных "Страхование от несчастных случаев".



Библиографический список

Хоменко, А.Д. Delphi 7 [Текст] / Хоменко, А.Д. -СПб.: БХВ-Петербург, 2003. - 1216с.

Шупрута, В.В. Delphi 2005. Учимся программировать [Текст] / Шупрута, В.В. - М.: НТ Пресс 2005. - 346 с.

Баженова, И.Ю. Delphi 7 Самоучитель программиста [Текст] / Баженова, И.Ю. - М.: Кудиц- Образ, 2003. - 448 с.

Пестриков, В.М. Delphi на примерах [Текст] / Пестриков, В.М., Маслобоев А.Н. - СПб.: БВХ-Петербург, 2005. - 496 с.

Фараонов, В. В. Система программирования Delphi [Текст] / Фараонов, В. В. - СПб.: БХВ - Петербург, 2012. - 912 с.

Осипов, Д. Л. Базы данных и Delphi. Теория и практика [Текст] / Осипов, Д. Л. -СПб.: БВХ-Петербург, 2011. - 752 с.



Приложения

Листинг 1. Файл Unit3.pas, форма "Главное меню"

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Image1: TImage;

Button10: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form1.Show;

Form1.TabSheet1.Show;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form1.Show;

Form1.TabSheet2.Show;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Form1.Show;

Form1.TabSheet3.Show;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Form1.Show;

Form1.TabSheet4.Show;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet1.Show;

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet2.Show;

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet3.Show;

end;

procedure TForm3.Button9Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet6.Show;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button10Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet4.Show;

end;

end.

Листинг 2. Файл Unit1.pas, форма "Таблицы"

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ComCtrls, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids,

DBGrids, RpCon, RpConDS, RpDefine, RpRave, RpBase, RpSystem;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOTable3: TADOTable;

DataSource3: TDataSource;

ADOTable4: TADOTable;

DataSource4: TDataSource;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

TabSheet2: TTabSheet;

Button2: TButton;

Button3: TButton;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

TabSheet3: TTabSheet;

Button4: TButton;

Button5: TButton;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

TabSheet4: TTabSheet;

Button6: TButton;

Button7: TButton;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

RvProject1: TRvProject;

RvProject2: TRvProject;

RvDataSetConnection2: TRvDataSetConnection;

N8: TMenuItem;

RvProject3: TRvProject;

RvDataSetConnection3: TRvDataSetConnection;

RvDataSetConnection1: TRvDataSetConnection;

N9: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid3KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid4KeyPress(Sender: TObject; var Key: Char);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBGrid1.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid2KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBGrid2.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid3KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBGrid3.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid4KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBGrid4.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.N18Click(Sender: TObject);

begin

RVProject2.Execute;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

RVProject1.Execute;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

RVProject2.Execute;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

RVProject3.Execute;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

RvDataSetConnection1.DataSet:=Form2.ADOQuery4;

RVProject1.Execute;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.Show;

end;

end.

Листинг 3. Файл Unit2.pas, форма "Запросы"

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB,

ADODB, Menus, RpCon, RpConDS, RpDefine, RpRave, RpConBDE;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo2: TMemo;

Memo3: TMemo;

Memo4: TMemo;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Memo1: TMemo;

Button7: TButton;

Button8: TButton;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

Combobox1: TComboBox;

Combobox2: TComboBox;

Combobox3: TComboBox;

DBGrid2: TDBGrid;

Label6: TLabel;

Label7: TLabel;

Button9: TButton;

DBGrid3: TDBGrid;

Label8: TLabel;

Label9: TLabel;

Button10: TButton;

DBGrid4: TDBGrid;

Button11: TButton;

ADOQuery2: TADOQuery;

DataSource8: TDataSource;

ADOTable7: TADOTable;

DataSource9: TDataSource;

Edit1: TEdit;

Edit2: TEdit;

Button12: TButton;

Edit3: TEdit;

Edit4: TEdit;

Button13: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

ADOTable8: TADOTable;

ADOQuery3: TADOQuery;

DataSource10: TDataSource;

DataSource11: TDataSource;

Button14: TButton;

ADOQuery4: TADOQuery;

DataSource12: TDataSource;

Button15: TButton;

Label10: TLabel;

Edit5: TEdit;

Label11: TLabel;

TabSheet6: TTabSheet;

Label12: TLabel;

Edit6: TEdit;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Button16: TButton;

Label18: TLabel;

ADOQuery5: TADOQuery;

DataSource13: TDataSource;

Edit12: TEdit;

Label5: TLabel;

N2: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Combobox1Change(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure Combobox2Change(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm2.Combobox1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Active:=false;

if Combobox1.Text='klient' then begin

Combobox2.Items:=memo1.Lines;

ADOTable1.TableName:='klient';

DBGrid1.DataSource:=DataSource3;

end;

if Combobox1.Text='straxov_prog' then begin

Combobox2.Items:=memo2.Lines;

ADOTable1.TableName:='straxov_prog';

DBGrid1.DataSource:=DataSource4;

end;

if Combobox1.Text='sotrudniki' then begin

Combobox2.Items:=memo3.Lines;

ADOTable1.TableName:='sotrudniki';

DBGrid1.DataSource:=DataSource5;

end;

if Combobox1.Text='dogovor' then begin

Combobox2.Items:=memo4.Lines;

ADOTable1.TableName:='dogovor';

DBGrid1.DataSource:=DataSource6;

end;

datasource1.DataSet:=adotable1;

DBEdit1.DataSource:=datasource1;

dbgrid1.DataSource.DataSet.Active:=true;

DBNavigator1.DataSource:=dbgrid1.DataSource;

end;

procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBEdit1.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm2.Combobox2Change(Sender: TObject);

begin

DBEdit1.DataField:=Combobox2.Text;

DBEdit1.DataSource:=DBGrid1.DataSource;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

DBEdit1.DataField:=Combobox2.Text;

DBEdit1.DataSource:=DBGrid1.DataSource;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

datasource1.DataSet:=adotable1;

procedure TForm2.Button7Click(Sender: TObject);

var d1:tDATE;

s:string;

begin

d1:=StrToDate(DBEdit1.Text);

s:=FormatDateTime('yyyy-mm-dd',d1);

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if(Combobox2.Text= 'DATA_ROJDenia') or (Combobox2.Text = 'data_rojdenia') or (Combobox2.Text = 'data_nachal') or (Combobox2.Text = 'data_okonch') then

ADOQuery1.SQL.Add ('select * from '+ combobox1.Text +' where '+ Combobox2.Text +''+ Combobox3.Text +''+#39+ s +#39'')

else ADOQuery1.SQL.Add ('select * from '+ combobox1.Text +' where '+ combobox2.Text +'' + combobox3.Text +''+#39+ DBEdit1.Text +#39'');

ADOQuery1.Open;

Datasource1.DataSet.Close;

Datasource1.DataSet:=adoquery1;

DBGrid1.DataSource:=datasource1;

end;

procedure TForm2.Button10Click(Sender: TObject);

begin

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add ('select tarif, strax_na_sum, smert, inval_1, inval_2, inval_3, (strax_na_sum * '+#39+ Edit2.Text +#39') as Travma');

ADOQuery2.SQL.Add ('from viplat where straxovchik = '+#39+ Edit1.Text +#39'');

ADOQuery2.Open;

datasource8.DataSet.Close;

datasource8.DataSet:=adoquery2;

Dbgrid3.DataSource:=datasource9;

end;

procedure TForm2.Button12Click(Sender: TObject);

begin

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

datasource8.DataSet:=adotable7;

datasource6.DataSet:=adotable5;

Edit1.Clear;

Edit2.Clear;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

close;

end;

Размещено на Allbest.ru

...