login.pas

本人帮别人写的一个卡特尔16F性格检测程序

unit Login;

interface

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

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Image1: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    initLogin:bool;
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

uses main;

{$R *.dfm}

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
begin
if not self.RadioButton1.Checked then
   begin
   self.Close;
   isAdminLogin := false;
   form1.stEdit.Enabled :=isAdminLogin;
    form1.findRecord.Enabled :=isAdminLogin;
    form1.totalRpt.Enabled :=  isAdminLogin;
    form1.jcTreeManeger.Enabled :=isAdminLogin;
   exit;
   end;
if trim(self.Edit1.Text) = '58688' then
  begin
  isAdminLogin := true;
   form1.stEdit.Enabled :=isAdminLogin;
    form1.findRecord.Enabled :=isAdminLogin;
    form1.totalRpt.Enabled :=  isAdminLogin;
    form1.jcTreeManeger.Enabled :=isAdminLogin;
  self.Close;
  end
else
  begin
   application.MessageBox('密码错误，请重新输入！','提示');// ,MB_YesNoCancel+MB_IconQuestion

  end;
//self.Hide;
//Form1.Show;
end;

procedure TOKBottomDlg.CancelBtnClick(Sender: TObject);
begin
//form1.Close;
if initLogin then
   application.Terminate
else
   self.Close;

end;

procedure TOKBottomDlg.FormCreate(Sender: TObject);
begin
initLogin := true;
end;

procedure TOKBottomDlg.RadioButton1Click(Sender: TObject);
begin
if (sender as TradioButton).Checked then self.Edit1.Enabled := true;
end;

procedure TOKBottomDlg.RadioButton2Click(Sender: TObject);
begin
if (sender as TradioButton).Checked then self.Edit1.Enabled := false;
end;

end.