如何保存数据库连接参数代码及步骤牛

在程序数据模块的Create事件中添加下面的代码： procedure taModuleCreate(Sender: TObject);var　confForm : TConf;begin　nnectionString := tConnStr;　en;　excepton Err : EOLEException dobegin　confForm := eate(self);　owModal; end;　end;end;

官员说明 这样，在程序执行过程中，将自动从INI文件中读取数据库连接参数，连接数据库，如果连接出现错误，将显示参数配置窗口，让用户配置数据库连接参数。配置窗口的代码如下： //上面的代码省略uses RWini;{$R *.dfm}procedure rmShow(Sender: TObject);var　sServer,sDatabase,sUser,sPassword : String;begin　readParam(sServer,sDatabase,sUser,sPassword);　xt := sServer;　xt := sDatabase;　xt := sUser;　xt := sPassword;　tiveControl := nOK;end;procedure nCancelClick(Sender: TObject);begin　close;end;procedure nOKClick(Sender: TObject);var　sServer,sDatabase,sUser,sPassword : String;begin　sServer := xt;　sDatabase := xt;　sUser := xt;　sPassword := xt;　writeParam(sServer,sDatabase,sUser,sPassword);　close;end;