【正文】 自動(dòng)化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。 系統(tǒng)登錄驗(yàn)證操作員及其密碼，主要通過(guò)記錄集結(jié)果（ RecordSet）結(jié)合 If語(yǔ)句， 判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫(kù)中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶非法登錄。 窗體設(shè)計(jì) （ 1）新建一個(gè)窗體，將窗體的“名稱”屬性設(shè)置為 frm_login， BorderStyle屬性設(shè)置為 0None，設(shè)置 Picture 屬性，為窗體添加背景圖片。 （ 2）添加 Adodc 控件，設(shè)置名稱為 adoLogin， Visible 屬性為 False，由于該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲?。添加方法為? 在“工程” /“部 件”對(duì)話框中 勾 選“ Microsoft Ado Data Controls (SP4)”列表項(xiàng)。 （ 3）添加 2 個(gè) TextBox 控件，分別設(shè)置名稱（ Name 屬性）為 Text1 和Text2，設(shè)置 BorderStyle 屬性為 0None。 （ 4）添加 2 個(gè) Label 控件，將名稱設(shè)置為 labLogin 和 labEnd， BackStyle屬性為 0Transparent。 系統(tǒng)登錄窗體的設(shè)計(jì)結(jié)果如圖 3 所示。 圖 3 系統(tǒng)登錄窗體設(shè)計(jì) 代碼設(shè)計(jì) 單擊名稱為 labLogin 的 Label 控件用來(lái)進(jìn)行用戶安全性檢查，如果用戶 名稱和密碼正確，則進(jìn)入系統(tǒng)并分配相應(yīng)的權(quán)限。在 Label 控件名稱為 labLogin 的Click 事件下，添加代碼如下： Private Sub labLogin_Click() = PublicStr 河北科技大學(xué)?？飘厴I(yè)論文 9 = select * from tbOA_user where username=39。 + + 39。 and userpwd=39。 + + 39。 If 0 Then If (2).Value = 0 Then = False 39。權(quán)限約束 (1).Text = 操作職 員： amp。 39。設(shè)置控件 TreeView樹狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (, tvwChild, 接收通知 , 接收通知 , 1) Set node1 = (, tvwChild, 已發(fā)通知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set nnode2 = (, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (, tvwChild, 接收新聞 , 接收新聞 , 1) Set node2 = (, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n4 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set nnode4 = (, tvwChild, 傳送文件 , 傳送文件 , 1) Set node4 = (, tvwChild, 接收文件 , 接收文件 , 1) Set node4 = (, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n3 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node3 = (, tvwChild, 意見箱 , 意見箱 , 1) Set node3 = (, tvwChild, 投票活動(dòng) , 投票活動(dòng) , 1) Set node3 = (, tvwChild, 短消息服務(wù) , 短消息服務(wù) , 1) Else (1).Text = 操作職員： amp。 39。設(shè)置控件 TreeView樹狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (, tvwChild, 接收通知 , 接河北科技大學(xué)?？飘厴I(yè)論文 10 收通知 , 1) Set node1 = (, tvwChild, 已發(fā)通知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set nnode2 = (, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (, tvwChild, 接收新聞 , 接收新聞 , 1) Set node2 = (, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n4 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set nnode4 = (, tvwChild, 傳送文件 , 傳送文件 , 1) Set node4 = (, tvwChild, 接收文件 , 接收文件 , 1) Set node4 = (, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n3 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node3 = (, tvwChild, 意見箱 , 意見箱 , 1) Set node3 = (, tvwChild, 投票活動(dòng) , 投票活動(dòng) , 1) Set node3 = (, tvwChild, 短消息服務(wù) , 短消息服務(wù) , 1) Set n5 = (, tvwChild, 系統(tǒng)維護(hù)管理 , 系統(tǒng)維護(hù)管理 , 1) Set node5 = (, tvwChild, 人事管理 , 人事管理 , 1) Set node5 = (, tvwChild, 投票管理 , 投票管理 , 1) Set node5 = (, tvwChild, 意見箱管理 , 意見箱管理 , 1) Set node5 = (, tvwChild, 系統(tǒng)設(shè)置 , 系統(tǒng)設(shè)置 , 1) End If Unload Me End If End Sub 主界面設(shè)計(jì) 主界面主要包括菜單、樹狀菜單（ TreeView 控件實(shí)現(xiàn)）、狀態(tài)欄以及顯示 OA辦公系統(tǒng)的最新新聞和最新通知。界面設(shè)計(jì)簡(jiǎn)單明了，為用戶提供便捷的訪問(wèn)途徑，把一些具有共性的命令集中于一個(gè)簡(jiǎn)單的菜單之下。狀態(tài)欄將顯示系統(tǒng)運(yùn)行時(shí)間、公司信息和操作員信息，其中狀態(tài)欄上的操作員信息主要通過(guò)“系統(tǒng)登錄窗體”中“登錄操作員”項(xiàng)傳遞而得到的。主界面運(yùn)行結(jié)果如圖 4 所示。 河北科技大學(xué)?？飘厴I(yè)論文 11 圖 4 主界面 窗體設(shè)計(jì) （ 1）新建 1 個(gè)窗體，將窗體的“名稱”屬性設(shè)置為 frm_mainBefore，Caption 屬性為“★ OA 辦公自動(dòng)化系統(tǒng)★”， MaxButton 屬性為 False，設(shè)置Picture 屬性，為窗體添加背景圖片。 （ 2）為窗體設(shè)計(jì)菜單。 （ 3）添加 ImageList 控件，使用默認(rèn)名稱，該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲?。添加方法為：在“工程?/“部件”對(duì)話框中勾選“ Microsoft Windows Common Controls （ SP6）”列表項(xiàng)。 （ 4）添加 MSHFlexGrid 控件，該控件屬于 ActiveX 控件，使用之前必須將MSHFlexGrid 控件添加到工具箱中，添加方法為：在“工程” /“部件”對(duì)話框中勾選“ Microsoft Hierarchical FlexGrid Control ”列表，添加 2 個(gè)MSHFlexGrid 控件，名稱分別為 MSHFlexGrid1 和 MSHFlexGrid2，二者的屬性完全相同，主要設(shè)置控件的背景色、前景色及表格顏色，方法為：在控件上單擊鼠標(biāo)右鍵選擇“屬性”菜單，彈出“屬性頁(yè)”選擇“顏色”選項(xiàng)卡設(shè)置控件的相關(guān)顏色，如圖 5 所示。 河北科技大學(xué)?？飘厴I(yè)論文 12 圖 5 設(shè)置 MSHFlexGrid 控件顏色屬性 （ 5）添加 StatusBar（狀態(tài)欄）控件，主要用來(lái)顯示系統(tǒng)操作員信息、系統(tǒng)時(shí)間及公司名稱和網(wǎng)站。該控件屬于 ActiveX 控件，添加 ImageList 控件時(shí)已經(jīng)將該控件添加到工具箱中。 StatusBar 控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵打開“屬性頁(yè)”，為StatusBar 控件添加 3 個(gè)窗格，第 1 個(gè)窗格顯示系統(tǒng)操作員、第 2 個(gè)窗格顯示系統(tǒng)日期、第 3 個(gè)窗格顯示公司名稱和網(wǎng)址，該控件的屬性設(shè)置方法在前面的章節(jié)中已經(jīng)詳細(xì)講解過(guò)了，這里就不做介紹了。 程序代碼設(shè)計(jì) 當(dāng)窗體激活時(shí)，將 TreeView 控件中所有的節(jié)點(diǎn)展開。在 Form 窗體的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 事件下添加代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) If = 發(fā)布通知 Then If = 接收通知 Then If = 已發(fā)通知 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 傳送文件 Then 河北科技大學(xué)專科畢業(yè)論文 13 If = 接收文件 Then If = 已發(fā)文件 Then If = 意見箱 Then If = 投票活動(dòng) Then If = 短消息服務(wù) Then If = 人事管理 Then If = 投票管理 Then If = 意見箱管理 Then If = 系統(tǒng)設(shè)置 Then End Sub 在 Form 窗體的裝載過(guò)程中，將最新的新聞和通知顯示在 MSHFlexGrid 表格中。 Private Sub Form_Load() 39。////設(shè)置 NEWS = PublicStr = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 amp。 amp。 39。) ORDER BY news_date DESC Set = adoNews Call setNewsDataGrid_Caption 39。/////設(shè)置通知 = PublicStr = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 amp。 amp。 39。) ORDER BY notice_date DESC Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分多鐘就更新一次最新新聞和最新通知。在 Timer 控件的 Timer 事件下添加如下代碼： Private Sub Timer1