unit3.pas

完整的一个用于考勤排班功能的程序

unit Unit3;

interface

uses
  Forms,SysUtils, Classes, DB, ADODB,registry,windows;

type
  TkqData = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  Connect_MDB:boolean;
  Src:String;
  qx:string;
  end;

var
  kqData: TkqData;

implementation

{$R *.dfm}

procedure TkqData.DataModuleCreate(Sender: TObject);
var
Src,srcpath,dbfpath,Provider:String;
Reg:TRegistry;
begin
    ADOConnection1.Connected:=false;
    Connect_MDB:=false;
    srcpath:=ExtractFilePath(Application.ExeName);
    dbfpath:=srcpath+'kq.mdb';
    Provider:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;';
    Src:=Provider+'Data Source='+dbfpath;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\lzkfinger\kaoqin\',false) then
begin
 if Reg.ValueExists('database70') then Src:=Reg.ReadString('database70');
 Reg.CloseKey;
end;
Reg.Free;
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:=Src;
try
ADOConnection1.Connected:=true;
Connect_mdb:=true;
except
Connect_mdb:=false;
end;
end;
end.