sfc_enter_mounitmnrequest.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_Enter_MoUnitMnRequest: TFrm_Sfc_Enter_MoUnitMnRequest
  Left = -7
  Top = 7
  Caption = 'MO'#21512#24182#39046#26009#21046#21333
  ClientHeight = 543
  ClientWidth = 790
  Position = poMainformCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label15: TLabel [0]
    Left = 558
    Top = 46
    Width = 72
    Height = 12
    Caption = #32422#23450#20132#36135#37327#65306
  end
  inherited ControlBar: TControlBar
    Width = 790
    inherited ToolBar: TToolBar
      Width = 336
      inherited TlBtn_InsertLine: TToolButton
        Hint = #33719#21462#26368#20339#39046#29992#25968#37327
      end
      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 = 790
    Caption = 'MO'#21512#24182#39046#26009#21046#21333
    inherited Image2: TImage
      Width = 790
    end
  end
  inherited Pnl_Head: TPanel
    Width = 790
    Height = 79
    inherited Image1: TImage
      Width = 790
      Height = 79
    end
    object Label1: TLabel
      Left = 44
      Top = 6
      Width = 36
      Height = 12
      Caption = #20179#24211#65306
      TransParent = True
    end
    object Label2: TLabel
      Left = 280
      Top = 6
      Width = 36
      Height = 12
      Caption = #36135#20301#65306
      TransParent = True
    end
    object Label3: TLabel
      Left = 20
      Top = 27
      Width = 60
      Height = 12
      Caption = #39046#26009#37096#38376#65306
      TransParent = True
    end
    object Label4: TLabel
      Left = 660
      Top = 6
      Width = 48
      Height = 12
      Caption = #21333#25454#21495#65306
      TransParent = True
    end
    object Label5: TLabel
      Left = 281
      Top = 27
      Width = 36
      Height = 12
      Caption = #29677#21035#65306
      TransParent = True
    end
    object Label6: TLabel
      Left = 672
      Top = 27
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
      TransParent = True
    end
    object Label12: TLabel
      Left = 44
      Top = 50
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
      TransParent = True
    end
    object Label7: TLabel
      Left = 496
      Top = 6
      Width = 48
      Height = 12
      Caption = #20179#31649#21592#65306
      TransParent = True
    end
    object Label9: TLabel
      Left = 530
      Top = 56
      Width = 72
      Height = 12
      Caption = #21015#31034#26126#32454#35760#24405
      TransParent = True
      Visible = False
    end
    object cmbbx_WhCode: TComboBox
      Left = 81
      Top = 0
      Width = 164
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbbx_WhCodeChange
      OnExit = cmbbx_WhCodeExit
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 317
      Top = 0
      Width = 153
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhPositionCodeChange
    end
    object medt_Date: TMaskEdit
      Left = 710
      Top = 23
      Width = 81
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 4
      Text = '    .  .  '
      OnChange = medt_DateChange
      OnExit = DateCheck
    end
    object Extedt_Billno: TExtEdit
      Left = 710
      Top = 0
      Width = 81
      Height = 20
      TabStop = False
      Enabled = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = False
      TabOrder = 6
      OnChange = Extedt_BillnoChange
    end
    object Extedt_memo: TExtEdit
      Left = 80
      Top = 46
      Width = 389
      Height = 20
      TabOrder = 5
    end
    object cmbbx_WhEmployee: TComboBox
      Left = 544
      Top = 0
      Width = 89
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = cmbbx_WhEmployeeChange
      OnExit = cmbbx_WhEmployeeExit
    end
    object cmbbx_Shift: TComboBox
      Left = 317
      Top = 23
      Width = 153
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = cmbbx_ShiftChange
    end
    object Edt_Dept: TExtEdit
      Left = 80
      Top = 23
      Width = 165
      Height = 20
      Enabled = False
      TabOrder = 7
    end
    object CheckBox1: TCheckBox
      Left = 512
      Top = 56
      Width = 13
      Height = 14
      TabOrder = 8
      Visible = False
      OnClick = CheckBox1Click
    end
    object Button1: TButton
      Left = 624
      Top = 45
      Width = 113
      Height = 25
      Caption = #21015#21360#26126#32454#21333#25454
      TabOrder = 9
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 496
      Top = 45
      Width = 113
      Height = 25
      Caption = #39044#35272#26126#32454#21333#25454
      TabOrder = 10
      OnClick = Button2Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 543
    Width = 790
    Height = 0
    inherited Image4: TImage
      Width = 790
    end
    object Panel2: TPanel
      Left = 0
      Top = -17
      Width = 790
      Height = 17
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object DBText1: TDBText
        Left = 80
        Top = 6
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
      end
      object Label8: TLabel
        Left = 15
        Top = 6
        Width = 60
        Height = 12
        Caption = #29289#26009#25551#36848#65306
      end
    end
  end
  inherited Pnl_Body: TPanel
    Top = 136
    Width = 790
    Height = 407
    inherited Image3: TImage
      Width = 790
      Height = 372
    end
    inherited DBGridEh: TDBGridEh
      Width = 790
      Height = 372
      ReadOnly = False
      OnColExit = DBGridEhColExit
      OnDblClick = nil
      OnExit = DBGridEhExit
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 207
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 31
        end
        Item
          EditButtons = <>
          FieldName = 'OnHandInv'
          Footers = <>
          Title.Caption = #24403#21069#24211#23384
        end
        Item
          EditButtons = <>
          FieldName = 'MoCtrlQty'
          Footers = <>
          Title.Caption = #38480#39069#25968#37327
        end
        Item
          EditButtons = <>
          FieldName = 'MoRealQty'
          Footers = <>
          Title.Caption = #24050#39046#26009#37327
        end
        Item
          EditButtons = <>
          FieldName = 'MoRequestQty'
          Footers = <>
          Title.Caption = #24050#21046#21333#37327
        end
        Item
          EditButtons = <>
          FieldName = 'ThisRequestQty'
          Footers = <>
          Title.Caption = #26412#27425#35831#39046#37327
        end
        Item
          EditButtons = <>
          FieldName = 'BatchNo'
          Footers = <>
          Title.Caption = #25209#21495
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'BomRemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 107
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 372
      Width = 790
      Height = 35
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label13: TLabel
        Left = 15
        Top = 13
        Width = 60
        Height = 12
        Caption = #29289#26009#25551#36848#65306
      end
      object DBText2: TDBText
        Left = 79
        Top = 14
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 269
    Top = 259
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 264
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    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
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.10' +
      '0'
    AfterInsert = AdoQry_BodyAfterInsert
    BeforeEdit = AdoQry_BodyBeforeEdit
    BeforePost = AdoQry_BodyBeforePost
    SQL.Strings = (
      'select MnItemList.MoNo,'
      '       MnItemList.MoLineNo,'
      '       MnItemList.ItemCode,'
      '       MnItemList.Ite_ItemCode,'
      '       MnItemList.ItemListId,'
      '       Item.ItemName,'
      '       Uom.UomName,'
      '       0.0 as OnHandInv,'
      '       MnItemList.MoCtrlQty,'
      '       MnItemList.MoRealQty,'
      '       MnItemList.MoRequestQty,'
      '      '
      '       0.0 as ThisRequestQty,'
      '       '#39'                            '#39'  as BatchNo,'
      '       convert(varchAr(1000),'#39#39') as BomRemArk'
      'from  MnItemList '
      ' left Join Item on MnItemList.ItemCode=Item.ItemCode'
      ' left Join Uom On Item.UomCode=Uom.UomCode'
      'where MoNo='#39'M02090001'#39)
    Left = 376
    Top = 289
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 344
    Top = 233
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 416
    Top = 361
  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 = 240
    Top = 238
  end
end