createpas.pas

DELPHI 编写个人工作计划事务管理软件

unit Createpas;

interface

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

type
  TCreatForm = class(TForm)
    Use_Name_Label: TLabel;
    ED_UseName: TEdit;
    Name_Desc_Label: TLabel;
    Level_Desc_Label: TLabel;
    ED_NameDesc: TEdit;
    ED_Level: TEdit;
    Bevel_Break_1: TBevel;
    Bevel_Break_2: TBevel;
    CreateBut: TBitBtn;
    UsePassLabel: TLabel;
    ComfirmPassLabel: TLabel;
    ED_PassWord: TEdit;
    ED_ComfirmPass: TEdit;
    RG_UseLevel: TRadioGroup;
    Exit_But: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure CreateButClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ED_UseNameChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Exit_ButClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CreatForm: TCreatForm;
  InputIsok: Boolean;

implementation

{$R *.dfm}

procedure TCreatForm.FormCreate(Sender: TObject);
begin
  //==== 当窗口创建时的代码 ====//
  InputIsok := TRUE;                 //==== 初始化用户输入检查 ====//

  ED_UseName.Clear;
  ED_NameDesc.Clear;
  ED_Level.Clear;
  ED_PassWord.Clear;
  ED_ComfirmPass.Clear;
  RG_UseLevel.ItemIndex := 1;

  CreateBut.Enabled := FALSE;
end;

procedure TCreatForm.FormActivate(Sender: TObject);
begin
  //==== 当窗口成为活运窗口时代码 ====//
  ED_UseName.SetFocus;
end;

procedure TCreatForm.CreateButClick(Sender: TObject);
begin
  //==== 当单击创建用户按钮时代码 ====//
  if Trim(ED_UseName.Text) = '' then begin
    Application.MessageBox('没有输入正确的用户名', '提示', MB_OK);
    ED_UseName.SetFocus;
    InputIsok := TRUE;
  end;
  if CompareStr(Trim(ED_PassWord.Text), Trim(ED_ComfirmPass.Text)) <> 0 then begin
    Application.MessageBox('两次输入的用户密码不正确', '提示', MB_OK);
    ED_ComfirmPass.Clear;
    ED_PassWord.SetFocus;
    InputIsok := TRUE;
  end;
end;

procedure TCreatForm.ED_UseNameChange(Sender: TObject);
begin
  if Trim(ED_UseName.Text)<> '' then CreateBut.Enabled := TRUE
  else CreateBut.Enabled := FALSE;
end;

procedure TCreatForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if InputIsok = TRUE then Action := caNone
  else Action := caFree;
end;

procedure TCreatForm.Exit_ButClick(Sender: TObject);
begin
  InputIsok := FALSE;
end;

procedure TCreatForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  InputIsok := FALSE;
end;

end.