mc_yycxfx.pas

异洲酒店管理系统

unit MC_YYCXFX;

interface

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

type
  TYYCXFX = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel4: TBevel;
    Label5: TLabel;
    Bevel5: TBevel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn4: TBitBtn;
    Query1: TQuery;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TIntegerField;
    Query1BDEDesigner3: TDateTimeField;
    Query1BDEDesigner4: TFloatField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TStringField;
    DataSource1: TDataSource;
    Query2: TQuery;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRLabel2: TQRLabel;
    TitleBand1: TQRBand;
    QRShape2: TQRShape;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    DetailBand1: TQRBand;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    SummaryBand1: TQRBand;
    QRShape16: TQRShape;
    QRLabel10: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel11: TQRLabel;
    QRExpr2: TQRExpr;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YYCXFX: TYYCXFX;

implementation

uses MC_DYYLBrose, MC_CKJZDJDJCXX;

{$R *.DFM}


procedure TYYCXFX.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date:=Date-30;  //设置起始日期
  DateTimePicker2.Date:=Date;  //设置结束日期
end;
procedure TYYCXFX.BitBtn1Click(Sender: TObject);    //统计营业信息
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 月结算费用信息表 where 日期 >= :A and 日期 <= :B ORDER BY 结帐编号 ASC');
  Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;    //设置参数A为起始日期
  Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;    //设置参数B为结束日期
  Query1.Open;  //激活数据组件
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select Sum(费用) From 月结算费用信息表 Where 日期 >= :A and 日期 <= :B');
  Query2.ParamByName('A').AsDateTime:=DateTimePicker1.Datetime;   //设置参数A为起始日期
  Query2.ParamByName('B').AsDateTime:=DateTimePicker2.Datetime;   //设置参数B为结束日期
  Query2.Open;
  Label4.Caption:=Query2.Fields[0].AsString;   //显示统计金额
  Label8.Caption:=IntToStr(Query1.RecordCount);   //显示统计记录数
  Query2.Close;
end;

procedure TYYCXFX.BitBtn2Click(Sender: TObject);    //打印营业信息
begin
 If Query1.Active = True Then
 begin
  If Query1.RecordCount <> 0 Then   //记录不为空
  begin
    DYYLBrose.Show;     //调用打印
    QuickRep1.Preview;
  End
  else ShowMessage('没有数据无法打印.');
 End
 Else
 ShowMessage('没有数据无法打印.');
end;

