card_datamodule.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit Card_DataModule;

interface

uses
  SysUtils, Classes, DB, Windows, Messages, Variants, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, StdCtrls, Mask,
  ADODB;

type
  TCardSell_DataModule = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    procedure ADOQuery1DeleteError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOQuery1EditError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOQuery2BeforePost(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CardSell_DataModule: TCardSell_DataModule;

implementation
uses main, PublicUnit;

{$R *.dfm}

procedure TCardSell_DataModule.ADOQuery1DeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  //ShowMessage('删除记录错误!');
  Action := daAbort;
end;

procedure TCardSell_DataModule.ADOQuery1EditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  //ShowMessage('编辑记录错误!');
  Action := daAbort;
end;

procedure TCardSell_DataModule.ADOQuery1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  //ShowMessage('插入记录错误!');
  Action := daAbort;
end;

procedure TCardSell_DataModule.ADOQuery2BeforePost(DataSet: TDataSet);
begin
  if PublicUnit.IsErrorFlag then
  begin
    //ShowMessage('已经出错了');
    PublicUnit.IsErrorFlag := False;
    DataSet.Cancel;
  end;
end;

procedure TCardSell_DataModule.ADOQuery1BeforePost(DataSet: TDataSet);
begin
  if PublicUnit.IsErrorFlag then
  begin
    //ShowMessage('已经出错了');
    PublicUnit.IsErrorFlag := False;
    DataSet.Cancel;
  end;
end;

end.