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

防范金融风险 其中SectionName和KeywordName分别是段名和关键字明，Value为关键字对应的设定值，如果等号右边无任何内容（value为空），表示Windows应用程序已为该Keyword指定了缺省值，如果在整个文件中找不到某个Keyword，同样表示为它们指定了缺省值，各Section所出现的顺序是无关紧要的，在每一个Section里，各个Keyword的顺序同样也无关紧要，Keyword的值的类型多为String或Integer，应分两种情况读写。 INI文件的书写有严格的要求： 1、Section的名称必须加以“[”和“]”，且“[”必须在屏幕的第一列。 2、Keyword名称也必须从屏幕的第一列开始书写，且后面必须紧跟“=” 3、可以对文件加以注释，每行注释须以“;”开头。 依照上述规则，我们编写下面的INI文件存储数据库的连接信息： [dbParam]Data Source=GTSERVERInitial Catalog=SuperWorkFlowUser ID=mapPassword=map

下面要做的工作就是编写代码，在程序执行的时候从INI文件中读取数据库连接参数，为此，我编写了下面的代码： //s{模块名称：配置文件读写编写人：blue编写日期：模块功能：从系统配置文件中读取系统运行所需的各项参数　将系统运行所需的各项参数写入系统配置文件　生成数据库连接字符串}unit RWini;interfaceuses INIFiles;const strINIname = \'i\';//INI文件的文件名，大家根据具体情况修改var　iniParam : TINIFile;　strLocal : String;　procedure readParam(out server:String;out database:string;out user:string;out password:string);　procedure writeParam(server:string;database:string;user:string;password:string);　function getConnStr:string;implementation　procedure readParam(out server:String;out database:string;out user:string;out password:string);　begin//从配置文件中读取数据库连接参数server := adString(\'dbParam\',\'Data Source\',\'\');database := adString(\'dbParam\',\'Initial Catalog\',\'\');user := adString(\'dbParam\',\'User ID\',\'\');password := adString(\'dbParam\',\'Password\',\'\');　end;　procedure writeParam(server:string;database:string;user:string;password:string);　begin//将数据库连接参数写入配置文件iteString(\'dbParam\',\'Data Source\',server);iteString(\'dbParam\',\'Initial Catalog\',database);iteString(\'dbParam\',\'User ID\',user);iteString(\'dbParam\',\'Password\',password);　end;　function getConnStr:String;　varserver,database,user,password : String;　begin//生成数据库连接串readParam(server,database,user,password);result := \'Provider=SQLOLEDB.1;Password=\' + password + \';Persist Security Info=True;User ID=\' + user + \';Initial Catalog=\' + database + \';Data Source=\' + server; 　end;initialization　getDir(0,strLocal);　iniParam := eate(strLocal + \'\\\' + strINIname);finalization　ee;end.