; RadioGroup1.ItemIndex = 5 then.Show; RadioGroup1.ItemIndex = 6 then.Show;;.
// КнігіUnit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem;: TDBNavigator;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TDataSource;: TDBGrid;: TADOConnection;: TADOQuery;: TADOQuery;: TMenuItem; : TMenuItem;: TMenuItem; NChooseClick (Sender: TObject); NCloseClick (Sender: TObject); NExitClick (Sender: TObject); NAddClick (Sender: TObject); NDeleteClick (Sender: TObject); FormCreate (Sender: TObject); N2Click ( Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2; Unit1, Unit9, Unit10, Unit11;
{$ R *. dfm} TForm2.NChooseClick (Sender: TObject);. Show;; TForm2.NCloseClick (Sender: TObject);. Close;; TForm2.NExitClick (Sender: TObject); . Close;; TForm2.NAddClick (Sender: TObject);. Insert;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;; TForm2.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0] . Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840 ;. Width: = 900;; TForm2.FormCreate (Sender: TObject);. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2] . Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;; TForm2.N2Click (Sender: TObject);. Active: = false;. SQL. Clear;. SQL.Add ('SELECT * FROM book ORDER BY Назва');. ExecSQL;. Active: = true;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;; TForm2.N3Click (Sender: TObject) ;. Show;. Edit1.Text: ='';. ComboBox1.Items [0]: = 'Назва';. ComboBox1.Items [1]: = 'Автор';. ComboBox1.Items [2]: = 'Жанр ';. ComboBox1.Items [3]: =' Ціна ';. SelectedForm: = 2;; TForm2.N4Click (Sender: TObject);. QuickRep1.Preview;;.
// АвториUnit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, Menus, DBTables, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem; Avtor: TDBNavigator;: TDataSource;: TDBGrid;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TADOConnection;: TADOQuery;: TMenuItem;: TADOQuery ;: TMenuItem;: TMenuItem;: TMenuItem; NChooseClick (Sender: TObject); NCloseClick (Sender: TObject); NExitClick (Sender: TObject); NAddClick (Sender: TObject); NDeleteClick (Sender: TObject); FormCreate (Sender: TObject ); N2Click (Sender: TObject); ...
