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

　　
　　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;

　　
　　//上面的代码省略
　　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;