dataconut.~pas

来自「宾馆客房管理系统,功能强大,界面美观,全部delphi源代码」· ~PAS 代码 · 共 35 行

unit DataConUt;

interface

uses
  SysUtils, Classes, DB, ADODB;

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

var
  DataFm: TDataFm;

implementation

{$R *.dfm}

procedure TDataFm.DataModuleCreate(Sender: TObject);
var
datapath:string;
begin
datapath:=extractfilepath(paramstr(0));
datacon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+datapath+'data\hotel.mdb;Persist Security Info=False';
datacon.Connected:=true;
end;

end.