unitqryearrep.pas

自己做过的工程

unit unitQRyearrep;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRCtrls, DB, ADODB, QuickRpt, ExtCtrls;

type
  TformQRyearrep = class(TForm)
    quickrep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel20: TQRLabel;
    ADODataSet1: TADODataSet;
    QRBand1: TQRBand;
    QRLabel14: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRL_time: TQRLabel;
    QRL_Croomfee: TQRLabel;
    QRL_Croomthings: TQRLabel;
    QRL_Csupsecond: TQRLabel;
    QRL_Csuproom: TQRLabel;
    QRL_Cballroom: TQRLabel;
    QRL_Ckalaok: TQRLabel;
    QRL_Ccommercecenter: TQRLabel;
    QRL_Chairdressing: TQRLabel;
    QRL_Sroomfee: TQRLabel;
    QRL_Sroomthings: TQRLabel;
    QRL_Ssupsecond: TQRLabel;
    QRL_Ssuproom: TQRLabel;
    QRL_Sballroom: TQRLabel;
    QRL_Skalaok: TQRLabel;
    QRL_Scommercecenter: TQRLabel;
    QRL_Shairdressing: TQRLabel;
    QRL_Rroomfee: TQRLabel;
    QRL_Rroomthings: TQRLabel;
    QRL_Rsuproom: TQRLabel;
    QRL_Rsupsecond: TQRLabel;
    QRL_Rballroom: TQRLabel;
    QRL_Rkalaok: TQRLabel;
    QRL_Rcommercecenter: TQRLabel;
    QRL_Rhairdressing: TQRLabel;
    QRL_Ctotalfee: TQRLabel;
    QRL_Stotalfee: TQRLabel;
    QRL_Rtotalfee: TQRLabel;
    procedure quickrep1StartPage(Sender: TCustomQuickRep);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formQRyearrep: TformQRyearrep;
      Y1,Y2:string;
implementation
       uses unitDMHotel;
{$R *.dfm}


