?? partform.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -