hykxfgl.dfm

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 961 行 · 第 1/2 页

          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery2
          DataField = 'rq'
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText4: TQRDBText
          Left = 650
          Top = 0
          Width = 21
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            1719.79166666667
            0
            55.5625)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery2
          DataField = 'fkje'
          Mask = '#.00'
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
      object QRGroup1: TQRGroup
        Left = 48
        Top = 152
        Width = 720
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        Enabled = False
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          47.625
          1905)
        Expression = 'qryOrders.Terms'
        Master = QRSubDetail1
        ReprintOnNewPage = False
        object QRDBText3: TQRDBText
          Left = 3
          Top = 0
          Width = 36
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            7.9375
            0
            95.25)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery2
          DataField = 'hykbh'
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
      object ColumnHeaderBand1: TQRBand
        Left = 48
        Top = 112
        Width = 720
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ForceNewColumn = False
        ForceNewPage = False
        ParentFont = False
        Size.Values = (
          60.8541666666667
          1905)
        BandType = rbColumnHeader
        object QRLabel1: TQRLabel
          Left = 0
          Top = 0
          Width = 71
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            0
            0
            187.854166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #20250#21592#21345#32534#21495
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel2: TQRLabel
          Left = 128
          Top = 0
          Width = 103
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            338.666666666667
            0
            272.520833333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #20250#21592#20013#25991#22995#21517
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel3: TQRLabel
          Left = 232
          Top = 0
          Width = 103
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            613.833333333333
            0
            272.520833333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #20250#21592#33521#25991#22995#21517
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel4: TQRLabel
          Left = 376
          Top = 0
          Width = 69
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            994.833333333333
            0
            182.5625)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #28040#36153#24635#39069
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel5: TQRLabel
          Left = 480
          Top = 0
          Width = 57
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            1270
            0
            150.8125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #28040#36153#26085#26399
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel6: TQRLabel
          Left = 616
          Top = 0
          Width = 57
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            1629.83333333333
            0
            150.8125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #28040#36153#37329#39069
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
      object QRBand1: TQRBand
        Left = 48
        Top = 188
        Width = 720
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        Enabled = False
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          55.5625
          1905)
        BandType = rbGroupFooter
        object QRExpr1: TQRExpr
          Left = 586
          Top = 0
          Width = 125
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            1550.45833333333
            0
            330.729166666667)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          Master = QRSubDetail1
          ResetAfterPrint = True
          Transparent = False
          WordWrap = True
          Expression = 'SUM(adoquery2.xfjel)'
          Mask = '$,###.00'
          FontSize = 10
        end
      end
      object PageHeaderBand1: TQRBand
        Left = 48
        Top = 48
        Width = 720
        Height = 64
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          169.333333333333
          1905)
        BandType = rbPageHeader
        object QRLabel7: TQRLabel
          Left = 328
          Top = 8
          Width = 106
          Height = 21
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            55.5625
            867.833333333333
            21.1666666666667
            280.458333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #20250#21592#28040#36153#34920
          Color = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -20
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 15
        end
        object QRSysData1: TQRSysData
          Left = 552
          Top = 35
          Width = 119
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            1460.5
            92.6041666666667
            314.854166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          Color = clWhite
          Data = qrsDateTime
          Transparent = False
          FontSize = 10
        end
        object QRShape1: TQRShape
          Left = 0
          Top = 58
          Width = 716
          Height = 2
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            5.29166666666667
            0
            153.458333333333
            1894.41666666667)
          Shape = qrsRectangle
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'SELECT hykwj.kh, hykwj.zwxm, hykwj.ywxm, SUM(fkwj.fkje) AS sumje'
      'FROM hykwj hykwj, fkwj fkwj'
      'WHERE hykwj.kh = fkwj.hykbh and fkwj.rq>=:cs1 and fkwj.rq<=:cs2'
      'GROUP BY hykwj.kh, hykwj.zwxm, hykwj.ywxm'
      'ORDER BY hykwj.kh')
    Left = 200
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'kh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select hykbh,fkje,rq'
      'from fkwj'
      'where hykbh=:kh and rq>=:cs1 and rq<=:cs2'
      'order by rq ')
    Left = 232
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 232
    Top = 40
  end
end