【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了DataMoudle.pas相关资料,希望对各位网友有所帮助!
unit DataMoudle;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=True;'+
'User ID=sa;Initial Catalog=MRCRM;Data Source=.';
ADOConnection1.Open;
end;
end.
上一篇:
datamod_unit.pas
下一篇:
Function GetIp(IP) 获得ip asp