ADOQuery1. ExecSQL; mВІ . ADOQuery1.SQL. Clear; 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; '); mВІ . ADOQuery1. Active: = true; mВІ . DBGrid1. DataSource: = for mВІ . DataSource1; mВІ < span align = "justify">. show;. Hide;;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan; = class (TForm): TEdit;: TLabel;: TButton;: TButton;: TXPManifest;: TXPManifest; Button2Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm6; Unit3;
{$ R *. dfm} TForm6. Button2Click (Sender: TObject);. Hide; mВі . Show;
end;
// вирівнювання форми по центру екрана
procedure TForm6. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm6. Button1Click (Sender: TObject);
// додавання записів у hardtype mВі . ADOQuery1.SQL. Text: = 'insert into hardtype (name) values ​​(' + # 39 + Edit1. Text + # 39 + ');'; mВі . ADOQuery1. ExecSQL; mВі . ADOQuery1.SQL. Clear; mВі . ADOQuery1.SQL. Text: = ('select * from hardtype'); mВі . ADOQuery1. Active: = true; mВі . ADOQuery1. Active: = true; mВі . DBGrid1. DataSource: = for mВі . DataSource1;. Hide; mВі . Show;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan; = class (TForm): TEdit;: TLabel;: TButton;: TButton;: TXPManifest; Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (...
