【正文】 更新數(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è)計如圖 所示： 圖 部分代碼設(shè)計如下： “修改”按鈕的 Click 事件代碼： Private Sub cmdUserUpdate_Click() ***學(xué)校畢業(yè)論文 41 = = If = Then MsgBox 請在下拉菜單中選擇要修改的操作員信息！ ,vbInformation,提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = = * 密碼必須為 6位字符。在“顯示列表” 按鈕的 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。投票項目被選中后，累計投票數(shù)量 End If ***學(xué)校畢業(yè)論文 34 Next i = select * from tbOA_voterecord 39。 amp。 If 0 Then MsgBox 您已經(jīng)參與過此次投票，不能再次參與！ , vbInformation, 提示： = False 39。設(shè)置投票名稱 Check1(0).ToolTipText = (2).Value For i = 1 To 1 39。 文件保存在： amp。 (0).Value amp。 】嗎？ , vbQuestion + vbYesNo) = vbYes Then = (8).Text 39。 order by file_date desc End Sub 雙擊“ DataGrid”表格中的一行，可以下載文件的事件代碼如下： Private Sub DataGrid1_DblClick() On Error GoTo UNEX If MsgBox(是否接收 amp。 order by file_date desc End Sub 單擊“顯示所有文件”按鈕的事件代碼如下 ： Private Sub cmdshow_Click() = pstr = select * from tboa_file where file_acceptperson =39。 and 39。 and file_date between 39。 order by file_date desc Call setDataGrid_Caption End Sub 在日期輸入框中輸入開始日期和截止日期后，“查詢”按鈕，將查詢結(jié)果顯示在DataGrid 控件中，代碼如下： Private Sub cmdFind_Click() = pstr = select * from tboa_file where file_acceptperson=39。 and 39。 and file_date between 39。當(dāng)數(shù)據(jù)表中沒有數(shù)據(jù)時，進(jìn)行錯誤處理 End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdFind_Click() = pstr ***學(xué)校畢業(yè)論文 29 = select * from tboa_file where file_acceptperson=39。 End Sub 2. 文件接收 1）窗體設(shè)計 文件接收”窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機中。 (*.txt)|*.txt|Batch Files (*.bat)|*.bat 39。 設(shè)置“ CancelError”為 True = True On Error GoTo errHandler 39。設(shè)置 bo2 = pstr = select user_name from dboa_user For i = 0 To 1 (0).Value Next i 39。 * 獲取系統(tǒng)操作員的姓名，并通過“ txtName”控件顯示出來。 其它控件設(shè)置，在這里就不再贅述了。 3 已發(fā)新聞 “已發(fā)新聞”窗體設(shè)計結(jié)果如圖 所示： 圖 ***學(xué)校畢業(yè)論文 24 添 加“ ADO”控件，名稱為“ adoNews”，設(shè)置其“ Visible”屬性為“ False” 。 2 新聞接收 1）添加 4個“ CommandButton”和一個“ ADO”控件。 下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開發(fā)過程。 amp。order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub “顯示所有通知”按鈕代碼如下： Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =39。and 39。顯示用戶 For i = 0 To 1 (0).Value Next i 39。 用戶按了 “ 取消 ” 按鈕 Exit Sub Case 2 Case 3 Case 4 ***學(xué)校畢業(yè)論文 17 Case 5 Unload Me End Select End Sub 至于工具欄上用到的窗體將會在 中介紹。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 39。刷新通知 = 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 控件的列標(biāo)題和表格寬度。設(shè)置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分鐘就更新一次最新新聞和最新通知。User ID=sa。 Private Sub Form_Load() 39。展開全部節(jié)點 (i).Expanded = True Next i End Sub 單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體?！?StatusBar”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁”命令，為“ StatusBar”控件添加 3 個窗格，第一個窗格顯示系統(tǒng)操作員、第二個窗格顯示系統(tǒng)日期、第三個窗格顯示公司名稱和網(wǎng)址?！?TreeView”控件屬于“ ActiveX” rpwr ,使用前必須將其添加到工具箱中。 2）添加“ ImageList”控件。擁有操作權(quán)限，設(shè)置 TreeView 控件的樹狀菜單為管理員的樣式 (1).Text = 管理職員： amp。的樹狀菜單為操作員的樣式 If (2) = False Then (1).Text = 操作職員： amp。判斷是否存在用戶 If Then MsgBox 沒有這個用戶，請重新輸入用戶名！ ***學(xué)校畢業(yè)論文 8 = 39。 添加兩個“ CommondButton”控件，分別將其 Caption 屬性設(shè)置為“登錄”、“退 ***學(xué)校畢業(yè)論文 7 出”。“系統(tǒng)登錄”窗體用于難操作員及其密碼，主要通過打開數(shù)據(jù)庫連接、打開數(shù)據(jù)結(jié)合if 語句 ，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶不存在。 pwd=sa。 代碼如下： Public pstr As String Public Sub main() 39。 tbOA_dept 部門表主要用來存儲公司部門信息的表 。 tbOA_file 文件數(shù)據(jù)表主要用來存儲文件傳送的基本信息。 （ 5） 系統(tǒng)維護(hù)管理模塊 該模塊主要負(fù)責(zé)用戶添加、刪除，密碼、權(quán)限的修改，意見箱的管理，投票活動管理。 （ 1）通知管理模塊 該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。 *在相應(yīng)的權(quán)限下，管理員可以刪除數(shù)據(jù) 可行性分析 開發(fā)任何一個基于計算機的系統(tǒng)時，都會受到時間和