db_u.pas

从盒子上面转过来的一个很小的软件

unit DB_U;

interface

uses
 // SysUtils, Classes, DB, ADODB;
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB;

type
  Tcustomerdata = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery4: TADOQuery;
    ADOTable3: TADOTable;
    DataSource2: TDataSource;
    procedure ADOQuery2BeforeDelete(DataSet: TDataSet);
    procedure ADOQuery3BeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  customerdata: Tcustomerdata;

implementation

{$R *.dfm}

procedure Tcustomerdata.ADOQuery2BeforeDelete(DataSet: TDataSet);
var
Buttona:Integer;
begin
Buttona:=Application.MessageBox('确实删除吗？','警告!'
                      ,mb_Iconquestion+mb_OkCancel+mb_DefButton2);
  if Buttona=IDCANCEL then abort;
end;

procedure Tcustomerdata.ADOQuery3BeforeDelete(DataSet: TDataSet);
var
Buttona:Integer;
begin
Buttona:=Application.MessageBox('确实删除吗？','警告!'
                      ,mb_Iconquestion+mb_OkCancel+mb_DefButton2);
  if Buttona=IDCANCEL then abort;
end;

end.