这个首先有一个配置好的INI文件,然后在连接数据库之前读出INI文件的配置信息来连接SQL就可以了

首先你要会对INI进行处理,INI文件读写DELPHI中有一个类TIniFile,利用这个类型你就可以方便地创建及读写INI文件了.

////ini  
  [ServerInfo]  
  ServerIP=.  
  SQLDBName=aaaa  
  SQLUserID=sa  
  SQLPwd=sa  
   
   
  /////////////  
  var  
          FileName:string;  
      begin  
   
          FileName:=ExtractFilePath(   application.ExeName)+'resource\conf.ini';  
          with   TInifile.Create(Filename)   do  
          begin  
              ServerIP:=ReadString('ServerInfo','ServerIP','');  
              SQLDBName:=ReadString('ServerInfo','SQLDBName','');  
              SQLUserName:=ReadString('ServerInfo','SQLUserID','');  
              SQLPwd:=ReadString('ServerInfo','SQLPwd','');  
              Destroy;  
          end;  
   
   
   
   
  ///////////  
   
  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+  
          SQLPwd+  
          ';Persist   Security   Info=True;'+  
          'User   ID='+  
          SQLUserName+  
          ';Initial   Catalog='+  
          SQLDBName+  
          ';Data   Source='+  
          ServerIP;  
 

三楼的基本差不多了，不过，密码最好进行加密！这种多的是，你可以随便找的。

谢谢大家的帮忙!

三楼正解

密码要进行加密.

我找了一些关于密码加密的例子,看后总觉得有些模糊,  
  请问朋友们,可不可以给些相应的详细些的例子给我看看啊?  
  毕竟头一次接触这样的例子,还是不太明白.

三楼的ADOConnection1.ConnectionString   的这个是怎么配置的啊，我在编译的时候老是说这里错误,未定义

配置的问题搞定了，谢谢大家!  
   
  但关于加密的问题还是希望大家能给我指导一下.  
  我是这样想的:   先定义两个字符串key和str   作为明钥和密钥.str是key倒过来的对应的字符串.  
  关于对应的加密,解密代码怎么写啊?我想了这么久,还是没弄会.  
  加密后再如何应用到三楼的代码中去啊,希望大家指点一下,我实在弄不好了.  
 

[039D2D4968B58091]  
  6294E987F260513A=93F7BB025CD2ECE209FB77C6868074E3  
  16CC3532BB7A98DF=198E4BB5584F94BF  
  E7EBACCB860DAAFE=198E4BB5584F94BF  
  13AE07A60EF35373=0AB3345601A7728A  
   
  这是我的配置

[039D2D4968B58091]                
  6294E987F260513A=93F7BB025CD2ECE209FB77C6868074E3       //服务器  
  16CC3532BB7A98DF=198E4BB5584F94BF                                       //数据库名  
  E7EBACCB860DAAFE=198E4BB5584F94BF                                       //用户  
  13AE07A60EF35373=0AB3345601A7728A                                       //密码

可不可以给个具体的例子或算法给我啊

加密你可一左移右移什么的来实现,加密算法用别人的你放心么?????

我是用来参考啊,我现在是不知道如何着手

 
  //db_con.ini       这是你的配置文件  
  [ServerInfo]  
  ServerIP=.  
  SQLDBName=aaaa  
  SQLUserID=sa  
  SQLPwd=sa  
   
   
   
   
  //这是你的数据库连接单元文件中有关数据库连接函数  
      function   Get_Db_Con_Str(FileName:String):String;  
      var  
          ServerIP,SQLDBName,SQLUserName,SQLPwd:string;  
      begin  
          Result   :=   '';  
          with   TInifile.Create(Filename)   do  
          begin  
              try  
                  ServerIP:=ReadString('ServerInfo','ServerIP','');  
                  SQLDBName:=ReadString('ServerInfo','SQLDBName','');  
                  SQLUserName:=ReadString('ServerInfo','SQLUserID','');  
                  SQLPwd:=ReadString('ServerInfo','SQLPwd','');  
              finally  
                  Free;  
              end;  
              Result   :=   'Provider=SQLOLEDB.1;Password='+SQLPwd+';Persist   Security   Info=True;User   ID='+SQLUserName+';Initial   Catalog='+SQLDBName+';Data   Source='+ServerIP;  
          end;  
   
   
  //使用  
    var  
        Ini_FileName:String;  
   
    //.....    
       
    Ini_FileName:=ExtractFilePath(   application.ExeName)+'db_con.ini';  
    if   not   FileExists(Ini_FileName)   then  
    begin  
        ShowMessage('数据库连接配置文件不存在！');  
        Application.Terimate;  
    end;        
    with   ADOConnection1   do  
        Connection   :=   False;  
        ConnectionString:=Get_Db_Con_Str(Ini_FileName);  
        try  
            Connection   :=   True;  
            //.....  
        except  
            ShowMessage('数据库连接失败！请检查配置文件：'+Ini_FileName);  
            //....  
        end;  
    end;  
 

给你一个简单的：  
  procedure   TFrmSrv.BtnSaveClick(Sender:   TObject);  
  var   I:integer;  
  begin  
      Pwd:=EdtPwd.Text;  
      for   I:=1   to   length(pwd)   do  
      begin  
      pwd[i]:=chr(ord(pwd[i])xor   4);  
      end;  
      myinifile:=Tinifile.Create(ExtractFilePath(paramstr(0))+'\setup.ini');  
      myinifile.writestring('Setup','Data_Source',EdtSrv.text);  
      myinifile.writestring('Setup','Initial_Catalog',EdtDB.text);  
      myinifile.writestring('Setup','User_ID',EdtUser.text);  
      myinifile.writestring('Setup','Password',Pwd);  
      myinifile.Free;  
      end;  
  end;

象上面的这样子保存和读取都是一样的，取的时候再进行一次就行了。ok？

哈,能直接用了