ss_grpkccsh.dfm

省级集邮品管理ERP

object frm_GRPKCCSH: Tfrm_GRPKCCSH
  Left = 6
  Top = 9
  Width = 786
  Height = 579
  Caption = '购入票库存初始化'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object pnl_Init: TPanel
    Left = 0
    Top = 0
    Width = 778
    Height = 552
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
    TabOrder = 0
    object rxdb_Init: TDBGridEh
      Left = 10
      Top = 89
      Width = 758
      Height = 387
      LineColor = clBlack
      SelectedFontColor = clHighlightText
      Align = alClient
      DataSource = ds_init
      PopupMenu = data.pm_Export
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawColumnCell = rxdb_InitDrawColumnCell
      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 = rxdb_InitGetFooterParams
      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
          Color = cl3DLight
          FieldName = 'ZH'
          ReadOnly = True
          Title.Caption = '志号'
          Width = 60
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'TMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 150
          Footer.ValueType = fvtCount
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'TPMZ'
          ReadOnly = True
          Title.Caption = '面值(元)'
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'TPSJ'
          ReadOnly = True
          Title.Caption = '售价(元)'
          Footers = <>
        end
        item
          Color = clInfoBk
          FieldName = 'JJ'
          Title.Caption = '进价(元)'
          Footers = <>
        end
        item
          Color = clInfoBk
          FieldName = 'XJ'
          Title.Caption = '销价(元)'
          Footers = <>
        end
        item
          Color = clInfoBk
          FieldName = 'TS'
          Title.Caption = '库存数量(套)'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          Color = clInfoBk
          FieldName = 'ZK'
          Title.Caption = '折扣(%)'
          Footers = <>
        end
        item
          Color = clInfoBk
          FieldName = 'JSJ'
          Title.Caption = '结算价(元)'
          Footers = <>
        end
        item
          FieldName = 'KWH'
          Title.Caption = '库位'
          Width = 80
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'JJJE'
          ReadOnly = True
          Title.Caption = '进价金额(元)'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'XJJE'
          ReadOnly = True
          Title.Caption = '销价金额(元)'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          Color = cl3DLight
          FieldName = 'MZJE'
          ReadOnly = True
          Title.Caption = '面值金额'
          Footer.ValueType = fvtSum
          Footers = <>
        end>
    end
    object Panel2: TPanel
      Left = 10
      Top = 55
      Width = 758
      Height = 34
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 1
      object Label2: TLabel
        Left = 220
        Top = 11
        Width = 24
        Height = 12
        Caption = '库房'
      end
      object Label3: TLabel
        Left = 26
        Top = 11
        Width = 72
        Height = 12
        Caption = '按志号定位：'
      end
      object edt_Locate: TEdit
        Left = 103
        Top = 7
        Width = 89
        Height = 20
        ImeName = '微软拼音输入法 3.0'
        MaxLength = 10
        TabOrder = 0
        OnKeyPress = edt_LocateKeyPress
      end
      object fcb_KF: TFieldComboBox
        Left = 253
        Top = 7
        Width = 129
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 1
        OnChange = fcb_KFChange
      end
    end
    object pnl_Title: TPanel
      Left = 10
      Top = 10
      Width = 758
      Height = 45
      Align = alTop
      BevelOuter = bvNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object RxLbl_Title: TRxLabel
        Left = 0
        Top = 0
        Width = 758
        Height = 24
        Align = alTop
        Alignment = taCenter
        Caption = '购入票库存初始化'
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -24
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object DWMC: TLabel
        Left = 20
        Top = 28
        Width = 60
        Height = 12
        Caption = '使用单位：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
    end
    object pnl_Bottom: TPanel
      Left = 10
      Top = 476
      Width = 758
      Height = 41
      Align = alBottom
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 2
      object bbtn_Cancel: TBitBtn
        Left = 555
        Top = 8
        Width = 75
        Height = 25
        Cancel = True
        Caption = '取消(&C)'
        TabOrder = 6
        OnClick = bbtn_CancelClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object bbtn_Save: TBitBtn
        Left = 480
        Top = 8
        Width = 75
        Height = 25
        Caption = '保存(&S)'
        TabOrder = 5
        OnClick = bbtn_SaveClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
          00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
          00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
          00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
          0003737FFFFFFFFF7F7330099999999900333777777777777733}
        NumGlyphs = 2
      end
      object bbtn_Edit: TBitBtn
        Left = 110
        Top = 8
        Width = 75
        Height = 25
        Caption = '修改(&M)'
        TabOrder = 1
        OnClick = bbtn_EditClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B