dataconut.~pas

来自「酒店单据核销?凭频甑ゾ莺讼?」· ~PAS 代码 · 共 36 行

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;
{Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=hotelbook;Data Source=ZSBG}

end.