遵义网站开发公司电话,企业手机网站建设策划,大庆网站制作公司地址,邢台网站推广报价时间:2012-06-28 18:57来源:未知 整理:寂涯网络 点击:2975次引言Delphi7 具有强大的数据库应用程序开发功能 在使用Delphi7 开发 房产管理系统 时#xff0c;后台数据库采用 SQLServer 数据库管理系统 使用 TADOConnection 组件与数据库建立连接#xff0c;需要指定 TADOConn…时间:2012-06-28 18:57来源:未知 整理:寂涯网络 点击:2975次引言Delphi7 具有强大的数据库应用程序开发功能 在使用Delphi7 开发 房产管理系统 时后台数据库采用 SQLServer 数据库管理系统 使用 TADOConnection 组件与数据库建立连接需要指定 TADOConnection 组件的 connectstring 属性在属性设置时需要用到数据库服务器的名称 因为 SQLServer 数据库不是一个独立的磁盘文件它是通过数据库服务器的名称来访问数据库中的数据的 而在不同的计算机上安装 SQLServer 数据库管理系统时都为数据库服务器指定了不同的实例名称所以在 connectstring 属性中必须指定正确的服务器名字才可以实现正确的连接2 实现思路正是利用 Delphi 可以很方便地读取 INI 配置文件的内在优点在 房产管理系统 中将需要连接的 SQLServer 数据库服务器的名称事先写入到一个INI 配置文件中连接时再从INI 配置文件中读出相关的数据构成连接字符串信息 应用程序运行前先进行数据库连接测试如果连接成功则直接运行下一步如果连接失败则自动弹出提示窗口提示用户录入数据库连接配置的正确信息保存后再进行连接测试直至成功直接进入系统3 关键技术3.1 将数据库连接参数写入配置文件首先建立一个用于输入数据的窗体如图1所示在其单元文件中定义常量 strINIname 来存放配置文件名定义 TINIFile 类型的文件变量iniParamconststrINInamedb.ini;variniParam:TINIFile;接着定义将数据库连接参数写入配置文件的过程writeParamprocedurewriteParam(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 登录时读取配置文件内容连接数据库主程序运行时在登录窗口中先进行用户的合法性验证再进行数据库连接测试登录窗体的单元文件 Login.pas 部分代码如下unitLogin;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,Buttons,DB,DBTables,AdoDB,inifiles;typeTLoginformclass(TForm)Panel1:TPanel;edtPassword:TEdit;StaticText1:TStaticText;StaticText2:TStaticText;cmbUserName:TComboBox;btnOK:TSpeedButton;btnCancel:TSpeedButton;BitBtn1:TBitBtn;ADOQuery1:TADOQuery;procedurebtnCancelClick(Sender:TObject);procedureFormShow(Sender:TObject);procedureFormCreate(Sender:TObject);procedurebtnOKClick(Sender:TObject);procedureedtPasswordKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);procedureBitBtn1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;conststrINInamedb.ini;varLoginform:TLoginform;iniParam:TINIFile;procedurereadParam(outserver:String;outworkstation:string);implementationusesMain,datamodule;{$R*.DFM}//定义一个读取参数的过程readParamprocedurereadParam(outserver:String;outworkstation:string);beginserver:iniparam.ReadString(dbParam,DataSource,);workstation:iniParam.ReadString(dbParam,WorkstationID,);end;//在登录窗体的 oncreate 事件中连接数据库procedureTLoginform.FormCreate(Sender:TObject);varQuery:TADOQuery;a,b,c,d,e:string;begin//获取配置文件getdir(0,d);iniparam:tinifile.Create(d\strininame);//从配置文件中读取参数值readparam(a,b);datamodule2.adoconnection1.Connected:false;//根据读出的参数构造连接字符串的值并连接数据库c:ProviderSQLOLEDB.1;Password;PersistSecurityInfoTrue;UserIDsa;InitialCatalogFangChan;DataSource;d:;UseProcedureforPrepare1;AutoTranslateTrue;
