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