【文章內(nèi)容簡介】 鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對(duì)話 ***學(xué)校畢業(yè)論文 12 框，然后將圖像列表屬性設(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)將該控件添加到工具箱中?！?StatusBar”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁”命令，為“ StatusBar”控件添加 3 個(gè)窗格，第一個(gè)窗格顯示系統(tǒng)操作員、第二個(gè)窗格顯示系統(tǒng)日期、第三個(gè)窗格顯示公司名稱和網(wǎng)址。 主界面的運(yùn)行結(jié)果如下圖所示： 圖 ***學(xué)校畢業(yè)論文 13 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 i End 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 ***學(xué)校畢業(yè)論文 14 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 desc Set = adoNews Call setNewsDataGrid_Caption 39。設(shè)置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分鐘就更新一次最新新聞和最新通知。在“ Timer”控件的“ Timer”事件下添加如下代碼。 Private Sub Timer1_Timer() = Now If CStr(Now) Then ***學(xué)校畢業(yè)論文 15 = Now 39。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date desc Call setNewsDataGrid_Caption 39。刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_Caption End If End 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) = 2021 (2) = 6700 End Sub ***學(xué)校畢業(yè)論文 16 窗體中的 ToolBar 控件為了方便用戶打開文件、聽音樂、查 看幫助、退出。代碼設(shè)計(jì)如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。 設(shè)置 “CancelError” 為 True = True On Error GoTo errHandle 39。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly 39。 設(shè)置過濾器 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Word 文檔 (*.doc)|*.doc| 可 執(zhí) 行 文 件 (*.exe)|*.exe| 所 有 圖 片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG 39。 指定缺省的過濾器 = 2 Shell , FileProtocolHandler + , vbNormalFocus Exit Sub errHandle: 39。 用戶按了 “ 取消 ” 按鈕 Exit Sub Case 2 Case 3 Case 4 ***學(xué)校畢業(yè)論文 17 Case 5 Unload Me End Select End Sub 至于工具欄上用到的窗體將會(huì)在 中介紹。 通知管理 通知管理包含 3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。其中， 發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。 1 發(fā)布通知 窗體設(shè)計(jì)結(jié)果如圖 所示 圖 部分代碼如下： ***學(xué)校畢業(yè)論文 18 窗體裝載事件代碼如下： Private Sub Form_Load() = For i = 0 To 1 (0).Value Next i 39。顯示用戶 For i = 0 To 1 (0).Value Next i 39。設(shè)置通知人 = 39。顯示日期 = Now End Sub “發(fā)布通知”按鈕的 Click 事件代碼如下： Private Sub Command1_Click() If = Then MsgBox 請(qǐng)選擇接收通知的部門！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請(qǐng)選擇接收通知的人！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請(qǐng)輸入通知內(nèi)容！ , vbInformation, 提示： Exit Sub End If ***學(xué)校畢業(yè)論文 19 (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 您的通知已經(jīng)發(fā)送成功！ , vbInformation, 提示： = = = End Sub 2 接收通知 “接收通知”窗體的設(shè)計(jì)結(jié)果如圖 所示： 圖 “查詢”按鈕的代碼如下： Private Sub cmdFind_Click() ***學(xué)校畢業(yè)論文 20 = pstr = select * from tboa_notice where notice_date between 39。 + str() + 39。and 39。 + str() + 39。and notice_acceptperson=39。 + + 39。order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub “顯示所有通知”按鈕代碼如下： Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =39。 + + 39。 order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub 3 已發(fā)通知 “已發(fā)通知”窗體設(shè)計(jì)結(jié)果如圖 所示： ***學(xué)校畢業(yè)論文 21 圖 主要代碼如下： Private Sub Form_Load() = pstr = select notice_date,notice_person,notice_a