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