igi ON T_Zhanr. Id_zhanra = T_knigi. Zhanr');. Add ('WHERE (((T_Zhanr. id_zhanra) =' + inttostr (DBLookupComboBox2. KeyValue) + '))');: = true;,. Columns [0]. Visible: = false;. Columns [1]. Visible: = false;; TForm7. FormCreate (Sender: TObject);: = 0;. ColWidths [0]: = 100;; TForm7. N2Click (Sender: TObject);. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. Visible: = true;. visible: = true;. Visible: = true;. Visible: = true;; TForm7. N4Click (Sender: TObject); s: string;. Caption: = 'Список боржників'; DataModule2. Q5 do begin: = false;. Clear;. Add ('SELECT T_chitatel. Fio, T_knigi. Nazvanie, T_vidacha. Shtraf, T_vidacha. Oplata_shtrafa');. Add ('FROM T_knigi INNER JOIN (T_chitatel INNER JOIN T_vidacha ON T_chitatel. Id_chit = T_vidacha. Chitatel) ON T_knigi. Id_knigi = T_vidacha. Kniga');. Add ('WHERE (((T_vidacha. shtraf)> 0) AND ((T_vidacha. oplata_shtrafa) = False));');: = true;;. Label1. Caption: = '3 ';. DBGrid1. DataSource: = DataModule2. DQ5;. DBGrid1. Columns [0]. Width: = 100;. DBGrid1. Columns [1]. Width: = 100;. DBGrid1. Columns [2]. Width: = 50;. DBGrid1. Columns [3]. Width: = 50;. ShowModal;; TForm7. N5Click (Sender: TObject), s: string,. Caption: = 'Список студентів які брали книгу';: = InputBox ("Введення ',' Введіть id книги: ',''); DataModule2. Q7 do begin: = false;. Clear;. Add ('SELECT T_chitatel. Fio, T_knigi. Nazvanie, T_knigi. Id_knigi');. Add ('FROM T_chitatel INNER JOIN (T_knigi INNER JOIN chit_knig ON T_knigi. Id_knigi = chit_knig. Kniga) ON T_chitatel. Id_chit = chit_knig. Id_chit');. Add ('WHERE (((T_knigi. Id_knigi) =' + s + '));');
active: = true;;. label1. Caption: = '4 ';. DBGrid1. DataSource: = DataModule2. DQ7;. DBGrid1. Columns [0]. Width: = 100;. DBGrid1. Columns [1]. Width: = 100;. DBGrid1. Columns [2]. visible: = false;. ShowModal;;. Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, comobj; = class (TForm): TDBGrid;: TButton;: TLabel; Button1Click (Sender: TObject) ;
{Private declarations}
{Public declarations};: TForm8;: variant;: integer; Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$ R *. dfm} TForm8. Button1Click (Sender: TObject); label1. Caption = '1 'then begin: = CreateOleObject (' Excel. Application ');. workbooks. add (ExtractFilePath (Application. ExeName) + 'zapr. xlsx');. WorkBooks [1]. WorkSheets [1]. cells [1,2]. value: = Form8. Caption;. WorkBooks [1]. WorkSheets [1]. cells [3,2]. value: = 'Група:' + inttostr (DataModule2. Q2. FieldByName ('nomer_gr'). AsVariant);. WorkBooks [1]. WorkSheets [1]. cells [3,3]. value: = 'Спеціальність:...
