bas_bom.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Bom: TFrm_Bas_Bom
  Left = 149
  Top = 119
  Caption = #21046#36896'Bom'#26500#36896
  ClientHeight = 571
  ClientWidth = 792
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object TLabel [0]
    Left = 344
    Top = 208
    Width = 6
    Height = 12
  end
  inherited ControlBar: TControlBar
    Width = 792
    inherited ToolBar: TToolBar
      inherited TlBtn_New: TToolButton
        Enabled = False
      end
      inherited TlBtn_Modify: TToolButton
        Enabled = False
      end
      inherited TlBtn_Delete: TToolButton
        Enabled = False
      end
      inherited ToolButton6: TToolButton
        Action = Action2
      end
      inherited TlBtn_Filter: TToolButton
        Action = Action1
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 792
    Caption = 'Bom'#26500#36896'('#29238#23545#23376')'
    inherited Image2: TImage
      Width = 792
    end
  end
  inherited Pnl_Head: TPanel
    Width = 792
    Height = 48
    inherited Image1: TImage
      Width = 792
      Height = 48
    end
    inherited Lbl_Condition: TLabel
      Left = 629
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 567
      Width = 6
      Caption = ''
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 567
      Top = 24
      Width = 6
      Caption = ''
    end
    inherited Lbl_Order: TLabel
      Left = 653
      Top = 24
      Width = 6
      Caption = ''
    end
    object Lbl_IteCode: TLabel
      Left = 8
      Top = 6
      Width = 54
      Height = 12
      Caption = #29238#39033#20195#30721':'
      Transparent = True
    end
    object Lbl_Name: TLabel
      Left = 7
      Top = 30
      Width = 54
      Height = 12
      Caption = #29238#39033#25551#36848':'
      Transparent = True
    end
    object Lbl_Name_D: TLabel
      Left = 70
      Top = 30
      Width = 70
      Height = 12
      Caption = 'Lbl_Name_D'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 643
      Top = 6
      Width = 48
      Height = 12
      Caption = #21046#36141#30721#65306
      Transparent = True
    end
    object Lb_PmCode: TLabel
      Left = 688
      Top = 6
      Width = 54
      Height = 12
      Caption = 'Lb_PmCode'
      Transparent = True
    end
    object Label5: TLabel
      Left = 216
      Top = 6
      Width = 72
      Height = 12
      Caption = #20934#22791#25552#21069#26399#65306
      Transparent = True
    end
    object Lb_PreparelLT: TLabel
      Left = 288
      Top = 6
      Width = 78
      Height = 12
      Caption = 'Lb_PreparelLT'
      Transparent = True
    end
    object Label7: TLabel
      Left = 376
      Top = 6
      Width = 72
      Height = 12
      Caption = #36816#34892#25552#21069#26399#65306
      Transparent = True
    end
    object Lb_RunLT: TLabel
      Left = 440
      Top = 6
      Width = 48
      Height = 12
      Caption = 'Lb_RunLT'
      Transparent = True
    end
    object Label9: TLabel
      Left = 504
      Top = 6
      Width = 72
      Height = 12
      Caption = #36136#26816#25552#21069#26399#65306
      Transparent = True
    end
    object Lb_QcLT: TLabel
      Left = 577
      Top = 6
      Width = 42
      Height = 12
      Caption = 'Lb_QcLT'
      Transparent = True
    end
    object Label11: TLabel
      Left = 644
      Top = 30
      Width = 36
      Height = 12
      Caption = #22270#21495#65306
      Transparent = True
    end
    object Lb_DesignNo: TLabel
      Left = 678
      Top = 30
      Width = 66
      Height = 12
      Caption = 'Lb_DesignNo'
      Transparent = True
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 547
    Width = 792
    Height = 24
    inherited Image4: TImage
      Width = 792
      Height = 24
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = #25552#31034#65306#20849#26377#35760#24405
    end
    object Lbl_RecordCount: TLabel
      Left = 103
      Top = 8
      Width = 90
      Height = 12
      Caption = 'Lbl_RecordCount'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 103
    Width = 792
    Height = 444
    object TLabel [0]
      Left = 344
      Top = 144
      Width = 6
      Height = 12
    end
    inherited Image3: TImage
      Width = 792
      Height = 444
    end
    inherited DBGridEh: TDBGridEh
      Width = 792
      Height = 444
      FrozenCols = 4
      ReadOnly = False
      OnKeyDown = CurrencyHint
      OnTitleClick = DBGridEhTitleClick
      Columns = <
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'BommArk'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          Title.Caption = #26631#35760
          Width = 28
        end
        item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23376#39033#26631#35782
          Width = 264
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21333#20301
          Width = 29
        end
        item
          EditButtons = <>
          FieldName = 'BomItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            '0 '#26222#36890#29289#26009
            '1 '#24037#20316#20013#24515
            '2 '#24037#20855
            '3 '#32467#26500#34394#39033
            '4 '#21103#20135#21697
            '5 '#25104#26412#20013#24515
            '6 '#26367#20195#34394#39033
            '7 '#21442#32771)
          ReadOnly = True
          Title.Caption = #23376#39033#23646#24615
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'ItemUsable'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          ReadOnly = True
          Title.Caption = #29289#26009#29983#25928
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'BomQty_Disp'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23450#39069
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent_Disp'
          Footers = <>
          ReadOnly = True
          Title.Caption = #25439#32791#29575'%'
          Width = 70
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'BomStatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #27491#24120
            #26410#29983#25928
            #26242#23450
            #26242#20572#20351#29992)
          ReadOnly = True
          Title.Caption = #23376#39033#29366#24577
          Width = 67
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #21046#36896
            #37319#36141
            #22996#22806#21152#24037
            #26082#21046#36896#21448#22996#22806)
          ReadOnly = True
          Title.Caption = #21046#36141#30721
          Width = 77
        end
        item
          EditButtons = <>
          FieldName = 'DeptCodeName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #37096#38376#26631#35782
          Width = 88
        end
        item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23376#39033#22791#27880
          Width = 56
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'usestyle'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21457#26009
            #38144#21806)
          ReadOnly = True
          Title.Caption = #29992#26009#26041#24335
        end
        item
          EditButtons = <>
          FieldName = 'PrepareLT'
          Footers = <>
          ReadOnly = True
          Title.Caption = #20934#22791#25552#21069#26399
          Visible = False
          Width = 69
        end
        item
          EditButtons = <>
          FieldName = 'RunLt'
          Footers = <>
          ReadOnly = True
          Title.Caption = #36816#34892#25552#21069#26399
          Visible = False
          Width = 67
        end
        item
          EditButtons = <>
          FieldName = 'QcLT'
          Footers = <>
          ReadOnly = True
          Title.Caption = #36136#26816#25552#21069#26399
          Visible = False
          Width = 66
        end
        item
          EditButtons = <>
          FieldName = 'DesignNo'
          Footers = <>
          ReadOnly = True
          Title.Caption = #22270#21495
          Visible = False
          Width = 29
        end>
    end
  end
  object Edt_Ite_ItemCode: TEdit [6]
    Left = 64
    Top = 56
    Width = 125
    Height = 20
    CharCase = ecUpperCase
    MaxLength = 16
    TabOrder = 5
    OnExit = Edt_Ite_ItemCodeExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 187
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 168
    inherited Act_Hint: TAction
      ShortCut = 120
    end
    inherited Action1: TAction
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      ShortCut = 32776
      OnExecute = Action2Execute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    SQL.Strings = (
      'select B.ItemCode,ItemName,BomItemType,BomQty,BomScrAp_Percent,'
      'BomStatus,B.DeptCode,D.DeptName from Bom B inner join  Item I '
      'on B.ItemCode=I.ItemCode inner join Dept D '
      'on B.DeptCode=d.DeptCode    ')
    Top = 177
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 145
  end
  inherited PopuPmenu: TPopupMenu
    Left = 296
    Top = 193
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 456
    Top = 151
  end
end