delphi开发日志——注入“思想”，让程序操纵数据

程序虽然已经具有启动画面，然后登录进入主窗体，可是没有任何灵魂，不能与数据库进行交互，这次我们来让程序来操纵数据。
接着前面，先创建一个DataModule1容器，用于存放数据组件，并命名为：frmDM，单元名为untDM.pas。
在frmDM窗口放入数据库连接组件，用于连接数据库，ADOConnection1，并命名为：conDB，然后设置它的属性：ConnectionString为Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xfsoft;Data Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SYZ;Use Encryption for Data=False;Tag with column collation when possible=False，可以通过窗口一步一步来设置，这连接数据库的字符串，再设置LoginPrompt=False，登录时不弹出登录窗口。
我们需要程序可以在运行时设计连接数据库的一些信息，使用INI文件的形式来现实读写程序在运行时需要连接数据库的配置文件，在程序目录下创建一个dbConfig.ini，文件内容为：[DataBase]
DBconstr=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xfsoft;Data Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SYZ;Use Encryption for Data=False;Tag with column collation when possible=False

在程序加入INI读写单元文件：untIniFile.pas 功能是读写刚才建立的INI文件。代码可以参考源码。
下面开始设置登录窗体与数据的绑定，首先要用户可以出现在下拉列表框中，这样不需要客户输入，那么需要在登录窗体创建后就可以选择下拉列表框中的用户，因此在窗体创建事件中初始列表框中的数据，代码如下：
procedure TfrmLogin.FormCreate(Sender: TObject);
var
  i:integer;
  testStr:string;
begin
  LoginCount:=1;
  with qryLogin do
  begin
    Connection:=frmDM.conDB;
    Close;
    SQL.Clear;
    SQL.Add('select * from [User]');
    testStr:=SQL.Text;
    Open;
    for i:=1 to RecordCount do
    begin
      cbbUserName.Items.Add(FieldbyName('username').AsString);
      next;
    end;
  end;
end;
此时调试程序将会出错，问题是我们没有连接到数据，因为是程序运行时读取INI文件中的连接字符串的，所以，要在数据窗体创建时连接数据库，我们在untGlobal中创建一个ConnectDB过程，并在数据窗体的DataModuleCreate事件中调用。ConnectDB过程代码如下：
Procedure ConnectDB;
begin
  if FileExists(ExtractFilePath(paramStr(0))+'dbConfig.ini') then
  begin
    IniOptions.LoadFromFile(ExtractFilePath(paramStr(0))+'dbConfig.ini');  //ExtractFilePath函数引用SysUtils单元文件
    frmDM.conDB.Connected:=False;
    frmDM.conDB.ConnectionString:=IniOptions.DataBaseDBconstr;;
    try
       frmDM.conDB.Connected:=True;
    except
       MsgBox('无法连接到数据库,请设置数据库！', MB_ICONINFORMATION);  //MB_ICONINFORMATION常量引用Windows 单元文件
       Application.Terminate;
    end;
  end else begin
     MsgBox('数据库配置dbConfig.ini不存在，程序终止！', MB_ICONINFORMATION);  //MB_ICONINFORMATION常量引用Windows 单元文件
     Application.Terminate;
  end;
end;
函数中用到untIniFile来读取连接字符串，MsgBox函数是在untGlobal中自定义的一个信息提示框函数。
此时再运行程序，可以在登录窗体的用户下拉框中选择用户名了。但是如何在单击确定后可以和密码匹配？如何设置三次登录限制？如何使用回车键跳到下个焦点？我们一个个来实现这些功能，先来实现回车的功能，只用在窗体中的FormKeyPress事件中加入如下代码即可：
  if key=#13 then{ 判断是按执行键}
  Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  end
但是一定要将登录按钮的Default的属性设置为False。
便当按钮事件的代码如下：
  gOKPress:=True;
  qryLogin.Close;
  qryLogin.SQL.Clear;
  qryLogin.SQL.Add(format('select * from [User] where UserName=''%s'' and Password=''%s''',[cbbUserName.Text,edtPassword.Text]));
  qryLogin.Open;
  if not qryLogin.IsEmpty then
  begin
    gCanLogin:=True;
    {SysInfo.UserName :=ADOQuery1.FieldByName('username').AsString;
    SysInfo.UserID :=ADOQuery1.FieldByName('userID').AsString;
    sysInfo.NO:=UserEdit.Text ; }
  end;
  close;
  exit;
注释掉的以后说明。
gOKPress用于取消登录时的判断。
在FormCloseQuery中加入下面的代码即可实现三次登录的判断：
  if gOKPress and Not gCanLogin then
  begin
     gLoginCount:=gLoginCount+1;
     gOKPress:=False;
       if (gLoginCount<4) and (gLoginCount>0) then
       begin
        Application.MessageBox ('用户编号或密码不正确，请重新输入。','提示信息',MB_ICONINFORMATION);
        cbbUserName.SetFocus ;
        cbbUserName.SelectAll;
        CanClose:=False;
       end
       else
       if gLoginCount>=4 then
    Application.MessageBox ('三次输入不正确，登录失败。','提示信息',MB_ICONINFORMATION)
  end
至此，和数据库交互的登录窗体全部完成。
新的源码下载：
[url]https://files.cnblogs.com/edrp/Demo.rar[/url]