如何通过BDE读取ini文件实现sql2000的动态数据库连接?--附流程

Question

： 不知道那位高手有没有实现以下流程的代码？
流程如下：
    程序启动
      ↓
    读取INI文件
      ↓连接sql2000数据库
      ↓
      ↓失败       
◇ → →出现配置连接窗口，进行配置
↓                  ↓连接数据库  ↑重
↓成功              ↓            ↑配
  进入系统  ←←←←←←◇→→→→→→◇
↓放弃
↓
退出 [email protected]

Answer 1

这个很简单的，你用一个BOOLEAN变量另一个配置窗体就行了！
读取INI 数据
CONNECTED；
IF CONNECTED  THEN
  。。
ELSE
  配置窗体：=T配置窗体。CREATE（SELF）；
  配置窗体。SHOWMODAL；
  
END IF；

Answer 2

举个mysql的例子：（读ini文件）
  dbWork.Connected    := False
  dbWork.DriverName  := 'MSSQL';
  dbWork.Params.Values['SERVER NAME'] := sServer ;//数据库服务器名称
  dbWork.Params.Values['USER NAME'] := sUse ;//用户名称
   dbWork.Params.Values['DATABASE NAME'] := ‘master;//数据库名称
   dbWork.Params.Values['PASSWORD'] := sPass ;//用户密码
  dbWork.Connected:=True;
dbWork.Connected    := False
  dbWork.DriverName  := 'MSSQL';
  dbWork.Params.Values['SERVER NAME'] := sServer ;//数据库服务器名称
  dbWork.Params.Values['USER NAME'] := sUse ;//用户名称
   dbWork.Params.Values['DATABASE NAME'] := ‘master;//数据库名称
   dbWork.Params.Values['PASSWORD'] := sPass ;//用户密码
  dbWork.Connected:=True;
其它按一楼的来就可以了