如何通过BDE读取ini文件实现sql2000的动态数据库连接?--附流程
： 不知道那位高手有没有实现以下流程的代码？
流程如下：
程序启动
↓
读取INI文件
↓连接sql2000数据库
↓
↓失败
◇ → →出现配置连接窗口，进行配置
↓ ↓连接数据库 ↑重
↓成功 ↓ ↑配
进入系统 ←←←←←←◇→→→→→→◇
↓放弃
↓
退出
yxctkhua@cctk.net
问题点数：0、回复次数：3Top
1 楼pdbird（老巢）回复于 2004-08-01 10:50:51 得分 0
这个很简单的，你用一个BOOLEAN变量另一个配置窗体就行了！
读取INI 数据
CONNECTED；
IF CONNECTED THEN
。。。。。
ELSE
配置窗体：=T配置窗体。CREATE（SELF）；
配置窗体。SHOWMODAL；
END IF；Top
2 楼yxctkhua127（影子）回复于 2004-08-01 11:09:03 得分 0
通过读取数据库ip地址，数据库名，机器名等实现远程连接Top
3 楼lybdata（天下）回复于 2004-09-17 02:49:52 得分 0
举个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;
其它按一楼的来就可以了Top
