【正文】 .Buttons(1).Enabled = False: .Buttons(2).Enabled = False: .Buttons(3).Enabled = False .Buttons(6).Enabled = False:.Buttons(4).Enabled = True: .Buttons(5).Enabled = True Else .Buttons(1).Enabled = True: .Buttons(2).Enabled = True:.Buttons(3).Enabled = True .Buttons(6).Enabled = True: .Buttons(4).Enabled = False: .Buttons(5).Enabled = False End If End WithEnd Function 主界面設(shè)計(jì)軟件界面是人與計(jì)算機(jī)之間的媒介，用戶通過軟件界面來與計(jì)算機(jī)進(jìn)行信息交換，因此，軟件界面的質(zhì)量將直接關(guān)系到應(yīng)用系統(tǒng)的性能能否充分發(fā)揮，尤其是主界面。針對(duì)這種現(xiàn)狀，企業(yè)營銷管理系統(tǒng)的主界面改變了傳統(tǒng)的設(shè)計(jì)風(fēng)格，將美學(xué)思想整合進(jìn)去，引入平面設(shè)計(jì)思想，真正實(shí)現(xiàn)了使用戶準(zhǔn)確、高效、輕松、愉快地工作。Outlook式導(dǎo)航欄動(dòng)態(tài)菜單欄圖3 主界面主界面擔(dān)負(fù)著調(diào)用各個(gè)功能模塊，賦予操作員不同的操作權(quán)限，顯示當(dāng)前操作員、操作狀態(tài)和系統(tǒng)日期等任務(wù)，其中應(yīng)用了動(dòng)態(tài)創(chuàng)建列表項(xiàng)、動(dòng)態(tài)定位列表等技術(shù)，具體步驟如下。（2）在frm_main窗體上添加一個(gè)StatusBar控件和一個(gè)CommonDialog控件。圖4 標(biāo)準(zhǔn)菜單的結(jié)構(gòu)3．創(chuàng)建動(dòng)態(tài)菜單欄當(dāng)鼠標(biāo)移到動(dòng)態(tài)菜單欄時(shí)，菜單項(xiàng)將凸起，菜單標(biāo)題也由原來的“黑色”變?yōu)椤凹t色”，結(jié)果如圖5所示。（1）在frm_main窗體圖片的動(dòng)態(tài)菜單欄所在添加Label控件數(shù)組（Label2(0)～Label2(7)），設(shè)置其BackStyle屬性為0Transparent，F(xiàn)oreColor屬性為“amp。”，Caption屬性分別為“產(chǎn)品管理”、“銷售組織”、“銷售訓(xùn)練”、“銷售業(yè)績(jī)考核”、“市場(chǎng)跟蹤”、“市場(chǎng)走勢(shì)”、“銷售數(shù)據(jù)導(dǎo)入”、“銷售預(yù)測(cè)”。（3）在Picture1控件里添加1個(gè)Label控件，設(shè)置“名稱”屬性為lblCaption；BackStyle屬性為0None；ForeColor屬性為amp。4．創(chuàng)建Outlook式導(dǎo)航欄當(dāng)單擊Outlook式導(dǎo)航欄上的導(dǎo)航按鈕時(shí)，該導(dǎo)航欄將展開，并顯示相應(yīng)的項(xiàng)，單擊該項(xiàng)則調(diào)入相應(yīng)的功能窗體，具體設(shè)計(jì)步驟如下。（2）在picMenu(0)～picMenu(7)控件數(shù)組中各添加一個(gè)Label（lblMenu）控件數(shù)組，其index屬性與picMenu控件數(shù)組的index屬性相同，BackStyle屬性為0Transparent，F(xiàn)oreColor屬性為“amp。”，Caption屬性分別為“基本資料管理”、“銷售組織”、“市場(chǎng)管理”、“銷售業(yè)務(wù)管理”、“銷售分析”、“營銷資源管理”、“系統(tǒng)管理”、“輔助”。設(shè)置ListView控件的Appearance屬性為0ccFlat；BorderStyle屬性為0ccNone。5．代碼設(shè)計(jì)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窗體載入時(shí)，添加狀態(tài)欄，并設(shè)置相關(guān)屬性，以顯示操作員、當(dāng)前系統(tǒng)日期等，代碼如下：Private Sub Form_Load() lblMenu_Click (0) Dim pnlX As Panel 39。 (1).AutoSize = sbrContents (1) = mytag Set pnlX = = sbrContents = 當(dāng)前操作員： amp。HC0amp。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)移到窗體上時(shí)恢復(fù)相關(guān)控件的屬性，代碼如下。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通過動(dòng)態(tài)菜單欄顯示的標(biāo)題，調(diào)用相應(yīng)菜單的Click事件過程，代碼如下。此處代碼省略，詳細(xì)內(nèi)容請(qǐng)參見光盤 End SelectEnd Sub單擊導(dǎo)航欄上的導(dǎo)航按鈕，動(dòng)態(tài)調(diào)整導(dǎo)航按鈕的高度、ListView控件的高度，并向ListView控件添加項(xiàng)，代碼如下。 (i).Caption amp。 (i).Caption amp。 (i).Caption amp。 (i).Caption amp。此處代碼省略，詳細(xì)內(nèi)容可參見光盤End Sub單擊ListView1中的項(xiàng)，根據(jù)選定項(xiàng)的索引值調(diào)用相應(yīng)菜單的Click事件過程，代碼如下。此處代碼省略，詳細(xì)內(nèi)容請(qǐng)參見光盤 End SelectEnd Sub單擊菜單數(shù)組，通過變量czy判斷操作員的操作權(quán)限。Private Sub m1_Click(Index As Integer) text = m1(Index).Caption select * from 權(quán)限信息表 where 操作員=39。 czy amp。, Cnn, adOpenStatic If 0 Then If (Index) = False Then MsgBox 對(duì)不起，您沒有使用此項(xiàng)功能的權(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)練項(xiàng)目表 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。 czy amp。, Cnn, adOpenStatic If 0 Then If (Index + 11) = False Then MsgBox 對(duì)不起，您沒有使用此項(xiàng)功能的權(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。產(chǎn)品管理模塊的運(yùn)行結(jié)果如圖6所示。圖7 產(chǎn)品信息添加單擊“修改”按鈕，修改產(chǎn)品信息，如圖8所示。圖9 產(chǎn)品查詢1．父窗體設(shè)計(jì)（1）選擇“工程”→“添加窗體”命令，添加一個(gè)窗體，將該窗體的“名稱”屬性設(shè)置為main_jbzl_cpgl。（3）在窗體上添加一個(gè)ADO控件和一個(gè)DataGrid控件。表1 主要控件對(duì)象的屬性列表對(duì)象屬性值功能Adodc1CommandTypeConnectionStringRecordSourceVisible2adCmdTextProvider=。User ID=sa。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。Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case add 39。修改狀態(tài)，調(diào)用DataGrid1_DblClick過程 DataGrid1_DblClick Case delete 39。調(diào)出萬能查詢器 tb1 = 產(chǎn)品信息表 Load main_fzfind 1 Case all 39。（2）在窗體上添加TextBox控件數(shù)組（text1(0)～text1(4)）和兩個(gè)CommandButton控件。Dim rs1 As New 窗體載入時(shí)，將首先通過布爾型變量blnAddCP判斷是添加還是修改。Private Sub Form_Load() If blnAddCP = True Then = 產(chǎn)品信息添加 select * from 產(chǎn)品信息表 order by 產(chǎn)品編號(hào), Cnn, adOpenKeyset If 0 Then Text1(0) = Format(Val((產(chǎn)品編號(hào))) + 1, 00000) Else Text1(0) = 00001 End If For i = 1 To Text1(i) = Next i Else = 產(chǎn)品信息修改 With For i = 0 To Text1(i) = .Fields(i) Next i End With End IfEnd Sub用戶輸入內(nèi)容完畢后，單擊【保存】按鈕，觸發(fā)Click事件，代碼如下。 + Text1(0) + 39。 + Text1(1) + 39。 + Text1(2) + _ 39。 + Text1(4) + 39。 + Text1(1) + 39。 + Text1(2) + _ 39。 + Text1(4) + 3