: TButton;: TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TButton;: TMenuItem;: TMenuItem;: TStringGrid;: TMenuItem; Button1Click (Sender : TObject); DBLookupComboBox2Click (Sender: TObject); DBGrid2CellClick (Column: TColumn); Button2Click (Sender: TObject); N2Click (Sender: TObject); Button3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TForm7;, l: integer; Unit1, Unit2 , Unit3, Unit4, Unit5, Unit6, DB, ADODB, Unit8, Unit9;
{$ R *. dfm} TForm7. Button1Click (Sender: TObject); g, m, d, g1, m1, d1: word; datevd, datesd, datefc: TDateTime; s, sh, i: integer; gg: string;: = strtodate (edit1. Text); : = strtodate (edit3. Text); (datevd, g, m, d); (datefc, g1, m1, d1);: = d +10;: = EncodeDate (g, m, d);: = d1- d; s> 0 then sh: = s * 15 * StringGrid1. RowCount-1; s = 0 then sh: = 0; s <0 then sh: = 0; DataModule2. t_vidacha do begin, ('chitatel'). AsInteger: = DBLookupComboBox1. KeyValue; ('data_vidachi'). AsDateTime: = strtodate (edit1. text); ('data_sdachi'). AsDateTime: = datesd; ('fact_data_sdachi'). AsDateTime: = strtodate (edit3. Text); ('shtraf'). AsInteger: = sh; ('kol_knig'). AsInteger: = StringGrid1. RowCount-1; sh = 0 then FieldByName ('oplata_shtrafa'). AsBoolean: = true else FieldByName ('oplata_shtrafa'). AsBoolean: = false;;; I: = 1 to StringGrid1. RowCount-1 do beginDataModule2. t_chit_knig do begin; ('id_chit'). AsInteger: = DBLookupComboBox1. KeyValue; ('kniga'). Asinteger: = strtoint (stringGrid1. cells [1,1]);;;;. Visible: = false;
Label2. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;
button1. visible: = false;. Visible: = false;. Visible: = false;. Show;. Caption: = 'Читачі книг';; TForm7. Button2Click (Sender: TObject);
var x: string; ('Для операції потрібно права адміністратора!');: = InputBox ('Вхід', 'Введіть пароль','');
if x = '123456 'then DataModule2. t_vidacha. Delete;; TForm7. Button3Click (Sender: TObject);. Text: = datetostr (date);. Text: = datetostr (date);; TForm7. DBGrid2CellClick (Column: TColumn);
var k, b, a: integer;
l: = l +1;. RowCount: = l +1;. cells [0, l]: = DataModule2. Q1. FieldByName ('nazvanie'). AsString;. cells [1, l]: = inttostr (DataModule2. Q1. FieldByName ('Id_knigi'). Asinteger);; TForm7. DBLookupComboBox2Click (Sender: TObject); DataModule2. Q1 do begin. clear;: = false;. Add ('SELECT T_Zhanr. Id_zhanra, T_knigi. Id_knigi, T_knigi. Nazvanie');
sql. Add ('FROM T_Zhanr INNER JOIN T_kn...
