VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsVchInputUI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'------------------------------------------------------------------------
'  著 作 權(quán):  北京用友軟件股份有限公司
'  系統(tǒng)名稱:  資金管理 Version 8.30
'  說(shuō)    明:  單據(jù)錄入用戶接口
'  作    者:  章景峰
'  時(shí)    間:  2001-11-29
'------------------------------------------------------------------------
Option Explicit

Public Sub Show(DataSourceName As String, ShowMode As ShowModeEnum, Optional OID As U8FDEso.OIDObject, Optional BIType As Long = 21)
    Dim objVchDefBI    As New U8FDBso.clsVchDefBI
    Dim objfrmVchInput As frmVchInput
    Dim i              As Long
    
    Screen.MousePointer = vbHourglass
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = "frmVchInput" Then
            Set objfrmVchInput = Forms(i)
            Exit For
        End If
    Next
    
    If Not objfrmVchInput Is Nothing Then
        BringWindowToTop objfrmVchInput.hWnd
        Select Case objfrmVchInput.EO.State
            Case U8FDEso.esoAddNew
                'MsgBox "當(dāng)前已處于新增狀態(tài)！", vbInformation, g_conSysName
            Case U8FDEso.esoEdit
                'MsgBox "當(dāng)前已處于編輯狀態(tài)！", vbInformation, g_conSysName
            Case U8FDEso.esoInstance, U8FDEso.esoInitialized
                objfrmVchInput.ShowMode = ShowMode
                objfrmVchInput.NodeKey = BIType
                Select Case ShowMode
                    Case smAddNew
                        objfrmVchInput.AddNew
                    Case smEdit
                        'Set objfrmVchInput.EO = objVchDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent,BIType , OID)
                        objfrmVchInput.View OID
                        objfrmVchInput.Edit OID
                    Case smView
                        'If Not OID Is Nothing Then
                        '    Set objfrmVchInput.EO = objVchDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, BIType, OID)
                        'End If
                        objfrmVchInput.View OID
                End Select
        End Select
    Else
        Set objfrmVchInput = New frmVchInput
        objfrmVchInput.ShowMode = ShowMode
        objfrmVchInput.NodeKey = BIType
        Select Case ShowMode
            Case smAddNew
                objfrmVchInput.AddNew
            Case smEdit
                'Set objfrmVchInput.EO = objVchDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent,BIType , OID)
                '----首先顯示當(dāng)前實(shí)體，再編輯
                objfrmVchInput.View OID
                objfrmVchInput.Edit OID
            Case smView
                'If Not OID Is Nothing Then
                '    Set objfrmVchInput.EO = objVchDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent,BIType , OID)
                'Else
                '    Set objfrmVchInput.EO = objVchDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoLast)
                'End If
                objfrmVchInput.View OID
        End Select
        objfrmVchInput.Show
        DoEvents
    End If
    Set objVchDefBI = Nothing
    Set objfrmVchInput = Nothing
    Screen.MousePointer = vbDefault
End Sub