procedure TformQRyearrep.quickrep1StartPage(Sender: TCustomQuickRep);
var
   Cdiscount,Croomfee,Croomthings,Csuproom,Csupsecond,Ckalaok,Cballroom,Ccommercecenter,Chairdressing,Ctotalfee : double;
   Sdiscount,Sroomfee,Sroomthings,Ssuproom,Ssupsecond,Skalaok,Sballroom,Scommercecenter,Shairdressing,Stotalfee : double;
   Rdiscount,Rroomfee,Rroomthings,Rsuproom,Rsupsecond,Rkalaok,Rballroom,Rcommercecenter,Rhairdressing,Rtotalfee : double;
   bookmoney,test:double;
   begin
   //现金结账部分      ////////////////
   //初始化
   Cdiscount:=0;
   Croomfee:=0;
   Croomthings:=0;
   Csuproom:=0;
   Csupsecond:=0;
   Ckalaok:=0;
   Cballroom:=0;
   Ccommercecenter:=0;
   Chairdressing:=0;
   Ctotalfee:=0;

   //计算年结账金额
   With  ADODataSet1 Do
   begin
       Close;
       Prepared:=false;
       CommandText:='select * from room_fee where checktime>'+
                    ''''+Y1+''''+'and checktime<'+
                    ''''+Y2+'''';
       Prepared:=true;
       Open;


       First;
       while not Eof do
           begin
               Cdiscount := Fieldbyname('discount').AsFloat;
               Croomfee := Fieldbyname('roomfee').AsFloat * Cdiscount / 10 + Croomfee;
               Croomthings := Fieldbyname('roomthings').AsFloat * Cdiscount / 10 + Croomthings;
               Csuproom := Fieldbyname('suproom').AsFloat * Cdiscount / 10 + Csuproom;
               Csupsecond := Fieldbyname('supsecond').AsFloat * Cdiscount / 10 + Csupsecond;
               Ckalaok := Fieldbyname('kalaok').AsFloat * Cdiscount / 10 + Ckalaok;
               Cballroom := Fieldbyname('ballroom').AsFloat * Cdiscount / 10 + Cballroom;
               Ccommercecenter := Fieldbyname('commercecenter').AsFloat * Cdiscount / 10 + Ccommercecenter;
               Chairdressing := Fieldbyname('hairdressing').AsFloat * Cdiscount / 10 + Chairdressing;
               Ctotalfee := Fieldbyname('totalfee').AsFloat + Ctotalfee;
               Next;
           end;
   end;
   //显示费用
   QRL_Croomfee.Caption:=floattostr(Croomfee);
   QRL_Croomthings.Caption:=floattostr(Croomthings);
   QRL_Csuproom.Caption:=floattostr(Csuproom);
   QRL_Csupsecond.Caption:=floattostr(Csupsecond);
   QRL_Ckalaok.Caption:=floattostr(Ckalaok);
   QRL_Cballroom.Caption:=floattostr(Cballroom);
   QRL_Ccommercecenter.Caption:=floattostr(Ccommercecenter);
   QRL_Chairdressing.Caption:=floattostr(Chairdressing);
   QRL_Ctotalfee.Caption:=floattostr(Ctotalfee);


   //签单结账部分 ////////////////////
   //初始化
   Sdiscount:=0;
   Sroomfee:=0;
   Sroomthings:=0;
   Ssuproom:=0;
   Ssupsecond:=0;
   Skalaok:=0;
   Sballroom:=0;
   Scommercecenter:=0;
   Shairdressing:=0;
   Stotalfee:=0;

   //计算年签单金额
   With  ADODataSet1 Do
   begin
       Close;
       Prepared:=false;
       CommandText:='select * from room_debt where checktime>'+
                    ''''+Y1+''''+'and checktime<'+
                    ''''+Y2+'''';
       Prepared:=true;
       Open;


       First;
       while not Eof do
           begin
               Sdiscount := Fieldbyname('discount').AsFloat;
               Sroomfee := Fieldbyname('roomfee').AsFloat * Sdiscount / 10 + Sroomfee;
               Sroomthings := Fieldbyname('roomthings').AsFloat * Sdiscount / 10 + Sroomthings;
               Ssuproom := Fieldbyname('suproom').AsFloat * Sdiscount / 10 + Ssuproom;
               Ssupsecond := Fieldbyname('supsecond').AsFloat * Sdiscount / 10 + Ssupsecond;
               Skalaok := Fieldbyname('kalaok').AsFloat * Sdiscount / 10 + Skalaok;
               Sballroom := Fieldbyname('ballroom').AsFloat * Sdiscount / 10 + Sballroom;
               Scommercecenter := Fieldbyname('commercecenter').AsFloat * Sdiscount / 10 + Scommercecenter;
               Shairdressing := Fieldbyname('hairdressing').AsFloat * Sdiscount / 10 + Shairdressing;
               Stotalfee := Fieldbyname('totalfee').AsFloat + Stotalfee;
               Next;
           end;
   end;
   //显示费用
   QRL_Sroomfee.Caption:=floattostr(Sroomfee);
   QRL_Sroomthings.Caption:=floattostr(Sroomthings);
   QRL_Ssuproom.Caption:=floattostr(Ssuproom);
   QRL_Ssupsecond.Caption:=floattostr(Ssupsecond);
   QRL_Skalaok.Caption:=floattostr(Skalaok);
   QRL_Sballroom.Caption:=floattostr(Sballroom);
   QRL_Scommercecenter.Caption:=floattostr(Scommercecenter);
   QRL_Shairdressing.Caption:=floattostr(Shairdressing);
   QRL_Stotalfee.Caption:=floattostr(Stotalfee);

   //还账部分 ////////////////////
   //初始化
   Rdiscount:=0;
   Rroomfee:=0;
   Rroomthings:=0;
   Rsuproom:=0;
   Rsupsecond:=0;
   Rkalaok:=0;
   Rballroom:=0;
   Rcommercecenter:=0;
   Rhairdressing:=0;
   Rtotalfee:=0;

   //计算年还账金额
   With  ADODataSet1 Do
   begin
       Close;
       Prepared:=false;
       CommandText:='select * from room_debt where redebttime>'+
                    ''''+Y1+''''+'and redebttime<'+
                    ''''+Y2+'''';
       Prepared:=true;
       Open;


       First;
       while not Eof do
           begin
               Rdiscount := Fieldbyname('discount').AsFloat;
               Rroomfee := Fieldbyname('roomfee').AsFloat * Rdiscount / 10 + Rroomfee;
               Rroomthings := Fieldbyname('roomthings').AsFloat * Rdiscount / 10 + Rroomthings;
               Rsuproom := Fieldbyname('suproom').AsFloat * Rdiscount / 10 + Rsuproom;
               Rsupsecond := Fieldbyname('supsecond').AsFloat * Rdiscount / 10 + Rsupsecond;
               Rkalaok := Fieldbyname('kalaok').AsFloat * Rdiscount / 10 + Rkalaok;
               Rballroom := Fieldbyname('ballroom').AsFloat * Rdiscount / 10 + Rballroom;
               Rcommercecenter := Fieldbyname('commercecenter').AsFloat * Rdiscount / 10 + Rcommercecenter;
               Rhairdressing := Fieldbyname('hairdressing').AsFloat * Rdiscount / 10 + Rhairdressing;
               Rtotalfee := Fieldbyname('totalfee').AsFloat + Rtotalfee;
               Next;
           end;
   end;
   //显示费用
   QRL_Rroomfee.Caption:=floattostr(Rroomfee);
   QRL_Rroomthings.Caption:=floattostr(Rroomthings);
   QRL_Rsuproom.Caption:=floattostr(Rsuproom);
   QRL_Rsupsecond.Caption:=floattostr(Rsupsecond);
   QRL_Rkalaok.Caption:=floattostr(Rkalaok);
   QRL_Rballroom.Caption:=floattostr(Rballroom);
   QRL_Rcommercecenter.Caption:=floattostr(Rcommercecenter);
   QRL_Rhairdressing.Caption:=floattostr(Rhairdressing);
   QRL_Rtotalfee.Caption:=floattostr(Rtotalfee);

end;


end.