【正文】 格中 Call setDataGrid_Caption End Sub 通過鼠標(biāo)選擇 DataGrid 表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除，代碼如下： 河北科技大學(xué)專科畢業(yè)論文 17 Private Sub cmdDel_Click() On Error Resume Next End Sub 在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將在DataGrid 控件中顯示相應(yīng)查詢結(jié)果，代碼如下： Private Sub cmdFind_Click() = PublicStr = select * from tbOA_news where news_date between 39。 在窗體裝載過程中，將 adoNews 控件查詢的數(shù)據(jù)通過 DataGrid 控件顯示，代碼如下： Private Sub Form_Load() = PublicStr ‘ 建立數(shù)據(jù)庫連接 ‘ 數(shù)據(jù)庫查詢（以日期為標(biāo)準(zhǔn)降序 查詢） = select * from tbOA_news where news_acceptPerson=39。 （ 4）添加 DataGrid 控件，使用默認(rèn)名稱。 （ 2）添加 4個 ComandButton 控件和 1個 Adodc 控件。 Combo1 控件 Click 事件的代碼如下： Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee 河北科技大學(xué)?？飘厴I(yè)論文 16 For i = 0 To 1 (1).Value Next i End Sub 新聞接收 新聞接收窗體的設(shè)計結(jié)果如圖 7 所示。 （ 4）使 DTPicker1 控件顯示系統(tǒng)當(dāng)前日期。 （ 2）為 Combo1 控件中添加部門名稱數(shù)據(jù)。 新聞發(fā)布就是將要發(fā)布的新聞按部門、職員和新聞數(shù)據(jù)存儲到 tbOA_news 數(shù)據(jù)表中。添加方法為：在“工程” /“部件”對話框中河北科技大學(xué)?？飘厴I(yè)論文 15 勾選“ Microsoft Windows Common Controls ”列表項，添加 DTPicker 控件后，其名稱為默認(rèn)的 DTPicker1。 （ 2）在窗體中添加 4 個 Label 控件、 2 個 Combo 控件、 3 個 ADO 控件、 2 個TextBox 控件和 2 個 CommandButton 控件。 新聞發(fā)布 新聞管理窗體的設(shè)計結(jié)果如圖 6 所示。其中新聞發(fā)布用來將新聞發(fā)布給某部門中某人；新聞接收用來接收其他職員發(fā)布新聞；已發(fā)新聞用來瀏覽將新聞發(fā)布給其他職員的新聞。 調(diào)用自定義過程 河北科技大學(xué)?？飘厴I(yè)論文 14 End Sub 自定義過程 setNewsDataGrid_Caption()用來初始化新聞 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_Caption End 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。展開全部節(jié)點(diǎn) (i).Expanded = True Next i End Sub 單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。 程序代碼設(shè)計 當(dāng)窗體激活時，將 TreeView 控件中所有的節(jié)點(diǎn)展開。該控件屬于 ActiveX 控件，添加 ImageList 控件時已經(jīng)將該控件添加到工具箱中。 （ 4）添加 MSHFlexGrid 控件，該控件屬于 ActiveX 控件，使用之前必須將MSHFlexGrid 控件添加到工具箱中，添加方法為：在“工程” /“部件”對話框中勾選“ Microsoft Hierarchical FlexGrid Control ”列表，添加 2 個MSHFlexGrid 控件，名稱分別為 MSHFlexGrid1 和 MSHFlexGrid2，二者的屬性完全相同，主要設(shè)置控件的背景色、前景色及表格顏色，方法為：在控件上單擊鼠標(biāo)右鍵選擇“屬性”菜單，彈出“屬性頁”選擇“顏色”選項卡設(shè)置控件的相關(guān)顏色，如圖 5 所示。 （ 3）添加 ImageList 控件，使用默認(rèn)名稱，該控件屬于 ActiveX 控件，在使用之前必須從“部件”對話框?qū)⑵涮砑拥焦ぞ呦渲小? 河北科技大學(xué)?？飘厴I(yè)論文 11 圖 4 主界面 窗體設(shè)計 （ 1）新建 1 個窗體，將窗體的“名稱”屬性設(shè)置為 frm_mainBefore，Caption 屬性為“★ OA 辦公自動化系統(tǒng)★”， MaxButton 屬性為 False，設(shè)置Picture 屬性，為窗體添加背景圖片。狀態(tài)欄將顯示系統(tǒng)運(yùn)行時間、公司信息和操作員信息，其中狀態(tài)欄上的操作員信息主要通過“系統(tǒng)登錄窗體”中“登錄操作員”項傳遞而得到的。設(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, 投票活動 , 投票活動 , 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è)計 主界面主要包括菜單、樹狀菜單（ TreeView 控件實(shí)現(xiàn)）、狀態(tài)欄以及顯示 OA辦公系統(tǒng)的最新新聞和最新通知。設(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。權(quán)限約束 (1).Text = 操作職 員： amp。 + + 39。 + + 39。 圖 3 系統(tǒng)登錄窗體設(shè)計 代碼設(shè)計 單擊名稱為 labLogin 的 Label 控件用來進(jìn)行用戶安全性檢查，如果用戶 名稱和密碼正確，則進(jìn)入系統(tǒng)并分配相應(yīng)的權(quán)限。 （ 4）添加 2 個 Label 控件，將名稱設(shè)置為 labLogin 和 labEnd， BackStyle屬性為 0Transparent。添加方法為： 在“工程” /“部 件”對話框中 勾 選“ Microsoft Ado Data Controls (SP4)”列表項。 窗體設(shè)計 （ 1）新建一個窗體，將窗體的“名稱”屬性設(shè)置為 frm_login， BorderStyle屬性設(shè)置為 0None，設(shè)置 Picture 屬性，為窗體添加背景圖片。 河北科技大學(xué)?？飘厴I(yè)論文 8 End Sub 系統(tǒng)登錄設(shè)計 本系統(tǒng)屬于 OA 辦公自動化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。Data Source= amp。 。PWD= amp。 uid amp。Persist Security Info=False。關(guān)閉數(shù)據(jù)庫連接 39。 39。, filename2 = N39。, filename1 = N39。開始附加數(shù)據(jù)庫 Str = EXEC sp_attach_db dbname = N39。 39。Data Source= amp。 。PWD= amp。 uid amp。Persist Security Info=False。 \) For Input As 1 Line Input 1, Intext