【正文】 投票結(jié)果刪除。 （ 4）添加 MSChart 圖表控件，其名稱為默認(rèn)名稱。, , adOpenStatic, adLockOptimistic Set mst = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。在 DataGrid控件中選擇文件記錄，然后雙擊鼠標(biāo)左鍵，下載接收文件 Private Sub DataGrid1_DblClick() If MsgBox(是否接收【 amp。 39。 程序代碼設(shè)計(jì) 在本窗體中聲明變量，代碼如下： Public filePath As String Dim As , rs As , mst As 在窗體的裝載過(guò)程中，查詢系統(tǒng)操作職員接收的所有文件，并通過(guò) DataGrid控件顯示，代碼如下： Private Sub Form_Load() = PublicStr = select * from tbOA_file where file_name=39。 39。 在 Form 窗體的 Load 事件添加如下代碼： Private Sub Form_Load() = PublicStr = select * from tbOA_dept For i = 0 To 1 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) 河北科技大學(xué)?？飘厴I(yè)論文 20 = Date End Sub 單擊【傳送文件】按鈕，將相應(yīng)的文件數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中，代碼如下： Private Sub cmdSave_Click() Dim As , rs As , mst As = 11 Set = New = Provider=。 （ 4）添加 1個(gè) DTPicker 控件，默認(rèn)名稱為 DTPicker1。 在窗體裝載過(guò)程中，將 adoNews 控件查詢的數(shù)據(jù)通過(guò) DataGrid 控件顯示，代碼如下： Private Sub Form_Load() = PublicStr = select * from tbOA_news where news_person=39。 and news_acceptPerson=39。order by news_date desc Set = adoNews ‘ 將數(shù)據(jù)源綁定到 DataGrid表格中 Call setDataGrid_Caption End Sub 通過(guò)鼠標(biāo)選擇 DataGrid 表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除，代碼如下： 河北科技大學(xué)?？飘厴I(yè)論文 17 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。 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è)計(jì)結(jié)果如圖 7 所示。添加方法為：在“工程” /“部件”對(duì)話框中河北科技大學(xué)?？飘厴I(yè)論文 15 勾選“ Microsoft Windows Common Controls ”列表項(xiàng)，添加 DTPicker 控件后，其名稱為默認(rèn)的 DTPicker1。 調(diào)用自定義過(guò)程 河北科技大學(xué)專科畢業(yè)論文 14 End Sub 自定義過(guò)程 setNewsDataGrid_Caption()用來(lái)初始化新聞 MSHFlexGrid2 控件的列標(biāo)題和表格 寬度。 Mid((1).Text, 6, Len((1).Text) 5) amp。/////設(shè)置通知 = PublicStr = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。展開(kāi)全部節(jié)點(diǎn) (i).Expanded = True Next i End Sub 單擊樹(shù)狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。 （ 3）添加 ImageList 控件，使用默認(rèn)名稱，該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲小ＴO(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) Else (1).Text = 操作職員： amp。 圖 3 系統(tǒng)登錄窗體設(shè)計(jì) 代碼設(shè)計(jì) 單擊名稱為 labLogin 的 Label 控件用來(lái)進(jìn)行用戶安全性檢查，如果用戶 名稱和密碼正確，則進(jìn)入系統(tǒng)并分配相應(yīng)的權(quán)限。 河北科技大學(xué)?？飘厴I(yè)論文 8 End Sub 系統(tǒng)登錄設(shè)計(jì) 本系統(tǒng)屬于 OA 辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。 uid amp。, filename2 = N39。Data Source= amp。Persist Security Info=False。就本系統(tǒng)而言，該模塊主要實(shí)現(xiàn)數(shù)據(jù)庫(kù)安裝和共享數(shù)據(jù)庫(kù)連接。 本系統(tǒng)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQL Server，該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)庫(kù)量大，效率高；前臺(tái) 采用 Microsoft 公司的 Visual Basic 作為主要的開(kāi)發(fā)工具，其可與 SQL Server 2020 數(shù)據(jù)庫(kù)無(wú)縫鏈接。 ? 原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改。 【關(guān)鍵詞】 OA 辦公自動(dòng)化系統(tǒng) Abstract The system transacts a medium existent information to business enterprise anization not lucid , efficiency underneath, operation not norm etc. a series of problem. The management thought which uses informationbased means and new generation provided a powerful work to turn, strong support. Taking the thought of principle, knowledge management which is in conjunction with to transact went into a modern a society of transact a life, promoted the informationbased degree of the modern business enterprise thus, changed people39。把協(xié)同辦公的理念、知識(shí)管理的思想帶入了現(xiàn)代社會(huì)的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。 ? 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。因此，在接受任何一個(gè)項(xiàng)目開(kāi)發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 S Q L S e r v e r服 務(wù) 器公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī) 圖 1 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 系統(tǒng)功能結(jié)構(gòu)圖 系 統(tǒng) 主 界 面發(fā)布通知系 統(tǒng) 啟 動(dòng)系 統(tǒng) 登 錄接收通知已發(fā)通知新聞發(fā)布新聞接收已發(fā)新聞通 知 管 理 新 聞 管 理 文 件 傳 送 交 流 管 理文件傳送文件接收已傳文件意見(jiàn)箱投票活動(dòng)短消息服務(wù)系 統(tǒng) 維 護(hù) 管 理人事管理投票管理意見(jiàn)箱管理系統(tǒng)設(shè)置 圖 2 系統(tǒng)功能結(jié)構(gòu)圖 河北科技大學(xué)專科畢業(yè)論文 7 3 詳細(xì)設(shè)計(jì) 公共模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè) Modulel 模塊。附加數(shù)據(jù)庫(kù) On Error Resume Next = Provider=。Initial Catalog=db_OA。 + + \DataBase\ + 39。User ID= amp。 Server amp。 系統(tǒng)登錄窗體的設(shè)計(jì)結(jié)果如圖 3 所示。 39。 （ 2）為窗體設(shè)計(jì)菜單。在 Form 窗體的Activate 事件下添加如下代碼： Private Sub Form_Activate() For i = 1 To 39。) ORDER BY news_date DESC Set = adoNews Call setNewsDataGrid_Caption 39。 amp。) ORDER BY notice_date DESC Call setNoticeDataGrid_Caption 39。 （ 3）添加 DTPicker 控件，該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱中。 Form 窗體的 Load 事件過(guò)程中的代碼如下： Private Sub Form_Load() = PublicStr ‘ 建立數(shù)據(jù)庫(kù)連接 = select * from tbOA_news ‘ 檢索數(shù)據(jù)表數(shù)據(jù)