N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit1, Unit9, Unit10, Unit13, Unit16;
{$ R *. dfm} TForm3.NChooseClick (Sender: TObject);. Show;; TForm3.NCloseClick (Sender: TObject);. Close;; TForm3.NExitClick (Sender: TObject); . Close;; TForm3.NAddClick (Sender: TObject);. Insert;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm3.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0]. Width: = 200;. Columns.Items [1] . Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm3.FormCreate (Sender: TObject);. Columns.Items [0]. Width : = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm3.N2Click (Sender: TObject );. Show;. ADOQuery1.Close;. ADOQuery1.SQL.Text: = 'SELECT Фамілія_ІО, Назва, Ціна FROM book, avtor WHERE (Фамілія_ІО = Автор) ORDER BY Фамілія_ІО';. ADOQuery1.ExecSQL;. ADOQuery1.Open; . DbGrid1.Columns.Items [0]. Width: = 200;. DbGrid1.Columns.Items [1]. Width: = 200;. DbGrid1.Columns.Items [2]. Width: = 200;. DBGrid1.Width: = 640;. Width: = 700;; TForm3.N3Click (Sender: TObject);. Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM avtor ORDER BY Фамілія_ІО');. ExecSQL;. Active: = true;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640; . Width: = 700;; TForm3.N4Click (Sender: TObject);. Show;. Edit1.Text: ='';. ComboBox1.Items [0]: = 'Фамілія_ІО';. ComboBox1.Items [1]: = 'Жанр';. ComboBox1.Items [2]: = 'Видавництво';. SelectedForm: = 3;; TForm3.N5Click (Sender: TObject);. QuickRep2.Preview;;.
// ІздательстваUnit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, DBTables, Menus, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem;: TDBGrid; Izdat: TDBNavigator;: TDataSource;: 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); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4; Unit1, Unit9, Unit10, Unit12, Unit17;
{$ R *. dfm} TForm4.NChooseClick (Sender: TObject);. Show;; TForm4.NCloseClick (Sender: TObject);. Close;; TForm4.NExitClick (Sender: TObject); . Close;; TForm4.NAddClick (Sender: TObject);. ...
