Реферат Автоматизована інформаційна система бібліотеки вищого навчального закладу

. AsInteger: = DBLookupComboBox2. KeyValue; ('status'). AsInteger: = DBLookupComboBox3. KeyValue;;;. Visible: = false;

label2. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;; TForm3. Button2Click (Sender: TObject); x: string;

begin ('Для операції потрібно права адміністратора! ");: = InputBox (' Вхід ',' Введіть пароль ','');

if x = 'qweasd123asd' then DataModule2. t_chitatel. Delete;; TForm3. Button3Click (Sender: TObject);. ShowModal;; TForm3. N2Click (Sender: TObject);. t_chitatel. Sort: = 'Fio';; TForm3. N3Click (Sender: TObject);. t_chitatel. Sort: = 'id_gr';; TForm3. N4Click (Sender: TObject);. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;; TForm3. N5Click (Sender: TObject);. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;; TForm3. C1Click (Sender: TObject); DataModule2. Q5 do begin: = false;. Clear;. Add ('SELECT T_chitatel. Id_chit, T_chitatel. Fio, T_status. Status');. Add ('FROM T_status INNER JOIN T_chitatel ON T_status. Id_statusa = T_chitatel. Status');. Add ('WHERE (((T_status. status) = В«Викладач"));');: = true;;. DBGrid1. DataSource: = DataModule2. DQ5;. DBGrid1. Columns [0]. visible: = false;. DBGrid1. Columns [1]. Width: = 100;. DBGrid1. Columns [2]. Width: = 100;. Label1. Caption: = '2 ';. Caption: = 'Список викладачів';. ShowModal;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Menus; = class (TForm): TDBGrid;: TEdit;: TLabel;: TLabel ;: TEdit;: TEdit;: TLabel;: TLabel;: TDBLookupComboBox;: TButton;: TButton;: TMainMenu;

N1: TMenuItem;: TMenuItem;: TMenuItem;

N4: TMenuItem;: TButton;: TMenuItem;: TMenuItem; N4Click (Sender: TObject); Button3Click (Sender: TObject); Button1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4; Unit1, Unit2, Unit3, DB, Unit6;

{$ R *. dfm} TForm4. Button1Click (Sender: TObject); DataModule2. t_knigi do begin; ('nazvanie'). AsString: = edit1. Text; ('avtor'). AsString: = edit2. Text; ('god_izdaniya'). AsString: = edit3. Text; ('zhanr'). AsInteger: = D...