bas_qry_bomamount.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Qry_BomAmount: TFrm_Bas_Qry_BomAmount
  Left = -4
  Top = -4
  Caption = #20135#21697#26448#26009#27719#24635#34920
  ClientHeight = 553
  ClientWidth = 800
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 147
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 31
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 45
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 39
        Top = 0
        Action = Act_Preview
      end
      object ToolButton3: TToolButton
        Left = 62
        Top = 0
        Action = Act_Print
      end
      object ToolButton8: TToolButton
        Left = 85
        Top = 0
        Action = Act_Excel
      end
      object ToolButton6: TToolButton
        Left = 108
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 116
        Top = 0
        Action = Act_Quit
      end
      object ToolButton7: TToolButton
        Left = 139
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 11
        Style = tbsSeparator
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #20135#21697#26448#26009#27719#24635#34920
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    object lbl_Code: TLabel
      Left = 11
      Top = 5
      Width = 60
      Height = 12
      Caption = #20135#21697#20195#30721#65306
      TransParent = True
    end
    object lbl_Name: TLabel
      Left = 240
      Top = 4
      Width = 60
      Height = 12
      Caption = #20135#21697#21517#31216#65306
      TransParent = True
    end
    object lbl_ItemName: TLabel
      Left = 304
      Top = 4
      Width = 6
      Height = 12
      TransParent = True
    end
    object ExtEdt_ItemCode: TExtEdit
      Left = 74
      Top = 1
      Width = 125
      Height = 20
      TabOrder = 0
      OnExit = ExtEdt_ItemCodeExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 527
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 438
    inherited Image3: TImage
      Width = 800
      Height = 438
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 800
      Height = 438
      Align = alClient
      DataSource = DataSource
      FooterColor = clWindow
      FooterFont.ChArset = GB2312_CHArSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#26631#35782
          Width = 405
        end
        Item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 46
        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)
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #23376#39033#23646#24615
          Width = 110
        end
        Item
          Alignment = tArightJustify
          EditButtons = <>
          FieldName = 'Bomqty'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #19981#21547#25439#32791#29575#25968#37327
          Width = 104
        end
        Item
          Alignment = tArightJustify
          EditButtons = <>
          FieldName = 'qty_Precent'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21547#25439#32791#29575#25968#37327
          Width = 96
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 9
    Top = 368
  end
  inherited ActionList: TActionList
    Left = 41
    Top = 368
    inherited Act_Hint: TAction
      ShortCut = 120
    end
    inherited Act_next: TAction
      ShortCut = 116
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
    inherited Act_Excel: TAction
      OnExecute = Act_ExcelExecute
    end
    object Act_Run: TAction
      Caption = 'Act_Run'
      ImageIndex = 15
      ShortCut = 16500
    end
  end
  object DataSource: TDataSource
    DataSet = AdoQry_Main
    Left = 72
    Top = 369
  end
  object AdoQry_Main: TAdoQuery
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 104
    Top = 369
  end
  object ExtPrintReport1: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    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 = 168
    Top = 369
  end
end