datamodule.pas

来自「房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能」· PAS 代码 · 共 47 行

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB,IniFiles,Forms;

type
  TDB_module = class(TDataModule)
    ADOCon: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
           
var
  DB_module: TDB_module;

implementation

{$R *.dfm}

procedure TDB_module.DataModuleCreate(Sender: TObject);
var iniFw:tinifile;
  servernameFw,usernameFw,passwordFw,connFw:string;
begin
   try
        iniFw := TINIFile.Create(ExtractFilePath(application.ExeName) + '\iniFw.ini');
        ADOCon.close;
    	servernameFw := iniFw.ReadString('server','name','');
    	usernameFw := iniFw.ReadString('server','user','');
    	passwordFw := iniFw.ReadString('server','pass','');
    	connFw:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + usernameFw + ';Initial Catalog=fangWu;Data Source=' + servernameFw;
    	ADOCon.ConnectionString:=connFw;
        ADOCon.Open;
    except
        begin
          Application.MessageBox('可能是数据库设置错误或数据库没有打开，连接失败！','余科华提示',0);
        end;
    	iniFw.Free;
   end;
end;

end.