当前位置:主页>销售管理软件> 列表

BDE中database里params属性的值,如何用配置 找免费财务软件

财务软件版1楼: BDE中的database控件的params属性的值怎么用配置文件来为他赋值.最好能写出方法.谢谢各位大侠了.

2楼: 咋没人回答呢??是不是闲分太少了 如免费财务软件

3楼: procedure TPData.DataModuleCreate(Sender: TObject);
var ss:string;
begin
ss := Application.ExeName;
ss := ExtractFileDir(ss);
PDatabase.Close;
table1.DatabaseName := ss;
Session.AddPassword(''pmsadmin'');
try
table1.Open;
if not table1.IsEmpty then
begin
PDatabase.Params.Values[''USER NAME''] := table1.fieldbyname(''UserName'').asstring;
PDatabase.Params.Values[''PASSWORD''] := table1.fieldbyname(''PassWord'').asstring;
PDatabase.AliasName := table1.fieldbyname(''AliasName'').asstring;
end;
table1.Close;
PDatabase.Open;
except
showmessage(''系统连接数据库失败'');
Application.Terminate;
end;


end;

4楼: 解决后记得给点分呀

5楼: to:qi_jianzhou
问题已经解决 谢谢!!

6楼: 接受答案了.