id: = Table_Warhouses.FieldByName ('id'). AsString;
// очищення SQL-запроса_Delete.SQL.Clear;
// добавленіетекста SQL-запроса_Delete.SQL.Add ('DELETE FROM presences'); _Delete.SQL.Add ('WHERE presences.id_warhouse =' + id);
// виконання запроса_Delete.ExecSQL;
Query_Delete.SQL.Clear; _Delete.SQL.Add ('DELETE FROM sales'); _Delete.SQL.Add ('WHERE sales.id_warhouse =' + id);
Query_Delete.ExecSQL;
// оновлення даних у вікнах програми
{Private declarations}
{Public declarations}; _Books: TForm_Books; Presences, Sales;
{$ R *. DFM} _Books.Button_CloseClick (Sender: TObject);;; _Books.Table_BooksBeforeDelete (DataSet: TDataSet);
var: string;
('Поточний запис і всі пов'язані з нею записи будуть видалені.'
+ # 13 + 'Продовжити?',, [mbOK, mbCancel], 0) = mrCancel then FROM presences '); _Delete.SQL.Add (' WHERE presences.id_book = '+ id); _Delete.ExecSQL; _Delete.SQL.Clear; _Delete.SQL.Add (' DELETE FROM sales '); _Delete.SQL.Add ('WHERE TObject);;. _Book;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls; _In_Book = class (TForm): TLabel;: TLabel;: TLabel; _Add: TButton; _Close: TButton;: TLabel;: TLabel;: TBevel; _Author: TEdit; _Circuation: TEdit; _Year: TEdit; _Publisher: TEdit; _Name: TEdit;: TLabel;: TLabel; _Knowledge: TEdit; _Cost: TEdit; _CloseClick (Sender: TObject); _AddClick (Sender: TObject); (Sender: TObject);
{Private declarations}
{Public declarations}; _In_Book: TForm_In_Book; Books;
{$ R *. DFM} _result_data; _In_Book do TObject);;; _In_Book.Button_AddClick (Sender: TObject); _result_data;;
. _Presence;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls; _In_Presence = class (TForm): TLabel;: TLabel; _Add : TButton; _Close: TButton; _Warhouse: TDBLookupComboBox;: TLabel; _Warhouses1: TTable; _Warhouses1: TDataSource; _Warhouses2: TTable; _Warhouses2: TDataSource;: TLabel; _Book: TDBLookupComboBox; _Books1: TTable; _Books1: TDataSource; _Books2: TTable; _Books2 : TDataSource;: TBevel; _Item_Amount: TEdit; _Pack_Amount: TEdit; _CloseClick (Sender: TObject); _AddClick (Sender: TObject); (Sender...
