ffrmaddcommclass.pas

来自「天翔财务系统刚获得」· PAS 代码 · 共 63 行

unit FfrmAddCommClass;

interface

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

type
  TfrmAddCommClass = class(TfrmBaseForm)
    edtParentCode: TLabeledEdit;
    edtCode: TEdit;
    edtName: TLabeledEdit;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure edtCodeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure SetParentClassCode(vParentCode:String);
    function GetParentCode():String;
    function GetCode():String;
    function GetName():String;
  end;

var
  frmAddCommClass: TfrmAddCommClass;

implementation


{$R *.dfm}

{ TfrmAddCommClass }

function TfrmAddCommClass.GetCode: String;
begin
  Result:=edtParentCode.Text+edtCode.Text;
end;

function TfrmAddCommClass.GetName: String;
begin
  Result:=edtName.Text;
end;

function TfrmAddCommClass.GetParentCode: String;
begin
  Result:=edtParentCode.Text;
end;

procedure TfrmAddCommClass.SetParentClassCode(vParentCode: String);
begin
  edtParentCode.Text:=vParentCode;
end;

procedure TfrmAddCommClass.edtCodeChange(Sender: TObject);
begin
  btnOK.Enabled :=(edtCode.Text<>'') and (edtName.Text<>'');
end;

end.