ufrm_sales_report.dfm

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 721 行 · 第 1/2 页

        Transparent = True
        mmHeight = 4233
        mmLeft = 24077
        mmTop = 3175
        mmWidth = 32544
        BandType = 0
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        VarType = vtDocumentName
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 171450
        mmTop = 3440
        mmWidth = 23813
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #23458#25143#32534#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 51594
        mmTop = 12700
        mmWidth = 19050
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = #21333#20215'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 135467
        mmTop = 12435
        mmWidth = 11113
        BandType = 0
      end
    end
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 14552
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        DataField = 'SHIPNO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 3969
        mmLeft = 3704
        mmTop = 2117
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        DataField = 'SHIPDATE'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 3969
        mmLeft = 28575
        mmTop = 2646
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        DataField = 'CUSTNO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 50006
        mmTop = 2646
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        DataField = 'GOODSNO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 76729
        mmTop = 2381
        mmWidth = 24871
        BandType = 4
      end
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        DataField = 'SHIPQTY'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 102659
        mmTop = 2381
        mmWidth = 14817
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText6'
        DataField = 'UNIT'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 120121
        mmTop = 2381
        mmWidth = 14817
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText7'
        DataField = 'PRICE'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 135996
        mmTop = 2117
        mmWidth = 14817
        BandType = 4
      end
      object ppDBCalc1: TppDBCalc
        UserName = 'DBCalc1'
        DataField = 'AMOUNT'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppBDEPipeline1'
        mmHeight = 4233
        mmLeft = 152136
        mmTop = 2381
        mmWidth = 24871
        BandType = 4
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 13229
      mmPrintPosition = 0
      object ppLine3: TppLine
        UserName = 'Line3'
        Weight = 0.75
        mmHeight = 1588
        mmLeft = 0
        mmTop = 265
        mmWidth = 202671
        BandType = 8
      end
      object ppSystemVariable3: TppSystemVariable
        UserName = 'SystemVariable3'
        VarType = vtPageNoDesc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 164307
        mmTop = 2381
        mmWidth = 18785
        BandType = 8
      end
    end
    object raCodeModule1: TraCodeModule
      ProgramStream = {00}
    end
  end
  object ppBDEPipeline1: TppBDEPipeline
    DataSource = ds_rep
    UserName = 'BDEPipeline1'
    Left = 195
    Top = 152
  end
  object qy_rep: TQuery
    OnCalcFields = qy_repCalcFields
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_SHIPHEAD A ,T_SHIPLIST B '
      'WHERE A.SHIPNO = B.SHIPNO ')
    Left = 131
    Top = 152
    object qy_repSHIPNO: TStringField
      FieldName = 'SHIPNO'
      Origin = 'JXC_CSD.T_SHIPHEAD.SHIPNO'
      Size = 10
    end
    object qy_repSHIPDATE: TDateTimeField
      FieldName = 'SHIPDATE'
      Origin = 'JXC_CSD.T_SHIPHEAD.SHIPDATE'
    end
    object qy_repSALESMAN: TStringField
      FieldName = 'SALESMAN'
      Origin = 'JXC_CSD.T_SHIPHEAD.SALESMAN'
      Size = 8
    end
    object qy_repCUSTNO: TStringField
      FieldName = 'CUSTNO'
      Origin = 'JXC_CSD.T_SHIPHEAD.CUSTNO'
      Size = 10
    end
    object qy_repACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_SHIPHEAD.ACTI'
      Size = 1
    end
    object qy_repOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_SHIPHEAD.OWUS'
      Size = 10
    end
    object qy_repGRUP: TStringField
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_SHIPHEAD.GRUP'
      Size = 10
    end
    object qy_repCRET: TDateTimeField
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_SHIPHEAD.CRET'
    end
    object qy_repMODU: TStringField
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODU'
      Size = 10
    end
    object qy_repMODT: TDateTimeField
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repSHIPNO_1: TStringField
      FieldName = 'SHIPNO_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 10
    end
    object qy_repSHIPITEM: TIntegerField
      FieldName = 'SHIPITEM'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repGOODSNO: TStringField
      FieldName = 'GOODSNO'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repSHIPQTY: TFloatField
      FieldName = 'SHIPQTY'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repUNIT: TStringField
      FieldName = 'UNIT'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 8
    end
    object qy_repPRICE: TFloatField
      FieldName = 'PRICE'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repCURRENCY: TStringField
      FieldName = 'CURRENCY'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 8
    end
    object qy_repACTI_1: TStringField
      FieldName = 'ACTI_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 1
    end
    object qy_repOWUS_1: TStringField
      FieldName = 'OWUS_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 10
    end
    object qy_repGRUP_1: TStringField
      FieldName = 'GRUP_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 10
    end
    object qy_repCRET_1: TDateTimeField
      FieldName = 'CRET_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repMODU_1: TStringField
      FieldName = 'MODU_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
      Size = 10
    end
    object qy_repMODT_1: TDateTimeField
      FieldName = 'MODT_1'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repD_SN: TFloatField
      FieldName = 'D_SN'
      Origin = 'JXC_CSD.T_SHIPHEAD.MODT'
    end
    object qy_repAMOUNT: TFloatField
      FieldKind = fkCalculated
      FieldName = 'AMOUNT'
      Calculated = True
    end
  end
  object ds_rep: TDataSource
    DataSet = qy_rep
    Left = 163
    Top = 152
  end
  object Query1: TQuery
    Left = 104
    Top = 152
  end
end