xmcbfxrep.dfm

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

DFM
1,784 行
字号
1234
          Width = 40
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2283.35416666667
            13.2291666666667
            105.833333333333)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #24635#20154#25968
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText16: TQRDBText
          Left = 908
          Top = 5
          Width = 42
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2402.41666666667
            13.2291666666667
            111.125)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #20154#22343#20132#26131#39069
          Mask = '#.0'
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText17: TQRDBText
          Left = 953
          Top = 5
          Width = 33
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2521.47916666667
            13.2291666666667
            87.3125)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #39033#30446#21024#38500#31508#25968
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText18: TQRDBText
          Left = 989
          Top = 5
          Width = 42
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2616.72916666667
            13.2291666666667
            111.125)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #39033#30446#21024#38500#37329#39069
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText19: TQRDBText
          Left = 1034
          Top = 5
          Width = 30
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2735.79166666667
            13.2291666666667
            79.375)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #20132#26131#21024#38500#31508#25968
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRDBText20: TQRDBText
          Left = 1067
          Top = 5
          Width = 44
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2823.10416666667
            13.2291666666667
            116.416666666667)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADODataSet1
          DataField = #20132#26131#21024#38500#37329#39069
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
      object SummaryBand1: TQRBand
        Left = 4
        Top = 172
        Width = 1115
        Height = 133
        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 = (
          351.895833333333
          2950.10416666667)
        BandType = rbSummary
        object QRLabel19: TQRLabel
          Left = 8
          Top = 14
          Width = 67
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            21.1666666666667
            37.0416666666667
            177.270833333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24635#35745'('#37329#39069')'
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel20: TQRLabel
          Left = 15
          Top = 40
          Width = 190
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            39.6875
            105.833333333333
            502.708333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #35828#26126#65306#26399#21021#32467#23384'='#19978#26399#26411#23454#38469#30424#23384
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel21: TQRLabel
          Left = 54
          Top = 62
          Width = 294
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            142.875
            164.041666666667
            777.875)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #36827#36135#12289#35843#25320#20837#12289#35843#25320#20986'='#30001#20154#24037#27599#26085#26681#25454#25910#36135#21333#24405#20837
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel22: TQRLabel
          Left = 400
          Top = 41
          Width = 322
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            1058.33333333333
            108.479166666667
            851.958333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #23454#38469#29992#37327'='#65288#26399#21021#32467#23384'+'#36827#36135'+'#35843#25320#20837#65289'-'#35843#25320#20986'-'#23454#38469#30424#23384
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel23: TQRLabel
          Left = 400
          Top = 60
          Width = 255
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            1058.33333333333
            158.75
            674.6875)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #23454#38469#30424#23384'='#30001#20154#24037#25353#35268#23450#26102#27573#26681#25454#30424#28857#34920#24405#20837
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel24: TQRLabel
          Left = 54
          Top = 82
          Width = 262
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            142.875
            216.958333333333
            693.208333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #29702#35770#29992#37327'='#31995#32479#20869#22522#30784#29702#35770#25104#26412#25968#25454'*'#38144#21806#25968#37327
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel27: TQRLabel
          Left = 401
          Top = 82
          Width = 145
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            1060.97916666667
            216.958333333333
            383.645833333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24046#24322'='#23454#38469#30424#23384'-'#29702#35770#32467#23384
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel28: TQRLabel
          Left = 54
          Top = 103
          Width = 322
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            142.875
            272.520833333333
            851.958333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #29702#35770#32467#23384'='#65288#26399#21021#32467#23384'+'#36827#36135'+'#35843#25320#20837#65289'-'#35843#25320#20986'-'#29702#35770#29992#37327
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel30: TQRLabel
          Left = 401
          Top = 103
          Width = 132
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            1060.97916666667
            272.520833333333
            349.25)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24223#24323'/'#25253#25439'='#30001#20154#24037#24405#20837
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 384
    Top = 96
  end
  object ADODataSet1: TADODataSet
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    CommandText = 
      'select th,sum(je) as "'#27880#20876#38144#21806'",'#13#10'"'#20928#38144#21806'"        =(Select sum(je) from' +
      ' dcd where th=a.th and  zfbz=0 and fkbz=1),'#13#10#13#10'"'#26089#29677#27880#20876'"    =(Selec' +
      't sum(je) from dcd where th=a.th and bc='#39'1'#39' and zfbz=0),'#13#10'"'#26089#29677#20928#38144#21806 +
      '"=(Select sum(je) from dcd where th=a.th and bc='#39'1'#39' and zfbz=0 a' +
      'nd fkbz=1),'#13#10'"'#26089#29677#20132#26131#25968'"=(Select count(djh) from dcd where th=a.th a' +
      'nd bc='#39'1'#39'),'#13#10'"'#26089#29677#23458#20154#25968'"=(Select count(distinct djh) from dcd where ' +
      'th=a.th and bc='#39'1'#39'),'#13#10#13#10'"'#26202#29677#27880#20876'"    =(Select sum(je) from dcd wher' +
      'e th=a.th and bc='#39'2'#39' and zfbz=0),'#13#10'"'#26202#29677#20928#38144#21806'"=(Select sum(je) from ' +
      'dcd where th=a.th and bc='#39'2'#39' and zfbz=0 and fkbz=1),'#13#10'"'#26202#29677#20132#26131#25968'"=(S' +
      'elect count(djh) from dcd where th=a.th and bc='#39'2'#39'),'#13#10'"'#26202#29677#23458#20154#25968'"=(S' +
      'elect count(distinct djh) from dcd where th=a.th and bc='#39'2'#39'),'#13#10#13 +
      #10'"'#37202#21543#27880#20876'"=0,'#13#10'"'#37202#21543#20928#38144#21806'"=0,'#13#10'"'#37202#21543#20132#26131#25968'"=0,'#13#10'"'#37202#21543#23458#20154#20154#25968'"=0,'#13#10'"'#37202#21543#20154#22343#28040#36153#39069'"=0'#13#10#13#10 +
      'from dcd a'#13#10'where th is not Null and rq between :cs1 and :cs2'#13#10'g' +
      'roup by th'#13#10#13#10#13#10#13#10#13#10' '
    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>
    Left = 344
    Top = 96
  end
end
1234

xmcbfxrep.dfm - 源码说明

本页面展示了「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」中的 xmcbfxrep.dfm 源码文件，采用 DFM 编程语言编写，共 1,784 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?