procedure TYYCXFX.BitBtn4Click(Sender: TObject);     //查看结帐单据的酒菜信息
begin
  If Query1.Active = True Then    //如果组件处于激活状态
  If Query1.RecordCount <> 0 Then   //记录不为空
  If Not Assigned(CKJZDJDJCXX) Then   //判断引用过程是否为空
  begin
    CKJZDJDJCXX:=TCKJZDJDJCXX.Create(Self);
    CKJZDJDJCXX.Query1.Close;
    CKJZDJDJCXX.Query1.SQL.Clear;
    CKJZDJDJCXX.Query1.SQL.Add('Select * From 月点菜信息表 Where 结帐编号 = :A');   //选择当月点菜信息
    CKJZDJDJCXX.Query1.ParamByName('A').AsInteger:=Query1.FieldByName('结帐编号').AsInteger;
    CKJZDJDJCXX.Query1.Open;
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select * From 员工信息表 Where 员工编号 = :A');   //选择员工信息
    CKJZDJDJCXX.Query2.ParamByName('A').AsInteger:=CKJZDJDJCXX.Query1.FieldbyName('服务员编号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label24.Caption:=CKJZDJDJCXX.Query2.FieldByName('员工编号').AsString;   //显示员工编号
    CKJZDJDJCXX.Label26.Caption:=CKJZDJDJCXX.Query2.FieldByName('姓名').AsString;    //显示员工姓名
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select * From 房间台号信息表 where 编号 = :A'); //选择房台信息
    CKJZDJDJCXX.Query2.ParambyName('A').AsInteger:=Query1.FieldByName('房间台号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label4.Caption:=Query1.FieldByName('房间台号').AsString;
    CKJZDJDJCXX.Label8.Caption:=CKJZDJDJCXX.Query2.FieldByName('类型说明').AsString;
    CKJZDJDJCXX.Label6.Caption:=CKJZDJDJCXX.Query2.FieldByName('房台名称').AsString;
    CKJZDJDJCXX.Label10.Caption:=CKJZDJDJCXX.Query2.FieldByName('餐饮部门').AsString;
    CKJZDJDJCXX.Label12.Caption:=CKJZDJDJCXX.Query2.FieldByName('服务费').AsString;
    CKJZDJDJCXX.Label14.Caption:=CKJZDJDJCXX.Query2.FieldByName('简要说明').AsString;
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select Sum(数量) From 月点菜信息表 Where 状态 = :A and 结帐编号 = :B');
    CKJZDJDJCXX.Query2.ParamByName('A').AsString:='点单';
    CKJZDJDJCXX.Query2.ParamByName('B').AsInteger:=Query1.FieldByName('结帐编号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label16.Caption:=CKJZDJDJCXX.Query2.Fields[0].AsString; //点单记录数
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select Sum(数量) From 月点菜信息表 Where 状态 = :A and 结帐编号 = :B');
    CKJZDJDJCXX.Query2.ParamByName('A').AsString:='赠单';
    CKJZDJDJCXX.Query2.ParamByName('B').AsInteger:=Query1.FieldByName('结帐编号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label18.Caption:=CKJZDJDJCXX.Query2.Fields[0].AsString; //赠单记录数
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select Sum(合计) From 月点菜信息表 Where 状态 = :A and 结帐编号 = :B');
    CKJZDJDJCXX.Query2.ParamByName('A').AsString:='点单';
    CKJZDJDJCXX.Query2.ParamByName('B').AsInteger:=Query1.FieldByName('结帐编号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label20.Caption:=CKJZDJDJCXX.Query2.Fields[0].AsString;  //点单金额
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.Query2.SQL.Clear;
    CKJZDJDJCXX.Query2.SQL.Add('Select Sum(合计) From 月点菜信息表 Where 状态 = :A and 结帐编号 = :B');
    CKJZDJDJCXX.Query2.ParamByName('A').AsString:='赠单';
    CKJZDJDJCXX.Query2.ParamByName('B').AsInteger:=Query1.FieldByName('结帐编号').AsInteger;
    CKJZDJDJCXX.Query2.Open;
    CKJZDJDJCXX.Label22.Caption:=CKJZDJDJCXX.Query2.Fields[0].AsString;   //赠单金额
    if Length(CKJZDJDJCXX.Label12.Caption)=0 then CKJZDJDJCXX.Label2.Caption:=CKJZDJDJCXX.Label20.Caption
    Else
    if Length(CKJZDJDJCXX.Label20.Caption)=0 then CKJZDJDJCXX.Label2.Caption:=CKJZDJDJCXX.Label12.Caption
    Else
    CKJZDJDJCXX.Label2.Caption:=FloatToStr(StrToFloat(CKJZDJDJCXX.Label12.Caption)+StrtoFloat(CKJZDJDJCXX.Label20.Caption));
    CKJZDJDJCXX.Label28.Caption:=Query1.FieldByName('结帐编号').AsString;
    CKJZDJDJCXX.Query2.Close;
    CKJZDJDJCXX.ShowModal;    //调入点菜信息浏览窗口
  end;
end;

procedure TYYCXFX.QuickRep1Preview(Sender: TObject);
begin
  DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TYYCXFX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  YYCXFX.Release;    //释放
  YYCXFX:=Nil;
end;

procedure TYYCXFX.BitBtn3Click(Sender: TObject);
begin
  Close;    //退出营业查询分析
end;
end.