unit4.pas

毕业设计

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables,unit5;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit6;
var
 t:integer;
{$R *.DFM}

procedure TForm4.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm4.Button1Click(Sender: TObject);
  begin
   if edit1.Text ='' then
      begin
         messagebeep(0);
         showmessage('请您输入密码！');
         edit1.SetFocus ;
       end
     else
       begin
          table1.close;
          table1.Open;
          if table1.locate('姓名','黄鑫',[loCaseInsensitive]) then
           if  table1.FieldByName ('密码').asstring=edit1.Text  then
            begin
              form5.Show;
              close;
            end
           else
            begin
               begin
                 showmessage('密码错误！');
                 edit1.SetFocus;
                 t:=t+1;
               end;
               if t>=3 then
               application.Terminate;
            end;
 end;
 end;

procedure TForm4.FormShow(Sender: TObject);
begin
 t:=0;
 edit1.Text :='';
end;
end.