【文章內容簡介】 系統(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 產(chǎn)品管理 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。此處代碼與上述代碼的設計思路相同，因此省略，詳細內容可參見光盤 產(chǎn)品管理產(chǎn)品管理模塊主要用于對企業(yè)內部產(chǎn)品進行有效的管理，建立詳細的產(chǎn)品檔案，實現(xiàn)產(chǎn)品信息的添加、修改、刪除及查詢功能，其中查詢可通過萬能查詢器對產(chǎn)品信息進行多種條件查詢。產(chǎn)品管理模塊的運行結果如圖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．父窗體設計（1）選擇“工程”→“添加窗體”命令，添加一個窗體，將該窗體的“名稱”屬性設置為main_jbzl_cpgl。（2）在窗體中設計如圖6所示的工具欄。（3）在窗體上添加一個ADO控件和一個DataGrid控件。（4）主要控件的屬性設置如表1所示。表1 主要控件對象的屬性列表對象屬性值功能Adodc1CommandTypeConnectionStringRecordSourceVisible2adCmdTextProvider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_CSellselect * from 產(chǎn)品信息表False提供數(shù)據(jù)綁定DataGrid1DataSourceAdodc1顯示產(chǎn)品信息（5）程序代碼。Private Sub Form_Activate() If sql1 Then = sql1 End IfEnd SubPrivate Sub Form_Load() = textEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = 39。清空查詢字符串End SubPriv