di_datamodul1.pas

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

unit DI_DataModul1;

{
代码单元名称：通用数据登录工具数据模型
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TDI_DfmDataModule1 = class(TDataModule)
    MasterADOConnection: TADOConnection;
    TTableADOQuery: TADOQuery;
    TTableDataSource: TDataSource;
    DictioneryADOQuery: TADOQuery;
    DictioneryDataSource: TDataSource;
    AnotherDBADOConnection: TADOConnection;
    MasterADOQuery: TADOQuery;
    CreateDTableADOQuery: TADOQuery;
    CreateTableADOConnection: TADOConnection;
    DTableADOQuery: TADOQuery;
    CreateDTableDataSource: TDataSource;
    CreateTTableADOQuery: TADOQuery;
    DropTableADOQuery: TADOQuery;
    ChineseTableNameADOQuery: TADOQuery;
    procedure TTableADOQueryPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTableADOQueryEditError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTableADOQueryDeleteError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
    procedure DictioneryADOQueryPostError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure TADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError; var
      Action: TDataAction);
    procedure TADOQuery1EditError(DataSet: TDataSet; E: EDatabaseError; var
      Action: TDataAction);
    procedure TADOQuery1DeleteError(DataSet: TDataSet; E: EDatabaseError; var
      Action: TDataAction);
  end;

var
  DI_DfmDataModule1: TDI_DfmDataModule1;

implementation

{$R *.DFM}

{ TDI_DfmDataModule1 }

//删除错误处理==================================================================

procedure TDI_DfmDataModule1.TADOQuery1DeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  s3: string;
begin
  s3 := '系统提示:' + E.Message;
  ShowMessage(s3);
  Action := daAbort;
end;

//编辑错误处理==================================================================

procedure TDI_DfmDataModule1.TADOQuery1EditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  s2: string;
begin
  s2 := '系统提示:' + E.Message;
  ShowMessage(s2);
  Action := daAbort;
end;

//提交错误处理==================================================================

procedure TDI_DfmDataModule1.TADOQuery1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  s1: string;
begin
  s1 := '系统提示:' + E.Message;
  if Pos('无法插入空行', s1) <> 0 then
  begin
    ShowMessage('不能插入空行！');
    Action := daAbort;
  end
  else if Pos('column does not allow nulls', s1) <> 0 then
  begin
    ShowMessage('不能为空的字段必须输入内容！');
    Action := daAbort;
  end
  else if Pos('非空列不能更新为 Null', s1) <> 0 then
  begin
    ShowMessage('不能为空的字段中的内容不能清空！');
    Action := daAbort;
  end
  else if Pos('Violation of PRIMARY KEY constraint', s1) <> 0 then
  begin
    ShowMessage('主键字段不能输入重复内容！');
    Action := daAbort;
  end
  else
  begin
    ShowMessage(s1);
    Action := daAbort;
  end;
end;

//错误处理具体应用==============================================================

procedure TDI_DfmDataModule1.TTableADOQueryPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  TADOQuery1PostError(DataSet, E, Action);
end;

procedure TDI_DfmDataModule1.TTableADOQueryEditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  TADOQuery1EditError(DataSet, E, Action);
end;

procedure TDI_DfmDataModule1.TTableADOQueryDeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  TADOQuery1DeleteError(DataSet, E, Action);
end;

procedure TDI_DfmDataModule1.DictioneryADOQueryPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  ShowMessage('您填写的记录不完全，请重新填写！');
  Action := daAbort;
end;

end.