mc_krmd_tqjz.pas

异洲酒店管理系统

unit MC_KRMD_TQJZ;

interface

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

type
  TKRMD_TQJZ = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    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;
    Panel2: TPanel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    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;
    Query2: TQuery;
    Panel1: TPanel;
    Bevel3: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox4: TGroupBox;
    BitBtn4: TBitBtn;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Edit1: TEdit;
    BitBtn5: TBitBtn;
    Label22: TLabel;
    Edit2: TEdit;
    Label27: TLabel;
    Edit3: TEdit;
    BitBtn6: TBitBtn;
    Query3: TQuery;
    Label28: TLabel;
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  KRMD_TQJZ: TKRMD_TQJZ;

implementation

uses MC_DYYLBrose, MC_TLCYGLXT;

{$R *.DFM}

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

procedure TKRMD_TQJZ.BitBtn4Click(Sender: TObject);
begin
  //   QRLabel9.Caption:=Label12.Caption;
  //   QRLabel18.Caption:=Label28.Caption;
  ///   DYYLBrose.Show;
   ///  QuickRep1.Preview;
end;

procedure TKRMD_TQJZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Query1.Close;
     Query2.Close;
     KRMD_TQJZ.Release;
     KRMD_TQJZ:=nil;
end;

procedure TKRMD_TQJZ.BitBtn1Click(Sender: TObject);
begin
     Groupbox6.Visible:=True;
     Edit1.SetFocus;
end;

procedure TKRMD_TQJZ.Edit1Enter(Sender: TObject);
begin
     TEdit(Sender).Color:=ClAqua;
end;

procedure TKRMD_TQJZ.Edit1Exit(Sender: TObject);
begin
     TEdit(sender).color:=ClWindow;
end;

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

procedure TKRMD_TQJZ.BitBtn5Click(Sender: TObject);
var zJJE:Real;
begin
     if Length(Edit1.Text)=0 then
        begin
             ShowMessage('请输入免单原因');
        end
     else
     if MessageDlg('确认免单吗？',mtCustom,[mbYes,mbNo],0)=mrYes then
     begin
     //-------------------------------------------------------------------------
     //QRLabel9.Caption:='0';
 ///    QRLabel9.Caption:=Label12.Caption;
 ///    QRLabel18.Caption:='免单';
 ///    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;
     Query2.SQL.Clear;
     Query2.SQL.Add('insert 日点菜信息表(房间台号,类别,编号,名称,类型,单位,数量,价格,合计,服务员编号,服务员姓名,状态,点单日期,结单日期,结帐编号,是否结单)');
     Query2.SQL.Add('Select 房间台号,类别,编号,名称,类型,单位,数量,价格,合计,服务员编号,服务员姓名,状态,点单日期,结单日期,结帐编号,是否结单');
     Query2.SQl.Add('From 点菜临时表');
     Query2.SQL.Add('Where 房间台号=:A');
     Query2.Params[0].AsInteger:=TLCYGLXT.FJTHXXB.FieldByName('编号').AsInteger;
     Query2.ExecSQL;
     //--------------------------------------
          //-----返回库存酒水数量-----------------
     Query2.Close;
     Query2.SQL.Clear;
     Query2.SQL.Add('select 点菜临时表.编号,点菜临时表.名称,点菜临时表.数量,酒水费用信息表.货存编号');
     Query2.SQL.Add('from 点菜临时表,酒水费用信息表');
     Query2.SQL.Add(' where 是否结单=''是'' and 点菜临时表.编号>=10000 and 点菜临时表.编号<=20000 and 点菜临时表.编号=酒水费用信息表.编号 ');
     //------------------------后加的--------------
     Query2.SQL.Add('and 房间台号=:C');
     Query2.ParamByName('C').AsInteger:=TLCYGLXT.FJTHXXB.FieldByName('编号').AsInteger;
     //--------------------------------------------
     Query2.Open;
     While not Query2.Eof do
     begin
          Query3.Close;
          Query3.SQL.Clear;
          Query3.SQL.Add('update 库存信息表 set 数量=数量-:A');
          Query3.SQL.Add('Where 编号=:B');
          Query3.Params[0].AsInteger:=Query2.FieldByName('数量').AsInteger;
          Query3.Params[1].AsInteger:=Query2.FieldByName('货存编号').AsInteger;
          Query3.ExecSQL;
          Query3.Close;
          Query3.SQL.Clear;
          Query3.SQL.Add('Select * From 库存信息表 where 编号=:A');
          Query3.Params[0].AsInteger:=Query2.FieldByName('货存编号').AsInteger;
          Query3.Open;
          if Query3.FieldByName('数量').AsInteger<=Query3.FieldByName('提醒下限').AsInteger then