unitadoconn.pas

社区服务系统

unit UnitADOConn;

interface
uses ADODB,IniFiles,SysUtils,Dialogs;
Procedure iniADO;
var
  adoconn : TADOConnection;
  adopub : TADOQuery;
  adoshare : TADOQuery;
  strProvider : string;                                        //用来保存连接字符串
  iniFile : TIniFile;
  blnAdd,blnModify,blnDel,blnView : boolean;                   //用以判断用户是否有添加、修改、删除、查看的权限

implementation

  Procedure iniADO;
  begin
    if FileExists('connstring.ini') then                                     //判断配置文件是否存在
    begin
      try
        iniFile := TIniFile.Create('.\connstring.ini');
        strProvider := iniFile.ReadString('dbconn','provider','');           //读取配置文件中的节
        strProvider := 'Provider=' + strProvider;
      finally
        iniFile.Free;
      end;
    end
    else
      showmessage('配置文件不存在');
    adoconn := TADOConnection.Create(nil);
    adoconn.ConnectionString := strProvider;
    adoconn.LoginPrompt := false;
    adoconn.Connected := true;
    adopub := TADOQuery.Create(nil);
    adopub.Connection := adoconn;
    adoshare := TADOQuery.Create(nil);
    adoshare.Connection := adoconn;
  end;  
end.