至顶网›软件频道 ›通过数据库连接参数保证程序可移植性(3)

通过数据库连接参数保证程序可移植性(3)

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

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

作者：yuanjing 来源：赛迪网技术社区 2007年9月4日

在程序数据模块的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)

业界热点: