社区
Delphi
帖子详情
请帮助我
lfl_800104
2002-05-18 09:11:30
我用Deiphi写了一个考勤管理系统,可是最近新装的WIN98都用不了BDE,有谁能告诉我这是为什么?怎么样去解决?我现在很急,请大家帮个忙!感谢!
我的Email是:lfl_800104@163.com
...全文
76
5
打赏
收藏
请帮助我
我用Deiphi写了一个考勤管理系统,可是最近新装的WIN98都用不了BDE,有谁能告诉我这是为什么?怎么样去解决?我现在很急,请大家帮个忙!感谢! 我的Email是:lfl_800104@163.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
mingyeh
2002-05-19
打赏
举报
回复
用ADO!参数写注册表里
从程序里读出来拼连接串
procedure TrdmUserStudy.RemoteDataModuleCreate(Sender: TObject);
var
regConn : TRegistry;
strConn : String;
sProvider : String;
sPersist : String;
sUserID : String;
sPassword : String;
sCatalog : String;
sDS: String;
sPrepare : String;
sTranslate : String;
sPacketSize : String;
sWorkStation : String;
sEncryption : String;
sTag : String;
begin
//开始构造连接串
//从注册表中读取连接参数
regConn := TRegistry.Create;
try
regConn.RootKey := HKEY_CURRENT_USER;
regConn.OpenKey('\Software\IEdu',False);
sProvider := regConn.ReadString('Provider');
sPersist := regConn.ReadString('Persist Security Info');
sUserID := regConn.ReadString('User ID');
sPassword := regConn.ReadString('Password');
sCatalog := regConn.ReadString('Initial Catalog');
sDS := regConn.ReadString('Data Source');
sPrepare := regConn.ReadString('Use Procedure for Prepare');
sTranslate := regConn.ReadString('Auto Translate');
sPacketSize := regConn.ReadString('Packet Size');
sWorkStation := regConn.ReadString('Workstation ID');
sEncryption := regConn.ReadString('User Encryption for Data');
sTag := regConn.ReadString('Tag with column collation when possible');
finally
regConn.Free;
strConn := 'Provider=' + sProvider + ';Persist Security Info=' + sPersist + ';User ID=' +
sUserID + ';Password=' + sPassword + ';Initial Catalog=' + sCatalog + ';Data Source=' +
sDS + ';Use Procedure for Prepare=' + sPrepare + ';Auto Translate=' + sTranslate + ';Packet Size=' +
sPacketSize + ';Workstation ID=' + sWorkStation + ';User Encryption for Data=' + sEncryption +
';Tag with column collation when possible=' + sTag;
end;
connMain.ConnectionString := strConn;
connMain.Connected := True;
end;
ihihonline
2002-05-19
打赏
举报
回复
给它也装一个delphi,呵呵~~
lfl_800104
2002-05-19
打赏
举报
回复
我装WIN98之后重设了别名,还是不行,这是为什么?
lfl_800104
2002-05-19
打赏
举报
回复
我装WIN98之后重设了别名,还是不行,这是为什么?
立志做一个佳娃~
2002-05-18
打赏
举报
回复
你在bde administrator里在object菜单中的open conf...里打开你做的那个cfg文件。就可以了,原因是你创建别名时系统自动创建了cfg文件,重装就没有了。
祝:身体健康!!
网络检查
这是我的第一个DELPHI元件作品。用DELPHI3完成的, 可以安装在D2/D3/D4/D5上面,没有问题。 其作用是可以
帮助
您检查计算机连接到网络上了还是 断开状态。 非常容易使用,主要是用on...
服务名无效。
请
键入 NET HELPMSG 2185 以获得更多的
帮助
。
因此我收集了一份《java开发全套学习资料》送给大家,初衷也很简单,就是希望
帮助
到想自学又不知道该从何学起的朋友,同时减轻大家的负担。因为netstart+服务名,启动的是win下注册的服务。此时,我系统中并没有注册...
P1Python100练从入门到入土系列
我会保持一周更新五节的频率,希望能够给初学python的你们提供一些
帮助
,能够让同学们养成更好地编码习惯,并不断精进。视频预计总时长600分钟左右,同学们觉得课程不错的话
请
在评论区留言,留言数量达到10条,这节...
matlab的
帮助
文档切换成中文(求助贴)
我想干脆切换成中文,这样更加方便,提高工作效率。于是开始的艰难的过程… 网上的回答基本一样或是答非所问 下面是网上的回答(
请
不要再出现相同的回答) 打开预设 点界面左侧
帮助
选择在’matworks.com网站上...
已解决chatgpt报错出了些问题。如果此问题仍然存在,
请
通过我们的
帮助
中心 help.openai.com 与我们联系。
已解决chatgpt报错出了些问题。如果此问题仍然存在,
请
通过我们的
帮助
中心 help.openai.com 与我们联系。
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章