changenamefrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 46 行

unit ChangeNameFrm;

interface

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

type
  TChangeNameForm = class(TSDIForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    edOldName: TEdit;
    edNewName: TEdit;
    bbtnConfirm: TBitBtn;
    bbtnClose: TBitBtn;
  private
    procedure SetOldName(Value: String);
    function GetNewName: String;
    { Private declarations }
  public
    property OldName: String Write SetOldName;
    property NewName: String read GetNewName;
    { Public declarations }
  end;

var
  ChangeNameForm: TChangeNameForm;

implementation

{$R *.DFM}

procedure TChangeNameForm.SetOldName(Value:string);
begin
  edOldName.Text:=Value;
end;

function TChangeNameForm.GetNewName:string;
begin
  result := edNewName.Text;
end;

end.