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;: TButton;: TButton;: TDBNavigator; FormCreate (Sender: TObject); Button4Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4;
{$ R *. dfm} TForm4. 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:=«Зарплата»;; TForm4. Button4Click (Sender: TObject);. Insert;; TForm4. Button2Click (Sender: TObject);. Post;; TForm4. Button3Click (Sender: TObject); otvet: byte;:=MessageDLG («Запис буде видалена, Ви згодні?», MtConfirmation, [mbYes, mbNo], 0); otvet=6 then table1. Delete;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;=class (TForm): TDBGrid;: TDataSource;: TTable; : TButton;: TButton;: TButton;: TDBNavigator; FormCreate (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5;
{$ R *. dfm} TForm5. 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:=«Вартість»;; TForm5. Button4Click (Sender: TObject);. Insert;; TForm5. Button3Click (Sender: TObject); otvet: byte;:=MessageDLG («Запис буде видалена, Ви згодні?», MtConfirmation, [mbYes, mbNo], 0); otvet=6 then table1. Delete;; TForm5. Button2Click (Sender: TObject);. Post;;.
