sy_ndjhqlbzd.dfm

省级集邮品管理ERP

              FieldName = 'LSTS'
              Title.Caption = '零售数量'
              Width = 97
              Footer.ValueType = fvtSum
              Footers = <>
            end>
        end
        object DBGrid_ydlx: TDBGrid
          Left = 0
          Top = 0
          Width = 237
          Height = 359
          Align = alLeft
          Color = cl3DLight
          DataSource = DS_ydlx
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          PopupMenu = data.pm_Export
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnCellClick = DBGrid_ydlxCellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'YDLXDM'
              ReadOnly = True
              Title.Caption = '发行量类型代码'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YDLXMC'
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = '发行量类型名称'
              Width = 112
              Visible = True
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '年册用票补录'
      ImageIndex = 11
      object DBGE_nc: TDBGridEh
        Left = 0
        Top = 0
        Width = 684
        Height = 359
        LineColor = clBlack
        SelectedFontColor = clHighlightText
        Align = alClient
        Color = clMenu
        DataSource = DS_nc
        PopupMenu = data.pm_Export
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDrawColumnCell = DBGE_ydDrawColumnCell
        FooterRowCount = 1
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = '宋体'
        FooterFont.Style = []
        FooterColor = cl3DLight
        SumList.Active = True
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghHighlightFocus, dghClearSelection]
        OnGetFooterParams = DBGE_ydGetFooterParams
        CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.CurrencyFont.Color = clWindowText
        CurrencyStyle.CurrencyFont.Height = -11
        CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
        CurrencyStyle.CurrencyFont.Style = []
        CurrencyStyle.CurrencySymbol = '￥'
        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 = '楷体_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Columns = <
          item
            FieldName = 'ND'
            Visible = False
            Footers = <>
          end
          item
            FieldName = 'dwmc'
            Title.Caption = '单位名称'
            Width = 200
            Footer.ValueType = fvtCount
            Footers = <>
          end
          item
            FieldName = 'DWDM'
            Visible = False
            Footers = <>
          end
          item
            Color = clInfoBk
            FieldName = 'NCTS'
            Title.Caption = '年册数量'
            Width = 100
            Footer.ValueType = fvtSum
            Footers = <>
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '开发用票补录'
      ImageIndex = 19
      OnEnter = TabSheet2Enter
      object DBGE_xq: TDBGridEh
        Left = 0
        Top = 41
        Width = 684
        Height = 318
        LineColor = clBlack
        SelectedFontColor = clHighlightText
        Align = alClient
        Color = clMenu
        DataSource = DS_xq
        PopupMenu = data.pm_Export
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDrawColumnCell = DBGE_ydDrawColumnCell
        FooterRowCount = 1
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = '宋体'
        FooterFont.Style = []
        FooterColor = cl3DLight
        SumList.Active = True
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghHighlightFocus, dghClearSelection]
        OnGetFooterParams = DBGE_ydGetFooterParams
        CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.CurrencyFont.Color = clWindowText
        CurrencyStyle.CurrencyFont.Height = -11
        CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
        CurrencyStyle.CurrencyFont.Style = []
        CurrencyStyle.CurrencySymbol = '￥'
        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 = '楷体_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Columns = <
          item
            FieldName = 'JHH'
            Visible = False
            Footers = <>
          end
          item
            FieldName = 'SQDWDM'
            Visible = False
            Footers = <>
          end
          item
            FieldName = 'ND'
            Visible = False
            Footers = <>
          end
          item
            FieldName = 'ZT'
            Visible = False
            Footers = <>
          end
          item
            FieldName = 'TMC'
            Title.Caption = '邮票名称'
            Width = 130
            Footer.ValueType = fvtCount
            Footers = <>
          end
          item
            FieldName = 'XQZTS'
            Title.Caption = '总需求'
            Width = 55
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            FieldName = 'YDTS'
            Title.Caption = '预订'
            Width = 50
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            FieldName = 'LSTS'
            Title.Caption = '零售'
            Width = 50
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            Color = clInfoBk
            FieldName = 'NCTS'
            Title.Caption = '年册用票'
            Width = 60
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            Color = clInfoBk
            FieldName = 'KFYPTS'
            Title.Caption = '开发用票'
            Width = 60
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            Color = clWhite
            FieldName = 'PZR'
            Title.Caption = '批准人'
            Width = 50
            Footers = <>
          end
          item
            Color = clWhite
            FieldName = 'BZ'
            Title.Caption = '备注'
            Width = 70
            Footers = <>
          end
          item
            FieldName = 'ZBR'
            Title.Caption = '制表人'
            Width = 50
            Footers = <>
          end
          item
            FieldName = 'ZDRQ'
            Title.Caption = '制表日期'
            Width = 60
            Footers = <>
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 684
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label3: TLabel
          Left = 12
          Top = 12
          Width = 48
          Height = 12
          Caption = '单位名称'
        end
        object Label4: TLabel
          Left = 620
          Top = 24
          Width = 48
          Height = 12
          Caption = '单位：套'
        end
        object DBLCBo_dw: TDBLookupComboBox
          Left = 64
          Top = 8
          Width = 213
          Height = 20
          KeyField = 'DWDM'
          ListField = 'DWMC'
          ListSource = DS_dw
          TabOrder = 0
        end