upws.pas

本文件为使用Delphi开发的学生信息管理系统,演示了如何使用BDE来开发数据库应用程序!

unit upws;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons,qdialogs;

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordDlg: TPasswordDlg;

implementation

uses Unit1;

{$R *.dfm}
//执行登录验证
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var
  pws:string;
begin
  //这里已经将密码写死了，一般是使用用户表存储用户信息
  pws:='user';
  if passworddlg.Password.Text=pws then
  begin
    modalresult:=mrok;//返回结果mrok为TModalResult类型
  end
  else
  begin
     //纪录登录次数，以便主窗口进行登陆次数的验证
     frmmain.count:=frmmain.count+1;
     showmessage('密码输入错误，请重新输入');
     password.SetFocus;
     modalresult:=mrcancel;
  end;
end;

procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
begin
  modalresult:=mrcancel; //单击了“取消”按钮
end;

end.