login.pas

来自「学费管理系统,学校使用」· PAS 代码 · 共 75 行

unit Login;

interface

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

type
  TLoginform = class(TForm)
    Panel1: TPanel;
    Button1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    code_edt: TEdit;
    password_edt: TEdit;
    Button3: TBitBtn;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ReadCardContent(Code:String);
  end;

var                             
  Loginform: TLoginform;

implementation

uses   commonunit;

{$R *.dfm}

procedure TLoginform.Button1Click(Sender: TObject);
begin
  if trim(code_edt.Text )='' then
  begin
    messagebox(application.Handle ,'工号没有填写','错误',MB_ICONWARNING+MB_OK  );
    code_edt.SetFocus;
    exit;
  end;
  if trim(code_edt.Text)='admin' then
  begin
    messagebox(handle,'管理员不能在这里登录!','错误',MB_ICONWARNING+mb_ok);
    Code_edt.Text :='';
    password_edt.Text :='';
    code_edt.SetFocus;    
    exit;
  end;
  Oper.code :=trim(Code_edt.Text);
  if not checkaccount(Oper.code ) then
  begin
    messagebox(handle,'工号输入错误','错误',MB_ICONWARNING+mb_ok);
    Code_edt.Text :='';
    Code_edt.SetFocus;
    exit;
  end;
  if not checkpassword(Oper.code,Password_Edt.Text) then
  begin
    messagebox(handle,'密码输入错误','错误',MB_ICONWARNING+mb_ok);
    Password_Edt.Text :='';
    password_edt.SetFocus;
    exit;
  end;
  ModalResult:=mrok;
end;

procedure TLoginform.ReadCardContent(Code: String);
begin

end;

end.