ygsxbrep.dfm

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

            37.0416666666667
            1764.77083333333
            13.2291666666667
            119.0625)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #20108#27425#19979#29677
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 8
        end
        object QRDBText11: TQRDBText
          Left = 746
          Top = 5
          Width = 45
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            1973.79166666667
            13.2291666666667
            119.0625)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #20108#27425#26102#38271
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 8
        end
        object QRDBText12: TQRDBText
          Left = 822
          Top = 5
          Width = 45
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2174.875
            13.2291666666667
            119.0625)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #19977#27425#19978#29677
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 8
        end
        object QRDBText13: TQRDBText
          Left = 912
          Top = 5
          Width = 45
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2413
            13.2291666666667
            119.0625)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #19977#27425#19979#29677
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 8
        end
        object QRDBText14: TQRDBText
          Left = 976
          Top = 5
          Width = 50
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            2582.33333333333
            13.2291666666667
            132.291666666667)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #19977#27425#26102#38271
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 8
        end
        object QRDBText20: TQRDBText
          Left = 1059
          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
            2801.9375
            13.2291666666667
            116.416666666667)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Color = clWhite
          DataSet = ADOQuery1
          DataField = #24635#26102#38271
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRSysData2: TQRSysData
          Left = 0
          Top = 0
          Width = 43
          Height = 14
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            37.0416666666667
            0
            0
            113.770833333333)
          Alignment = taCenter
          AlignToBand = False
          AutoSize = False
          Color = clWhite
          Data = qrsDetailNo
          Transparent = False
          FontSize = 10
        end
      end
      object SummaryBand1: TQRBand
        Left = 4
        Top = 160
        Width = 1115
        Height = 23
        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 = (
          60.8541666666667
          2950.10416666667)
        BandType = rbSummary
        object QRLabel35: TQRLabel
          Left = 19
          Top = 5
          Width = 34
          Height = 16
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            42.3333333333333
            50.2708333333333
            13.2291666666667
            89.9583333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24635#35745
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
        object QRExpr19: TQRExpr
          Left = 992
          Top = 4
          Width = 118
          Height = 15
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            39.6875
            2624.66666666667
            10.5833333333333
            312.208333333333)
          Alignment = taRightJustify
          AlignToBand = False
          AutoSize = False
          AutoStretch = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Color = clWhite
          ParentFont = False
          ResetAfterPrint = False
          Transparent = False
          WordWrap = True
          Expression = 'SUM(ADOQuery1.'#24635#26102#38271')'
          FontSize = 9
        end
        object QRShape3: TQRShape
          Left = 0
          Top = 1
          Width = 1112
          Height = 2
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            5.29166666666667
            0
            2.64583333333333
            2942.16666666667)
          Shape = qrsRectangle
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 384
    Top = 96
  end
  object ADOQuery1: TADODataSet
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    CommandText = 
      'select a.ygbh as '#21592#24037#32534#21495',b.ygxm as '#22995#21517', a.sbsj1 as '#39318#27425#19978#29677', a.xbsj1 as ' +
      #39318#27425#19979#29677',a.sbsj2 as '#20108#27425#19978#29677', a.xbsj2 as '#20108#27425#19979#29677', a.sbsj3 as '#19977#27425#19978#29677', a.xbsj3 ' +
      'as '#19977#27425#19979#29677' '#13#10'from ygqdjl a, ygda b'#13#10'where a.ygbh=b.ygbh and a.rq=:c' +
      's1'#13#10'order by a.ygbh'
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    Left = 312
    Top = 96
    object ADOQuery1DSDesigner: TStringField
      FieldName = #21592#24037#32534#21495
    end
    object ADOQuery1DSDesigner2: TStringField
      FieldName = #22995#21517
    end
    object ADOQuery1DSDesigner3: TDateTimeField
      FieldName = #39318#27425#19978#29677
    end
    object ADOQuery1DSDesigner4: TDateTimeField
      FieldName = #39318#27425#19979#29677
    end
    object ADOQuery1Field: TTimeField
      FieldKind = fkCalculated
      FieldName = #39318#27425#26102#38271
      Calculated = True
    end
    object ADOQuery1DSDesigner5: TDateTimeField
      FieldName = #20108#27425#19978#29677
    end
    object ADOQuery1DSDesigner6: TDateTimeField
      FieldName = #20108#27425#19979#29677
    end
    object ADOQuery1Field2: TTimeField
      FieldKind = fkCalculated
      FieldName = #20108#27425#26102#38271
      Calculated = True
    end
    object ADOQuery1DSDesigner7: TDateTimeField
      FieldName = #19977#27425#19978#29677
    end
    object ADOQuery1DSDesigner8: TDateTimeField
      FieldName = #19977#27425#19979#29677
    end
    object ADOQuery1Field3: TTimeField
      FieldKind = fkCalculated
      FieldName = #19977#27425#26102#38271
      Calculated = True
    end
    object ADOQuery1Field4: TTimeField
      FieldKind = fkCalculated
      FieldName = #24635#26102#38271
      Calculated = True
    end
  end
end