ect);. 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.Button4Click (Sender: TObject);. Insert;; TForm3.Button3Click (Sender: TObject); otvet: byte;:=MessageDLG (« Запис буде видалена, Ви згодні? », mtConfirmation, [ mbYes, mbNo], 0); otvet=6 then table1.Delete;; TForm3.Button2Click (Sender: TObject);. Post;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids , DBGrids, DB, DBTables, StdCtrls, ExtCtrls, DBCtrls;=class (TForm): TTable;: TDataSource;: TDBGrid;: TButton;: TBu...
