至顶网›软件频道 ›如何保存数据库连接参数代码及步骤(3)

如何保存数据库连接参数代码及步骤(3)

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

在设计数据库应用程序的时候，经常需要将一些信息从程序中独立出来，以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。

作者：changelive 来源：赛迪网 2007年8月28日

在程序数据模块的Create事件中添加下面的代码：

procedure TDM.DataModuleCreate(Sender: TObject);
var
　confForm : TConf;
begin
　conn.ConnectionString := RWini.getConnStr;
　try
conn.Open;
　except
on Err : EOLEException do
begin
　confForm := TConf.Create(self);
　confForm.ShowModal; 
end;
　end;
end;

这样，在程序执行过程中，将自动从INI文件中读取数据库连接参数，连接数据库，如果连接出现错误，将显示参数配置窗口，让用户配置数据库连接参数。配置窗口的代码如下：

//上面的代码省略
uses RWini;

{$R *.dfm}

procedure TConf.FormShow(Sender: TObject);
var
　sServer,sDatabase,sUser,sPassword : String;
begin
　readParam(sServer,sDatabase,sUser,sPassword);
　self.edtServer.Text := sServer;
　self.edtDatabase.Text := sDatabase;
　self.edtUser.Text := sUser;
　self.edtPassword.Text := sPassword;
　self.ActiveControl := self.btnOK;
end;

procedure TConf.btnCancelClick(Sender: TObject);
begin
　close;
end;

procedure TConf.btnOKClick(Sender: TObject);
var
　sServer,sDatabase,sUser,sPassword : String;
begin
　sServer := self.edtServer.Text;
　sDatabase := self.edtDatabase.Text;
　sUser := self.edtUser.Text;
　sPassword := self.edtPassword.Text;
　writeParam(sServer,sDatabase,sUser,sPassword);
　close;
end;

如何保存数据库连接参数代码及步骤(3)

业界热点: