formualfrm.pas

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

unit FormualFrm;

interface

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

type
  TFormulaForm = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    cbName: TComboBox;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    AProjectNo:array[0..29] of string;
    function GetName: String;
    function GetProjectNo(Index : Integer): String;
    procedure SetProjectNo(Index:Integer; ProjectNo:String);
  public
    property Name : String Read GetName;
    property ProjectNo[Name:Integer] : String Read GetProjectNo Write SetProjectNo;
    { Public declarations }
  end;

var
  FormulaForm: TFormulaForm;

implementation

{$R *.DFM}

function TFormulaForm.GetProjectNo(Index : Integer) : String;
Begin
  Result := AProjectNo[Index];
end;

Procedure TFormulaForm.SetProjectNo(Index:Integer; ProjectNo:String);
begin
  AProjectNo[Index]:=ProjectNo;
end;

function TFormulaForm.GetName: String;
begin
  Result := cbName.Text;
end;

procedure TFormulaForm.FormDestroy(Sender: TObject);
begin
  FormulaForm:=Nil;
end;

procedure TFormulaForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.