datacon.~pas

来自「用delphi+access给单位做的实用,简单的.」· ~PAS 代码 · 共 36 行

unit datacon;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdatamodal = class(TDataModule)
    adocon: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datamodal: Tdatamodal;

implementation

{$R *.dfm}

procedure Tdatamodal.DataModuleCreate(Sender: TObject);
var
 datapath:string;
begin
//数据模块-ADO连接数据库
  datapath:=extractfilepath(paramstr(0));
  adocon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+datapath+'data\职工信息库.mdb;Persist Security Info=False';
  adocon.Connected:=true;
end;

end.