【正文】 33 Check1(i).Left = Check1(i 1).Left + Check1(i 1).Width End If Check1(i).Caption = (1).Value Check1(i).ToolTipText = (2).Value Check1(i).Visible = True Next i 39。 Check1(i).Caption amp。清除投票人記錄 MsgBox 數(shù)據(jù)清除成功！ , vbInformation, 提示： Call setDataGrid End Sub 2 意見箱管理 “意見箱管理”窗體設(shè)計(jì)如圖 所示： 圖 代碼略。 !!! = = ElseIf = Then = 請輸入用戶密碼！ ***學(xué)校畢業(yè)論文 39 ElseIf isbool() = True Or isbool() = True Then MsgBox 用戶密碼中不能包含空格！請重新輸入密碼！ , vbInformation, 提示： = = ElseIf = Then = 請輸入 確認(rèn)密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致，請重新輸入！ , vbInformation, 提示： = = Else (0).Value = (1).Value = (2).Value = Abs() 39。 (3).Value = vote_qty + 1 39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。保存文件 , adSaveCreateOverWrite 為覆蓋已存在的文件 = 0 MsgBox 保存成功！ amp。 ***學(xué)校畢業(yè)論文 30 (1).Text amp。 39。 39。 39。下面是“刪除文件記錄”按鈕的“ Click”事件代碼： Private Sub cmddel_Click() On Error Resume Next 39。 設(shè)置過濾器 = All Files (*.*)|*.*|Text Files amp。設(shè)置 bo1 = pstr = select * from tboa_dept For i = 0 To 1 (0).Value Next i 39?！拔募魉汀贝绑w的設(shè)計(jì)結(jié)果如圖 所示： 圖 1）在該窗體中用到“ CommonDialog”控 件，該控件是“ ActiveX”控件，在使用之前必須從“部件”對話框中添加到工具箱中，在“部件”對話框中選中“ Microsoft Common Dialog ”列表項(xiàng)。 3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。 amp。 + str() + 39。 指定缺省的過濾器 = 2 Shell , FileProtocolHandler + , vbNormalFocus Exit Sub errHandle: 39。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date desc Call setNewsDataGrid_Caption 39。Persist Security Info=False。激活窗體的 Activate 事件， Private Sub Form_Activate() For i = 1 To 39。 3）向窗體中添加“ Treeview”控件，設(shè)置其“ Appearance”屬性為“ 0ccfat”。設(shè)置 treeview 控件的樹狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (n1, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (n1, tvwChild, 接收通知 , 接收通知 , 1) Set node1 = (n1, tvwChild, 已發(fā)通知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set node2 = (n2, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (n2, tvwChild, ***學(xué)校畢業(yè)論文 9 接收新聞 , 接收新聞 , 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) Else 39。 mysql, con 39。調(diào)用 frm_login 窗口 End Sub 登錄界面設(shè)計(jì) 本系統(tǒng)屬 于 OA 辦公自動化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。在以后的編程中，如果使用對象訪問數(shù)據(jù)庫或“ ADO Data”控件訪問數(shù)據(jù)庫則可以直接將數(shù)據(jù)庫連字符串的值賦給相應(yīng)的“ ConnectionString ”屬性，從而 避免了重復(fù)建立數(shù)據(jù)庫的麻煩，以防失去 ADO+SQL 的優(yōu)越性能。 tbOA_notice 通知表主要用來存儲辦公通知信息。 ***學(xué)校畢業(yè)論文 2 第 2 章 總體設(shè)計(jì) 項(xiàng)目規(guī)劃 OA 辦公自動化系統(tǒng)是一個典型的網(wǎng)絡(luò)辦公開發(fā)應(yīng)用程序，它包含通知管理模 塊、新聞管理模塊、文件管理模塊、交流管理模塊、系統(tǒng)維 護(hù)管理模塊等。 *由于該系統(tǒng)的使用對象多，因此要有較好的權(quán)限管理。商 場如戰(zhàn)場，新一代的戰(zhàn)爭是信息化戰(zhàn)爭，如何通過互聯(lián)網(wǎng)這一利器，使企業(yè)信息化建設(shè)完善起來 ?這就需要一種高效，穩(wěn)定的辦公自動化系統(tǒng)！ 通過本系統(tǒng)，企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率 低 下等一系列問題得到了解決。 該系統(tǒng)具有 新聞管理、文件傳送管理、通知管理、交流管理、系統(tǒng)維護(hù)功能，而且還根據(jù)大多數(shù)客戶需求增加了瀏覽器、播放器等功能，這樣既可以時時掌握最新網(wǎng)絡(luò)資源還可以 制造一個輕松的辦公氛圍 。 *通過座機(jī)能夠直接“透視”公司的各項(xiàng)工作及活動安排。 （ 3） 文件管理模塊 該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。 tbOA_vote 投票表主要用來存儲活動投票的基本信息。Persist Security Info=False。 添加兩個“ Label”控件，設(shè)置其 BackStyle 屬性設(shè)置為“ 0Transparent”。(1) = 39。密碼不正確則顯示提示框 MsgBox 輸入密碼不正確，請重新輸入！ ,vbOKOnly + vbExclamation, 警告 = End If End If End Sub 主界面設(shè)計(jì) 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時間顯示以及顯 示 OA 辦公系統(tǒng)的最新新聞和通知。 5）添加“ StatusBar”（狀 態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時間及公司名稱網(wǎng)站。單擊樹狀菜單中的菜單時，根據(jù)所選 擇的菜單顯示相應(yīng)的窗體 Private Sub TreeView1_NodeClick(ByVal Node As ) 39。Initial Catalog=db_OA 39。代碼設(shè)計(jì)如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。其中， 發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。and notice_acceptperson=39。 order by notice_date Set = adoNotice Call setNotice_Caption End Sub 新聞管理 新聞管理包含 3個部分：新聞發(fā)布、新聞接收、已發(fā)新聞。 ***學(xué)校畢業(yè)論文 23 3）添加“ DataGrid”控件，使用默認(rèn)名稱。 ***學(xué)校畢業(yè)論文 25 * 建立“ adoDept”控件的數(shù)據(jù)庫連接。設(shè)置鼠標(biāo)的形狀，沙漏型的 Set = New = pstr Set rs = New select * from tboa_file, , adOpenStatic, adLockOptimistic Set st = New = adTypeBinary (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = Now (7).Value = (8).Value = 39。文本框顯示文件路徑 = Exit Sub errHandler: 39。 amp。 str() amp。 str() amp。 amp。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 filePath = = 11 Set = New = pstr Set rs = New select * from tboa_file where file_id = 39。投票項(xiàng)目的名稱是動態(tài)生成的，有幾項(xiàng)活動將生成幾個“ CheckBox”控件。下面是“提交”怕 Click 事件代碼： Private Sub cmdSave_Click() For i = 0 To 1 If Check1(i).Value = 1 Then 39。 投票管理窗體的設(shè)計(jì)結(jié)果如圖 所示 圖 在本窗體中用到“ MSChart”控件，該控件為“ ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對話框中選中“ Micrsoft ***學(xué)校畢業(yè)論文 36 Chart Control (OLEDB)”項(xiàng)