sfc_mnrequestoverplan_b.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MnRequestOverPlan_B: TFrm_Sfc_MnRequestOverPlan_B
  Left = 276
  Top = 109
  Caption = #36710#38388#29983#20135#36229#35746#21333#39046#26009#21046#21333
  ClientHeight = 553
  ClientWidth = 800
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 336
      inherited ToolButton3: TToolButton
        Width = 6
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Left = 237
        Hint = #25171#21360#39044#35272'('#19981#35745#25171#21360#27425#25968')'
      end
      inherited TlBtn_Print: TToolButton
        Left = 260
      end
      inherited TlBtn_Excel: TToolButton
        Left = 283
      end
      inherited ToolButton10: TToolButton
        Left = 306
      end
      inherited ToolButton4: TToolButton
        Left = 313
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #36710#38388#29983#20135#36229#35746#21333#39046#26009#21046#21333
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 97
    inherited Image1: TImage
      Width = 800
      Height = 97
    end
    object Label1: TLabel
      Left = 44
      Top = 8
      Width = 36
      Height = 12
      Caption = #20179#24211#65306
    end
    object Label2: TLabel
      Left = 277
      Top = 8
      Width = 36
      Height = 12
      Caption = #36135#20301#65306
    end
    object Label3: TLabel
      Left = 20
      Top = 32
      Width = 60
      Height = 12
      Caption = #39046#26009#37096#38376#65306
    end
    object Label4: TLabel
      Left = 641
      Top = 8
      Width = 48
      Height = 12
      Caption = #21333#25454#21495#65306
    end
    object Label5: TLabel
      Left = 278
      Top = 32
      Width = 36
      Height = 12
      Caption = #29677#21035#65306
    end
    object Label6: TLabel
      Left = 651
      Top = 32
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
    end
    object Label9: TLabel
      Left = 8
      Top = 52
      Width = 72
      Height = 12
      Caption = #29983#20135#35746#21333#21495#65306
    end
    object Label10: TLabel
      Left = 159
      Top = 52
      Width = 60
      Height = 12
      Caption = #35746#21333#34892#21495#65306
    end
    object Label11: TLabel
      Left = 245
      Top = 52
      Width = 36
      Height = 12
      Caption = #29289#26009#65306
    end
    object Label12: TLabel
      Left = 44
      Top = 77
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
    end
    object lbl_Dept: TLabel
      Left = 83
      Top = 32
      Width = 6
      Height = 12
    end
    object lbl_Mono: TLabel
      Left = 83
      Top = 52
      Width = 6
      Height = 12
    end
    object lbl_MoLineno: TLabel
      Left = 219
      Top = 52
      Width = 6
      Height = 12
    end
    object lbl_Item: TLabel
      Left = 284
      Top = 52
      Width = 211
      Height = 12
      AutoSize = False
    end
    object Label7: TLabel
      Left = 485
      Top = 8
      Width = 48
      Height = 12
      Caption = #20179#31649#21592#65306
    end
    object Label13: TLabel
      Left = 502
      Top = 52
      Width = 72
      Height = 12
      Caption = #32422#23450#20132#36135#37327#65306
    end
    object lbl_qty: TLabel
      Left = 576
      Top = 52
      Width = 6
      Height = 12
    end
    object Label14: TLabel
      Left = 639
      Top = 52
      Width = 48
      Height = 12
      Caption = #26410#32467#37327#65306
    end
    object lbl_Noqty: TLabel
      Left = 693
      Top = 52
      Width = 6
      Height = 12
    end
    object Label17: TLabel
      Left = 474
      Top = 32
      Width = 60
      Height = 12
      Caption = #24037'('#26009')'#24223#65306
    end
    object cmbbx_WhCode: TComboBox
      Left = 83
      Top = 4
      Width = 164
      Height = 20
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhCodeChange
      OnExit = cmbbx_WhCodeExit
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 314
      Top = 4
      Width = 153
      Height = 20
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 2
      OnExit = cmbbx_WhPositionCodeExit
    end
    object medt_Date: TMaskEdit
      Left = 696
      Top = 27
      Width = 81
      Height = 20
      EditMask = '9999.99.99;1; '
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Extedt_Billno: TExtEdit
      Left = 696
      Top = 4
      Width = 81
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object Extedt_memo: TExtEdit
      Left = 80
      Top = 71
      Width = 393
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 6
    end
    object CheckBox1: TCheckBox
      Left = 490
      Top = 72
      Width = 156
      Height = 17
      Caption = #21482#26174#31034#24211#23384#19981#20026'0'#30340#25968#25454
      TabOrder = 7
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 658
      Top = 72
      Width = 129
      Height = 17
      Caption = #25353#29992#26009#37096#38376#36807#28388
      TabOrder = 8
      OnClick = CheckBox2Click
    end
    object cmbbx_WhEmployee: TComboBox
      Left = 534
      Top = 4
      Width = 91
      Height = 20
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 3
      OnExit = cmbbx_WhEmployeeExit
    end
    object cmbbx_Shift: TComboBox
      Left = 315
      Top = 27
      Width = 152
      Height = 20
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 4
    end
    object cmbx_WipWaster: TComboBox
      Left = 534
      Top = 27
      Width = 92
      Height = 20
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 9
      OnChange = cmbx_WipWasterChange
      Items.Strings = (
        ''
        #26009#24223)
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 517
    Width = 800
    Height = 36
    inherited Image4: TImage
      Width = 800
      Height = 36
    end
    object DBText1: TDBText
      Left = 85
      Top = 17
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label8: TLabel
      Left = 21
      Top = 16
      Width = 60
      Height = 12
      Caption = #29289#26009#25551#36848#65306
    end
  end
  inherited Pnl_Body: TPanel
    Top = 152
    Width = 800
    Height = 365
    inherited Image3: TImage
      Width = 800
      Height = 365
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 365
      AutoFitColWidths = True
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      UseMultiTitle = False
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'mono'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35746#21333#21495
          Visible = False
        end
        Item
          EditButtons = <>
          FieldName = 'MoLineno'
          Footers = <>
          Title.Alignment = taCenter
          Visible = False
        end
        Item
          EditButtons = <>
          FieldName = 'tmpItemCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35745#37327#21333#20301
          Width = 60
        end
        Item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20179#31649#21592
          Width = 60
        end
        Item
          EditButtons = <>
          FieldName = 'moCtrlqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #38480#39069#25968#37327
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'MoRealqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32047#35745#23454#39046#25968#37327
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'onhandInv'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24403#21069#24211#23384
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'moRequestqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35831#39046#25968#37327
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25209#27425#21495
          Width = 100
        end
        Item
          EditButtons = <>
          FieldName = 'moRequestid'
          Footers = <>
          Title.Alignment = taCenter
          Visible = False
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'BilllineremArk'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 200
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Enabled = True
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
    inherited Act_auto: TAction
      Caption = #33719#21462#26368#20339#39046#29992#25968#37327
      Hint = #33719#21462#26368#20339#39046#29992#25968#37327
      OnExecute = Act_autoExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select m.mono,'
      '           m.MoLineno,'
      '           m.ItemCode,'
      '           i.ItemName,'
      '           u.UomName,'
      '           m.moCtrlqty,'
      '           m.MoRealqty,'
      '           m.moRequestqty,'
      '           0 as onhandInv'
      '       from mnItemList m'
      '        left join Item i '
      '             on m.ItemCode=i.ItemCode '
      '        left join Uom u '
      '             on i.UomCode=u.UomCode '
      '        where m.mono='#39'1'#39
      '          and m.MoLineno=1')
  end
  object Extpr: 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 = 232
    Top = 230
  end
end