unit14.pas

来自「毕业设计」· PAS 代码 · 共 74 行

unit Unit14;

interface

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

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

var
  Form14: TForm14;

implementation

uses Unit13;
var
l:integer;

{$R *.DFM}

procedure TForm14.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
             form13.Show;
             close;
            end
           else
            begin
             showmessage('密码错误！');
             edit1.SetFocus;
             l:=l+1;
            end;
            if l>3 then
            application.Terminate;
     end;
end;

procedure TForm14.FormShow(Sender: TObject);
begin
l:=0;
end;

end.