mc_gzfyfrom.pas

腾龙餐饮管理软件

unit MC_GZFYFrom;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Db, DBTables,
  Qrctrls, QuickRpt;

type
  TGZFYFrom = class(TForm)
    GroupBox3: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    Bevel2: TBevel;
    Label26: TLabel;
    Label32: TLabel;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Bevel1: TBevel;
    Label13: TLabel;
    Label14: TLabel;
    GroupBox5: TGroupBox;
    ListBox1: TListBox;
    BitBtn5: TBitBtn;
    Query3: TQuery;
    Query2: TQuery;
    Query1: TQuery;
    DataSource1: TDataSource;
    GroupBox4: TGroupBox;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Bevel3: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel15: TQRLabel;
    QRShape2: TQRShape;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRDBText1: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText4: TQRDBText;
    DetailBand1: TQRBand;
    QRDBText8: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText14: TQRDBText;
    SummaryBand1: TQRBand;
    QRShape3: TQRShape;
    QRDBText5: TQRDBText;
    QRLabel7: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel17: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel18: TQRLabel;
    GroupBox6: TGroupBox;
    Edit1: TEdit;
    BitBtn7: TBitBtn;
    Edit2: TEdit;
    Label22: TLabel;
    Label27: TLabel;
    BitBtn8: TBitBtn;
    Edit3: TEdit;
    Edit4: TEdit;
    Label28: TLabel;
    Label33: TLabel;
    BitBtn9: TBitBtn;
    GroupBox7: TGroupBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Label34: TLabel;
    Label35: TLabel;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Edit7: TEdit;
    Edit8: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel14: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure Edit7Enter(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GZFYFrom: TGZFYFrom;

implementation

uses MC_DYYLBrose, MC_TLCYGLXT;

{$R *.DFM}

procedure TGZFYFrom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     GZFYFrom.Release;
     GZFYFrom:=Nil;
end;

procedure TGZFYFrom.BitBtn2Click(Sender: TObject);
begin
     Close;
end;

procedure TGZFYFrom.BitBtn4Click(Sender: TObject);
begin
     QRLabel18.Caption:=Label12.Caption;
     QRLabel16.Caption:=Label14.Caption;
     DYYLBrose.Show;
     QuickRep1.Preview;
end;

procedure TGZFYFrom.QuickRep1Preview(Sender: TObject);
begin
    DYYLBrose.QrPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;

procedure TGZFYFrom.Edit1Exit(Sender: TObject);
begin
     Edit1.Color:=ClWindow;
end;

procedure TGZFYFrom.Edit1Enter(Sender: TObject);
begin
     Edit1.Color:=ClAqua;
end;

procedure TGZFYFrom.Edit2Exit(Sender: TObject);
begin
     Edit2.Color:=ClWindow;
end;

procedure TGZFYFrom.Edit2Enter(Sender: TObject);
begin
     Edit2.Color:=ClAqua;
end;

procedure TGZFYFrom.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
//-----------------------------------------------
end;

procedure TGZFYFrom.BitBtn7Click(Sender: TObject);
var zJJE:Real;
begin
     if ((Length(Edit1.Text)=0) or (Length(Edit2.Text)=0)) then
        begin
             ShowMessage('请将挂帐人、挂帐原因添全。');
             Edit1.SetFocus;
        end
     else
        begin
//------------------------------------------------------------------------------
             if MessageDlg('确认不打折挂帐吗？',mtCustom,[mbYes,mbNo],0)=mrYes then
                begin
                //------------------------------------------------------------------------------
                QRLabel18.Caption:=Label12.Caption;
                QRLabel16.Caption:=Label14.Caption;
                QRLabel4.Caption:=Edit1.Text;
                QRLabel8.Caption:=Edit2.Text;
                DYYLBrose.Show;
                QuickRep1.Preview;
                //------------------------------------------------------------------------------
                Query2.Close;
                Query2.SQL.Clear;
                Query2.SQL.Add('update 点菜临时表 Set 是否结单=:A,结单日期=:B Where 房间台号=:C');
                Query2.Params[0].AsString:='是';
                Query2.Params[1].AsDateTime:=StrToDateTime(DateTimeToStr(now));
                Query2.Params[2].AsInteger:=TLCYGLXT.FJTHXXB.FieldByName('编号').AsInteger;
                Query2.ExecSQL;
                //--------------------------------------
                {Query2.Close;
                Query2.SQL.Clear;
                Query2.SQL.Add('Select Sum(合计) From 点菜临时表 where 状态=:A');
                Query2.Params[0].AsString:='点单';
                Query2.Open;}
                //ZJJE:=Query2.Fields[0].AsFloat+TLCYGLXT.FJTHXXB.FieldByName('服务费').AsFloat;
                ZJJE:=StrToFloat(Label6.Caption)+TLCYGLXT.FJTHXXB.FieldByName('服务费').AsFloat;
                //--------------------------------------
                Query2.Close;