ckjh_jjw_addpp.dfm

省级集邮品管理ERP

object Frm_CKJH_JJW_AddPP: TFrm_CKJH_JJW_AddPP
  Left = 59
  Top = 99
  BorderStyle = bsSingle
  Caption = '计划外需求添加票品'
  ClientHeight = 438
  ClientWidth = 651
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object bbtn_prv: TBitBtn
    Left = 70
    Top = 393
    Width = 75
    Height = 25
    Caption = '上一步'
    TabOrder = 0
    OnClick = bbtn_prvClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF3333333333333844333333333333F883333333333338
      44483333333333F888F3333333333844444333333333F8833833333333384444
      4433333333F88333833333333844444448333333F8833338F333333844444444
      433333F88333333833333844444444443333388FFFFFFF8FFFFF999999999999
      9999833888888888888333CCCCCCCCCC33333883FF333383F3333333CCCCCCCC
      C333333883FF3338F333333333CCCCCCC33333333883FF383F3333333333CCCC
      CC333333333883FF83F33333333333CCCCC3333333333883F8F3333333333333
      CCC333333333333888FF33333333333333CC3333333333333883}
    NumGlyphs = 2
  end
  object bbtn_Next: TBitBtn
    Left = 215
    Top = 393
    Width = 75
    Height = 25
    Caption = '下一步'
    TabOrder = 1
    OnClick = bbtn_NextClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FF3333333333333448333333333333388FFF33333333333844483333333
      333338883FF3333333333444448333333333383F883FF3333333334444448333
      33333383F3883FF3333333844444448333333338F333883FF333333444444444
      833333383F3333883FF333334444444444833FFF8FFFFFFF88FF999999999999
      999988888888888833883333CCCCCCCCCC3333338333333F8833333CCCCCCCCC
      33333338F3333F883333333CCCCCCC3333333338333F8833333333CCCCCC3333
      333333833F88333333333CCCCC333333333338FF8833333333333CCC33333333
      33333888333333333333CC333333333333338833333333333333}
    NumGlyphs = 2
  end
  object bbtn_finish: TBitBtn
    Left = 361
    Top = 393
    Width = 75
    Height = 25
    Caption = '完成'
    TabOrder = 2
    OnClick = bbtn_finishClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 633
    Height = 377
    Caption = 'Panel1'
    TabOrder = 3
    object pgc_PP: TPageControl
      Left = 1
      Top = 1
      Width = 631
      Height = 375
      ActivePage = TabSheet2
      Align = alClient
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = '选择单位'
        TabVisible = False
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 623
          Height = 365
          Align = alClient
          Caption = '选择单位'
          TabOrder = 0
          object Label1: TLabel
            Left = 8
            Top = 21
            Width = 48
            Height = 12
            Caption = '出库性质'
          end
          object DBGrid1: TDBGrid
            Left = 2
            Top = 46
            Width = 629
            Height = 307
            DataSource = ds_dW
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = '宋体'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'DWDM'
                Title.Alignment = taCenter
                Title.Caption = '单位代码'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DWJC'
                Title.Alignment = taCenter
                Title.Caption = '单位简称'
                Width = 122
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DH'
                Title.Alignment = taCenter
                Title.Caption = '电话'
                Width = 165
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EMAIL'
                Title.Alignment = taCenter
                Width = 139
                Visible = True
              end>
          end
          object fcb_CKXZ: TFieldComboBox
            Left = 72
            Top = 16
            Width = 164
            Height = 20
            Style = csDropDownList
            ItemHeight = 12
            TabOrder = 1
            OnChange = fcb_CKXZChange
            Items.Strings = (
              '分配出库'
              '注销出库'
              '退缴出库')
            FieldItems.Strings = (
              '10'
              '12'
              '14')
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = '选择票品'
        ImageIndex = 1
        TabVisible = False
        object rg_CKXZ: TRadioGroup
          Left = 2
          Top = 5
          Width = 226
          Height = 36
          Caption = '分配依据'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '计划外需求'
            '无依据')
          TabOrder = 0
          OnClick = rg_CKXZClick
        end
        object pgc_ADDPP: TPageControl
          Left = 0
          Top = 49
          Width = 623
          Height = 316
          ActivePage = TabSheet4
          Align = alBottom
          Style = tsFlatButtons
          TabOrder = 1
          object TabSheet3: TTabSheet
            Caption = 'TabSheet3'
            TabVisible = False
            object dbg_DWFP: TDBGrid
              Left = 224
              Top = 0
              Width = 391
              Height = 306
              Align = alClient
              DataSource = qry_PP_Y
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = '宋体'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'PPMC'
                  Title.Alignment = taCenter
                  Title.Caption = '票品名称'
                  Width = 162
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'XQZTS'
                  Title.Alignment = taCenter
                  Title.Caption = '需求数量'
                  Width = 108
                  Visible = True
                end>
            end
            object dbg_CKXZ: TDBGrid
              Left = 0
              Top = 0
              Width = 224
              Height = 306
              Align = alLeft
              DataSource = ds_DH
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 1
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12