s,, StdCtrls, Menus; = class (TForm): TButton;: TButton;: TButton;: TMainMenu;
N1: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;
N7: TMenuItem;: TMenuItem; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); N1Click (Sender: TObject); N4Click (Sender: TObject); Button4Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit10;
{$ R *. dfm} TForm1. Button1Click (Sender: TObject);. ShowModal;; TForm1. Button2Click (Sender: TObject);. ShowModal;; TForm1. Button3Click (Sender: TObject);. ShowModal;; TForm1. Button4Click (Sender: TObject);. show;; TForm1. N1Click (Sender: TObject); l: string; p: integer; c, c1: Boolean;: = false;: = false;: = InputBox ('Логін', 'Введіть логін:','');: = strtoint (InputBox ('Пароль', 'Введіть пароль:','')); l = 'admin' then c: = true else ShowMessage ('Не вірний логін.'); inttostr (p) = '123456 'then c1: = true else ShowMessage ('Не вірний пароль'); (c = true) and (c1 = true) then N2. Visible: = true;; TForm1. N3Click (Sender: TObject),. ShowModal;; TForm1. N4Click (Sender: TObject);. Visible: = false;. Close;; TForm1. N5Click (Sender: TObject);. ShowModal;; TForm1. N6Click (Sender: TObject);. ShowModal;; TForm1. N7Click (Sender: TObject);. ShowModal;; TForm1. N8Click (Sender: TObject);. showmodal;;. Unit2;, Classes, DB, ADODB; = class (TDataModule): TADOConnection; _chitatel: TADOTable; _knigi: TADOTable;: TDataSource;: TDataSource; _chitatelid_chit: TAutoIncField; _chitatelFio: TWideStringField; _chitatelid_gr: TIntegerField; _chitatelid_form: TIntegerField ; _chitatelstatus: TIntegerField; _group: TADOTable; _form: TADOTable; _status: TADOTable;: TDataSource;: TDataSource;: TDataSource; _chitatelgroup: TStringField; _chitatelform: TStringField; _chitatelstatus1: TStringField; _knigiId_knigi: TAutoIncField; _kniginazvanie: TWideStringField; _knigiavtor: TWideStringField; _knigigod_izdaniya: TWideStringField; _knigiZhanr: TIntegerField; _zhanr: TADOTable;: TDataSource; _knigizhanr2: TStringField; _groupid_group: TAutoIncField; _groupspec: TWideStringField; _groupnomer_gr: TIntegerField; _zhanrid_zhanra: TAutoIncField; _zhanrnazvanie: TWideStringField; _vidacha: TADOTable;: TDataSource; _vidachaid_vid: TAutoIncField; _vidachachitatel: TIntegerField; _vidachadata_vidachi: TDateTimeField; _vidachadata_sdachi: TDateTimeField; _vidachafact_data_sdachi: TDateTimeField; _vidachashtraf: TBCDField; _vidachakol_knig: TIntegerField; _vidachachitatel1: TStringField;: TADOQuery;: TDataSource; id_zhanra: TAutoIncField; nazvani...
