ufrmuserinfo.pas

来自「图书电子阅览室门禁系统 v1.0」· PAS 代码 · 共 63 行

unit UfrmUserInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPanel, StdCtrls, RzLabel, Mask, RzEdit, RzButton;

type
  TfrmUserInfo = class(TForm)
    RzPanel1: TRzPanel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    txtID: TRzEdit;
    txtName: TRzEdit;
    txtBM: TRzEdit;
    txtDW: TRzEdit;
    RzLabel5: TRzLabel;
    txtSex: TRzEdit;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserInfo: TfrmUserInfo;

implementation

uses UfrmMain;

{$R *.dfm}

procedure TfrmUserInfo.RzBitBtn1Click(Sender: TObject);
begin
    Close;
end;

procedure TfrmUserInfo.RzBitBtn3Click(Sender: TObject);
begin
    Close;
end;

procedure TfrmUserInfo.RzBitBtn2Click(Sender: TObject);
begin
    try
        frmMain.edtUserID.Text:=Trim(self.txtID.Text);
        frmMain.RzBitBtn1Click(frmMain.RzBitBtn1);
    except
        Exit;
    end;   
end;

end.