. DBGrid1. DataSource: = for mВі . DataSource1; mВі < span align = "justify">. Show;. Hide;; TForm1. FormShow (Sender: TObject);
begin
// вирівнювання форми по центру екрана
left: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm1. Button5Click (Sender: TObject);. ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from polzovateli');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form8. DataSource1;. Show;. Hide;; TForm1. FormClose (Sender: TObject; var Action: TCloseAction); MessageBox (0, 'Ви дійсно хочете вийти', 'Закриття', MB_YESNO or MB_ICONQUESTION) = 7 then: = caNone;;. Unit2;, Messages, SysUtils, Variants, Classes , Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan, Comobj; mВІ = class (TForm): TDataSource ;: TDBGrid;: TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;: TADOQuery;: TADOQuery;: TXPManifest;: TButton; Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject ); FormShow (Sender: TObject); Button4Click (Sender: TObject);
{Private declarations}
{Public declarations}; mВІ : TFor mВІ ; Unit1, Unit4, Unit5;
{$ R *. dfm} TFor mВІ . Button3Click (Sender: TObject);. Show; mВІ . Hide;; TFor mВІ < span align = "justify">. Button2Click (Sender: TObject); id: integer;
// видалення записів з hardlist: = adoquery1. FieldByName ('id'). AsInteger;. Close;. SQL. Text: = 'Delete from hardlist where id =' + IntToStr (id) + ';';. ExecSQL;. Close; mВІ . ADOQuery1.SQL. Text: = ('SELECT hardlist.id, hardtype.name, hardlist.serial, hardlist.invent, roomlist.number, Polzovateli.FIO'); mВІ < span align = "justify">. ADOQuery1.SQL.add ('FROM hardtype INNER JOIN (roomlist INNER JOIN (Polzovateli INNER JOIN hardlist ON Polzovateli.id = hardlist.FIO) ON roomlist.id = hardlist.room) ON hardtype.id = hardlist.tupe; ');. DataSet: = ADOQuery1;. Active: = true;. DataSource: = DataSource1;. Open;
if MessageBox (Handle, 'Видалити?', 'Вилучення', MB_YESNO or MB_ICONQUESTION) = 6 then// (умова на видалення, висновок вікна з підтвердженням на видалення)