newpay.pas

来自「一个典当行的业务管理系统程序」· PAS 代码 · 共 49 行

unit NewPay;

interface

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

type
  TfrmNewPay = class(TForm)
    Panel1: TPanel;
    cmdOk: TButton;
    cmdExit: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lbPawnMoney: TLabel;
    lbServiceFee: TLabel;
    lbRealPayMoney: TLabel;
    Label4: TLabel;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmNewPay: TfrmNewPay;
  SaveMark:Boolean;
implementation

{$R *.DFM}

procedure TfrmNewPay.cmdExitClick(Sender: TObject);
begin
     SaveMark:=False;
     close;
end;

procedure TfrmNewPay.cmdOkClick(Sender: TObject);
begin
     SaveMark:=True;
     close;
end;

end.