【正文】 Set node2 = (n2, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (n2, tvwChild, 已發(fā)新聞, 已發(fā)新聞, 1) Set n3 = (, tvwChild, 文件傳送, 文件傳送, 1) Set node3 = (n3, tvwChild, 傳送文件, 傳送文件, 1) Set node3 = (n3, tvwChild, 接收文件, 接收文件, 1) Set node3 = (n3, tvwChild, 已發(fā)文件, 已發(fā)文件, 1) Set n4 = (, tvwChild, 交流管理, 交流管理, 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱, 1) Set node4 = (n4, tvwChild, 投票活動(dòng), 投票活動(dòng), 1) Else 39。擁有操作權(quán)限，設(shè)置TreeView控件的樹狀菜單為管理員的樣式 (1).Text = 管理職員： amp。 (2).Text = Format(Now, m/d/yy) Set n1 = (, tvwChild, 通知管理, 通知管理, 1) Set node1 = (n1, tvwChild, 發(fā)布通知, 發(fā)布通知, 1) Set node1 = (n1, tvwChild, 接收通知, 接收通知, 1) Set node1 = (n1, tvwChild, 已發(fā)通知, 已發(fā)通知, 1) Set n2 = (, tvwChild, 新聞管理, 新聞管理, 1) Set node2 = (n2, tvwChild, 新聞發(fā)布, 新聞發(fā)布, 1) Set node2 = (n2, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (n2, tvwChild, 已發(fā)新聞, 已發(fā)新聞, 1) Set n3 = (, tvwChild, 文件傳送, 文件傳送, 1) Set node3 = (n3, tvwChild, 傳送文件, 傳送文件, 1) Set node3 = (n3, tvwChild, 接收文件, 接收文件, 1) Set node3 = (n3, tvwChild, 已發(fā)文件, 已發(fā)文件, 1) Set n4 = (, tvwChild, 交流管理, 交流管理, 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱, 1) Set node4 = (n4, tvwChild, 投票活動(dòng), 投票活動(dòng), 1) Set n5 = (, tvwChild, 系統(tǒng)維護(hù)管理, 系統(tǒng)維護(hù)管理, 1) Set node5 = (n5, tvwChild, 投票管理, 投票管理, 1) Set node5 = (n5, tvwChild, 意見箱管理, 意見箱管理, 1) Set node5 = (n5, tvwChild, 添加用戶, 添加用戶, 1) Set node5 = (n5, tvwChild, 密碼修改, 密碼修改, 1) End If Else39。密碼不正確則顯示提示框MsgBox 輸入密碼不正確，請(qǐng)重新輸入！,vbOKOnly + vbExclamation, 警告 = End If End IfEnd Sub 主界面設(shè)計(jì) 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時(shí)間顯示以及顯示OA辦公系統(tǒng)的最新新聞和通知。1 窗體設(shè)計(jì)1）新建一個(gè)窗體，將窗體的“Caption”屬性設(shè)置為“OA辦公自動(dòng)化系統(tǒng)”,設(shè)置“BackColor”屬性為窗體選擇合適的背景顏色。2）添加“ImageList”控件。該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中將其添加到工具箱中。添加方法為：在“部件”對(duì)話框中選中“ Microsoft Windows Common Controls (SP6)”列表項(xiàng)。3）向窗體中添加“Treeview”控件，設(shè)置其“Appearance”屬性為“0ccfat”?！癟reeView”控件屬于“ActiveX”rpwr ,使用前必須將其添加到工具箱中。為了使“ImageList”控件中的圖像能夠順利地顯示在“TreeView”控件的節(jié)點(diǎn)中，需將“ImageList”綁定到“TreeView”控件上，綁定方法為：在“TreeView”控件上單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對(duì)話框，然后將圖像列表屬性設(shè)置為“ImageList1”4)添加“MSHFlexGrid”控件，該控件屬于Active控件，在使用之前必須將“MSHFlexGrid”控件添加到工具箱中，添加方法為：在“部件”對(duì)話框中選中“Microsoft Hierarchical FlexGrid Control ”列表項(xiàng)，添加兩個(gè)MSHFlexGrid控件，“MSHFlexgrid1”和“MSHFlexGrid2”控件。5）添加“StatusBar”（狀態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站。該控件屬于“ActiveX”控件，添加“ImaggeList”控件時(shí)已經(jīng)將該控件添加到工具箱中?！癝tatusBar”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁”命令，為“StatusBar”控件添加3個(gè)窗格，第一個(gè)窗格顯示系統(tǒng)操作員、第二個(gè)窗格顯示系統(tǒng)日期、第三個(gè)窗格顯示公司名稱和網(wǎng)址。主界面的運(yùn)行結(jié)果如下圖所示：2 代碼設(shè)計(jì) 當(dāng)窗體激活時(shí)，將“TreeView”控件中所有的節(jié)點(diǎn)展開。在“Form”窗體的“Activate”事件下添加如下代碼：39。激活窗體的Activate事件，Private Sub Form_Activate() For i = 1 To 39。展開全部節(jié)點(diǎn) (i).Expanded = True Next iEnd Sub單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。在“TreeView”控件的NodeClick事件下添加如下代碼：39。單擊樹狀菜單中的菜單時(shí)，根據(jù)所選擇的菜單顯示相應(yīng)的窗體Private Sub TreeView1_NodeClick(ByVal Node As )39。key 返回設(shè)置字符串，在集合中唯一的標(biāo)識(shí)一個(gè)成員If = 發(fā)布通知 Then If = 接收通知 Then If = 已發(fā)通知 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 傳送文件 Then If = 接收文件 Then If = 已發(fā)文件 Then If = 意見箱 Then If = 投票活動(dòng) Then If = 投票管理 Then If = 意見箱管理 Then If = 添加用戶 Then If = 密碼修改 Then End Sub在“Form”窗體的裝載過程中，將最新的新聞和通知顯示在MSHFlexGrid表格中。Private Sub Form_Load()39。設(shè)置新聞 = = pstr 39。Provider=。Persist Security Info=False。User ID=sa。pwd=sa。Initial Catalog=db_OA 39。檢索最新的8條新聞 = select top 8 news_date,news_text from tboa_news order by news_date descSet = adoNewsCall setNewsDataGrid_Caption39。設(shè)置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date descSet = adoNoticeCall setNoticeDataGrid_CaptionEnd Sub每隔一分鐘就更新一次最新新聞和最新通知。在“Timer”控件的“Timer”事件下添加如下代碼。Private Sub Timer1_Timer() = NowIf CStr(Now) Then = Now39。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date descCall setNewsDataGrid_Caption39。刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_CaptionEnd IfEnd Sub自定義過程setNewsDataGrid_Caption()用來初始化新聞MSHFlexGrid2控件的列標(biāo)題和表格寬度。Sub setNewsDataGrid_Caption()For i = 1 To (i, 0) = i Next (0, 0) = 序號(hào) (0, 1) = 發(fā)布日期 (0, 2) = 新聞內(nèi)容 (0) = 800 (1) = 2000 (2) = 6700End Sub窗體中的ToolBar控件為了方便用戶打開文件、聽音樂、查看幫助、退出。代碼設(shè)計(jì)如下：Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 139。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandle 39。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly39。 設(shè)置過濾器 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Word 文檔 (*.doc)|*.doc|可執(zhí)行文件 (*.exe)|*.exe|所有圖片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG39。 指定缺省的過濾器 = 2Shell , FileProtocolHandler + , vbNormalFocusExit SuberrHandle:39。 用戶按了“取消”按鈕Exit SubCase 2 Case 3 Case 4Case 5 Unload Me End SelectEnd Sub。 通知管理 通知管理包含3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。其中，發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。1 發(fā)布通知部分代碼如下： 窗體裝載事件代碼如下：Private Sub Form_Load() = For i = 0 To 1 (0).ValueNext i39。顯示用戶For i = 0 To 1 (0).ValueNext i39。設(shè)置通知人 = 39。顯示日期 = NowEnd Sub