delphi7存取配置文件与sqlserver数据库连接_Delphi7存取配置文件实现与SQL Server数据库连接...

1引言Delphi7具有强大的数据库应用程序开发功能。在使用Delphi7开发《房产管理系统》时,后台数据库采用SQLServer数据库管理系统。使用TADOConnection组件与数据库建立连接,需要指定TADOConnection组件的connectstring属性,在属性设置时需要用到数据库服务器的名称。因为SQLServer数据库不是一个独立的磁盘文件,它是通过数据库服务器的名称来访问数据库中的数据的。而在不同的计算机上安装SQLServer数据库管理系统时,都为数据库服务器指定了不同的实例名称,所以在connectstring属性中必须指定正确的服务器名字才可以实现正确的连接。2实现思路正是利用Delphi可以很方便地读取INI配置文件的内在优点,在《房产管理系统》中将需要连接的SQLServer数据库服务器的名称事先写入到一个INI配置文件中,连接时再从INI配置文件中读出相关的数据构成连接字符串信息。应用程序运行前先进行数据库连接测试,如果连接成功,则直接运行下一步,如果连接失败,则自动弹出提示窗口,提示用户录入数据库连接配置的正确信息,保存后再进行连接测试,直至成功直接进入系统。3关键技术3.1将数据库连接参数写入配置文件首先建立一个用于输入数据的窗体,如图1所示。在其单元文件中,定义常量strINIname来存放配置文件名,定义TINIFile类型的文件变量iniParam;conststrINIname='db.ini';variniParam:TINIFile;接着定义将数据库连接参数写入配置文件的过程writeParam:procedurewriteParam(server:string;workstation:string);begininiParam.WriteString('dbParam','DataSource',server);iniParam.WriteString('dbParam','WorkstationID',workstation);end;然后编写窗体“保存”按钮的事件过程程序。procedureTform1.Button1Click(Sender:TObject);varserver,workstation:string;beginserver:=trim(Edit1.Text);workstation:=trim(Edit2.Text);writeParam(server,workstation);MessageDlg('保存成功',mtinformation,[mbok],0);Button2.SetFocus;end;3.2登录时读取配置文件内容连接数据库图1配置文件参数输入窗口写入配置文件服务器名:计算机名:LENOVO-A5958CBDLENOVO-A5958CBD保存退出2012.10主程序运行时,在登录窗口中先进行用户的合法性验证再进行数据库连接测试,登录窗体的单元文件Login.pas部分代码如下:unitLogin;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,Buttons,DB,DBTables,AdoDB,inifiles;typeTLoginform=class(TForm)Panel1:TPanel;edtPassword:TEdit;StaticText1:TStaticText;StaticText2:TStatic