【正文】 已發(fā)新聞。 下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開發(fā)過程。該控件屬于“ ActiveX”控件，在使用之前必須從“部件”對話框中添加工具箱中，添加方法為：在“部件”對話框中選中“ Microsoft Windows Common Controls2 ”列表項。 2 新聞接收 1）添加 4個“ CommandButton”和一個“ ADO”控件。 ***學(xué)校畢業(yè)論文 23 3）添加“ DataGrid”控件，使用默認(rèn)名稱。 3 已發(fā)新聞 “已發(fā)新聞”窗體設(shè)計結(jié)果如圖 所示： 圖 ***學(xué)校畢業(yè)論文 24 添 加“ ADO”控件，名稱為“ adoNews”，設(shè)置其“ Visible”屬性為“ False” 。 文件管理 1. 文件傳送 文件傳送在 OA 辦公自動化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)的文件傳送可以傳送多種類型的文件（如： exe\bat\rar\frm\doc 等）。 其它控件設(shè)置，在這里就不再贅述了。 ***學(xué)校畢業(yè)論文 25 * 建立“ adoDept”控件的數(shù)據(jù)庫連接。 * 獲取系統(tǒng)操作員的姓名，并通過“ txtName”控件顯示出來。 在“ Form”窗體的“ Load” 事件中添加如下代碼： Private Sub Form_Load() = 39。設(shè)置 bo2 = pstr = select user_name from dboa_user For i = 0 To 1 (0).Value Next i 39。設(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。 設(shè)置“ CancelError”為 True = True On Error GoTo errHandler 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly 39。 (*.txt)|*.txt|Batch Files (*.bat)|*.bat 39。文本框顯示文件路徑 = Exit Sub errHandler: 39。 End Sub 2. 文件接收 1）窗體設(shè)計 文件接收”窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機(jī)中?！拔募邮铡贝绑w的設(shè)計結(jié)果如圖 所示： 圖 2）代碼設(shè)計 本窗體中聲明變量，代碼如下： Public filePath As String Dim As , rs As , st As 通過鼠標(biāo)選擇“ DataGrid”表格中數(shù)據(jù)，然后單擊“刪除文件記錄”按鈕，將選中的文件數(shù)據(jù)刪除。當(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。 amp。 and file_date between 39。 str() amp。 and 39。 str() amp。 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。 amp。 and file_date between 39。 str() amp。 and 39。 str() amp。 order by file_date desc End Sub 單擊“顯示所有文件”按鈕的事件代碼如下 ： Private Sub cmdshow_Click() = pstr = select * from tboa_file where file_acceptperson =39。 amp。 order by file_date desc End Sub 雙擊“ DataGrid”表格中的一行，可以下載文件的事件代碼如下： Private Sub DataGrid1_DblClick() On Error GoTo UNEX If MsgBox(是否接收 amp。 傳送來的【 amp。 】嗎？ , vbQuestion + vbYesNo) = vbYes Then = (8).Text 39。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 filePath = = 11 Set = New = pstr Set rs = New select * from tboa_file where file_id = 39。 (0).Value amp。, , adOpenStatic, adLockOptimistic Set st = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。 文件保存在： amp。投票項目的名稱是動態(tài)生成的，有幾項活動將生成幾個“ CheckBox”控件。設(shè)置投票名稱 Check1(0).ToolTipText = (2).Value For i = 1 To 1 39。判斷是否已經(jīng)投過票了 = pstr = select * from tbOA_voteRecord where voteRecord_name=39。 If 0 Then MsgBox 您已經(jīng)參與過此次投票，不能再次參與！ , vbInformation, 提示： = False 39。下面是“提交”怕 Click 事件代碼： Private Sub cmdSave_Click() For i = 0 To 1 If Check1(i).Value = 1 Then 39。 amp。 39。投票項目被選中后，累計投票數(shù)量 End If ***學(xué)校畢業(yè)論文 34 Next i = select * from tbOA_voterecord 39。 投票管理窗體的設(shè)計結(jié)果如圖 所示 圖 在本窗體中用到“ MSChart”控件，該控件為“ ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對話框中選中“ Micrsoft ***學(xué)校畢業(yè)論文 36 Chart Control (OLEDB)”項。在“顯示列表” 按鈕的 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。 3 添加用戶 “添加用戶成員”窗體設(shè)計如圖 所示 ***學(xué)校畢業(yè)論文 38 圖 部分代碼設(shè)計如下： Private Sub Command1_Click() If = Then MsgBox 請輸入要添加的操作員信息！ , vbInformation, 提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = * 密碼必須 6位字符。更新數(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位字符