newuserunit.pas

企业经营管理系统开发实例导航-小区物业管理

unit NewUserUnit;

interface

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

type
  TNewUser = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    Label3: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    BtOk: TBitBtn;
    btNo: TBitBtn;
    Bevel1: TBevel;
    Panel1: TPanel;
    procedure checkstr(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure btNoClick(Sender: TObject);
    procedure BtOkClick(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  NewUser: TNewUser;

implementation

uses Udm;

{$R *.dfm}

procedure TNewUser.checkstr(Sender: TObject);
begin
  if Trim((sender as Tdbedit).Text) = '' then
  begin
    ShowMessage('此栏必须填写信息!');
    (Sender as TDBEdit).SetFocus;
  end;
end;

procedure TNewUser.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    sendmessage(handle, wm_keydown, vk_tab, 0);
end;

procedure TNewUser.FormShow(Sender: TObject);
begin
  DBEdit1.SetFocus;
end;

procedure TNewUser.btNoClick(Sender: TObject);
begin
  adodm.Tuser.Cancel;
  NewUser.ModalResult := mrCancel;
end;

procedure TNewUser.BtOkClick(Sender: TObject);
begin
  if trim(DBEdit1.Text) = '' then //验证是否输入的内容为空
    CheckStr(DBEdit1)
  else
    if trim(DBEdit2.Text) = '' then //验证是否输入的内容为空
      CheckStr(DBEdit2)
    else
      if trim(DBEdit3.Text) = '' then //验证是否输入的内容为空
        CheckStr(DBEdit3)
      else
        if DBEdit3.Text <> Edit1.Text then //验证密码两次输入是否一致
        begin
          ShowMessage('两次录入的密码不同，请确认密码！');
          Edit1.SetFocus;
        end
        else
        begin
          adodm.Tuser.Post;
          NewUser.ModalResult := mrok;
        end;
end;

end.