bas_item_all.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Item_All: TFrm_Bas_Item_All
  Left = 179
  Top = 108
  Caption = #29289#26009#20027#25991#20214#25152#26377#23646#24615
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited ToolButton6: TToolButton
        Action = Action3
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = #29289#26009#20027#25991#20214#25152#26377#23646#24615
  end
  inherited Pnl_Head: TPanel
    Height = 45
    inherited Image1: TImage
      Height = 45
    end
    inherited Lbl_Condition: TLabel
      Top = 12
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 10
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 30
    end
    inherited Lbl_Order: TLabel
      Top = 10
      Width = 48
      Caption = #29289#26009#20195#30721
      Visible = False
    end
    object Label1: TLabel
      Left = 419
      Top = 30
      Width = 78
      Height = 12
      Caption = #24555#36895#23450#20301'(&Q)'#65306
      FocusControl = edt_locate
      Transparent = True
    end
    object Label2: TLabel
      Left = 389
      Top = 10
      Width = 108
      Height = 12
      Caption = #26159#21542#25152#26377#23646#24615#26174#31034#65306
      Transparent = True
      Visible = False
    end
    object Label3: TLabel
      Left = 644
      Top = 30
      Width = 84
      Height = 12
      Caption = #26159#21542#23450#20301#26368#22823#20540
      Transparent = True
    end
    object edt_locate: TEdit
      Left = 498
      Top = 25
      Width = 125
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      OnChange = edt_locateChange
    end
    object cbx_ShowAll: TCheckBox
      Left = 498
      Top = 9
      Width = 12
      Height = 13
      Alignment = taLeftJustify
      Caption = #26159#21542#25152#26377#23646#24615#26174#31034#65306
      Checked = True
      State = cbChecked
      TabOrder = 1
      Visible = False
      OnClick = cbx_ShowAllClick
    end
    object Button1: TButton
      Left = 542
      Top = 3
      Width = 81
      Height = 19
      Caption = #25104#25209#26367#25442'(&H)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object chk_max: TCheckBox
      Left = 628
      Top = 28
      Width = 14
      Height = 14
      Caption = #26159#21542#23450#20301#26368#22823#20540
      TabOrder = 3
    end
  end
  inherited Pnl_Body: TPanel
    Top = 100
    Height = 448
    inherited Image3: TImage
      Height = 448
    end
    inherited DBGridEh: TDBGridEh
      Height = 448
      FrozenCols = 2
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 153
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 36
        end
        item
          EditButtons = <>
          FieldName = 'ItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            #26222#36890#29289#26009
            #24037#20316#20013#24515
            #24037#20855
            #21442#32771
            #32467#26500#34394#39033
            #21171#21153
            #25104#26412#20013#24515
            #26367#20195#34394#39033)
          Title.Caption = #29289#26009#31867#21035
        end
        item
          EditButtons = <>
          FieldName = 'ItemUsable'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2')
          PickList.Strings = (
            #21542
            #26159
            #36880#27493#32791#23613)
          Title.Caption = #26159#21542#26377#25928
          Width = 29
        end
        item
          EditButtons = <>
          FieldName = 'designno'
          Footers = <>
          Title.Caption = #22270#21495
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'CaiGou'
          Footers = <>
          Title.Caption = #37319#36141#21592#21517#31216
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'JiHua'
          Footers = <>
          Title.Caption = #35745#21010#21592#21517#31216
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'whName'
          Footers = <>
          Title.Caption = #20179#24211#21517#31216
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'onlydefaultwh'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#21482#33021#29992#32570#30465#20179#24211
          Width = 66
        end
        item
          EditButtons = <>
          FieldName = 'wh_EmployeeName'
          Footers = <>
          Title.Caption = #32570#30465#20179#31649#21592
          Width = 71
        end
        item
          EditButtons = <>
          FieldName = 'maxqty'
          Footers = <>
          Title.Caption = #26368#22823#24211#23384
          Width = 58
        end
        item
          EditButtons = <>
          FieldName = 'minqty'
          Footers = <>
          Title.Caption = #26368#23567#24211#23384
          Width = 56
        end
        item
          EditButtons = <>
          FieldName = 'limitout'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#38480#39069#39046#26009
          Width = 46
        end
        item
          EditButtons = <>
          FieldName = 'LongPurchLT'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #38271#21608#26399#37319#36141#29289#26009
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'iScheck'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2')
          PickList.Strings = (
            '0 '#20813#26816
            '1 '#24517#26816
            '2 ""')
          Title.Caption = #26159#21542#35201#24453#26816
          Width = 41
        end
        item
          EditButtons = <>
          FieldName = 'PrepareLT'
          Footers = <>
          Title.Caption = #20934#22791#25552#21069#26399
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'runLT'
          Footers = <>
          Title.Caption = #36816#34892#25552#21069#26399
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'QcLT'
          Footers = <>
          Title.Caption = #36136#26816#25552#21069#26399
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4')
          PickList.Strings = (
            #21046#36896
            #37319#36141
            #22996#22806#21152#24037
            'OEM'#20214
            #29305#38144#20214)
          Title.Caption = #21046#36141#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'DeptCode'
          Footers = <>
          Title.Caption = #32570#30465#20379#24212#23545#35937#20195#30721
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Title.Caption = #32570#30465#20379#24212#23545#35937#21517#31216
          Width = 101
        end
        item
          EditButtons = <>
          FieldName = 'Batchstrat'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            '0 '#30452#25509#25209#37327#27861
            '1 '#22266#23450#25209#37327#27861)
          Title.Caption = #25209#37327#31574#30053
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'PmBatch'
          Footers = <>
          Title.Caption = #37319#36141#29983#20135#25209#37327
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'BarCode'
          Footers = <>
          Title.Caption = #26465#30721
          Width = 103
        end
        item
          Checkboxes = False
          EditButtons = <>
          FieldName = 'BatchCtrl'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#25209#27425#25511#21046
          Width = 44
        end
        item
          EditButtons = <>
          FieldName = 'Capacityhours'
          Footers = <>
          Title.Caption = #33021#21147#24037#26102
          Width = 73
        end
        item
          EditButtons = <>
          FieldName = 'canSale'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#38144#21806
          Width = 39
        end
        item
          EditButtons = <>
          FieldName = 'ItemCode2'
          Footers = <>
          Title.Caption = #21442#32771#30721
        end
        item
          EditButtons = <>
          FieldName = 'Itemcreatetime'
          Footers = <>
          Title.Caption = #24314#31435#26102#38388
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = 'Itemmodifytime'
          Footers = <>
          Title.Caption = #26368#36817#26356#25913#26102#38388
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = 'Itemdisabletime'
          Footers = <>
          Title.Caption = #26080#25928#26102#38388
          Width = 77
        end
        item
          EditButtons = <>
          FieldName = 'ClassCode'
          Footers = <>
          Title.Caption = #23384#36135#20998#31867
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'ClassName'
          Footers = <>
          Title.Caption = #23384#36135#20998#31867#25551#36848
          Width = 110
        end
        item
          EditButtons = <>
          FieldName = 'ProductClass'
          Footers = <>
          Title.Caption = #20135#21697#31867#21035
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'QcClass'
          Footers = <>
          Title.Caption = #36136#26816#31867#21035
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'ItemClass1'
          Footers = <>
          Title.Caption = #29289#26009#20998#31867'1'
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ItemClass2'
          Footers = <>
          Title.Caption = #29289#26009#20998#31867'2'
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ItemClass3'
          Footers = <>
          Title.Caption = #29289#26009#20998#31867'3'
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ItemClass4'
          Footers = <>
          Title.Caption = #29289#26009#20998#31867'4'
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ItemClass5'
          Footers = <>
          Title.Caption = #29289#26009#20998#31867'5'
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ItemshortName'
          Footers = <>
          Title.Caption = #29289#26009#31616#31216
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = 'greateout'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#22823#25209#37327#39046#26009
          Width = 54
        end
        item