【正文】 (SP4)”列表項。（4）添加2個Label控件，將名稱設(shè)置為labLogin和labEnd，BackStyle屬性為0Transparent。圖3 系統(tǒng)登錄窗體設(shè)計2．代碼設(shè)計單擊名稱為labLogin的Label控件用來進行用戶安全性檢查，如果用戶名稱和密碼正確，則進入系統(tǒng)并分配相應(yīng)的權(quán)限。 + + 39。 + + 39。權(quán)限約束 (1).Text = 操作職員： amp。設(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, 投票活動, 投票活動, 1) Set node3 = (, tvwChild, 短消息服務(wù), 短消息服務(wù), 1) Else (1).Text = 操作職員： amp。設(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, 投票活動, 投票活動, 1) Set node3 = (, tvwChild, 短消息服務(wù), 短消息服務(wù), 1) Set n5 = (, tvwChild, 系統(tǒng)維護管理, 系統(tǒng)維護管理, 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 IfEnd Sub 主界面設(shè)計主界面主要包括菜單、樹狀菜單（TreeView控件實現(xiàn)）、狀態(tài)欄以及顯示OA辦公系統(tǒng)的最新新聞和最新通知。狀態(tài)欄將顯示系統(tǒng)運行時間、公司信息和操作員信息，其中狀態(tài)欄上的操作員信息主要通過“系統(tǒng)登錄窗體”中“登錄操作員”項傳遞而得到的。圖4 主界面1．窗體設(shè)計（1）新建1個窗體，將窗體的“名稱”屬性設(shè)置為frm_mainBefore，Caption屬性為“★OA辦公自動化系統(tǒng)★”，MaxButton屬性為False，設(shè)置Picture屬性，為窗體添加背景圖片。（3）添加ImageList控件，使用默認名稱，該控件屬于ActiveX控件，在使用之前必須從“部件”對話框?qū)⑵涮砑拥焦ぞ呦渲?。?）添加MSHFlexGrid控件，該控件屬于ActiveX控件，使用之前必須將MSHFlexGrid控件添加到工具箱中，添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Hierarchical FlexGrid Control ”列表，添加2個MSHFlexGrid控件，名稱分別為MSHFlexGrid1和MSHFlexGrid2，二者的屬性完全相同，主要設(shè)置控件的背景色、前景色及表格顏色，方法為：在控件上單擊鼠標(biāo)右鍵選擇“屬性”菜單，彈出“屬性頁”選擇“顏色”選項卡設(shè)置控件的相關(guān)顏色，如圖5所示。該控件屬于ActiveX控件，添加ImageList控件時已經(jīng)將該控件添加到工具箱中。2．程序代碼設(shè)計當(dāng)窗體激活時，將TreeView控件中所有的節(jié)點展開。展開全部節(jié)點 (i).Expanded = True Next iEnd Sub單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。Private Sub Form_Load()39。 amp。 39。/////設(shè)置通知 = PublicStr = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 amp。) ORDER BY notice_date DESC Set = adoNotice Call setNoticeDataGrid_CaptionEnd Sub每隔一分多鐘就更新一次最新新聞和最新通知。////設(shè)置 NEWS = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 Mid((1).Text, 6, Len((1).Text) 5) amp。) ORDER BY news_date DESC Call setNewsDataGrid_Caption 39。 amp。 39。 調(diào)用自定義過程End Sub自定義過程setNewsDataGrid_Caption()用來初始化新聞MSHFlexGrid2控件的列標(biāo)題和表格寬度。其中新聞發(fā)布用來將新聞發(fā)布給某部門中某人；新聞接收用來接收其他職員發(fā)布新聞；已發(fā)新聞用來瀏覽將新聞發(fā)布給其他職員的新聞。1．新聞發(fā)布新聞管理窗體的設(shè)計結(jié)果如圖6所示。（2）在窗體中添加4個Label控件、2個Combo控件、3個ADO控件、2個TextBox控件和2個CommandButton控件。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Windows Common Controls ”列表項，添加DTPicker控件后，其名稱為默認的DTPicker1。新聞發(fā)布就是將要發(fā)布的新聞按部門、職員和新聞數(shù)據(jù)存儲到tbOA_news數(shù)據(jù)表中。（2）為Combo1控件中添加部門名稱數(shù)據(jù)。（4）使DTPicker1控件顯示系統(tǒng)當(dāng)前日期。Combo1控件Click事件的代碼如下：Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee For i = 0 To 1 (1).Value Next iEnd Sub2．新聞接收新聞接收窗體的設(shè)計結(jié)果如圖7所示。（2）添加4個ComandButton控件和1個Adodc控件。（4）添加DataGrid控件，使用默認名稱。在窗體裝載過程中，將adoNews控件查詢的數(shù)據(jù)通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr ‘建立數(shù)據(jù)庫連接‘?dāng)?shù)據(jù)庫查詢（以日期為標(biāo)準(zhǔn)降序 查詢） = select * from tbOA_news where news_acceptPerson=39。order by news_date desc Set = adoNews ‘將數(shù)據(jù)源綁定到DataGrid表格中 Call setDataGrid_CaptionEnd Sub通過鼠標(biāo)選擇DataGrid表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除，代碼如下：Private Sub cmdDel_Click() On Error Resume Next End Sub在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將在DataGrid控件中顯示相應(yīng)查詢結(jié)果，代碼如下：Private Sub cmdFind_Click() = Pub