Приложения Листинг. 
Разработка базы данных "Страхование от несчастных случаев"

Листинг 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₁, inval₂, inval₃, (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;