frmjz.~pas

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

unit FrmJz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit_CT, Grids, DBGrids, DB, DBClient, Mask, RzEdit,
  RzRadGrp, RzPanel, ExtCtrls,Unit_xf, ADODB, RzButton, RzRadChk,
  ACReportClass,Unit_Share;

type
  Tfrm_jz = class(TForm)
    Panel1: TPanel;
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RzGroupBox3: TRzGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    ed_zfmoney: TRzNumericEdit;
    Label20: TLabel;
    lab_zlmoney: TLabel;
    Label22: TLabel;
    jz_memo: TEdit;
    Panel2: TPanel;
    DataSource1: TDataSource;
    xf_Cds: TClientDataSet;
    DBGrid1: TDBGrid;
    ssmoney: TLabel;
    yhmoney: TRzNumericEdit;
    Button3: TButton;
    chkfp: TRzCheckBox;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    AC: TACReport;
    Button4: TButton;
    Label9: TLabel;
    ysmoney: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    xfmoney: TLabel;
    Label6: TLabel;
    Label10: TLabel;
    XfManNum: TRzNumericEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure yhmoneyChange(Sender: TObject);
    procedure ed_zfmoneyChange(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
     MyCT:TCT_info;
     MyXF:TXF_info;
     MyShare:TShare;
     TmpMaster:TxfMaster;
     Procedure UpdateMoney;
     Procedure SetXfMaster;
  public
    { Public declarations }
  end;

var
  frm_jz: Tfrm_jz;

implementation

uses FrmMain, FrmUnionJz;

{$R *.dfm}
procedure TH;
Var F:TextFile;
    PDStr,my:string;
    fhandle:integer;
    i:integer;
begin
//弹出钱箱功能
   my:='lpt1';
   fhandle:=fileopen(my,fmopenwrite);
   fileclose(fhandle);
   if fhandle<0 then
 begin
   messagebox(fhandle,'lpt1错误','错误',mb_iconerror);
 end
 else
  begin
   PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);
   AssignFile(F, 'lpt1');
   Rewrite(F);
 //  Write(F, PDStr);
   for i:=0 to 3 do  Writeln(f,chr($b)+chr(27)+'K'+chr(40));
   CloseFile(F);
 end;
end;

procedure OpenMoneyBox;
Var F:TextFile;
    PDStr,my:string;
    fhandle:integer;
    i:integer;
begin
//弹出钱箱功能
   my:='lpt1';
   fhandle:=fileopen(my,fmopenwrite);
   fileclose(fhandle);
   if fhandle<0 then
 begin
   messagebox(fhandle,'lpt1错误','错误',mb_iconerror);
 end
 else
  begin
   PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);
   AssignFile(F, 'lpt1');
   Rewrite(F);
   Write(F, PDStr);
   for i:=0 to 5 do  Writeln(f,chr($b)+chr(27)+'K'+chr(40));
   CloseFile(F);
 end;
end;

procedure Tfrm_jz.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure Tfrm_jz.Button1Click(Sender: TObject);
Var
 TmpStatus:Integer;
begin
 if StrToFloat(lab_zlmoney.Caption)<0 Then
 Begin
  Showmessage('款项错误,不能结帐~~~');
  Exit;
 End;

if MessageDlg('确定结帐吗,结账后数据将不能更改？',mtConfirmation, [mbYes, mbNo], 0)=mrYes then
Begin
 With Frm_main do
 begin
  CTListView.Selected.ImageIndex:=0;
  Before_KD;
  MyCt.UpDateCTStatus(CTID,0);
  TmpStatus:=MyCT.Get_CTStatus(CTID);
  MyCT.Update_LSH(CTID,TmpStatus);
  datadisp;
 end;
 SetXfMaster;
 MyXf.AddXfMaster(TmpMaster);
 IF Myshare.Get_PrnSet.MoneyBox Then
 OpenMoneyBox;
 Button4.Click;
 Th;
 Close;
End;
end;

procedure Tfrm_jz.FormCreate(Sender: TObject);
begin
 MyCT:=TCT_info.create;
 MyXf:=Txf_info.create;
 MyShare:=Tshare.create;

end;

procedure Tfrm_jz.FormActivate(Sender: TObject);
begin
 ysmoney.Caption:=xfmoney.Caption;
 xf_cds.Data:=myXf.GetDatailTmpList(label2.Caption);
 updateMoney;
 yhmoney.Value:=0;
 ed_zfmoney.Value:=0;
 ed_zfMoney.SelectAll;
 Ed_zfMoney.SetFocus;
end;

procedure Tfrm_jz.yhmoneyChange(Sender: TObject);
begin
 updateMoney;
end;

procedure Tfrm_jz.ed_zfmoneyChange(Sender: TObject);
begin
 updateMoney;
end;

procedure Tfrm_jz.UpdateMoney;
begin
  if Trim(Yhmoney.Text)<>'' Then
  ssmoney.Caption:=MyShare.DispCurrency(StrToFloat(ysmoney.Caption)-StrToFloat(yhmoney.Text))
 Else
  ssmoney.Caption:=format('%*.*f',[8,2,StrToFloat(ysmoney.Caption)-0]);
  if Trim(ed_zfmoney.Text)<>'' then
  lab_zlmoney.Caption:=format('%*.*f',[8,2,StrToFloat(ed_zfmoney.Text)-StrToFloat(ssmoney.Caption)])
 Else
  lab_zlmoney.Caption:=format('%*.*f',[8,2,0-StrToFloat(ssmoney.Caption)]);
end;

procedure Tfrm_jz.Button3Click(Sender: TObject);
begin
 frm_unionJz.showmodal;
end;

procedure Tfrm_jz.Button4Click(Sender: TObject);
Var
 prn:Tprnset;
begin
 ac.Variants[0].Value:=Trim(label2.Caption);     //应收金额
 ac.Variants[1].Value:=Trim(ssmoney.Caption);   //实收金额
 ac.Variants[2].Value:=Trim(lab_zlmoney.Caption);//找零金额
 ac.Variants[3].Value:=trim(ed_zfmoney.Text);    //收现金额
 Prn:=Myshare.Get_PrnSet;
 ac.Variants[4].Value:=prn.Title1;
 ac.Variants[5].Value:=prn.Title2;
 ac.Variants[6].Value:=prn.Title3;
 ac.Variants[7].Value:=prn.Title4;

// Showmessage(ac.Variants[0].Value);
 Ac.print;
end;

procedure Tfrm_jz.SetXfMaster;
begin
 With TmpMaster do
 Begin
 LshCode:=label2.Caption;
 Xf_Money:=StrToFloat(xfMoney.Caption);
 ys_money:=StrToFloat(ysMoney.Caption);
 rate:=1;
 SS_money:=StrToFloat(ysmoney.Caption)-StrToFloat(yhmoney.Text);
 Xf_Type:=1;
 AdminID:=Frm_Main.AdminID;
 OPerTime:=Now;
 Jz_Flag:=1;
 if chkfp.Checked=true Then
  Fp_Flag:=1
 Else
  Fp_flag:=0;
 ManNum:=strtoint(XfManNum.Text);
 End;
end;

end.