盒子论坛 v2.1

本人现在基于ｏｒａｃｌｅ的数据库编程，需要通过ｄａｔａｂａｓｅ控件动态连接数据库，即不需要知道数据库密码也可以连接的，而且在数据库密码修改了以后还可以正常连接。下面是一段相关的原代码，但是看不到函数ReadIniFileString和
LoginInfo是如何写的：
//
  sIniFile := ExtractFilePath(Application.ExeName)+'Bill.ini';
  {从Bill.ini取得登录数据的主机串，再加上注册成功后取提的用户名和密码，尝试登录到数据，
  　如果失败，则从系统注销，并退出}
  try
    DMOwe.OWEDB.Connected:=false;
    DMOwe.OWEDB.Params.Values['SERVER NAME'] :=ReadIniFileString(sIniFile,'LOGIN','server_name',');
    DMOwe.OWEDB.Params.Values['USER NAME'] := LoginInfo.sUserName;
    DMOwe.OWEDB.Params.Values['PASSWORD'] := LoginInfo.sPassWord;
    DMOwe.OWEDB.Open;
  except
    EMsgDlg('连接数据库出错！请检查数据库别名及BILL.INI的配置是否正确！');
    Logout;
    halt;
    Exit;
  end;
询问有没有别的类似功能的函数？
----------------------------------------------
-菜鸟一个，恳请指教！

信息

登陆以后才能回复