评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access通用会员管理系统[开题报告＋论文＋源(3)

2013-06-03 02:28 iner, cxEdit, cxTextEdit, cxHyperLinkEdit,
  cxDBEdit, jpeg, ExtCtrls, cxLookAndFeelPainters, StdCtrls, cxButtons,
  RzLabel;

type
  TfrmLogin = class(TForm)
    Panel1: TPanel;
    img1: TImage;
    RzURLLabel1: TRzURLLabel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    edtUser: TcxTextEdit;
    edtPwd: TcxTextEdit;
    btnLogin: TcxButton;
    btnCancel: TcxButton;
    procedure btnCancelClick(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
    procedure edtPwdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure edtUserKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    rightpwd: Boolean; //成功登录标志
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses md, main;

{$R *.dfm}

procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
  Application.Terminate; //结束程序
end;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  rightpwd := False;
  with Dm1.tblLoginUser do
  begin
    if not Active then
      open;
    First;
    while not eof do
    begin
      if Trim(FieldByName('mc').AsString) = edtUser.Text then

      begin
        if Trim(FieldByName('pwd').AsString) = edtPwd.Text then
        begin
          rightpwd := True; //设置成功登录标志为真
          Break;
        end
        else
        begin
          MessageBox(0, '对不起，密码不正确！请重新输入。', '提示', MB_OK +
            MB_ICONWARNING);
          edtpwd.setfocus;
          exit;
        end;
      end
      else
        next;
    end;
    if not rightpwd then
    begin
      MessageBox(0, '对不起，该用户不存在！请重新输入。', '提示', MB_OK +
        MB_ICONWARNING);
      edtuser.SetFocus;
      exit;
    end
  end;
  close;
  frmMain.LoginUserName := edtUser.text;
&n