【正文】 18 窗體裝載事件代碼如下： Private Sub Form_Load() = For i = 0 To 1 (0).Value Next i 39。 通知管理 通知管理包含 3個部分：發(fā)布通知、接收通知、已發(fā)通知。 指定缺省的過濾器 = 2 Shell , FileProtocolHandler + , vbNormalFocus Exit Sub errHandle: 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly 39。 設(shè)置 “CancelError” 為 True = True On Error GoTo errHandle 39。 Sub setNewsDataGrid_Caption() For i = 1 To (i, 0) = i Next (0, 0) = 序號 (0, 1) = 發(fā)布日期 (0, 2) = 新聞內(nèi)容 (0) = 800 (1) = 2021 (2) = 6700 End Sub ***學(xué)校畢業(yè)論文 16 窗體中的 ToolBar 控件為了方便用戶打開文件、聽音樂、查 看幫助、退出。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date desc Call setNewsDataGrid_Caption 39。在“ Timer”控件的“ Timer”事件下添加如下代碼。檢索最新的 8條新聞 = select top 8 news_date,news_text from tboa_news order by news_date desc Set = adoNews Call setNewsDataGrid_Caption 39。pwd=sa。Persist Security Info=False。設(shè)置新聞 = = pstr 39。key 返回設(shè)置字符串，在集合中唯一的標(biāo)識一個成員 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 = 投票活動 Then If = 投票管理 Then If = 意見箱管理 Then If = 添加用戶 Then ***學(xué)校畢業(yè)論文 14 If = 密碼修改 Then End Sub 在“ Form”窗體的裝載過程中，將最新的新聞和通知顯示在 MSHFlexGrid 表格中。在“ TreeView”控件的 NodeClick 事件下添加如下代碼： 39。激活窗體的 Activate 事件， Private Sub Form_Activate() For i = 1 To 39。 主界面的運(yùn)行結(jié)果如下圖所示： 圖 ***學(xué)校畢業(yè)論文 13 2 代碼設(shè)計 當(dāng)窗體激活時，將“ TreeView”控件中所有的節(jié)點(diǎn)展開。該控件屬于“ ActiveX”控件，添加“ ImaggeList”控件時已經(jīng)將該控件添加到工具箱中。為了使“ ImageList”控件中的圖像能夠順利地顯示在“ TreeView”控件的節(jié)點(diǎn)中，需將“ ImageList”綁定到“ TreeView”控件上，綁定方法為：在“ TreeView”控件上單擊鼠 標(biāo)右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對話 ***學(xué)校畢業(yè)論文 12 框，然后將圖像列表屬性設(shè)置為“ ImageList1” 4)添加“ MSHFlexGrid”控件，該控件屬于 Active 控件，在使用之前必須將“ MSHFlexGrid”控件添加到工具箱中，添加方法為：在“部件”對話框中選中“ Microsoft Hierarchical FlexGrid Control ”列表項，添加兩個MSHFlexGrid 控件，“ MSHFlexgrid1”和“ MSHFlexGrid2”控件。 3）向窗體中添加“ Treeview”控件，設(shè)置其“ Appearance”屬性為“ 0ccfat”。該控件屬于 ActiveX 控件，在使用之前必須從“部件”對話框中將其添加到工具箱中。 1 窗體設(shè)計 1）新建一個窗體，將窗體的“ Caption”屬性設(shè)置為“ OA辦公自動化系統(tǒng)” ,設(shè)置“ BackColor”屬性為窗體選擇合適的背景顏色。 (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ā)通 ***學(xué)校畢業(yè)論文 10 知 , 已發(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, 投票活動 , 投票活動 , 1) Set n5 = (, tvwChild, 系統(tǒng)維護(hù)管理, 系統(tǒng)維護(hù)管理 , 1) Set node5 = (n5, tvwChild, 投票管理 , 投票管理 , 1) Set node5 = (n5, tvwChild, 意見箱管理 , 意見箱管理 , 1) ***學(xué)校畢業(yè)論文 11 Set node5 = (n5, tvwChild, 添加用戶 , 添加用戶 , 1) Set node5 = (n5, tvwChild, 密碼修改 , 密碼修改 , 1) End If Else 39。設(shè)置 treeview 控件的樹狀菜單 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, ***學(xué)校畢業(yè)論文 9 接收新聞 , 接收新聞 , 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, 投票活動 , 投票活動 , 1) Else 39。 39。如果密碼正確，判斷用戶權(quán)限，如果用戶沒有管理權(quán)限則設(shè)置主界面的TreeView 控件 39。如果存在，判斷用戶輸入的密碼是否正確 Else If Trim(rs(user_pwd)) = Trim() Then 39。 mysql, con 39。 “系統(tǒng)登錄”窗體的設(shè)計結(jié)果如下圖所示： 圖 2. 代碼設(shè)計 雙擊“登錄”按鈕（ labLogin）添加如下事件代碼： Private Sub labLogin_Click() Set con = New Set rs = New = pstr mysql=select * from dbOA_user where user_name =39。 添加兩個“ TextBox”控件，設(shè)置其 BorderStyle 屬性為“ 0None”。 新建一個窗體，將窗體的 BorderStyle 屬性設(shè)置為“ 0None” ,設(shè)置 Picture 屬性，為窗體添加圖片。調(diào)用 frm_login 窗口 End Sub 登錄界面設(shè)計 本系統(tǒng)屬 于 OA 辦公自動化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。Initial Catalog=db_OA。User ID=sa。共享連接字符串 pstr = Provider=。在以后的編程中，如果使用對象訪問數(shù)據(jù)庫或“ ADO Data”控件訪問數(shù)據(jù)庫則可以直接將數(shù)據(jù)庫連字符串的值賦給相應(yīng)的“ ConnectionString ”屬性，從而 避免了重復(fù)建立數(shù)據(jù)庫的麻煩，以防失去 ADO+SQL 的優(yōu)越性能。 主要數(shù)據(jù)表的結(jié)構(gòu) 表 1 dbOA_user 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 username vachar 20 Y 用戶名 userjpwd vachar 20 N 密碼 userbit bit N 權(quán)限標(biāo)記 表 2 tbOA_news 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 news_id int Y 新聞 ID news_date datetime N 新聞發(fā)布時間 news_person vachar 12 N 發(fā)布人 news_a