login.~pas

一个会员管理系统delphi源代码,非常好

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxContainer, 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;
  Application.ShowMainForm := true;
  frmMain.Show;
end;

procedure TfrmLogin.edtPwdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    frmLogin.btnLoginClick(nil);
end;

procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
    frmLogin.btnCancelClick(nil);
end;

procedure TfrmLogin.edtUserKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    edtPwd.SetFocus;
end;

end.