【正文】 lect * from tbOA_vote On Error Resume Next Check1(0).Caption = (1).Value 39。判斷投票項目是否被選中 = select *from tbOA_vote where vote_subject=39。 部分代碼如下： 單擊“顯示列表”按鈕，可以切換通過列表顯示投票結(jié)果或圖表顯示投票 結(jié)果。 !!! = = ElseIf = Then = = 請輸入你要改成的密碼！ ElseIf isbool() = True Or isbool() = True Then MsgBox用戶密碼中不能包含空格！請重新輸入密碼 ,vbExclamation,警 告： = = ElseIf = Then = = 請輸入 確認密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致請重新輸入！ , vbInformation, 提示： = = ***學校畢業(yè)論文 42 Else For i = 0 To 1 If (0).Value Then Else Exit For End If Next i (0).Value =
。將投票人添加到數(shù)據(jù)表中，防止本人再次投票 (1).Value=Mid(.Panels(1).Text,6,Len((1).Text) 5) MsgBox 提交成功 , vbInformation, 提示： = False Unload Me End Sub 2 意見箱 “意見箱”窗體設(shè)計果如圖 所示： 圖 “提交”按鈕的 Click 事件代碼如下： Private Sub cmdSend_Click() = pstr = select * from tboa_idea ***學校畢業(yè)論文 35 (1).Value = (2).Value = MsgBox 您的意見已成功提交，感謝您提意見！ , vbInformation, 提示： = = End Sub 系統(tǒng)維護管理 1 投票管理 投票管理主要用于添加投票活動、刪除投票活動、清除投票記錄，用列表形式統(tǒng)計票數(shù)。投票按鈕不可用 End If End Sub （ 2）單擊“提交”按鈕，將投票添加表中。 , vbInformation, 文件下載 End If Exit Sub ***學校畢業(yè)論文 31 errHandler: Exit Sub UNEX: MsgBox 沒有文件可供下載 !, vbInformation, 溫馨提示： End Sub 3 已發(fā)文件 已發(fā)文件的窗體設(shè)計界面如圖 所示： 圖 交流管理 1 投票活動 “投票活動”主要是對公司內(nèi)部的活動進行投票。 設(shè)置“ CancelError”為 True = True On Error GoTo errHandler 39。 amp。 amp。 amp。 amp。 指定缺省的過濾器 = 2 39。設(shè)置發(fā)布人 = Mid((1).Text, 6, Len((1).Text) 5) = Date End Sub 單擊“傳送文件”按鈕，將相應(yīng)文件數(shù)據(jù)保存到數(shù)據(jù)庫中，代碼如下： ***學校畢業(yè)論文 26 Private Sub cmdSend_Click() Dim As , rs As , st As Stream = 11 39。 2)代碼設(shè)計 在“ Form”窗體裝載時，主要實現(xiàn)以下功能。 2）添加 2個“ DTPicker”控件，名稱分別為“ DTPicker1”和“ DTPicker2”。 39。 + str() + 39。 通知管理 通知管理包含 3個部分：發(fā)布通知、接收通知、已發(fā)通知。 Sub setNewsDataGrid_Caption() For i = 1 To (i, 0) = i Next (0, 0) = 序號 (0, 1) = 發(fā)布日期 (0, 2) = 新聞內(nèi)容 (0) = 800 (1) = 2021 (2) = 6700 End Sub ***學校畢業(yè)論文 16 窗體中的 ToolBar 控件為了方便用戶打開文件、聽音樂、查 看幫助、退出。pwd=sa。在“ TreeView”控件的 NodeClick 事件下添加如下代碼： 39。為了使“ ImageList”控件中的圖像能夠順利地顯示在“ TreeView”控件的節(jié)點中，需將“ ImageList”綁定到“ TreeView”控件上，綁定方法為：在“ TreeView”控件上單擊鼠 標右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對話 ***學校畢業(yè)論文 12 框，然后將圖像列表屬性設(shè)置為“ ImageList1” 4)添加“ MSHFlexGrid”控件，該控件屬于 Active 控件，在使用之前必須將“ MSHFlexGrid”控件添加到工具箱中，添加方法為：在“部件”對話框中選中“ Microsoft Hierarchical FlexGrid Control ”列表項，添加兩個MSHFlexGrid 控件，“ MSHFlexgrid1”和“ MSHFlexGrid2”控件。 (2).Text = Format(Now, m/d/yy) Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (n1, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (n1, tvwChild, 接收通知 , 接收通知 , 1) Set node1 = (n1, tvwChild, 已發(fā)通 ***學校畢業(yè)論文 10 知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set node2 = (n2, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (n2, tvwChild, 接收新聞 , 接收新聞 , 1) Set node2 = (n2, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n3 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set node3 = (n3, tvwChild, 傳送文件 , 傳送文件 , 1) Set node3 = (n3, tvwChild, 接收文件 , 接收文件 , 1) Set node3 = (n3, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n4 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱 , 1) Set node4 = (n4, tvwChild, 投票活動 , 投票活動 , 1) Set n5 = (, tvwChild, 系統(tǒng)維護管理, 系統(tǒng)維護管理 , 1) Set node5 = (n5, tvwChild, 投票管理 , 投票管理 , 1) Set node5 = (n5, tvwChild, 意見箱管理 , 意見箱管理 , 1) ***學校畢業(yè)論文 11 Set node5 = (n5, tvwChild, 添加用戶 , 添加用戶 , 1) Set node5 = (n5, tvwChild, 密碼修改 , 密碼修改 , 1) End If Else 39。如果存在，判斷用戶輸入的密碼是否正確 Else If Trim(rs(user_pwd)) = Trim() Then 39。 新建一個窗體，將窗體的 BorderStyle 屬性設(shè)置為“ 0None” ,設(shè)置 Picture 屬性，為窗體添加圖片。共享連接字符串 pstr = Provider=。 tbOA_idea 意見表主要用于存儲員工反饋的意見。 （ 2）新聞管理模塊 該模塊主要負責新聞的發(fā)布、接收等。 *信息發(fā)布與文件傳送的速度快。 本論文主要闡述 OA 辦公自動化 系統(tǒng)的后臺操作過程及一些關(guān)鍵技術(shù)。把知識管理的思想帶入了現(xiàn)代社會的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。 *方便 數(shù)據(jù) 的查詢，修改。 （ 1）通知管理模塊 該模塊主要負責信息的發(fā)布、接收等。 tbOA_file 文件數(shù)據(jù)表主要用來存儲文件傳送的基本信息。 代碼如下： Public pstr As String Public Sub main() 39?！跋到y(tǒng)登錄”窗體用于難操作員及其密碼，主要通過打開數(shù)據(jù)庫連接、打開數(shù)據(jù)結(jié)合if 語句 ，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶不存在。判斷是否存在用戶 If Then MsgBox 沒有這個用戶，請重新輸入用戶名！ ***學校畢業(yè)論文 8 = 39。擁有操作權(quán)限，設(shè)置 TreeView 控件的樹狀菜單為管理員的樣式 (1).Text = 管理職員： amp?！?TreeView”控件屬于“ ActiveX” rpwr ,使用前必須將其添加到工具箱中。展開全部節(jié)點 (i).Expanded = True Next i End Sub 單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。User ID=sa。刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_Caption End If End Sub 自定義過程 setNewsDataGrid_Caption()用來初始化新聞 MSHFlexGrid2 控件的列標題和表格寬度。 用戶按了 “ 取消 ” 按鈕 Exit Sub Case 2 Case 3 Case 4 ***學校畢業(yè)論文