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

Тема: Курсовые обзорные

les.Button_CloseClick (Sender: TObject);;; _Sales.Table_SalesBeforeDelete (DataSet: TDataSet);

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

+ # 13 + 'Продовжити?',, [mbOK, mbCancel], 0) = mrCancel then begin;;;. _Query;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, Grids, DBGrids, Db, DBTables; _SQL_Query = class (TForm): TQuery;: TDataSource; _Execute: TButton; _Clear: TButton; _Close: TButton;: TGroupBox;: TMemo;: TGroupBox;: TDBGrid; _Save: TButton; _Load: TButton;: TOpenDialog;: TSaveDialog; _ExecuteClick (Sender: TObject); _ClearClick (Sender: TObject); _CloseClick (Sender: TObject); _LoadClick (Sender: TObject); _SaveClick (Sender: TObject);

{Private declarations}

{Public declarations}; _SQL_Query: TForm_SQL_Query;

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

// прісваіваетсятекст SQL-запроса_SQL_Query.Query1.SQL: = Form_SQL_Query.Memo1.Lines;

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

// открываетсязапрос_SQL_Query.Query1.Active: = true;

except

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

on error: EDatabaseError do begin ('Привыполнениизапросапроизошлаошибка:' + # 13 + # 13 +. Message, mtError, [mbOK], 0);;;; _SQL_Query.Button_ClearClick (Sender: TObject); _SQL_Query.Memo1.Lines.Clear;; _SQL_Query.Button_CloseClick (Sender: TObject);;; _SQL_Query.Button_LoadClick (Sender: TObject); OpenDialog1.Execute then begin.Lines.LoadFromFile (OpenDialog1.FileName);;; _SQL_Query.Button_SaveClick ( Sender: TObject); SaveDialog1.Execute then begin.Lines.SaveToFile (ChangeFileExt (SaveDialog1.FileName, '. sql'));;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables; _Warhouses = class (TForm) _Warhouses: TTable; _Warhouses: TDataSource;: TDBGrid;: TDBNavigator; _Close: TButton; _Delete: TQuery; _CloseClick (Sender: TObject); _WarhousesBeforeDelete (DataSet: TDataSet );

{Private declarations}

{Public declarations}; _Warhouses: TForm_Warhouses; Presences, Sales;

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

var: string;

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

+ # 13 + 'Продовжити?',, [mbOK, mbCancel], 0) = mrCancel then begin

Abort;;

// закриття запиту на удаленіе_Delete.Close;

// отримання ключа видаляється запису ...