jm_msfhzcx.dfm

省级集邮品管理ERP

inherited frm_MSFHZCX: Tfrm_MSFHZCX
  Left = 205
  Top = 109
  Caption = '集邮品总分户帐查询'
  ClientHeight = 486
  ClientWidth = 724
  OldCreateOrder = True
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel11: TPanel
    Width = 724
    Height = 53
    inherited panel1: TRxLabel
      Width = 722
      Caption = '营业员分户帐查询'
    end
    inherited DWMC: TLabel
      Left = 14
      Top = 30
    end
    object Label1: TLabel
      Left = 600
      Top = 35
      Width = 36
      Height = 12
      Caption = '年份：'
    end
    object SED_Year: TSpinEdit
      Left = 648
      Top = 29
      Width = 57
      Height = 21
      MaxValue = 2050
      MinValue = 1990
      TabOrder = 0
      Value = 1990
      OnChange = SED_YearChange
    end
  end
  inherited Panel3: TPanel
    Top = 451
    Width = 724
    inherited BBt_Quit: TBitBtn
      Left = 638
    end
    inherited BBt_Find: TBitBtn
      Left = 486
    end
    inherited BBt_Print: TBitBtn
      Left = 562
    end
    object bbt_Switch: TBitBtn
      Left = 421
      Top = 5
      Width = 65
      Height = 25
      Caption = '明细'
      TabOrder = 3
      OnClick = bbt_SwitchClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0038CC88C33333
        333C338F3F8F33333F3878C8CCC33338C83C3F838883333383F8CC88C333333C
        8CCC88338F3333383888778CC8333338CC8833F883F3333388338CCC8C333333
        C88C38883833333F8F388C38C83333CCC7C838F383333388838FCC33333333C8
        87C78833FFF3338FFF8F333CCC3333CCC7C83F3888F33F888F83C83C8C38C833
        C87C83F8F8FF83F38FF88CCC8CCC8C38CC8738883888F83388FFCC88888CC83C
        8CCC8833FFF88F383888C88CCC88C338C83C8F38883F8FFF8338C7C888C8CCC3
        333C838F3F8F888F333887C7C8C888C333333F8F838F3F8F3333C7C878C8CCC3
        33338F83FF8388833333087CCC88C33333338338883383333333}
      NumGlyphs = 2
    end
  end
  inherited Pnl_Condition: TPanel
    Top = 53
    Width = 724
    Height = 40
    inherited l1: TLabel
      Left = 521
      Top = 19
    end
    inherited l2: TLabel
      Left = 640
      Top = 19
    end
    object Label4: TLabel [2]
      Left = 605
      Top = 20
      Width = 12
      Height = 12
      Caption = '~~'
    end
    object Label5: TLabel [3]
      Left = 362
      Top = 19
      Width = 48
      Height = 12
      Caption = '营业员：'
    end
    inherited cmb_From: TComboBox
      Left = 581
      TabOrder = 1
    end
    inherited cmb_End: TComboBox
      Left = 658
      TabOrder = 2
    end
    object cBo_GXDW: TComboBox
      Left = 410
      Top = 14
      Width = 105
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cBo_GXDWChange
    end
    object Rgp_ppfl: TRadioGroup
      Left = 1
      Top = 1
      Width = 348
      Height = 38
      Align = alLeft
      Caption = '票品类别'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        '集邮票'
        '集邮品'
        '购入票')
      TabOrder = 3
      OnClick = Rgp_ppflClick
    end
  end
  inherited DBG_Result: TDBGrid
    Top = 93
    Width = 722
    Height = 224
    Align = alNone
    Columns = <
      item
        Expanded = False
        FieldName = 'RQ'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '日期'
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZI'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '字'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CRKDH'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '单号'
        Width = 130
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZY'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '摘要'
        Width = 133
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZJJE'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '增加金额'
        Width = 117
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TJJE'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '减少金额'
        Width = 157
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YE'
        PickList.Strings = ()
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '余额'
        Width = 96
        Visible = True
      end>
  end
  object DBG_Detail: TDBGrid [4]
    Left = 0
    Top = 319
    Width = 722
    Height = 126
    DataSource = Dso_Detail
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'RQ'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '日期'
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZI'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '字'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CRKDH'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '出入库单号'
        Width = 136
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZH'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '票品'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPMC'
        Title.Alignment = taCenter
        Title.Caption = '名称'
        Width = 91
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JJ'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '进价'
        Width = 96
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '销价'
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SL'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '数量'
        Width = 118
        Visible = True
      end>
  end
  object QRe_jypfhz: TQuickRep [5]
    Left = -424
    Top = 328
    Width = 842
    Height = 595
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    DataSet = Qry_Search
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      #39#39)
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poLandscape
    Page.PaperSize = Custom
    Page.Values = (
      100
      2100
      100
      2970
      200
      150
      0)
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.OutputBin = Auto
    PrintIfEmpty = True
    SnapToGrid = True
    Units = MM
    Zoom = 75
    object QRBand2: TQRBand
      Left = 57
      Top = 28
      Width = 743
      Height = 84
      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 = (
        296.333333333333
        2621.13888888889)
      BandType = rbPageHeader
      object QRLabel38: TQRLabel
        Left = 297
        Top = 9
        Width = 117
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          56.4444444444444
          1047.75
          31.75
          412.75)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '集邮票品分户帐'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = '黑体'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object QRShape49: TQRShape
        Left = 0
        Top = 47
        Width = 686
        Height = 38
        Frame.Color = clFuchsia
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.055555555556
          0
          165.805555555556
          2420.05555555556)
        Shape = qrsRectangle
      end
      object QRShape50: TQRShape
        Left = 330
        Top = 48
        Width = 1
        Height = 37
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          130.527777777778
          1164.16666666667
          169.333333333333
          3.52777777777778)
        Shape = qrsVertLine
      end
      object QRShape51: TQRShape
        Left = 0
        Top = 65
        Width = 180
        Height = 2
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          7.05555555555556
          0
          229.305555555556