unit10.pas

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

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    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
  Form10: TForm10;

implementation

uses Unit9;
var
 k:integer;

{$R *.DFM}

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

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

procedure TForm10.FormShow(Sender: TObject);
begin
 k:=0;
end;

end.