如何保存数据库连接参数代码及步骤(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;