unit11.pas

来自「图书管理系统 简介 随着科学技术的飞速发展」· PAS 代码 · 共 65 行

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  Tpassfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Table1: TTable;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passfrm: Tpassfrm;

implementation

uses Unit2;

{$R *.dfm}

procedure Tpassfrm.Button1Click(Sender: TObject);
begin
table1.Open;
  table1.IndexFieldNames:='密码';
  if table1.FindKey([edit2.text]) then
                      begin
                                    edit2.text:='';
                                    adminfrm.show;
                                    //adminfrm.Create(self);
                                    //passfrm.DestroyWnd;
                                    passfrm.Visible:=false;
                      end
                                    else
                                    begin

                                      showmessage('密码错误,请重新输入');
                                      edit2.Text:='';
                                    end;



end;

procedure Tpassfrm.Button2Click(Sender: TObject);
begin
edit2.Text:='';
passfrm.Visible:=false;
end;

end.