delphi把数据库配置信息写进ini文件中.docVIP

Delphi把数据库配置信息写进 把数据库配置信息写进把数据库配置信息写进 把数据库配置信息写进Ini文件 文件文件 文件中 中中 中 通过Ini文件配置数据库或数据库服务器的相关信息，从Ini文件读取数据 库连接信息进行数据库连接能够动态地更改相关数据库连接的信息。以下代码是 通过Delphi通过Ini文件连接数据库的方法： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,inifiles, StdCtrls, DB, ADODB;//要加入单元INIFILES const strininame=db.ini; //INI文件名 type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Button1: TButton; Button2: TButton; ADOConnection1: TADOConnection; procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure readparam(out server:string;out database:string;out user:string;out pass word:string);//读INI文件 procedure writeparam(server:string;database:string;user:string;password:string);// 写到INI文件中 function getConnStr:string; end; var Form1: TForm1; iniparam:Tinifile; strlocal:string; implementation {$R *.dfm} procedure tform1.readparam(out server:string;out database:string;out user:string;out p assword:string); begin server:=iniparam.ReadString(dbparam,Data Source,); database:=iniparam.ReadString(dbparam,initial catalog,); user:=iniparam.ReadString(dbparam,User ID,); password:=iniparam.ReadString(dbparam,password,); end; procedure tform1.writeparam(server:string;database:string;user:string;password:string ); begin iniparam.WriteString(dbparam,Data Source,server); iniparam.WriteString(dbparam,Initial Catalog,database); iniparam.WriteString(dbparam,User ID,user); iniparam.WriteString(dbparam,Password,password); end; function tform1.getConnStr:string; var