loginformunit.pas

来自「用DELPHI做的记事本 类似与WINDOWS中的记事本一样,包括删除,新建」· PAS 代码 · 共 84 行

unit LoginFormUnit;

interface

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

type
  TLoginform = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RBt1: TRadioButton;
    RBt2: TRadioButton;
    Label2: TLabel;
    CBox: TComboBox;
    Label3: TLabel;
    PSW: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure RBt1Click(Sender: TObject);
    procedure RBt2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Loginform: TLoginform;

implementation

uses MainFormUnit;

{$R *.dfm}

procedure TLoginform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TLoginform.RBt1Click(Sender: TObject);
begin
  rbt1.Checked:=true;
  rbt2.Checked:=false;
end;

procedure TLoginform.RBt2Click(Sender: TObject);
begin
  rbt2.Checked:=true;
  rbt1.Checked:=false;
end;

procedure TLoginform.BitBtn1Click(Sender: TObject);
begin
  if CBox.Text='张晖' then
    begin
      if PSW.Text='02091' then
        begin
        
          if RBT2.Checked=true then
            begin
              MainForm.TBar1.Show;
              MainForm.FileWindow.Checked:=true;
            end
          else
            MainForm.TBar1.Hide;

          MainForm.Show;
          Loginform.Hide;
        end
      else
        ShowMessage('密码与用户名不匹配！');
    end
  else
    ShowMessage('用户名不存在！');
end;

end.