Реферат База даних "Клініг" для ТОВ "Майстер блиск"

tton;: 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;;.