酒店单据核销?凭频甑ゾ莺讼?
源代码在线查看： dataconut.pas
| 软件大小： |
1764 K |
| 上传用户： |
bobey |
|
|
| 关键词： |
|
| 下载地址： |
免注册下载 普通下载
|
|
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=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=hotelbook;Data Source=ZSBG;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.
