pm_pmparam.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_PmParam: TFrm_Pm_PmParam
  Left = 130
  Top = 88
  BOrderIcons = [biSystemMenu]
  Caption = '系统级参数设置'
  ClientHeight = 442
  ClientWidth = 612
  FormStyle = fsMDIChild
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited btn_ok: TButton
    Left = 387
    Top = 392
  end
  inherited btn_Cancel: TButton
    Left = 488
    Top = 392
    OnClick = btn_CancelClick
  end
  object PageControl1: TPageControl [2]
    Left = 14
    Top = 24
    Width = 571
    Height = 361
    ActivePage = TbSht_InfoSet
    TabOrder = 2
    object TbSht_InfoSet: TTabSheet
      Caption = '信息设置(&I)'
      object Label1: TLabel
        Left = 55
        Top = 40
        Width = 48
        Height = 12
        Caption = '采购员按'
      end
      object Label2: TLabel
        Left = 49
        Top = 78
        Width = 132
        Height = 12
        Caption = '采购合同是否需要审批：'
      end
      object Label3: TLabel
        Left = 49
        Top = 111
        Width = 132
        Height = 12
        Caption = '提前到货几天禁止收料：'
      end
      object Label4: TLabel
        Left = 317
        Top = 111
        Width = 132
        Height = 12
        Caption = '滞后到货几天禁止收料：'
      end
      object Label5: TLabel
        Left = 13
        Top = 144
        Width = 168
        Height = 12
        Caption = '超订单数量百分之几禁止收料：'
      end
      object Label6: TLabel
        Left = 13
        Top = 277
        Width = 168
        Height = 12
        Caption = '提前几天到货认为是按时到货：'
        Visible = False
      end
      object Label7: TLabel
        Left = 281
        Top = 277
        Width = 168
        Height = 12
        Caption = '滞后到货几天认为是按时到货：'
        Visible = False
      end
      object Label8: TLabel
        Left = 317
        Top = 78
        Width = 132
        Height = 12
        Caption = '采购订单是否需要审批：'
      end
      object Label9: TLabel
        Left = 25
        Top = 178
        Width = 156
        Height = 12
        Caption = '订单行完成后是否自动关闭：'
      end
      object Label10: TLabel
        Left = 195
        Top = 40
        Width = 48
        Height = 12
        Caption = '进行分工'
      end
      object Label11: TLabel
        Left = 281
        Top = 178
        Width = 168
        Height = 12
        Caption = '采购建议显示提前天数(1-99)：'
      end
      object Label12: TLabel
        Left = 305
        Top = 145
        Width = 144
        Height = 12
        Caption = '采购订单要打印审核人否：'
      end
      object Label13: TLabel
        Left = 25
        Top = 211
        Width = 156
        Height = 12
        Caption = '采购订单是否打印采购条款：'
      end
      object Label14: TLabel
        Left = 293
        Top = 211
        Width = 156
        Height = 12
        Caption = '采购订单打印采购条款代码：'
      end
      object Label15: TLabel
        Left = 49
        Top = 244
        Width = 132
        Height = 12
        Caption = '采购价格是否需要批准：'
      end
      object Label16: TLabel
        Left = 257
        Top = 244
        Width = 192
        Height = 12
        Caption = '输入采购价格要有样品确认单号否：'
      end
      object Label17: TLabel
        Left = 72
        Top = 308
        Width = 108
        Height = 12
        Caption = '采购订单签名标签：'
      end
      object Edt_ForwArdDaysDeny: TEdit
        Left = 183
        Top = 104
        Width = 62
        Height = 20
        TabOrder = 3
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Edt_BackwArdDaysDeny: TEdit
        Left = 452
        Top = 104
        Width = 62
        Height = 20
        TabOrder = 4
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Edt_OverQtydeny_Percent: TEdit
        Left = 183
        Top = 137
        Width = 62
        Height = 20
        TabOrder = 5
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_OverQtydeny_PercentExit
      end
      object Edt_ForWArdDaysOk: TEdit
        Left = 183
        Top = 270
        Width = 62
        Height = 20
        TabOrder = 13
        Visible = False
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Edt_BackwArdDaysOK: TEdit
        Left = 452
        Top = 270
        Width = 62
        Height = 20
        TabOrder = 14
        Visible = False
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Cmbx_PcNeedAudit: TComboBox
        Left = 183
        Top = 71
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 1
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '不需要'
          '需要')
      end
      object Cmbx_PoNeedAudit: TComboBox
        Left = 452
        Top = 71
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 2
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '不需要'
          '需要')
      end
      object cmbx_autoClosePo: TComboBox
        Left = 183
        Top = 171
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 7
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '否'
          '是')
      end
      object Cmbx_BuyerCtrlType: TComboBox
        Left = 111
        Top = 33
        Width = 77
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '供应商'
          '物料')
      end
      object Edt_SSDay: TEdit
        Left = 452
        Top = 171
        Width = 41
        Height = 20
        TabOrder = 8
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_SSDayExit
      end
      object cmb_Printassess: TComboBox
        Left = 452
        Top = 138
        Width = 63
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 6
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '0 否'
          '1 是')
      end
      object cmb_Printterm: TComboBox
        Left = 183
        Top = 204
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 9
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '否'
          '是')
      end
      object edt_PoTermCode: TEdit
        Left = 452
        Top = 204
        Width = 62
        Height = 20
        TabOrder = 10
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Cmb_IsPriceRequestPass: TComboBox
        Left = 183
        Top = 237
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 11
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '不需要'
          '需要')
      end
      object Cmb_PoPriceRequestIsPo: TComboBox
        Left = 452
        Top = 237
        Width = 62
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 12
        OnChange = Edt_BuyerCtrlTypeChange
        Items.Strings = (
          '不需要'
          '需要')
      end
      object Edt_PchOrderSignIn: TEdit
        Left = 183
        Top = 301
        Width = 218
        Height = 20
        TabOrder = 15
        OnChange = Edt_BuyerCtrlTypeChange
      end
    end
    object TbSht_ClassInfo2: TTabSheet
      Caption = '订单打印(&P)'
      ImageIndex = 2
      object Label30: TLabel
        Left = 36
        Top = 44
        Width = 90
        Height = 12
        Caption = '订单打印项目1：'
      end
      object Label31: TLabel
        Left = 299
        Top = 46
        Width = 90
        Height = 12
        Caption = '订单打印项目2：'
      end
      object Label32: TLabel
        Left = 35
        Top = 79
        Width = 90
        Height = 12
        Caption = '订单打印项目3：'
      end
      object Label33: TLabel
        Left = 299
        Top = 81
        Width = 90
        Height = 12
        Caption = '订单打印项目4：'
      end
      object Label34: TLabel
        Left = 35
        Top = 114
        Width = 90
        Height = 12
        Caption = '订单打印项目5：'
      end
      object Label35: TLabel
        Left = 35
        Top = 148
        Width = 90
        Height = 12
        Caption = '订单打印项目7：'
      end
      object Label36: TLabel
        Left = 299
        Top = 150
        Width = 90
        Height = 12
        Caption = '订单打印项目8：'
      end
      object Label37: TLabel
        Left = 35
        Top = 183
        Width = 90
        Height = 12
        Caption = '订单打印项目9：'
      end
      object Label39: TLabel
        Left = 299
        Top = 116
        Width = 90
        Height = 12
        Caption = '订单打印项目6：'
      end
      object Label41: TLabel
        Left = 329
        Top = 187
        Width = 60
        Height = 12
        Caption = '订单行数：'
      end
      object Label42: TLabel
        Left = 41
        Top = 219
        Width = 84
        Height = 12
        Caption = '订单分页方式：'
      end
      object Edt_PoInfo1: TEdit
        Left = 130
        Top = 40
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 0
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo2: TEdit
        Left = 395
        Top = 38
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 1
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo3: TEdit
        Left = 130
        Top = 75
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 2
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo4: TEdit
        Left = 395
        Top = 73
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 3
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo5: TEdit
        Left = 130
        Top = 110
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 4
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo7: TEdit
        Left = 130
        Top = 144
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 6
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo8: TEdit
        Left = 395
        Top = 142
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 7
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo9: TEdit
        Left = 130
        Top = 179
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 8
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoInfo6: TEdit
        Left = 395
        Top = 108
        Width = 127
        Height = 20
        MaxLength = 100
        TabOrder = 5
        OnChange = Edt_BuyerCtrlTypeChange
      end
      object Edt_PoLineNum: TEdit
        Left = 395
        Top = 181
        Width = 127
        Height = 20
        TabOrder = 9
        OnChange = Edt_BuyerCtrlTypeChange
        OnExit = Edt_ForwArdDaysDenyExit
      end
      object Edt_PoPageDefine: TEdit
        Left = 128
        Top = 216
        Width = 393
        Height = 20
        MaxLength = 100
        TabOrder = 10
        OnChange = Edt_BuyerCtrlTypeChange
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 644
    Top = 8
  end
end