【正文】 !!! = = 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 =
。 !!! = = 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。清除投票人記錄 MsgBox 數(shù)據(jù)清除成功！ , vbInformation, 提示： Call setDataGrid End Sub 2 意見箱管理 “意見箱管理”窗體設(shè)計(jì)如圖 所示： 圖 代碼略。 部分代碼如下： 單擊“顯示列表”按鈕，可以切換通過列表顯示投票結(jié)果或圖表顯示投票 結(jié)果。將投票人添加到數(shù)據(jù)表中，防止本人再次投票 (1).Value=Mid(.Panels(1).Text,6,Len((1).Text) 5) MsgBox 提交成功 , vbInformation, 提示： = False Unload Me End Sub 2 意見箱 “意見箱”窗體設(shè)計(jì)果如圖 所示： 圖 “提交”按鈕的 Click 事件代碼如下： Private Sub cmdSend_Click() = pstr = select * from tboa_idea ***學(xué)校畢業(yè)論文 35 (1).Value = (2).Value = MsgBox 您的意見已成功提交，感謝您提意見！ , vbInformation, 提示： = = End Sub 系統(tǒng)維護(hù)管理 1 投票管理 投票管理主要用于添加投票活動(dòng)、刪除投票活動(dòng)、清除投票記錄，用列表形式統(tǒng)計(jì)票數(shù)。 (3).Value = vote_qty + 1 39。 Check1(i).Caption amp。判斷投票項(xiàng)目是否被選中 = select *from tbOA_vote where vote_subject=39。投票按鈕不可用 End If End Sub （ 2）單擊“提交”按鈕，將投票添加表中。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。通過 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?！盎顒?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。 , vbInformation, 文件下載 End If Exit Sub ***學(xué)校畢業(yè)論文 31 errHandler: Exit Sub UNEX: MsgBox 沒有文件可供下載 !, vbInformation, 溫馨提示： End Sub 3 已發(fā)文件 已發(fā)文件的窗體設(shè)計(jì)界面如圖 所示： 圖 交流管理 1 投票活動(dòng) “投票活動(dòng)”主要是對(duì)公司內(nèi)部的活動(dòng)進(jìn)行投票。保存文件 , adSaveCreateOverWrite 為覆蓋已存在的文件 = 0 MsgBox 保存成功！ amp。 39。 amp。 設(shè)置“ CancelError”為 True = True On Error GoTo errHandler 39。 ***學(xué)校畢業(yè)論文 30 (1).Text amp。 (3).Text amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。下面是“刪除文件記錄”按鈕的“ Click”事件代碼： Private Sub cmddel_Click() On Error Resume Next 39。 本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)，查詢接收文件、下載接收文 ***學(xué)校畢業(yè)論文 28 件、刪除接收文件、顯示所有的接收文件。 用戶按了“取消”按鈕 Exit Sub 39。 指定缺省的過濾器 = 2 39。 設(shè)置過濾器 = All Files (*.*)|*.*|Text Files amp。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 39。只顯示文件名 = 0 MsgBox 文件傳送成功！ , vbInformation = = = ***學(xué)校畢業(yè)論文 27 = = End Sub 單擊“瀏覽文件”按鈕，選擇將要傳送的文件，代碼如下： Private Sub cmdFile_Click() 39。設(shè)置發(fā)布人 = Mid((1).Text, 6, Len((1).Text) 5) = Date End Sub 單擊“傳送文件”按鈕，將相應(yīng)文件數(shù)據(jù)保存到數(shù)據(jù)庫中，代碼如下： ***學(xué)校畢業(yè)論文 26 Private Sub cmdSend_Click() Dim As , rs As , st As Stream = 11 39。設(shè)置 bo1 = pstr = select * from tboa_dept For i = 0 To 1 (0).Value Next i 39。 * 使“ DTPicker1”控件顯示當(dāng)前日期。 * 為“ Commbo1”控件添加部門名稱數(shù)據(jù)。 2)代碼設(shè)計(jì) 在“ Form”窗體裝載時(shí)，主要實(shí)現(xiàn)以下功能?！拔募魉汀贝绑w的設(shè)計(jì)結(jié)果如圖 所示： 圖 1）在該窗體中用到“ CommonDialog”控 件，該控件是“ ActiveX”控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱中，在“部件”對(duì)話框中選中“ Microsoft Common Dialog ”列表項(xiàng)。添加“ DataGrid”控件，名稱為默認(rèn)名稱“ DataGrid1” 程序代碼與“接收新聞”中的代碼設(shè)計(jì)類似，這里就不再贅述了。 “新聞接收”窗體的設(shè)計(jì)結(jié)果如圖 所示： 圖 4） 程序代碼與“接收通知”類似，這里就不再贅述了。 2）添加 2個(gè)“ DTPicker”控件，名稱分別為“ DTPicker1”和“ DTPicker2”。 3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。 ***學(xué)校畢業(yè)論文 22 1 新聞發(fā)布 窗體設(shè)計(jì)結(jié)果如圖 所示： 圖 1）在窗體中添加 4個(gè)“ Label”控件、兩個(gè)“ Combo”控件、 3個(gè)“ ADO”控件、兩個(gè)“ TextBox”控件和兩個(gè)“ CommandButton”控件，屬性設(shè)置如圖所示： 2）添加“ DTPicker”控件。其中，新聞發(fā)布用來將新聞發(fā)布給某部門中的某人，新聞接收用來接收其他職員發(fā)布的新聞，已發(fā)新聞?dòng)脕頌g覽發(fā)布給其他職員的 新聞。 39。 amp。 + + 39。 + + 39。 + str() + 39。 + str() + 39。設(shè)置通知人 = 39。 1 發(fā)布通知 窗體設(shè)計(jì)結(jié)果如圖 所示 圖 部分代碼如下： ***學(xué)校畢業(yè)論文