dfm_reprint.dfm

仓库管理系统 仓库管理系统

object dfmreprint: Tdfmreprint
  Left = 254
  Top = 214
  Width = 346
  Height = 248
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #23567#31080#37325#21360
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 202
    Width = 338
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 173
    Width = 338
    Height = 29
    Align = alBottom
    TabOrder = 1
    object Bevel1: TBevel
      Left = 9
      Top = 2
      Width = 50
      Height = 24
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 16
      Top = 9
      Width = 36
      Height = 12
      Caption = #21333#25454#21495
    end
    object Edit1: TEdit
      Left = 69
      Top = 5
      Width = 123
      Height = 20
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 240
      Top = 1
      Width = 78
      Height = 27
      Caption = #25171#21360
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 338
    Height = 173
    Align = alClient
    DataSource = DataSource1
    FooterColor = clYellow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    ReadOnly = True
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = #65509
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
    CurrencyStyle.HeadFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'jyh'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#25454#21495
        Width = 107
      end
      item
        EditButtons = <>
        FieldName = 'esl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'esjje'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 100
      end>
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t_saledet.jyh,sum(t_saledet.sl) as esl, sum(t_saledet.sjj' +
        'e) as esjje FROM t_saledet'
      'group by t_saledet.jyh')
    Left = 72
    Top = 56
    object ADOQuery1jyh: TWideStringField
      FieldName = 'jyh'
      Size = 15
    end
    object ADOQuery1esl: TFloatField
      FieldName = 'esl'
    end
    object ADOQuery1esjje: TFloatField
      FieldName = 'esjje'
      currency = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSource1DataChange
    Left = 40
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 160
    Top = 56
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vjyh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT t_saledet.bmh, t_saledet.rq, t_saledet.sj, t_saledet.jyh,' +
        ' t_saledet.yyyh, t_saledet.skyh, t_saledet.spbh, t_saledet.sl, t' +
        '_saledet.lsj, t_saledet.sjje, t_saledet.zke, t_saledet.clabel, t' +
        '_ware.clabel, t_ware.flh, t_spec.cname'
      
        'FROM t_saledet INNER JOIN (t_spec INNER JOIN t_ware ON (t_spec.c' +
        'style = t_ware.flh) AND (t_spec.clabel = t_ware.clabel)) ON (t_s' +
        'aledet.clabel = t_ware.clabel) AND (t_saledet.spbh = t_ware.spbh' +
        ')'
      
        'GROUP BY t_saledet.bmh, t_saledet.rq, t_saledet.sj, t_saledet.jy' +
        'h, t_saledet.yyyh, t_saledet.skyh, t_saledet.spbh, t_saledet.sl,' +
        ' t_saledet.lsj, t_saledet.sjje, t_saledet.zke, t_saledet.clabel,' +
        ' t_ware.clabel, t_ware.flh, t_spec.cname'
      'HAVING t_saledet.jyh=:vjyh')
    Left = 192
    Top = 56
  end
  object rpDBPipeline1: TppDBPipeline
    DataSource = DataSource2
    UserName = 'rpDBPipeline1'
    Left = 168
    Top = 96
    object rpDBPipeline1ppField1: TppField
      FieldAlias = 'bmh'
      FieldName = 'bmh'
      FieldLength = 6
      DisplayWidth = 6
      Position = 0
    end
    object rpDBPipeline1ppField2: TppField
      FieldAlias = 'rq'
      FieldName = 'rq'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 1
    end
    object rpDBPipeline1ppField3: TppField
      FieldAlias = 'sj'
      FieldName = 'sj'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 2
    end
    object rpDBPipeline1ppField4: TppField
      FieldAlias = 'jyh'
      FieldName = 'jyh'
      FieldLength = 15
      DisplayWidth = 15
      Position = 3
    end
    object rpDBPipeline1ppField5: TppField
      FieldAlias = 'yyyh'
      FieldName = 'yyyh'
      FieldLength = 8
      DisplayWidth = 8
      Position = 4
    end
    object rpDBPipeline1ppField6: TppField
      FieldAlias = 'skyh'
      FieldName = 'skyh'
      FieldLength = 8
      DisplayWidth = 8
      Position = 5
    end
    object rpDBPipeline1ppField7: TppField
      FieldAlias = 'spbh'
      FieldName = 'spbh'
      FieldLength = 23
      DisplayWidth = 23
      Position = 6
    end
    object rpDBPipeline1ppField8: TppField
      Alignment = taRightJustify
      FieldAlias = 'sl'
      FieldName = 'sl'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 7
    end
    object rpDBPipeline1ppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'lsj'
      FieldName = 'lsj'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 8
    end
    object rpDBPipeline1ppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'sjje'
      FieldName = 'sjje'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 9
    end
    object rpDBPipeline1ppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'zke'
      FieldName = 'zke'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 10
    end
    object rpDBPipeline1ppField12: TppField
      FieldAlias = 't_saledet.clabel'
      FieldName = 't_saledet.clabel'
      FieldLength = 16
      DisplayWidth = 16
      Position = 11
    end
    object rpDBPipeline1ppField13: TppField
      FieldAlias = 't_ware.clabel'
      FieldName = 't_ware.clabel'
      FieldLength = 16
      DisplayWidth = 16
      Position = 12
    end
    object rpDBPipeline1ppField14: TppField
      FieldAlias = 'flh'
      FieldName = 'flh'
      FieldLength = 8
      DisplayWidth = 8
      Position = 13
    end
    object rpDBPipeline1ppField15: TppField
      FieldAlias = 'cname'
      FieldName = 'cname'
      FieldLength = 20
      DisplayWidth = 20
      Position = 14
    end
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = rpDBPipeline1
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Custom'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 102000
    PrinterSetup.mmPaperWidth = 120000
    PrinterSetup.PaperSize = 256
    Units = utMillimeters
    DeviceType = 'Screen'
    Left = 208
    Top = 96
    Version = '6.02'
    mmColumnWidth = 0
    DataPipelineName = 'rpDBPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 32808
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #21830#21697
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 4233
        mmTop = 27781
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #25968#37327
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 45244
        mmTop = 27781
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        Caption = #21333#20215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 55827
        mmTop = 27781
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = #25240#25187
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 66675
        mmTop = 27781
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = #23454#25910#39069
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 77258
        mmTop = 27781
        mmWidth = 10583
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = #21333#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 4233
        mmTop = 22490
        mmWidth = 8996
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'