BLookupComboBox1. KeyValue;;;. Visible: = false;
label2. Visible: = false;. Visible: = false;
label4. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Visible: = false;. Clear;. Clear;. Clear;; TForm4. Button3Click (Sender: TObject);. ShowModal;; TForm4. N2Click (Sender: TObject);. t_knigi. Sort: = 'nazvanie';; TForm4. N3Click (Sender: TObject);. t_knigi. Sort: = 'avtor';; TForm4. 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;; TForm4. N5Click (Sender: TObject);. t_knigi. Sort: = 'god_izdaniya';; TForm4. N6Click (Sender: TObject);. t_knigi. Sort: = 'zhanr';;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TEdit;: TEdit;: TLabel; : TLabel;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5; Unit1, Unit2, Unit3, Unit4;
{$ R *. dfm} TForm5. Button1Click (Sender: TObject); (edit1. Text <>'') and (edit2. Text <>'') then begin. t_group. Insert;. t_group. FieldByName ('spec'). AsString: = edit1. Text;. t_group. FieldByName ('nomer_gr'). AsInteger: = strtoint (edit2. Text),. t_group. Post;. Clear;. Clear; else ShowMessage ('Поля не можуть бути порожніми!');; TForm5. Button2Click (Sender: TObject);
var x: string; ('Для операції потрібно права адміністратора!');: = InputBox ('Вхід', 'Введіть пароль ",'');
if x = 'qweasd123asd' then DataModule2. t_group. Delete;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls; = class (TForm): TDBGrid;: TEdit;: TButton;: TLabel;: TButton; Button1Click ( Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm6; Unit1, Unit2, Unit3, Unit4, Unit5, DB;
{$ R *. dfm} TForm6. Button1Click (Sender: TObject); datamodule2. t_zhanr do begin; edit1. text <>'' then FieldByName ('nazvanie'). asstring: = edit1. Text else ShowMessage ('Назва не може бути порожнім!'); p align="justify"> post;
end;. Clear;; TForm6. Button2Click (Sender: TObject);. t_zhanr. Delete;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, DBCtrls, Menus; = class (TForm): TDBGrid;: TDBLookupComboBox;: TEdit;: TEdit;: TButton;...
