clsaccgrpui.cls

财务信息管理系统,适合做毕业论文的人使用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsAccGrpUI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Sub Show(DataSourceName As String, ShowMode As ShowModeEnum, Optional OID As U8FDEso.OIDObject)
    Dim objAccGrpBI  As New U8FDBso.clsAccGrpBI
    Dim objfrmAccGrp As frmAccGrp
    
    '1.检查窗体是否已存在
    Dim i   As Long
    
    Screen.MousePointer = vbHourglass
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = "frmAccGrp" Then
            Set objfrmAccGrp = Forms(i)
            Exit For
        End If
    Next
    
    '2.窗体存在
    If Not objfrmAccGrp Is Nothing Then
        BringWindowToTop objfrmAccGrp.hWnd
        Select Case objfrmAccGrp.EO.State
            Case U8FDEso.esoAddNew
                'MsgBox "当前已处于新增状态！", vbInformation, g_conSysName
            Case U8FDEso.esoEdit
                'MsgBox "当前已处于编辑状态！", vbInformation, g_conSysName
            Case U8FDEso.esoInstance, U8FDEso.esoInitialized
                Select Case ShowMode
                    Case smAddNew
                        objfrmAccGrp.AddNew
                    Case smEdit
                        Set objfrmAccGrp.EO = objAccGrpBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , OID)
                        
                        objfrmAccGrp.View
                        objfrmAccGrp.Edit
                    Case smView
                        If Not OID Is Nothing Then
                            Set objfrmAccGrp.EO = objAccGrpBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , OID)
                        End If
                                            
                        objfrmAccGrp.View
                End Select
        End Select
    '3.窗体不存在
    Else
        Set objfrmAccGrp = New frmAccGrp
'        objfrmAccGrp.Show
'        DoEvents
        Select Case ShowMode
            Case smAddNew
                objfrmAccGrp.treStyle.Nodes(OID.id).Selected = True
                objfrmAccGrp.NodeKey = OID.id
                objfrmAccGrp.AddNew
                
            Case smEdit
                objfrmAccGrp.treStyle.Nodes(OID.id).Selected = True
                objfrmAccGrp.NodeKey = OID.id
                OID = mID(OID.id, 2, Len(OID.id) - 1)
                Set objfrmAccGrp.EO = objAccGrpBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , OID)
                
                '----首先显示当前实体，再编辑
                objfrmAccGrp.View
                objfrmAccGrp.Edit
                
            Case smView
                'If Not OID Is Nothing Then
                '    Set objfrmAccGrp.EO = objAccGrpBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , OID)
                'Else
                '    Set objfrmAccGrp.EO = objAccGrpBI.MoveTo(g_sDataSourceName, U8FDEso.esoLast)
                'End If
                
                objfrmAccGrp.View OID
        End Select
        
        objfrmAccGrp.Show
        DoEvents
    End If
    
    Set objAccGrpBI = Nothing
    Set objfrmAccGrp = Nothing
    
    Screen.MousePointer = vbDefault
    
End Sub