dmkqgl.pas

考勤管理系统很有借鉴的饿意义

unit dmKqgl;

interface

uses
  SysUtils, Classes, DB, Dialogs, DBTables, KqglCommon, FMTBcd, SqlExpr;

type
  TdmKqgl = class(TDataModule)
    dbKQGL: TDatabase;
    tblYgxx: TTable;
    qryCommon: TQuery;
    qryKqjl: TQuery;
    qryKqtj: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); reintroduce;
  end;

implementation

{$R *.dfm}

constructor TdmKqgl.Create(AOwner: TComponent);
var
  l_File: string;
begin
  inherited;

  l_File := EXEPath + conKqglDataFile;
  if not FileExists(l_File) then
  begin
    ShowMessage('文件不存在！无法打开数据库！');
    Exit;
  end;

  if Create_ODBC_Access('KQGL') then
  begin
    with dbKqgl do
    begin
      AliasName := 'KQGL';
      dbKQGL.Open;
    end;
    tblYgxx.Open;
  end
  else begin
    ShowMessage('建立ODBC失败！！');
    Exit;
  end;
end;

end.