VB建殼技術(shù)之指定工作組啟動(dòng)MDB項(xiàng)目詳解(技術(shù)交流)

• 應(yīng)用程序路徑："C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe "
• MDB文件路徑："D:\例程\Data\ADDRBOOK.mdb"
• 指定工作組參數(shù)：/wrkgrp
•   工作組文件路徑："D:\例程\Data\Security.mdw"
•   工作組用戶參數(shù)：/user
• 工作組用戶密碼參數(shù)：/pwd

3.2 指定工作組啟動(dòng)MDB需要解決的幾個(gè)問題：

• 實(shí)現(xiàn)VB與ACCESS 的無縫對(duì)接。實(shí)現(xiàn)對(duì)接需要VB工程中引用ACCESS11.0 類庫(kù)，文件名 MSACC.OLB ，引用方法：在VB工程窗口，點(diǎn)擊菜單：工程—引用—鉤選 Micfrosoft ACCESS 11.0 Object library—點(diǎn)確定，完成類庫(kù)引用。這樣我們就能如在VBA編輯環(huán)境一樣對(duì)ACCESS對(duì)象進(jìn)行編程，調(diào)用ACCESS類對(duì)象屬性、事件、方法。
  實(shí)例代碼：

'申明ACCESS對(duì)象類
Dim objAccess  As  Access.Application
'創(chuàng)建ACCESS實(shí)例對(duì)象
Set objAccess = CreateObject("ACCESS.Application")
'通過access對(duì)象屬性，獲得當(dāng)前access版號(hào)
strVer = objAccess.Version
'退出ACCESS，并釋放內(nèi)存
objAccess.Quit
Set objAccess = Nothing

• 修改ACCESS宏安全級(jí)別自定義函數(shù)，確保mdb項(xiàng)目順利啟動(dòng)。有關(guān)于此的方法我在論壇有發(fā)貼，在此不著筆墨。

        實(shí)例代碼：

'*************************************************************************
' 函 數(shù) 名：SetRegLevel
'-------------------------------------------------------------------------
' 功能描述：修改ACCESS安全級(jí)別在注冊(cè)表鍵值.
' 輸    入：blnSetReg (Boolean) ，false為低，true為中
' 輸    出：無
' 調(diào)用模塊：RegWrite '寫注冊(cè)表操作自定義函數(shù)，用以修改安全級(jí)別鍵值
' 編　　程：江羽
' 日    期：2008-10-09
'*************************************************************************
Public Function SetRegLevel(blnSetReg  As Boolean)
    Dim strRegSec As String   '字符串變量,安全設(shè)置鍵值所在注冊(cè)表路徑
    Dim strVer As String      '當(dāng)前ACCESS版號(hào)字符串變量
    On Error Resume Next
    '創(chuàng)建ACCESS對(duì)象
    Set objAccess = CreateObject("ACCESS.Application")
    '獲得當(dāng)前office版號(hào)
    strVer = objAccess.Version
   '退出ACCESS,并釋放內(nèi)存
    objAccess.Quit
    Set objAccess = Nothing
   '將注表路徑賦值給變量
    strRegSec = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & _
                 strVer & "\access\Security\Level"
   'RegWrite 自定義函數(shù),用以寫入鍵值操作
   '鍵值1為低,2為中,3為高
    If blnSetReg = False Then
       RegWrite strRegSec, 1
    Else
       RegWrite strRegSec, 2
    End If
End Function

• 指定工作組啟動(dòng)MDB項(xiàng)目自定義函數(shù)。這一節(jié)關(guān)鍵點(diǎn)在于用代碼獲取msaccess.exe 文件所在路徑，換句話說就是必須得到office的安裝路徑。方法有二：一是SysCmd方法，二是通過注冊(cè)表指定鍵值獲取，本文采用的是第一種方法。以上二法代碼實(shí)例，我在論壇中已有發(fā)貼，在此不做細(xì)說。下面是指定工作組啟動(dòng)MDB項(xiàng)目代碼。

