如何用保存数据库连接参数（INI篇）(2)

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;

是不是很简单呢？INI文件不仅可以保存数据库连接参数，也同样可以保存其他信息，具体的方法大同小异，我就不再详述了。
祝大家编程愉快！

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有