Delphi 7学习第六天-简单登陆界面的实现

第一次尝试一天码两篇文章，分享知识的过程是快乐的。

上午试着去做一个简单的登陆界面，基本上算完成了。

登录名和密码要与数据表中匹配，才能登陆成功。

这里采用的是Delphi的ADO连接SQL server数据库，具体连接过程，可参照我前两天的博客，这里不再赘述。

现在将设计的过程分享下。

1、设计的界面及运行的结果

运行的时候要保证ADOtable1的active的属性为true.

同时保证SQL服务已经开启。我的需要手动开启。

登陆成功后进入的界面：

2、附上源码：

unit Welcome;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;
//uses master;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses master;    //引用加在实现部分。

{$R *.dfm}
var
  time:Integer=0;
procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  results:variant; //16字节可变类型
begin
   ADOTable1.Active:=true;
   {
   if (edit2.Text='admin') and (edit1.Text='123456') then
      showmessage('登陆成功！')
   }
   str:=Edit2.Text;

   results:=ADOTable1.Lookup('LoadName',edit2.Text,'LoadPassword');
   //showmessage(BoolToStr(results=edit1.Text,true));
   if edit2.Text='' then
      begin
         Application.MessageBox('用户名不能为空!','提示',mb_ok);
         edit2.SetFocus;
      end
   else
   if  not ADOTable1.Locate('LoadName',str,[loCaseInsensitive]) then
     begin
        Application.MessageBox('用户名不存在!','提示',mb_ok);
        edit2.Text:='';
        edit1.Text:='';
        edit2.SetFocus;
     end
   else
   if edit1.Text='' then
        Application.MessageBox('密码不能为空！','提示',mb_ok)
   else
   if (results=edit1.Text) then        //重建数据表才验证成功
      begin
        //showmessage('登陆成功！')
        masterform.show;
      end
   else
      begin
        time:=time+1;
        if time<5 then
          begin
            showmessage('密码错误，请重新输入！');
            edit1.Text:='';
            //edit2.Text:='';
            edit1.SetFocus;  //焦点重新回到edit2
          end
        else
          begin
            messageDlg('对不起，密码输入错误达到5次！请退出。',mtInformation,[mbok],0);
            application.Terminate;
          end;
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   close;   //关闭登陆窗口
end;

end.

-----------------------------------------------------------------------

今天解决了两个问题，完成了目标。Tomorrow，Go on！

------------For my love.