【文章內(nèi)容簡介】 業(yè)營銷管理系統(tǒng)”，Picture屬性設(shè)置為事先設(shè)計好的背景圖片。（2）在frm_main窗體上添加一個StatusBar控件和一個CommonDialog控件。2．創(chuàng)建標(biāo)準(zhǔn)菜單選擇“工具”→“菜單編輯器”命令，打開菜單編輯器，在此創(chuàng)建如圖4所示的菜單結(jié)構(gòu)。圖4 標(biāo)準(zhǔn)菜單的結(jié)構(gòu)3．創(chuàng)建動態(tài)菜單欄當(dāng)鼠標(biāo)移到動態(tài)菜單欄時，菜單項將凸起，菜單標(biāo)題也由原來的“黑色”變?yōu)椤凹t色”，結(jié)果如圖5所示。 圖5 動態(tài)菜單欄的結(jié)構(gòu)創(chuàng)建動態(tài)菜單欄的步驟如下。（1）在frm_main窗體圖片的動態(tài)菜單欄所在添加Label控件數(shù)組（Label2(0)～Label2(7)），設(shè)置其BackStyle屬性為0Transparent，F(xiàn)oreColor屬性為“amp。H80000012amp?！?，Caption屬性分別為“產(chǎn)品管理”、“銷售組織”、“銷售訓(xùn)練”、“銷售業(yè)績考核”、“市場跟蹤”、“市場走勢”、“銷售數(shù)據(jù)導(dǎo)入”、“銷售預(yù)測”。（2）在窗體上添加一個Picture控件，默認名為Picture1，設(shè)置其BorderStyle屬性為0None；Picture屬性為事先設(shè)計好的圖片。（3）在Picture1控件里添加1個Label控件，設(shè)置“名稱”屬性為lblCaption；BackStyle屬性為0None；ForeColor屬性為amp。H00000080amp。4．創(chuàng)建Outlook式導(dǎo)航欄當(dāng)單擊Outlook式導(dǎo)航欄上的導(dǎo)航按鈕時，該導(dǎo)航欄將展開，并顯示相應(yīng)的項，單擊該項則調(diào)入相應(yīng)的功能窗體，具體設(shè)計步驟如下。（1）在frm_main窗體上添加Picture控件數(shù)組（picMenu(0)～picMenu(7)），設(shè)置其BorderStyle屬性為0None；Picture屬性為事先設(shè)計好的圖片。（2）在picMenu(0)～picMenu(7)控件數(shù)組中各添加一個Label（lblMenu）控件數(shù)組，其index屬性與picMenu控件數(shù)組的index屬性相同，BackStyle屬性為0Transparent，F(xiàn)oreColor屬性為“amp。H00FFFFFFamp?！保珻aption屬性分別為“基本資料管理”、“銷售組織”、“市場管理”、“銷售業(yè)務(wù)管理”、“銷售分析”、“營銷資源管理”、“系統(tǒng)管理”、“輔助”。（3）在窗體中添加ListView控件和ImageList控件。設(shè)置ListView控件的Appearance屬性為0ccFlat；BorderStyle屬性為0ccNone。（4）右鍵單擊ListView控件，在彈出的菜單中選擇“屬性”命令，打開“屬性頁”對話框，在“圖像列表”選項卡中，設(shè)置圖標(biāo)圖像列表（普通）為ImageList1。5．代碼設(shè)計Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongDim rs1 As New Dim i, j As IntegerPublic strMenu As String窗體載入時，添加狀態(tài)欄，并設(shè)置相關(guān)屬性，以顯示操作員、當(dāng)前系統(tǒng)日期等，代碼如下：Private Sub Form_Load() lblMenu_Click (0) Dim pnlX As Panel 39。添加面板，并將它們設(shè)置為目錄。 (1).AutoSize = sbrContents (1) = mytag Set pnlX = = sbrContents = 當(dāng)前操作員： amp。 czy Set pnlX = = sbrDate Set pnlX = = sbrTimeEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label1(Index).ForeColor = amp。HC0amp。End Sub當(dāng)鼠標(biāo)移到動態(tài)菜單欄上的文字上時（Label2），Picture1控件可見，使其Left屬性等于Label2控件數(shù)組的Left屬性，同時設(shè)置Picture1控件中的lblCaption的Caption屬性等于Label2控件數(shù)組的Caption屬性，代碼如下。Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) = Label2(Index).Left 10 = True lblCaption = Label2(Index).CaptionEnd Sub當(dāng)鼠標(biāo)移到窗體上時恢復(fù)相關(guān)控件的屬性，代碼如下。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False For i = 0 To 3 Label1(i).ForeColor = amp。HC0C0C0 Next iEnd SubPrivate Sub Label1_Click(Index As Integer) If Index 3 Then m8_Click (Index) End If If Index = 3 Then EndEnd Sub通過動態(tài)菜單欄顯示的標(biāo)題，調(diào)用相應(yīng)菜單的Click事件過程，代碼如下。Private Sub lblCaption_Click() Select Case Case 產(chǎn)品管理 m1_Click (1) 39。此處代碼省略，詳細內(nèi)容請參見光盤 End SelectEnd Sub單擊導(dǎo)航欄上的導(dǎo)航按鈕，動態(tài)調(diào)整導(dǎo)航按鈕的高度、ListView控件的高度，并向ListView控件添加項，代碼如下。Private Sub lblMenu_Click(Index As Integer) strMenu = lblMenu(Index).Caption Dim m As Integer For i = 1 To Index picMenu(i).Top = picMenu(i 1).Top + (i 1).Height Next i = picMenu(i 1).Top + (i 1).Height If Index 7 Then picMenu(Index + 1).Top = + For i = Index + 2 To 1 picMenu(i).Top = (i 1).Top + (i 1).Height Next i Select Case Index Case 0 = True For i = 0 To 1 Key = 【 amp。 (i).Caption amp。 】 m = i + 1 Set itmX = (, , Key, m) Next i Case 1 = True For i = 0 To 1 Key = 【 amp。 (i).Caption amp。 】 m = i + Set itmX = (, , Key, m) Next i Case 2 = True For i = 0 To 1 Key = 【 amp。 (i).Caption amp。 】 m = + + i Set itmX = (, , Key, m) Next i Case 3 = True For i = 0 To 1 Key = 【 amp。 (i).Caption amp。 】 m = + + + i Set itmX = (, , Key, m) Next i 39。此處代碼省略，詳細內(nèi)容可參見光盤End Sub單擊ListView1中的項，根據(jù)選定項的索引值調(diào)用相應(yīng)菜單的Click事件過程，代碼如下。Private Sub ListView1_Click() Select Case strMenu Case 基本資料管理 m1_Click ( 1) 39。此處代碼省略，詳細內(nèi)容請參見光盤 End SelectEnd Sub單擊菜單數(shù)組，通過變量czy判斷操作員的操作權(quán)限。如果沒有權(quán)限，則提示用戶；如果有權(quán)限，則根據(jù)菜單數(shù)組的索引值調(diào)用相應(yīng)的功能窗體或執(zhí)行相應(yīng)的操作，代碼如下。Private Sub m1_Click(Index As Integer) text = m1(Index).Caption select * from 權(quán)限信息表 where 操作員=39。 amp。 czy amp。 39。, Cnn, adOpenStatic If 0 Then If (Index) = False Then MsgBox 對不起，您沒有使用此項功能的權(quán)限！, vbInformation, 提示窗口 Exit Sub End If End If Select Case Index Case 0 Load main_jbzl_qygl 1 Case 1 Load main_jbzl_cpgl 1 Case 2 jbxxtb = 訓(xùn)練項目表 Load main_jbzl_public 1 Case 3 jbxxtb = 考核指標(biāo)表 Load main_jbzl_public 1 End SelectEnd SubPrivate Sub m2_Click(Index As Integer) text = m2(Index).Caption select * from 權(quán)限信息表 where 操作員=39。 amp。 czy amp。 39。, Cnn, adOpenStatic If 0 Then If (Index + 11) = False Then MsgBox 對不起，您沒有使用此項功能的權(quán)限！, vbInformation, 提示窗口 Exit Sub End If End If Select Case Index Case 0 Load main_xszz_xszzgl 1 Case 1 Load main_xszz_ywygl 1 Case 2 Load main_xszz_xsxlgl 1 Case 3 Load main_xszz_xsyjgl 1 End SelectEnd Sub39。此處代碼與上述代碼的設(shè)計思路相同，因此省略，詳細內(nèi)容可參見光盤 產(chǎn)品管理產(chǎn)品管理模塊主要用于對企業(yè)內(nèi)部產(chǎn)品進行有效的管理，建立詳細的產(chǎn)品檔案，實現(xiàn)產(chǎn)品信息的添加、修改、刪除及查詢功能，其中查詢可通過萬能查詢器對產(chǎn)品信息進行多種條件查詢。產(chǎn)品管理模塊的運行結(jié)果如圖6所示。圖6 產(chǎn)品管理單擊“增加”按鈕，添加新的產(chǎn)品信息，如圖7所示。圖7 產(chǎn)品信息添加單擊“修改”按鈕，修改產(chǎn)品信息，如圖8所示。圖8 產(chǎn)品信息修改單擊“查找”按鈕，打開萬能查詢器，可實現(xiàn)產(chǎn)品信息的多種條件查詢，如圖9所示。圖9 產(chǎn)品查詢1．父窗體設(shè)