pay.~pa

一个典当行的业务管理系统程序

unit Pay;

interface

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

type
  TfrmPay = class(TForm)
    pnPay: TPanel;
    cmdPrint: TButton;
    cmdExit: TButton;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    lbPawnMoney: TLabel;
    lbServiceFee: TLabel;
    lbRealPayMoney: TLabel;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPay: TfrmPay;
  SaveMark:Boolean;
implementation

uses Ransom;

{$R *.DFM}

procedure TfrmPay.cmdExitClick(Sender: TObject);
begin
     SaveMark:=False;
     Ransom.RansomMark:=True;
     close;
end;

procedure TfrmPay.cmdPrintClick(Sender: TObject);
begin
     SaveMark:=True;
     close;
end;

end.