partform.pas

《Delphi COM深入编程》原书光盘

unit PartForm;

interface

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

type
  TfrmPart = class(TForm)
    pnlClient: TPanel;
    pnlBottom: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ecPartNumber: TEdit;
    ecDescription: TEdit;
    ecUnitPrice: TEdit;
    ecOnHand: TEdit;
    ecReorder: TEdit;
    btnOK: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    FUnitPrice: Double;
    FReorder: Integer;
    FOnHand: Integer;
    FDescription: string;
    FPartNumber: string;
  public
    { Public declarations }
    property PartNumber: string read FPartNumber;
    property Description: string read FDescription;
    property UnitPrice: Double read FUnitPrice;
    property OnHand: Integer read FOnHand;
    property Reorder: Integer read FReorder;
  end;

implementation

{$R *.DFM}

procedure TfrmPart.btnOKClick(Sender: TObject);
begin
  FPartNumber := ecPartNumber.Text;
  FDescription := ecDescription.Text;
  FUnitPrice := StrToFloat(ecUnitPrice.Text);
  FOnHand := StrToInt(ecOnHand.Text);
  FReorder := StrToInt(ecReorder.Text);
end;

end.