Реферат Створення ІС з обліку відомостей про обчислювальної техніки на підприємстві

Sender: TObject);

{Private declarations}

{Public declarations};: TForm7; Unit4;

{$ R *. dfm} TForm7. Button2Click (Sender: TObject);. Show;. Hide;; TForm7. Button1Click (Sender: TObject);

// додавання записів у roomlist.ADOQuery1.SQL. Text: = 'insert into roomlist (number) values ​​(' + # 39 + Edit1. Text + # 39 + ');';. ADOQuery1. ExecSQL;. ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from roomlist');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form4. DataSource1;. Hide;. Show;;

// вирівнювання форми по центру екрана

procedure TForm7. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , Grids, DBGrids, DB, ADODB, StdCtrls, XPMan; = class (TForm): TButton;: TButton;: TButton;: TDataSource;: TADOConnection;: TADOQuery;: TDBGrid;: TXPManifest; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm8; Unit9, Unit1;

{$ R *. dfm} TForm8. Button1Click (Sender: TObject);. Hide;. Show;

end;

// вирівнювання форми по центру екрана

procedure TForm8. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;

TForm8. Button2Click (Sender: TObject); id: integer;

// видалення записів з polzovateli: = adoquery1. FieldByName ('id'). AsInteger;. Close;. SQL. Text: = 'Delete from hardlist where FIO =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'Delete from Polzovateli where id =' + IntToStr (id) + ';';. ExecSQL;. Close;. SQL. Text: = 'select * from Polzovateli';. Open; MessageBox (Handle, 'Видалити?', 'Вилучення', MB_YESNO or MB_ICONQUESTION) = 6 then// (умова на видалення, висновок вікна з підтвердженням на видалення); TForm8. Button3Click (Sender: TObject);. Show;. Hide;;. Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan; = class (TForm): TEdit;: TEdit;: TButton;: TButton;: TLabel;: TLabel;: TXPManifest; Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm9; Unit8, Unit3, Unit6;

{$ R *. dfm} TForm9. Button2Click (Sender: TObject);. Hide;. Show;; TForm9. Button1Click (Sender: TObject);

// додавання записів у polzovateli.ADOQuery1.SQ...