mod_pub.bas

OA编程 源代码

Attribute VB_Name = "Mod_Pub"
Public g_ErrorMessage As New CError
Public SkinObj As SKINNOWLib.Skin  '更换皮肤
Public g_Cnn As ADODB.Connection
'Public m_RegistInfo As New CWriteToRegit    '访问注册表
Public g_Myfunction As New CMyFunction
Dim m_path As String   '检查注册表读出PKPM路径
Public frmnum As Integer

'======================== 换皮肤 ============================

Function ChangeSkinInitial()         '初试化皮肤
'    Set SkinObj = New SKINNOWLib.Skin
'    SkinObj.Init
'    SkinObj.SetSkinFile (App.Path & "\SKIN\Devior.smf")
End Function

Function LoadSkin(frmTemp As Form)
   '========== 换皮肤
'    If SkinObj Is Nothing Then
'        Set SkinObj = New SKINNOWLib.Skin
'        SkinObj.SetSkinWindowHandle2 frmTemp.hwnd
'    Else
'        SkinObj.SetSkinWindowHandle2 frmTemp.hwnd
'    End If
    
End Function

Function UnloadSkin()
'    SkinObj.ExitNow
'    Set SkinObj = Nothing
End Function

'=============================================================


' '判断PKPM是否安装，并返回路径
'Function PKPMPath() As String
'    Dim Vposnum As Integer
''    Dim m_path As String
'    m_path = Trim(m_RegistInfo.GetPKPMPath)
'    If m_RegistInfo.m_ReadReg = True Then     '安装了PKPM并返回PATH
'        Vposnum = InStr(m_path, Chr(0))
'        If Vposnum >= 1 Then m_path = Left(m_path, Vposnum - 1)
'        m_path = Left(m_path, Len(m_path) - 3)
'        m_pkpmPath = m_path
'    Else
'        MsgBox "您没有安装PKPM系列软件！", vbInformation, "信息提示"
'    End If
'    PKPMPath = m_path
'End Function


Function CnnAccess()
    Set g_Cnn = New ADODB.Connection
    g_Cnn.CursorLocation = adUseClient
    g_Cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase\bkbtinfo.mdb;"
End Function

'========================================================================

'''子窗体关闭程序
Sub Frm_Unload()
    frmnum = frmnum - 1
    If frmnum = 0 Then
        With frmMain
            .ToolBar.Buttons("CutTxt").Enabled = False
            .ToolBar.Buttons("CopyTxt").Enabled = False
            .ToolBar.Buttons("PasteTxt").Enabled = False
            .ToolBar.Buttons("WindowCascade").Enabled = False
            .ToolBar.Buttons("WindowTileVertical").Enabled = False
            .ToolBar.Buttons("WindowTileHorizontal").Enabled = False
            .ToolBar.Buttons("WindowIcon").Enabled = False
            .ToolBar.Buttons("Windowunload").Enabled = False
            For k = 0 To 5
                If k <> 4 Then .windows(k).Enabled = False
            Next k
        End With
    End If
End Sub
''''个子窗体显示
Sub Frm_Load()
    If frmnum = 0 Then
        With frmMain
            .ToolBar.Buttons("CutTxt").Enabled = True
            .ToolBar.Buttons("CopyTxt").Enabled = True
            .ToolBar.Buttons("PasteTxt").Enabled = True
            .ToolBar.Buttons("WindowCascade").Enabled = True
            .ToolBar.Buttons("WindowTileVertical").Enabled = True
            .ToolBar.Buttons("WindowTileHorizontal").Enabled = True
            .ToolBar.Buttons("WindowIcon").Enabled = True
            .ToolBar.Buttons("Windowunload").Enabled = True
            For k = 0 To 5
                If k <> 4 Then .windows(k).Enabled = True
            Next k
        End With
    End If
    frmnum = frmnum + 1
  
End Sub