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

{Private declarations}

{Public declarations}; _Main: TForm_Main;, Presences, Books, Sales, In_Warhouse, In_Book, In_Presence, _Sale, SQL_Query, QKnowledge, QSale_Cost, QAuthor, QGain;

{$ R *. DFM} TForm_Main.N2Click (Sender: TObject);;; TForm_Main.N4Click (Sender: TObject); _Warhouses.Show;; TForm_Main.N5Click (Sender: TObject); _Presences . Show;; TForm_Main.N6Click (Sender: TObject); _Books.Show;; TForm_Main.N7Click (Sender: TObject); _Sales.Show;; TForm_Main.N9Click (Sender: TObject); _In_Warhouse.Show;; TForm_Main.N11Click ( Sender: TObject); _In_Book.Show;; TForm_Main.N10Click (Sender: TObject); _In_Presence.Show;; TForm_Main.N12Click (Sender: TObject); _In_Sale.Show;; TForm_Main.SQL1Click (Sender: TObject); _SQL_Query.Show ;; _Main.Button_CloseClick (Sender: TObject);;; TForm_Main.N14Click (Sender: TObject); _QKnowledge.Show;; TForm_Main.N15Click (Sender: TObject); _QSale_Cost.Show;; TForm_Main.N16Click (Sender: TObject); _QAuthor.Show;; TForm_Main.N17Click (Sender: TObject); _QGain.Show;;. Presences;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables; _Presences = class (TForm) _Presences: TTable; _Presences: TDataSource;: TDBGrid;: TDBNavigator; _Close: TButton; _CloseClick (Sender: TObject); _PresencesBeforeDelete (DataSet: TDataSet);

{Private declarations}

{Public declarations}; _Presences: TForm_Presences;

{$ R *. DFM} _Presences.Button_CloseClick (Sender: TObject);;; _Presences.Table_PresencesBeforeDelete (DataSet: TDataSet);

begin ('Поточний запис і всі пов'язані з нею записи будуть видалені.'

+ # 13 + 'Продовжити?',, [mbOK, mbCancel], 0) = mrCancel then begin;;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, , Grids, DBGrids, Db, DBTables, DBCtrls, ComCtrls; _QGain = class (TForm): TQuery;: TDataSource;: TDBGrid; _Close: TButton; _Execute: TButton; _Start: TDateTimePicker; _Last: TDateTimePicker;: TLabel;: TLabel; _CloseClick (Sender: TObject); _ExecuteClick (Sender: TObject);

{Private declarations}

{Public declarations}; _QGain: TForm_QGain;

{$ R *. DFM} _QGain.Button_CloseClick (Sender: TObject);;; _QGain.Button_ExecuteClick (Sender: EDatabaseError do begin

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

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

{...