'*************************************************************************
' 函 數(shù) 名：OpenWmdAcc
'-------------------------------------------------------------------------
' 功能描述：用shell方法打開帶安全工作組MD項(xiàng)目,必須提供工作組文件完整路徑,
' 工作組用戶名,密碼.
' 輸 入：strAccName(String) mdb項(xiàng)目文件名
'        strMdwName(String) 工作組文件名
'        strUserName(String) 工作組用戶名
'        strPassWord(string) 工作組密碼
' 輸 出：無
' 調(diào)用模塊：
' 編　　程：江羽
' 日 期：2008-10-09
'*************************************************************************
Public Function OpenWmdAcc(strAccName As String, strMdwName As String, strUserName As String, strPassWord As String)
Dim strAccPath As String 'Msaccess.exe 文件完整路徑
Dim strAccFileName As String '要啟動(dòng) mdb文件完整路徑
Dim strMdwFileName As String '工作組文件及完整路徑
Dim strAPP As String '命令表達(dá)式
On Error Resume Next
'創(chuàng)建ACCESS實(shí)例
Set objAccess = CreateObject("ACCESS.Application")
'獲取MSACCESS.EXE完整路徑
strAccPath = SysCmd(acSysCmdAccessDir) & "msaccess.exe "
'獲取mdb項(xiàng)目完整路徑
strAccFileName = App.Path & "\Data\" & strAccName
'獲取工作組文件完整路徑
strMdwFileName = App.Path & "\Data\" & strMdwName
'帶工作組啟動(dòng)的命令行
strAPP = """" & strAccPath & """ """ & strAccFileName & """ /wrkgrp """ & _
strMdwFileName & """ /user " & strUserName & " /pwd " & strPassWord
Shell strAPP, 3 '啟動(dòng)帶工作組項(xiàng)目
objAccess.Quit '退出ACCESS
Set objAccess = Nothing '并釋放內(nèi)存
'如出現(xiàn)錯(cuò)誤,給出錯(cuò)誤提示
If Err <> 0 Then
MsgBox "系統(tǒng)出現(xiàn):" & Err.Description & "錯(cuò)誤！ ", vbOKCancel + 32, "系統(tǒng)提示:"
End If
End Function

• 調(diào)用以上兩個(gè)自定義函數(shù)，建立指定工作組啟動(dòng)項(xiàng)目過程。

'*************************************************************************
' 過 程 名：OpenWmdMdb
'-------------------------------------------------------------------------
' 功能描述：首選修改宏安全級(jí)別限制，其次指定工作組打開mdb項(xiàng)目過程
' 輸 入：blnSetReg (Boolean)
' 輸 出：無
' 調(diào)用模塊：SetRegLevel '寫注冊(cè)表操作自定義函數(shù)，用以修改安全級(jí)別鍵值
' OpenWmdAcc '指定工作組并啟動(dòng)mdb項(xiàng)目
' 編　　程：江羽
' 日 期：2008-10-09
'*************************************************************************
Sub OpenWmdMdb()
'關(guān)閉宏安全級(jí)別限制
SetRegLevel False
'指定工作組啟動(dòng)mdb項(xiàng)目，用戶名：tan，密碼：123，是建立工作組時(shí)自己設(shè)定的
OpenWmdAcc "ADDRBOOK.mdb", "Security.mdw", "tan", "123"
'開啟中宏安全級(jí)別限制
SetRegLevel True
End Sub

3.3最終完成建殼，并編譯為EXE

• 啟動(dòng)VB6，建一個(gè)標(biāo)準(zhǔn)EXE工程。

• 將窗體BorderStyle屬性設(shè)為：0-None 無邊框模式，在picture屬性中添加背景圖片，實(shí)例圖片CXT.jpg在素材文件夾中。

• 將控件工具欄中的時(shí)鐘控件添加到窗體中，并將時(shí)鐘控件Interval屬性值設(shè)定為：3000，以便計(jì)時(shí)器觸事件在三秒鐘后關(guān)閉窗體。

• 添加時(shí)鐘控件觸發(fā)事件，見實(shí)例代碼。

'*************************************************************************
' 過 程 名：Timer1_Timer
'-------------------------------------------------------------------------
' 功能描述：計(jì)時(shí)器控件，計(jì)時(shí)觸發(fā)事件,用以延時(shí)關(guān)閉窗體
' 輸    入：無
' 輸    出：無
' 調(diào)用模塊：OpenWmdMdb '
' 編　　程：江羽
' 日    期：2008-10-09
'*************************************************************************
Private Sub Timer1_Timer()
   Unload Me           '關(guān)閉窗體
   Call OpenWmdMdb   '調(diào)用指定工作組啟動(dòng)mdb項(xiàng)目模塊
End Sub

• 編譯成EXE應(yīng)用程序，點(diǎn)菜單文件—生成工程1.exe，你就大功告成了。（見下圖）運(yùn)行窗體結(jié)果

實(shí)例及源碼下載:VB實(shí)例及源碼