xfxmtj.dfm

集成酒店桑拿食管管理的完整程序

object xfxmtjForm: TxfxmtjForm
  Left = 54
  Top = 75
  Width = 689
  Height = 453
  Caption = '消费统计'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 681
    Height = 73
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 111
      Top = 45
      Width = 24
      Height = 12
      Caption = '时间'
    end
    object Label2: TLabel
      Left = 313
      Top = 44
      Width = 12
      Height = 12
      Caption = '至'
    end
    object begdate: TDateTimePicker
      Left = 140
      Top = 40
      Width = 108
      Height = 20
      CalAlignment = dtaLeft
      Date = 37040.9310678241
      Time = 37040.9310678241
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object enddate: TDateTimePicker
      Left = 329
      Top = 40
      Width = 110
      Height = 20
      CalAlignment = dtaLeft
      Date = 37040.9310678241
      Time = 37040.9310678241
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object endtime: TDateTimePicker
      Left = 439
      Top = 40
      Width = 56
      Height = 20
      CalAlignment = dtaLeft
      Date = 37041.2172303241
      Time = 37041.2172303241
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 2
    end
    object begtime: TDateTimePicker
      Left = 248
      Top = 40
      Width = 56
      Height = 20
      CalAlignment = dtaLeft
      Date = 37041.2172303241
      Time = 37041.2172303241
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 3
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 681
      Height = 38
      Align = alTop
      BevelOuter = bvNone
      Caption = '消费收入统计表'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = '隶书'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object GroupBox1: TGroupBox
      Left = 535
      Top = 0
      Width = 63
      Height = 66
      Anchors = [akTop, akRight]
      Caption = '打印方式'
      TabOrder = 5
      object dy: TRadioButton
        Left = 14
        Top = 16
        Width = 47
        Height = 17
        Caption = '打印'
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 14
        Top = 36
        Width = 47
        Height = 17
        Caption = '显示'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
    end
    object BitBtn1: TBitBtn
      Left = 605
      Top = 25
      Width = 66
      Height = 21
      Anchors = [akTop, akRight]
      Caption = '查询'
      TabOrder = 6
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 605
      Top = 46
      Width = 66
      Height = 21
      Anchors = [akTop, akRight]
      Caption = '退出'
      TabOrder = 7
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 605
      Top = 4
      Width = 66
      Height = 21
      Anchors = [akTop, akRight]
      Caption = '打印'
      TabOrder = 8
      OnClick = BitBtn3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 73
    Width = 681
    Height = 353
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    Left = 216
    Top = 152
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select custype as cuscode,cusname as 消费大类,null as custype,nu' +
        'll as cusname,null as price,null as unit,'
      
        '(select sum(cusnum) from custom where substring(cuscode,1,len(cu' +
        'stype.custype))=custype.custype and regtime>=:pbegtime and regti' +
        'me<:pendtime) as 未结数量,'
      
        '(select sum(cusnum) from lscustom where substring(cuscode,1,len(' +
        'custype.custype))=custype.custype and regtime>=:pbegtime and reg' +
        'time<:pendtime) as 已结数量,'
      'null as 应收金额,'
      
        '(select sum(money) from lscustom where substring(cuscode,1,len(c' +
        'ustype.custype))=custype.custype and regtime>=:pbegtime and regt' +
        'ime<:pendtime) as 实收金额'
      'from custype where (parentcode='#39'0'#39' or parentcode='#39'00'#39')'
      
        'and (isnull((select sum(isnull(cusnum,0)) from custom where subs' +
        'tring(cuscode,1,len(custype.custype))=custype.custype and regtim' +
        'e>=:pbegtime and regtime<:pendtime),0)'
      
        '+isnull((select sum(isnull(cusnum,0)) from lscustom where substr' +
        'ing(cuscode,1,len(custype.custype))=custype.custype and regtime>' +
        '=:pbegtime and regtime<:pendtime),0))<>0'
      'union'
      
        '(select custype as cuscode,null as 消费大类,cusname as custype,n' +
        'ull as cusname,null as price,null as unit,'
      
        '(select sum(cusnum) from custom where substring(cuscode,1,len(cu' +
        'stype.custype))=custype.custype and regtime>=:pbegtime and regti' +
        'me<:pendtime) as 未结数量,'
      
        '(select sum(cusnum) from lscustom where substring(cuscode,1,len(' +
        'custype.custype))=custype.custype and regtime>=:pbegtime and reg' +
        'time<:pendtime) as 已结数量,'
      'null as 应收金额,'
      
        '(select sum(money) from lscustom where substring(cuscode,1,len(c' +
        'ustype.custype))=custype.custype and regtime>=:pbegtime and regt' +
        'ime<:pendtime) as 实收金额'
      'from custype where (parentcode<>'#39'0'#39' and parentcode<>'#39'00'#39' )'
      
        'and (isnull((select sum(cusnum) from custom where substring(cusc' +
        'ode,1,len(custype.custype))=custype.custype and regtime>=:pbegti' +
        'me and regtime<:pendtime),0)'
      
        '+isnull((select sum(cusnum) from lscustom where substring(cuscod' +
        'e,1,len(custype.custype))=custype.custype and regtime>=:pbegtime' +
        ' and regtime<:pendtime),0))<>0)'
      'union'
      
        '(select cuscode,null as 消费大类,null as custype,cusname,price,u' +
        'nit,'
      
        '(select sum(cusnum) from custom where cuscode=cusitem.cuscode an' +
        'd regtime>=:pbegtime and regtime<:pendtime) as 未结数量,'
      
        '(select sum(cusnum) from lscustom where cuscode=cusitem.cuscode ' +
        'and regtime>=:pbegtime and regtime<:pendtime) as 已结数量,'
      
        '((select sum(cusnum) from custom where cuscode=cusitem.cuscode a' +
        'nd regtime>=:pbegtime and regtime<:pendtime) +(select sum(cusnum' +
        ') from lscustom where cuscode=cusitem.cuscode and regtime>=:pbeg' +
        'time and regtime<:pendtime) )*price as 应收金额,'
      
        '(select sum(money) from lscustom where cuscode=cusitem.cuscode a' +
        'nd regtime>=:pbegtime and regtime<:pendtime) as 实收金额'
      'from cusitem'
      
        'where (isnull((select sum(cusnum) from custom where cuscode=cusi' +
        'tem.cuscode and regtime>=:pbegtime and regtime<:pendtime),0)'
      
        '+isnull((select sum(cusnum) from lscustom where cuscode=cusitem.' +
        'cuscode and regtime>=:pbegtime and regtime<:pendtime),0))<>0)'
      'order by cuscode'
      ''
      ''
      ''
      ''
      ''
      ' ')
    Left = 304
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pbegtime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pendtime'
        ParamType = ptUnknown
      end>
  end
end