frmxfcprate.pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· PAS 代码 · 共 78 行

unit frmXfCpRate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit,Unit_Xf;

type
  Tfrm_XfCpRate = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    ed_rate: TRzNumericEdit;
    Label2: TLabel;
    lab_cpname: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lab_money: TLabel;
    lab_rate_money: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ed_rateChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    MyXf:TXf_info;
  public
    { Public declarations }
    XfCpName:String;
    XfMoney,XfRate,XfRateMoney:Currency;
    XfCpID:Integer;
  end;

var
  frm_XfCpRate: Tfrm_XfCpRate;

implementation

uses FrmXf;

{$R *.dfm}

procedure Tfrm_XfCpRate.FormActivate(Sender: TObject);
begin
 lab_cpname.Caption:=xfcpname;
 lab_money.Caption:=Format('%*.*f',[8,2,xfmoney])+'Ԫ';
 Ed_rate.Text:=FloatToStr(XfRate);
 XfRateMoney:=XfRate*XfMoney;
 Lab_Rate_Money.Caption:=Format('%*.*f',[8,2,xfRateMoney])+'Ԫ';
 ed_rate.SelectAll;
 ed_rate.SetFocus;
end;

procedure Tfrm_XfCpRate.ed_rateChange(Sender: TObject);
begin
 if Trim(ed_Rate.Text)='' Then Ed_Rate.Text:='0';
 XfRate:=StrToFloat(Ed_Rate.Text);
 XfRateMoney:=XfRate*XfMoney;
 Lab_Rate_Money.Caption:=Format('%*.*f',[8,2,xfRateMoney])+'Ԫ';
end;

procedure Tfrm_XfCpRate.FormCreate(Sender: TObject);
begin
 Myxf:=Txf_info.create;
end;

procedure Tfrm_XfCpRate.Button1Click(Sender: TObject);
begin
 if Trim(ed_Rate.Text)='' Then Ed_Rate.Text:='0';
 XfRate:=StrToFloat(Ed_Rate.Text);
 XfRateMoney:=XfRate*XfMoney;
 MyXf.XfCp_Rate(xfcpid,XfRate,XfRateMoney);
 Frm_Xf.datailTmp_Cds.Data:=Myxf.GetDatailTmpList(Frm_Xf.lab_lsh.Caption);
 Close;
end;

end.