☆★☆★做MSSQL下的BDE方式连接的程序,使用DATABASE控件,其中添服务器名,用户名,还有密码。如果换到其他的机子上使用,岂不是又要重新编译一次☆★☆★
解决方案 »
- delphi文件上传问题!
- OLE的问题:如何在Delphi里面得到Word文档的页数以及选择指定的页
- 关于从scktsrvr中如何得到来自internet上客户端的ip地址的问题
- 关于MessageBox的问题
- 想实现这样一个功能,就是想当在edit中输入四个字符后触发事件,或者说在edit失去focus后触发事件。
- delphi xe6 开发手机程序如何自适应各种不同屏幕大小的手机
- wise哪里有下载的?
- 用c++ builder 开发的三层分布式系统,运行时,搭开6000条记录的表时,慢如蜗牛,怎么办?各位大侠快给给注意啊
- 关于GETID问题
- 大吓们: 有为DELPHI谁做过自由报表生成器???
- 初学者能提问吗?一个很菜的东西!
- 我的程序使用了 BDE,那我发布程序时应发布哪些文件?
如果用BDE则需打包BDE,用ADO则在WIN2K中自带了的.
尝试过下载微软得MSADOC的吗,可以打包到可户端.
内容如下:
[Manager]
DataBase Name=DatabaseName(数据库名)
Server Name= ServerName(服务器名)
User Name=sa(登陆数据库用户)
PassWord=PassWord(登陆密码)procedure TFrmDM.DataModuleCreate(Sender: TObject);
var Fini : TIniFile;
Path : String;
begin
Path := ExtractFilePath(Application.ExeName);
Fini := TIniFile.Create(Path + 'Manager.ini'); DataBase1.Connected := False;
try
with DataBase1 do
begin
Params.Clear;
Params.Append('DataBase Name='+Fini.ReadString('Manager','DataBase Name',''));
Params.Append('Server Name='+Fini.ReadString('Manager','Server Name',''));
Params.Append('User Name='+Fini.ReadString('Manager','User Name',''));
Params.Append('PassWord='+Fini.ReadString('Manager','PassWord','')); Connected := True;
end;
Except
ShowMessage('数据库连接不上,请与系统管理员联系!');
Application.Terminate;
end;
end;
其中在interface下面的uses中加入:IniFiles
如果要换到其他PC上则只需要在manager.ini文件中改变ServerName则可以了。