bas_boma.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_BomA: TFrm_Bas_BomA
  Left = -15
  Top = 102
  Caption = #21046#36896'Bom'#23457#26680#26500#36896
  ClientHeight = 432
  ClientWidth = 804
  PixelsPerInch = 96
  TextHeight = 12
  object TLabel [0]
    Left = 344
    Top = 208
    Width = 6
    Height = 12
  end
  inherited ControlBar: TControlBar
    Width = 804
    inherited ToolBar: TToolBar
      Width = 375
      inherited ToolButton6: TToolButton
        Action = Action2
      end
      inherited TlBtn_Filter: TToolButton
        Action = Action1
      end
      object TlBtn_Hint: TToolButton
        Left = 352
        Top = 0
        Action = Act_Hint
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = #21046#36896'Bom'#23457#26680#26500#36896
    inherited Image2: TImage
      Width = 804
    end
  end
  inherited Pnl_Head: TPanel
    Width = 804
    Height = 30
    inherited Image1: TImage
      Width = 804
      Height = 30
    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':'
    end
    object Lbl_Name: TLabel
      Left = 200
      Top = 6
      Width = 54
      Height = 12
      Caption = #29238#39033#25551#36848':'
    end
    object Lbl_Name_D: TLabel
      Left = 255
      Top = 6
      Width = 60
      Height = 12
      Caption = 'Lbl_Name_D'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 408
    Width = 804
    Height = 24
    inherited Image4: TImage
      Width = 804
      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 = 87
    Width = 804
    Height = 321
    object TLabel [0]
      Left = 344
      Top = 144
      Width = 6
      Height = 12
    end
    inherited Image3: TImage
      Width = 804
      Height = 321
    end
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 321
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OnKeyDown = CurrencyHint
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'flag'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #26410#23457#26680
            #24050#23457#26680)
          Title.Caption = #23457#26680#26631#24535
          Width = 59
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          Title.Caption = #23376#39033#26631#35782
          Width = 264
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 29
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'BomItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6')
          PickList.Strings = (
            #26222#36890#29289#26009
            #24037#20316#20013#24515
            #24037#20855
            #32467#26500#34394#39033
            #21103#20135#21697
            #25104#26412#20013#24515
            #26367#20195#34394#39033)
          Title.Caption = #23376#39033#23646#24615
          Width = 59
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'ItemUsable'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #29289#26009#29983#25928
          Width = 51
        end
        Item
          EditButtons = <>
          FieldName = 'BomQty_Disp'
          Footers = <>
          Title.Caption = #23450#39069
          Width = 65
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent_Disp'
          Footers = <>
          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)
          Title.Caption = #23376#39033#29366#24577
          Width = 49
        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)
          Title.Caption = #21046#36141#30721
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'DeptCodeName'
          Footers = <>
          Title.Caption = #37096#38376#26631#35782
          Width = 88
        end
        Item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          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)
          Title.Caption = #29992#26009#26041#24335
        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 Boma 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 = 80
    Top = 177
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 296
    Top = 193
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 456
    Top = 151
  end
end