Реферат Проектування автоматизованої інформаційної системи книжкового складу

Private declarations}

{Public declarations}; _QAuthor: TForm_QAuthor;

{$ R *. DFM} _QAuthor.Button_CloseClick (Sender: TObject);;; _QAuthor.Button_ExecuteClick (Sender: TObject);. Active: = false;. ParamByName ('author'). AsString : = DBLookUpComboBox1.Text;. Active: = true; error: EDatabaseError do begin

MessageDlg ('При виконанні запиту сталася помилка:' + # 13 + # 13 +

error.Message, mtError, [mbOK], 0);;;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables, DBCtrls; _QKnowledge = class (TForm): TQuery;: TDataSource;: TDBGrid; _Close: TButton; _Execute: TButton;: TDBLookupComboBox; _Books1: TTable; _Books1: TDataSource;: TLabel; _CloseClick (Sender: TObject); _ExecuteClick (Sender: TObject);

{Private declarations}

{Public declarations}; _QKnowledge: TForm_QKnowledge;

{$ R *. DFM} _QKnowledge.Button_CloseClick (Sender: TObject);;; _QKnowledge.Button_ExecuteClick (Sender: TObject);

// закриваетсязапрос.Active: = false;

// устанавліваетсяпараметр "Областьзнаній". ParamByName ('know'). AsString: = DBLookUpComboBox1.Text;

// відкривається запрос.Active: = true;

// у випадку помилки бази даних виводиться повідомлення про помилку

on error: EDatabaseError do begin ('Привыполнениизапросапроизошлаошибка:' + # 13 + # 13 +. Message, mtError, [mbOK], 0);;;; _Cost;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBCtrls, DBTables, Db, Grids, DBGrids; _QSale_Cost = class (TForm): TDBGrid;: TQuery;: TDataSource; _Books1: TTable; _Books1: TDataSource;: TDBLookupComboBox; _Execute: TButton; _Close : TButton;: TLabel; _CloseClick (Sender: TObject); _ExecuteClick (Sender: TObject);

{Private declarations}

{Public declarations}; _QSale_Cost: TForm_QSale_Cost;

{$ R *. DFM} _QSale_Cost.Button_CloseClick (Sender: TObject);;; _QSale_Cost.Button_ExecuteClick (Sender: TObject);. Active: = false;. Params [0]. Value: = DBLookUpComboBox1.KeyValue;. Active: = true; error: EDatabaseError do begin

MessageDlg ('При виконанні запиту сталася про Шибка: '+ # 13 + # 13 +

error.Message, mtError, [mbOK], 0);;;;. Sales;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids , Db, DBTables; _Sales = class (TForm) _Sales: TTable; _Sales: TDataSource;: TDBGrid;: TDBNavigator; _Close: TButton; _CloseClick (Sender: TObject); _SalesBeforeDelete (DataSet: TDataSet);

{Private declarations}

{Public declarations}; _Sales: TForm_Sales;

{$ R *. DFM} _Sa...