dm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 46 行

unit DM;

interface

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

resourcestring
  sDelete='真的要删除该记录吗?';

type
  TDM1 = class(TDataModule)
    dsAccSet: TDataSource;
    tblAccSet: TTable;
    AccountSetName: TStringField;
    CorpName: TStringField;
    procedure DM1Create(Sender: TObject);
    procedure tblAccSetBeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

uses Globals;

{$R *.DFM}
procedure TDM1.DM1Create(Sender: TObject);
begin
  tblAccSet.DatabaseName:=myGetCurrentDirectory()+'\data\';
end;

procedure TDM1.tblAccSetBeforeDelete(DataSet: TDataSet);
begin
  if messagedlg(Pchar(sDelete),mtconfirmation,mbyesnocancel,0)<>mryes then
    abort;
end;

end.