e: TWideStringField;: TADOQuery;: TDataSource; _vidachaoplata_shtrafa: TBooleanField;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource; _vidachakniga: TIntegerField; _chit_knig: TADOTable; _knig: TDataSource; Id_knigi: TAutoIncField; _chit_knigchitat: TStringField; _chit_knigkinga1: TStringField; _chit_knigid_vyd: TAutoIncField; _chit_knigid_chit: TIntegerField; _chit_knigkniga: TIntegerField; _formid_form: TAutoIncField; _formnazv: TWideStringField; _statusid_statusa: TAutoIncField; _statusstatus: TWideStringField;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;
{Private declarations}
{Public declarations};: TDataModule2; Unit3, Unit1, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$ R *. dfm}. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls; = class (TForm): TDBGrid;: TMainMenu;: TMenuItem;
N2: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TButton;
Button2: TButton;: TMenuItem;: TButton;
N4: TMenuItem;: TMenuItem;: TMenuItem;
C1: TMenuItem; N6Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); N5Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender : TObject); N7Click (Sender: TObject); Button3Click (Sender: TObject); N4Click (Sender: TObject); C1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit1, Unit2, Unit4, Unit5, DB, ADODB, Unit8;
{$ R *. dfm} TForm3. N6Click (Sender: TObject); s: string;. Caption: = 'Студенти в групі';
s: = InputBox ("Введення ',' Введіть номер групи: ','');
if s <>'' then beginDataModule2. Q2 do begin: = false;. Clear;. Add ('SELECT T_chitatel. Id_chit, T_chitatel. Fio, T_group. Spec, T_group. Nomer_gr');. Add ('FROM T_group INNER JOIN (T_form_obuch INNER JOIN T_chitatel ON T_form_obuch. Id_form = T_chitatel. Id_form) ON T_group. Id_group = T_chitatel. Id_gr');. Add ('WHERE (((T_group. nomer_gr) =' + s + '));');: = true;;. DBGrid1. DataSource: = DataModule2. DQ2;. DBGrid1. Columns [0]. visible: = false;. DBGrid1. Columns [1]. Width: = 100;. DBGrid1. Columns [2]. Width: = 100;. DBGrid1. Columns [3]. Width: = 50;. Label1. Caption: = '1 ';. ShowModal; else ShowMessage ('Не введений номер групи');; TForm3. N7Click (Sender: TObject);. t_chitatel. Sort: = 'id_form';; TForm3. Button1Click (Sender: TObject); DataModule2. t_chitatel do begin; ('Fio'). AsString: = edit1. Text; ('id_gr'). AsInteger: = DBLookupComboBox1. KeyValue; ('id_form')...
