【導(dǎo)讀】爭(zhēng)能力的重要因素。隨著中國(guó)加入WTO，各行各業(yè)都在努力提高自身的競(jìng)爭(zhēng)力，識(shí)管理為主的企業(yè)信息服務(wù)系統(tǒng)將逐漸代替原有的辦公自動(dòng)化。存在的信息不暢、效率低下等一系列問(wèn)題得到了解決。把知識(shí)管理的思想帶入了?，F(xiàn)代社會(huì)的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。本論文主要闡述OA辦公自動(dòng)化系統(tǒng)的后臺(tái)操作過(guò)程及一些關(guān)鍵技術(shù)。絡(luò)資源還可以制造一個(gè)輕松的辦公氛圍。由于“ADO”屬性中記錄源命令類型設(shè)置不同出現(xiàn)的問(wèn)題????ComboBox控件設(shè)置為只讀屬性后，如何添加列表???????

　　

【正文】 圖 交流管理 1 投票活動(dòng) “投票活動(dòng)”主要是對(duì)公司內(nèi)部的活動(dòng)進(jìn)行投票。投票項(xiàng)目的名稱是動(dòng)態(tài)生成的，有幾項(xiàng)活動(dòng)將生成幾個(gè)“ CheckBox”控件。“活動(dòng)投票”窗體的設(shè)計(jì)結(jié)果如圖 所示： ***學(xué)校畢業(yè)論文 32 圖 代碼設(shè)計(jì)如下 ： （ 1）窗體裝載的代碼： Private Sub Form_Load() = 10695 = 4000 = pstr = select * from tbOA_vote On Error Resume Next Check1(0).Caption = (1).Value 39。設(shè)置投票名稱 Check1(0).ToolTipText = (2).Value For i = 1 To 1 39。通過(guò) for 循環(huán)動(dòng)態(tài)生成option 控件 Load Check1(i) If Check1(i 1).Left + Check1(i 1).Width Then Check1(i).Top = Check1(0).Top + 600 Check1(i).Left = Check1(0).Left Else If Check1(i 1).Top = Check1(i 1).Top + 600 Then Check1(0).Top = Check1(0).Top + 600 End If ***學(xué)校畢業(yè)論文 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。判斷是否已經(jīng)投過(guò)票了 = pstr = select * from tbOA_voteRecord where voteRecord_name=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 If 0 Then MsgBox 您已經(jīng)參與過(guò)此次投票，不能再次參與！ , vbInformation, 提示： = False 39。投票按鈕不可用 End If End Sub （ 2）單擊“提交”按鈕，將投票添加表中。下面是“提交”怕 Click 事件代碼： Private Sub cmdSave_Click() For i = 0 To 1 If Check1(i).Value = 1 Then 39。判斷投票項(xiàng)目是否被選中 = select *from tbOA_vote where vote_subject=39。 amp。 Check1(i).Caption amp。 39。 (3).Value = vote_qty + 1 39。投票項(xiàng)目被選中后，累計(jì)投票數(shù)量 End If ***學(xué)校畢業(yè)論文 34 Next i = select * from tbOA_voterecord 39。將投票人添加到數(shù)據(jù)表中，防止本人再次投票 (1).Value=Mid(.Panels(1).Text,6,Len((1).Text) 5) MsgBox 提交成功 , vbInformation, 提示： = False Unload Me End Sub 2 意見(jiàn)箱 “意見(jiàn)箱”窗體設(shè)計(jì)果如圖 所示： 圖 “提交”按鈕的 Click 事件代碼如下： Private Sub cmdSend_Click() = pstr = select * from tboa_idea ***學(xué)校畢業(yè)論文 35 (1).Value = (2).Value = MsgBox 您的意見(jiàn)已成功提交，感謝您提意見(jiàn)！ , vbInformation, 提示： = = End Sub 系統(tǒng)維護(hù)管理 1 投票管理 投票管理主要用于添加投票活動(dòng)、刪除投票活動(dòng)、清除投票記錄，用列表形式統(tǒng)計(jì)票數(shù)。 投票管理窗體的設(shè)計(jì)結(jié)果如圖 所示 圖 在本窗體中用到“ MSChart”控件，該控件為“ ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對(duì)話框中選中“ Micrsoft ***學(xué)校畢業(yè)論文 36 Chart Control (OLEDB)”項(xiàng)。 部分代碼如下： 單擊“顯示列表”按鈕，可以切換通過(guò)列表顯示投票結(jié)果或圖表顯示投票 結(jié)果。在“顯示列表” 按鈕的 Click 事件下添加如下代碼： Private Sub cmdChart_Click() If = 顯示列表 Then Call setDataGrid = True = False = 顯示圖表 Else Call showMsChart = False = True = 顯示列表 End If End Sub “清楚投票結(jié)果”按鈕的 Click 事件代碼如下： Private Sub cmdClear_Click() = select *from tbOA_vote If 0 Then For i = 0 To 1 (3).Value = 0 Next i End If ***學(xué)校畢業(yè)論文 37 Set con = New = pstr Set rs = New select * from tboa_voterecord, con Set rs = (DELETE FROM tbOA_voteRecord) 39。清除投票人記錄 MsgBox 數(shù)據(jù)清除成功！ , vbInformation, 提示： Call setDataGrid End Sub 2 意見(jiàn)箱管理 “意見(jiàn)箱管理”窗體設(shè)計(jì)如圖 所示： 圖 代碼略。 3 添加用戶 “添加用戶成員”窗體設(shè)計(jì)如圖 所示 ***學(xué)校畢業(yè)論文 38 圖 部分代碼設(shè)計(jì)如下： Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入要添加的操作員信息！ , vbInformation, 提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = * 密碼必須 6位字符。 !!! = = ElseIf = Then = 請(qǐng)輸入用戶密碼！ ***學(xué)校畢業(yè)論文 39 ElseIf isbool() = True Or isbool() = True Then MsgBox 用戶密碼中不能包含空格！請(qǐng)重新輸入密碼！ , vbInformation, 提示： = = ElseIf = Then = 請(qǐng)輸入 確認(rèn)密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入！ , vbInformation, 提示： = = Else (0).Value = (1).Value = (2).Value = Abs() 39。更新數(shù)據(jù) = = = MsgBox 用戶添加成功！ , vbInformation, 提示： End If End Sub 函數(shù) isbool（）是判斷文本框內(nèi)是否為空 ***學(xué)校畢業(yè)論文 40 Function isbool(str As String) As Boolean For i = 1 To Len(str) If Mid(str, i, 1) Then isbool = False Else isbool = True Exit For End If Next i End Function 4 修改密碼 （ 1） 窗體設(shè)計(jì)如圖 所示： 圖 部分代碼設(shè)計(jì)如下： “修改”按鈕的 Click 事件代碼： Private Sub cmdUserUpdate_Click() ***學(xué)校畢業(yè)論文 41 = = If = Then MsgBox 請(qǐng)?jiān)谙吕藛沃羞x擇要修改的操作員信息！ ,vbInformation,提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = = * 密碼必須為 6位字符。 !!! = = ElseIf = Then = = 請(qǐng)輸入你要改成的密碼！ ElseIf isbool() = True Or isbool() = True Then MsgBox用戶密碼中不能包含空格！請(qǐng)重新輸入密碼 ,vbExclamation,警 告： = = ElseIf = Then = = 請(qǐng)輸入 確認(rèn)密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致請(qǐng)重新輸入！ , vbInformation, 提示： = = ***學(xué)校畢業(yè)論文 42 Else For i = 0 To 1 If (0).Value Then Else Exit For End If Next i (0).Value =