【導讀】袇莄芃螇螃莃莆薀肂莂蒈螅肈莁蝕薈羄莀莀袃袀羇蒂蚆螅羆薅袂肄羅芄蚅羀羄莇袀袆肄葿蚃螂肅薁蒆膁肂莁蟻肇肁蒃薄羃肀薅蝿衿聿芅薂螅肈莇螈肅膈蒀薁罿膇薂螆裊膆節(jié)蕿螁膅蒄螄螇膄薆蚇肆膃芆袃膂莈蚅袈膂蒁袁螄芁薃蚄肂芀節(jié)蕆羈艿蒞螞襖羋薇蒅袀芇芇螀螆芆荿薃肅芆蒁蝿羈芅薄薁袇莄芃螇螃莃莆薀肂莂蒈螅肈莁蝕薈羄莀莀袃袀羇蒂蚆螅羆薅袂肄羅芄蚅羀羄莇袀袆肄葿蚃螂肅薁蒆膁肂莁蟻肇肁蒃薄羃肀薅蝿衿聿芅薂螅肈莇螈肅膈蒀薁罿膇薂螆裊膆節(jié)蕿螁膅蒄螄螇膄薆蚇肆膃芆袃膂莈蚅袈膂蒁袁螄芁薃蚄肂芀節(jié)蕆羈艿蒞螞襖羋薇蒅袀芇芇螀螆芆荿薃肅芆蒁蝿羈芅薄薁袇莄芃螇螃莃莆薀肂莂蒈螅肈莁蝕薈羄莀莀袃袀羇蒂蚆螅羆薅袂肄羅芄蚅羀羄莇袀袆肄葿蚃螂肅薁蒆膁肂莁蟻肇肁蒃薄羃肀薅蝿衿聿芅薂螅肈莇螈肅膈蒀薁罿膇薂螆裊膆節(jié)蕿螁膅蒄螄螇膄薆蚇肆膃芆袃膂莈蚅袈膂蒁袁螄芁薃蚄肂芀節(jié)蕆羈艿蒞螞襖羋薇蒅袀芇芇螀螆芆荿薃肅芆蒁蝿羈芅薄薁袇莄芃螇螃莃莆薀肂莂蒈螅肈莁蝕薈羄莀莀

　　

【正文】 如下 ： Private Sub cmdshow_Click() = pstr = select * from tboa_file where file_acceptperson =? amp。 amp。 ? order by file_date desc End Sub 雙擊 “DataGrid”表格中的一行，可以 下載文件的事件代碼如下： Private Sub DataGrid1_DblClick() On Error GoTo UNEX If MsgBox(是否接收 amp。 (3).Text amp。 傳送來的【 amp。 29 *** 學校畢業(yè)論文 (1).Text amp。 】嗎？ , vbQuestion + vbYesNo) = vbYes Then = (8).Text ? 設置 “CancelError”為 True = True On Error GoTo errHandler ? 如果為真則轉到 errhandler 處，執(zhí)行 exit sub 語 句 filePath = = 11 Set = New = pstr Set rs = New select * from tboa_file where file_id = ? amp。 (0).Value adOpenStatic, adLockOptimistic Set st = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite ?保存文件 , adSaveCreateOverWrite 為覆蓋已存在的文件 = 0 MsgBox 保存成功！ amp。 文件保存在： amp。 , vbInformation, 文件下載 End If Exit Sub 30 amp。 ?, , *** 學校畢業(yè)論文 errHandler: Exit Sub UNEX: MsgBox 沒有文件可供下載 !, vbInformation, 溫馨提示： End Sub 3 已發(fā)文件 已發(fā)文件的窗體設計界面如圖 ： 圖 交流管理 1 投票活 動 “投票活動 ”主要是對公司內部的活動進行投票。投票項目的名稱是動態(tài)生成的， 有幾項活動將生成幾個 “CheckBox”控件。 “活動投票 ”窗體的設計結果如圖 所示： 31 ***學校畢業(yè)論文 圖 代碼設計如下 ： （ 1）窗體裝載的代碼： Private Sub Form_Load() = 10695 = 4000 = pstr = select * from tbOA_vote On Error Resume Next Check1(0).Caption = (1).Value ?設置投票名稱 Check1(0).ToolTipText = (2).Value For i = 1 To 1 ?通過 for 循環(huán)動態(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 32 *** 學校畢業(yè)論文 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 ?判斷是否已經投過票了 = pstr = select * from tbOA_voteRecord where voteRecord_name=? + Mid((1).Text, 6, Len((1).Text) 5) + ? If 0 Then MsgBox 您已經參與過此次投票，不能再次參與！ , vbInformation, 提示： = False ?投票按鈕不可用 End If End Sub （ 2）單擊 “提交 ”按鈕，將投票添加表中。下面是 “提交 ”怕 Click事件代碼： Private Sub cmdSave_Click() For i = 0 To 1 If Check1(i).Value = 1 Then ?判斷投票項目是否被選中 = select *from tbOA_vote where vote_subject=? amp。 Check1(i).Caption amp。 ? (3).Value = vote_qty + 1 ?投票項目被選中 后，累計投票數量 End If 33 *** 學校畢業(yè)論文 Next i = select * from tbOA_voterecord ?將投票人添加到數據表中，防止本人再 次投票 (1).Value=Mid( .Panels(1).Text,6,Len((1).Text) 5) MsgBox 提交成功 , vbInformation, 提示： = False Unload Me End Sub 2 意見箱 “意見箱 ”窗體設計果如圖 ： 圖 “提交 ”按鈕的 Click事件代碼如下： Private Sub cmdSend_Click() = pstr = select * from tboa_idea 34 *** 學校畢業(yè)論文 (1).Value = (2).Value = MsgBox 您的意見已成功提交，感謝您提意見！ , vbInformation, 提示： = = End Sub 系統(tǒng)維護管理 1 投票管理 投票管理主要用于添加投票活動、刪除投票活動、清除投票記錄，用列表形式統(tǒng) 計票數。 投票管理窗體的設計結果如圖 圖 在本窗體中用到 “MSChart”控件，該控件為 “ActiveX”控件，因此在使用之前 必須從 “部件 ”中添加上中，添加方法為：在 “部件 ”對話框中選中 “Micrsoft 35 *** 學校畢業(yè)論文 Chart Control (OLEDB)”項。 部分代碼如下： 單擊 “顯示列表 ”按鈕，可以切換通過列表顯示投票結果或圖表顯示投票結果。 在 “顯示列表 ” 按鈕的 Click事件下添加如下代碼： Private Sub cmdChart_Click() If = 顯示列表 Then Call setDataGrid = True = False = 顯示圖表 Else Call showMsChart = False = True = 顯示列表 End If End Sub “清楚投票結果 ”按鈕的 Click事件代碼如下： Private Sub cmdClear_Click() = select *from tbOA_vote If 0 Then For i = 0 To 1 (3).Value = 0 Next i End If 36 *** 學校畢業(yè)論文 Set con = New = pstr Set rs =