inv_mnoutaudit_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnOutAudit_B: TFrm_Inv_MnOutAudit_B
  Left = 0
  Top = 136
  Caption = 'Frm_Inv_MnOutAudit_B'
  ClientHeight = 553
  ClientWidth = 800
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      inherited TlBtn_CancelCheck: TToolButton
        Hint = #33719#21462#26368#20339#25968#37327
      end
      inherited TlBtn_Preview: TToolButton
        Hint = #25171#21360#39044#35272'('#19981#35745#25171#21360#27425#25968')'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 97
    inherited Image1: TImage
      Width = 800
      Height = 97
      TransParent = True
    end
    inherited Lbl_Condition: TLabel
      Left = 90
    end
    object Label1: TLabel
      Left = 49
      Top = 8
      Width = 36
      Height = 12
      Caption = #20179#24211#65306
      TransParent = True
    end
    object Label2: TLabel
      Left = 301
      Top = 8
      Width = 36
      Height = 12
      Caption = #36135#20301#65306
      TransParent = True
    end
    object Label3: TLabel
      Left = 25
      Top = 29
      Width = 60
      Height = 12
      Caption = #39046#26009#37096#38376#65306
      TransParent = True
    end
    object Label4: TLabel
      Left = 596
      Top = 8
      Width = 48
      Height = 12
      Caption = #21333#25454#21495#65306
      TransParent = True
    end
    object Label5: TLabel
      Left = 301
      Top = 29
      Width = 36
      Height = 12
      Caption = #29677#21035#65306
      TransParent = True
    end
    object Label6: TLabel
      Left = 608
      Top = 29
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
      TransParent = True
    end
    object Label9: TLabel
      Left = 13
      Top = 50
      Width = 72
      Height = 12
      Caption = #29983#20135#35746#21333#21495#65306
      TransParent = True
    end
    object Label10: TLabel
      Left = 183
      Top = 50
      Width = 60
      Height = 12
      Caption = #35746#21333#34892#21495#65306
      TransParent = True
    end
    object Label11: TLabel
      Left = 303
      Top = 50
      Width = 36
      Height = 12
      Caption = #29289#26009#65306
      TransParent = True
    end
    object Label12: TLabel
      Left = 49
      Top = 72
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
      TransParent = True
    end
    object lbl_WhCode1: TLabel
      Left = 191
      Top = 8
      Width = 6
      Height = 12
      Visible = False
    end
    object Label8: TLabel
      Left = 441
      Top = 29
      Width = 60
      Height = 12
      Caption = #24037'('#26009')'#24223#65306
      TransParent = True
    end
    object Label13: TLabel
      Left = 596
      Top = 50
      Width = 48
      Height = 12
      Caption = #20179#31649#21592#65306
      TransParent = True
    end
    object Extedt_Billno: TExtEdit
      Left = 645
      Top = 4
      Width = 81
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object medt_Date: TMaskEdit
      Left = 645
      Top = 25
      Width = 81
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
      OnChange = medt_DateChange
      OnExit = DateCheck
    end
    object Extedt_memo: TExtEdit
      Left = 83
      Top = 68
      Width = 493
      Height = 20
      TabOrder = 2
      OnChange = Extedt_memoChange
    end
    object lbl_WhCode: TEdit
      Left = 83
      Top = 4
      Width = 197
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 3
    end
    object lbl_Dept: TEdit
      Left = 83
      Top = 25
      Width = 197
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 4
    end
    object lbl_Mono: TEdit
      Left = 83
      Top = 46
      Width = 75
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 5
    end
    object lbl_MoLineno: TEdit
      Left = 242
      Top = 46
      Width = 38
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 6
    end
    object lbl_Item: TEdit
      Left = 335
      Top = 46
      Width = 241
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 7
    end
    object lbl_MoRequestshift: TEdit
      Left = 335
      Top = 25
      Width = 75
      Height = 20
      TabOrder = 8
    end
    object lbl_WhPosition: TEdit
      Left = 335
      Top = 4
      Width = 241
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 9
    end
    object lbl_WipWaster: TEdit
      Left = 500
      Top = 25
      Width = 76
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 10
    end
    object EdtUserCode: TEdit
      Left = 645
      Top = 46
      Width = 81
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 11
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 514
    Width = 800
    Height = 39
    inherited Image4: TImage
      Width = 800
      Height = 39
    end
    object DBText1: TDBText
      Left = 71
      Top = 14
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label7: TLabel
      Left = 8
      Top = 16
      Width = 60
      Height = 12
      Caption = #29289#26009#25551#36848#65306
    end
  end
  inherited Pnl_Body: TPanel
    Top = 154
    Width = 800
    Height = 360
    inherited Image3: TImage
      Width = 800
      Height = 360
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 360
      ReadOnly = False
      OnColExit = DBGridEhColExit
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode2'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21442#32771#30721
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21333#20301
          Width = 29
        end
        Item
          EditButtons = <>
          FieldName = 'moCtrlqty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #38480#39069#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'MoRealqty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #32047#35745#23454#39046#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'InvBillSfcqty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #35831#39046#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'onhandInv'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21487#29992#24211#23384
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'InvBillqty'
          Footers = <>
          Title.Caption = #23454#39046#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 100
        end
        Item
          EditButtons = <>
          FieldName = 'BilllineremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 150
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 725
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 592
    Top = 0
    inherited Act_Check: TAction
      Caption = #26680#23450
      Hint = #26680#23450
      OnExecute = Act_CheckExecute
    end
    inherited Act_auto: TAction
      Caption = #33719#21462#26368#20339#25968#37327
      Hint = #33719#21462#26368#20339#25968#37327
      OnExecute = Act_autoExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    BeforeEdit = AdoQry_BodyBeforeEdit
    BeforePost = AdoQry_BodyBeforePost
    AfterPost = AdoQry_BodyAfterPost
    AfterScroll = AdoQry_BodyAfterScroll
    SQL.Strings = (
      'select '
      '             ol.InvBillid,'
      '            ol.InvBilllineno,'
      '             ol.mono,'
      '             ol.MoLineno,'
      '             ol.ItemCode,'
      '             ol.BilllineremArk,'
      '             i.ItemName,'
      '             u.UomName,'
      '             m.moCtrlqty,'
      '             m.MoRealqty,'
      '             ol.InvBillSfcqty, '
      '             ol.InvBillqty,'
      '             c.onhandInv '
      '         from InvOutBillline ol'
      '          left join CurrentInv c '
      '               on ol.ItemCode=c.ItemCode '
      '              and c.whCode='#39'0000'#39
      '              and c.WhPositionCode='#39'0101'#39
      '          left join mnItemList m '
      '              on ol.mono=m.mono '
      '              and ol.MoLineno=m.MoLineno '
      '              and ol.ItemCode=m.ItemCode '
      '          left join Item i '
      '               on ol.ItemCode=i.ItemCode '
      '          left join Uom u '
      '               on i.UomCode=u.UomCode '
      '          where ol.InvBillid=123')
    Left = 488
    Top = 1
  end
  inherited DataSource: TDataSource
    Left = 528
    Top = 1
  end
  object AdoQuery1: TAdoQuery
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 688
    Top = 2
  end
  object DataSource1: TDataSource
    DataSet = AdoQuery1
    Left = 656
    Top = 2
  end
end