tjsrbb.dfm

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

        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          'TDBChart')
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        TabOrder = 0
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Visible = True
          SeriesColor = clRed
          ValueFormat = '#,##0.##'
          XLabelsSource = 'Code'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
          PieValues.ValueSource = 'xiaoj'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '营业收入分类直方图'
      ImageIndex = 2
      object DBChart2: TDBChart
        Left = 0
        Top = 0
        Width = 671
        Height = 345
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          'TDBChart')
        View3D = False
        Align = alClient
        TabOrder = 0
        object Series2: TBarSeries
          Marks.ArrowLength = 20
          Marks.Visible = True
          SeriesColor = clRed
          XLabelsSource = 'Code'
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'xiaoj'
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '营业收入走势图'
      ImageIndex = 3
      object DBChart3: TDBChart
        Left = 0
        Top = 0
        Width = 671
        Height = 345
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          'TDBChart')
        View3D = False
        Align = alClient
        TabOrder = 0
        object Series3: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = clRed
          Title = '合计'
          XLabelsSource = 'rq'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'xiaoj'
        end
        object Series4: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = clBlue
          Title = '现金'
          XLabelsSource = 'rq'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'xj'
        end
        object Series5: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = 4210816
          Title = '会员卡'
          XLabelsSource = 'rq'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'hy'
        end
        object Series6: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = 16777088
          Title = '支票'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'zp'
        end
        object Series7: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = 16744703
          Title = '信用卡'
          XLabelsSource = 'rq'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'card'
        end
        object Series8: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = 8453888
          Title = '免单'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'md'
        end
        object Series9: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = 4210816
          Title = '记帐'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'gz'
        end
        object Series10: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Query3
          SeriesColor = clWhite
          Title = '其他'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'other'
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 320
    Top = 126
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select xh,code,sum(num) as num,sum(xj) as xj,sum(hy) as hy,sum(z' +
        'p) as zp,sum(card) as card,sum(gz) as gz,sum(md) as md,sum(other' +
        ') as other,sum(xiaoj) as xiaoj from srrb where rbdate>=:pbeg and' +
        ' rbdate<=:pend group by code,xh order by xh'
      ''
      ' ')
    Left = 488
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pbeg'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pend'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select xh,code,sum(num) as num,sum(xj) as xj,sum(hy) as hy,sum(z' +
        'p) as zp,sum(card) as card,sum(gz) as gz,sum(md) as md,sum(other' +
        ') as other,sum(xiaoj) as xiaoj'
      
        ' from srrb where rbdate>=:pbeg and rbdate<=:pend and code<>'#39' 合 ' +
        '  计  '#39' group by code,xh order by xh'
      ''
      ' '
      ' '
      ' ')
    Left = 384
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pbeg'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pend'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select *,CAST(rbdate as datetime) as rq from srrb where rbdate>=' +
        ':pbeg and rbdate<=:pend and code='#39' 合   计  '#39' order by xh'
      ''
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 88
    Top = 176
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pbeg'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pend'
        ParamType = ptUnknown
      end>
  end
  object Table1: TTable
    DatabaseName = 'sanadm'
    Filter = 'code='#39' 合   计  '#39
    Filtered = True
    TableName = 'dbo.srrb'
    Left = 244
    Top = 217
  end
end