clsirateui.cls

VB财务软件系统下载源代码提供自由下载使用学习

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

Public Sub Show(ShowMode As ShowModeEnum, Optional ByVal BIStyle As Long = m_conBIStyle, Optional OID As U8FDEso.OIDObject)
    Dim objfrmIRate As frmIRate
    '1.检查窗体是否已存在
    Dim i   As Long
    Screen.MousePointer = vbHourglass
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = "frmIRate" Then
            Set objfrmIRate = Forms(i)
            Exit For
        End If
    Next
    
    '2.窗体存在
    If Not objfrmIRate Is Nothing Then
        BringWindowToTop objfrmIRate.hWnd
        Select Case objfrmIRate.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
                        objfrmIRate.AddNew
                    Case smEdit
                        objfrmIRate.Edit OID
                    Case smView
                        objfrmIRate.View OID
                End Select
        End Select
    '3.窗体不存在
    Else
        Set objfrmIRate = New frmIRate
        Load objfrmIRate
        Select Case ShowMode
            Case smAddNew
                objfrmIRate.AddNew
            Case smEdit
                objfrmIRate.Edit OID
            Case smView
                objfrmIRate.View OID
        End Select
        objfrmIRate.Show
    End If
    
    DoEvents
    Set objfrmIRate = Nothing
    Screen.MousePointer = vbDefault
End Sub