book_shop / Warhouses

unit Warhouses;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;

type
TForm_Warhouses = class(TForm)
Table_Warhouses: TTable;
DataSource_Warhouses: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button_Close: TButton;
Query_Delete: TQuery;
procedure Button_CloseClick(Sender: TObject);
procedure Table_WarhousesBeforeDelete(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form_Warhouses: TForm_Warhouses;

implementation

uses Presences, Sales;

{$R *.DFM}

procedure TForm_Warhouses.Button_CloseClick(Sender: TObject);
begin
Close;
end;

procedure TForm_Warhouses.Table_WarhousesBeforeDelete(DataSet: TDataSet);
var
id: string;

begin
//подтверждение удаления записи
if MessageDlg('Текущая запись и все связанные с ней записи будут удалены.'
+#13+'Продолжить?',
mtConfirmation,[mbOK,mbCancel],0)=mrCancel then begin
Abort;
end;

//закрытие запроса на удаление
Query_Delete.Close;
//получение ключа удаляемой записи
id:=Table_Warhouses.FieldByName('id').AsString;

//очищение SQL-запроса
Query_Delete.SQL.Clear;
//добавление текста SQL-запроса
Query_Delete.SQL.Add('DELETE FROM presences');
Query_Delete.SQL.Add('WHERE presences.id_warhouse='+id);
//выполнение запроса
Query_Delete.ExecSQL;

Query_Delete.SQL.Clear;
Query_Delete.SQL.Add('DELETE FROM sales');
Query_Delete.SQL.Add('WHERE sales.id_warhouse='+id);
Query_Delete.ExecSQL;

//обновление данных в окнах программы
Form_Presences.Table_Presences.Close;
Form_Presences.Table_Presences.Open;
Form_Sales.Table_Sales.Close;
Form_Sales.Table_Sales.Open;
end;

end.