untlogin.pas

本软件是我公司开发的具有实际用途即核磁共振含油率测试分析的源代码。

unit UntLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFrmLogin = class(TForm)
    ComBBxuserid: TComboBox;
    EDTPass: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BBTNQueDing: TBitBtn;
    BBTNQuXiao: TBitBtn;
    Image1: TImage;
    Bevel1: TBevel;
    Bevel3: TBevel;
    procedure BBTNQueDingClick(Sender: TObject);
    procedure ComBBxuseridKeyPress(Sender: TObject; var Key: Char);
    procedure EDTPassKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BBTNQuXiaoClick(Sender: TObject);
  private
    TryLoginNumber:Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

{$R *.dfm}



procedure TFrmLogin.BBTNQueDingClick(Sender: TObject);

begin
  if ComBBxuserid.Text = '' then
    begin
      Application.MessageBox('请先填写用户名称！','操作信息',
        MB_OKCANCEL + MB_ICONWARNING);
       ComBBxuserid.SetFocus;
       exit;
    end;

  if  EDTPass.Text = '' then
    begin
      Application.MessageBox('请先填写密码！','操作信息',
        MB_OKCANCEL + MB_ICONWARNING);
      EDTPass.SetFocus;
      exit;
    end;

  TryLoginNumber := TryLoginNumber + 1;
 if ComBBxuserid.Text<>'admin' then
  begin
    Application.MessageBox('用户名错误，请检查！','操作信息',
        MB_OKCANCEL + MB_ICONWARNING);
    ComBBxuserid.SetFocus;
    exit;
  end
  else
   begin
    if EDTPass.Text='1' then
     begin
       ModalResult := mrOK;
     end
    else
      begin
        if TryLoginNumber>2 then ModalResult := mrCancel;
        If Application.MessageBox('输入的用户密码错误，请检查！','操作信息',
            MB_OKCANCEL + MB_ICONWARNING)=IDCancel Then
            ModalResult := mrCancel
         Else
          Begin
           EDTPass.SetFocus ;
          End;
        end;
   end;
end;



procedure TFrmLogin.ComBBxuseridKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   EDTPass.SetFocus ;
end;

procedure TFrmLogin.EDTPassKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    BBTNQueDingClick(Sender);
end;

procedure TFrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
      close;
end;



procedure TFrmLogin.BBTNQuXiaoClick(Sender: TObject);
begin
//  ModalResult := mrCancel;
 // close;
end;

end.