请帮助我

lfl_800104 2002-05-18 09:11:30
我用Deiphi写了一个考勤管理系统,可是最近新装的WIN98都用不了BDE,有谁能告诉我这是为什么?怎么样去解决?我现在很急,请大家帮个忙!感谢!
我的Email是:lfl_800104@163.com
...全文
76 5 打赏 收藏 转发到动态 举报
写回复
用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之后重设了别名,还是不行,这是为什么?
  • 打赏
  • 举报
回复
你在bde administrator里在object菜单中的open conf...里打开你做的那个cfg文件。就可以了,原因是你创建别名时系统自动创建了cfg文件,重装就没有了。

祝:身体健康!!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