integer;
// видалення записів з hardtype
{id: = adoquery1. FieldByName ('id'). AsInteger;. Close;. SQL. Text: = 'Delete from hardlist where tupe =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'Delete from hardtype where id =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'select * from hardtype';. Open;} MessageBox (Handle, 'Видалити?', 'Вилучення', MB_YESNO or MB_ICONQUESTION) = 6 then// (умова на видалення, висновок вікна з підтвердженням на видалення). Delete;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan; = class (TForm): TDataSource;: TDBGrid;: TADOConnection;: TADOQuery ;: TButton;: TButton;: TButton;: TXPManifest; Button3Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4; Unit1, Unit7;
{$ R *. dfm} TForm4. Button3Click (Sender: TObject);. Show;. Hide;
end;
// вирівнювання форми по центру екрана
procedure TForm4. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm4. Button1Click (Sender: TObject);. Hide;. Show;; TForm4. Button2Click (Sender: TObject); id: integer;
// видалення записів з roomlist: = adoquery1. FieldByName ('id'). AsInteger;. Close;. SQL. Text: = 'Delete from hardlist where room =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'Delete from roomlist where id =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'select * from roomlist';. Open; MessageBox (Handle, 'Видалити?', 'Вилучення', MB_YESNO or MB_ICONQUESTION) = 6 then// (умова на видалення, висновок вікна з підтвердженням на видалення);. Unit5;, Messages, SysUtils, Variants, Classes, Graphics , Controls, Forms,, StdCtrls, XPMan; = class (TForm): TEdit;: TEdit;: TButton;: TButton;: TComboBox;: TXPManifest;: TComboBox;: TComboBox;: TLabel;: TLabel;: TLabel;: TLabel ;: TLabel; Button2Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5; Unit2, Unit4;
{$ R *. dfm} TForm5. Button2Click (Sender: TObject);
// кнопка назад mВІ . ADOQuery1.SQL. Clear; mВІ . ADOQuery1.SQL. Text: = ('SELECT hardlist.id, hardtype.name, hardlist.serial, hardlist.invent, roomlist.number, Polzovateli.FIO'); mВІ <...