;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2, Unit3, Unit4, Unit5, Unit6;
{$ R *. dfm} TForm1. Button1Click (Sender: TObject);. Visible:=true;; TForm1. Button2Click (Sender: TObject);. Visible:=true;; TForm1. Button3Click (Sender: TObject);. Visible:=true;; TForm1. Button4Click (Sender: TObject);. Visible:=true;; TForm1. Button5Click (Sender: TObject);. Visible:=true;; TForm1. Button6Click (Sender: TObject);. Visible:=true;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ExtCtrls;=class (TForm): TDataSource;: TDBGrid;: TTable;: TButton;: TLabel;: TButton;: TButton;: TButton;: TDBNavigator;: TEdit; FormActivate (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender : TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2;
{$ R *. dfm} TForm2. FormActivate (Sender: TObject);. Columns [0]. Title. caption:=«Номер»;. Columns [1]. Title. caption:=«Прізвище»;. Columns [2]. Title. caption:="Ім'я";. Columns [3]. Title. caption:=«По батькові»;. Columns [4]. Title. caption:=«Паспорт»;. Columns [5]. Title. caption:=«Зарплата»;. Columns [6]. Title. caption:=«Телефон»;. Columns [7]. Title. caption:="Адреса";. Columns [8]. Title. caption:=«Дата»;; TForm2. Button2Click (Sender: TObject);. Post;; TForm2. Button3Click (Sender: TObject); otvet: byte;:=MessageDLG («Запис буде видалена, Ви згодні?», MtConfirmation, [mbYes, mbNo], 0); otvet=6 then table1. Delete;; TForm2. Button4Click (Sender: TObject);. Insert;; TForm2. Button1Click (Sender: TObject);. Active:=False;. IndexName:=«Famlnd»;. Active:=True;. SetKey;. FieldByName («shurname»). AsString:=Edit1. Text;. GotoKey;. SetKey;. FieldByName («shurname»). AsString:=Edit1. Text;. GotoKey;; TForm2. FormCreate (Sender: TObject);;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;=class (TForm): TDataSource;: TDBGrid;: TTable;: TButton;: TButton;: TButton;: TDBNavigator; FormCreate (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3;
{$ R *. dfm} TForm3. FormCreate (Sender: TObject);. Columns [0]. Title. caption:=«Номер»;. Columns [1]. Title. caption:="Найменування";. Columns [2]. Title. caption:=«юредически найменування»;. Columns [3]. Title. caption:="Адреса";. Columns [4]. Title. caption:=«Контактні дані»;. Columns [5]. Title. caption:=«Номер договору»;. Columns [6]. Title. caption:=«Сума договору»;. Columns [7]. Title. caption:=«Дата початку договору»;. Columns [8]. Title. caption:=«Дата кінця договору»;. Columns [9]. Title. caption:=«Норма списання»;. Columns [10]. Title. caption:=«Інвентар»;. Columns [11]. Title. caption:=«Режим регламентних робіт»;; TForm3. ...
