bas_qry_multibom.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 374 行

inherited Frm_Bas_Qry_MultiBom: TFrm_Bas_Qry_MultiBom
  Left = 199
  Top = 203
  Caption = #22810#23618'Bom'#23637#24320
  ClientHeight = 428
  ClientWidth = 770
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 770
    inherited ToolBar: TToolBar
      Width = 332
      object ToolButton2: TToolButton
        Left = 277
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object Tlbtn_Hint: TToolButton
        Left = 285
        Top = 0
        Action = Act_Hint
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton7: TToolButton
        Left = 308
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 316
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 324
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 12
        Style = tbsSeparator
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 770
    BevelOuter = bvRaised
    Caption = #22810#23618'Bom'#23637#24320
    inherited Image2: TImage
      Left = 1
      Top = 1
      Width = 768
      Height = 25
    end
  end
  inherited Pnl_Head: TPanel
    Width = 770
    BevelOuter = bvSpace
    inherited Image1: TImage
      Left = 1
      Top = 1
      Width = 768
      Height = 38
    end
    object Label1: TLabel
      Left = 16
      Top = 9
      Width = 60
      Height = 12
      Caption = #29289#26009#20195#30721#65306
    end
    object Label3: TLabel
      Left = 247
      Top = 9
      Width = 60
      Height = 12
      Caption = #29289#26009#25551#36848#65306
    end
    object Lbl_ItemName: TLabel
      Left = 314
      Top = 9
      Width = 6
      Height = 12
    end
    object Edt_ItemCode: TEdit
      Left = 73
      Top = 4
      Width = 125
      Height = 20
      TabOrder = 0
      OnExit = Edt_ItemCodeExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 402
    Width = 770
    BevelOuter = bvRaised
    inherited Image4: TImage
      Left = 1
      Top = 1
      Width = 768
      Height = 24
    end
  end
  inherited Pnl_Body: TPanel
    Width = 770
    Height = 305
    inherited Image3: TImage
      Width = 770
      Height = 305
    end
    inherited DBGridEh: TDBGridEh
      Width = 770
      Height = 305
      TabOrder = 1
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 770
      Height = 305
      Align = alClient
      DataSource = DataSource1
      FooterColor = clWindow
      FooterFont.ChArset = GB2312_CHArSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FrozenCols = 4
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawDataCell = DBGridEhDrawDataCell
      OnGetCellParams = DBGridEh1GetCellParams
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'tier'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23618#25968
          Width = 33
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23376#39033#29289#26009#26631#35782
          Width = 293
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'UomCodeName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 40
        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.Alignment = taCenter
          Title.Caption = #23376#39033#23646#24615
          Width = 57
        end
        Item
          Alignment = tArightJustify
          EditButtons = <>
          FieldName = 'BomQty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23450#39069
          Width = 48
        end
        Item
          Alignment = tArightJustify
          EditButtons = <>
          FieldName = 'BomScrAp_Percent'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25439#32791#29575'(%)'
          Width = 59
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'BomStatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #29983#25928
            #26410#29983#25928
            #26242#23450
            #26242#20572#20351#29992
            ' ')
          Title.Alignment = taCenter
          Title.Caption = #23376#39033#29366#24577
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'EmployeeCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #37319#36141#21592
          Width = 47
        end
        Item
          EditButtons = <>
          FieldName = 'Pla_EmployeeCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35745#21010#21592
          Width = 44
        end
        Item
          EditButtons = <>
          FieldName = 'DeptCodeName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29992#26009#37096#38376#26631#35782
          Width = 121
        end
        Item
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            '0  '#21046#36896
            '1  '#37319#36141
            '2  '#22996#22806#21152#24037
            '3  '#26082#21046#36896#21448#22996#22806)
          Title.Alignment = taCenter
          Title.Caption = #21046#36141#30721
          Width = 57
        end
        Item
          EditButtons = <>
          FieldName = 'designno'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #22270#21495
          Width = 80
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'ItemUsable'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0'
            ''
            '')
          PickList.Strings = (
            #26159
            #21542)
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#29983#25928
          Width = 60
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Prepared = True
    Left = 440
    Top = 192
  end
  inherited ActionList: TActionList
    Left = 520
    Top = 208
    object Action4: TAction
      Caption = 'Action4'
      ShortCut = 120
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Caption = 'Action5'
      ShortCut = 16500
    end
  end
  inherited AdoQry_Main: TAdoQuery
    Left = 272
    Top = 249
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    Left = 378
    Top = 194
  end
  object ExtPrintReport1: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    DataSet = AdoQry_Main
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = #23435#20307
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = #23435#20307
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = #23435#20307
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 320
    Top = 184
  end
end