【正文】 _id = 39。 (0).Value amp。, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。 文件保存在： amp。投票項(xiàng)目的名稱是動態(tài)生成的，有幾項(xiàng)活動將生成幾個“CheckBox”控件。設(shè)置投票名稱Check1(0).ToolTipText = (2).ValueFor i = 1 To 1 39。判斷是否已經(jīng)投過票了 = pstr = select * from tbOA_voteRecord where voteRecord_name=39。If 0 ThenMsgBox 您已經(jīng)參與過此次投票，不能再次參與！, vbInformation, 提示： = False 39。下面是“提交”怕Click事件代碼：Private Sub cmdSave_Click()For i = 0 To 1 If Check1(i).Value = 1 Then 39。 amp。 39。投票項(xiàng)目被選中后，累計(jì)投票數(shù)量 End IfNext i = select * from tbOA_voterecord 39。在本窗體中用到“MSChart”控件，該控件為“ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對話框中選中“Micrsoft Chart Control (OLEDB)”項(xiàng)。在“顯示列表” 按鈕的Click事件下添加如下代碼： Private Sub cmdChart_Click()If = 顯示列表 Then Call setDataGrid = True = False = 顯示圖表Else Call showMsChart = False = True = 顯示列表End IfEnd Sub“清楚投票結(jié)果”按鈕的Click事件代碼如下：Private Sub cmdClear_Click() = select *from tbOA_voteIf 0 Then For i = 0 To 1 (3).Value = 0 Next iEnd IfSet con = New = pstrSet rs = New select * from tboa_voterecord, conSet rs = (DELETE FROM tbOA_voteRecord) 39。3 添加用戶“添加用戶成員”部分代碼設(shè)計(jì)如下：Private Sub Command1_Click()If = Then MsgBox 請輸入要添加的操作員信息！, vbInformation, 提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = * 密碼必須 6位字符。更新數(shù)據(jù) = = = MsgBox 用戶添加成功！, vbInformation, 提示：End IfEnd Sub函數(shù)isbool（）是判斷文本框內(nèi)是否為空Function isbool(str As String) As BooleanFor i = 1 To Len(str) If Mid(str, i, 1) Then isbool = False Else isbool = True Exit For End IfNext iEnd Function4 修改密碼（1） ：部分代碼設(shè)計(jì)如下：“修改”按鈕的Click事件代碼：Private Sub cmdUserUpdate_Click() = = If = ThenMsgBox 請?jiān)谙吕藛沃羞x擇要修改的操作員信息！,vbInformation,提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = = * 密碼必須為6位字符。保存數(shù)據(jù) = = Call setDataGrid_Caption MsgBox 操作員信息更改成功！, vbInformation, 提示:End If Unload MeEnd Sub “刪除”按鈕的Click事件代碼：Private Sub cmdUserDel_Click()If = Then MsgBox 請?jiān)谙吕藛沃羞x擇您要刪除的用戶！ Exit SubElse If MsgBox(請確認(rèn)是否刪除 amp。 操作員信息 ？, vbQuestion + vbYesNo) = vbYes Then = select * from dbOA_user where user_name=39。 amp。 MsgBox 已經(jīng)刪除成功！, vbInformation, 溫馨提示： End If = select * from dboa_user where user_name39。 amp。 Set = adoUser Call setDataGrid_Caption End IfEnd Sub 其它模塊1 瀏覽器 窗體中的按鈕控件是一組數(shù)組控件，做法是：在工具箱中添加一個按鈕后，選中它右擊復(fù)制，然后粘貼，就可以設(shè)計(jì)出數(shù)組控件了。 ：：Private Sub Command1_Click(Index As Integer)Select Case Index Case 0trip: Case 1 Case 2 Case 3 On Error GoTo trip 39。 變量聲明如下：Dim strlen As IntegerDim str As String 39。\Option Base 1 39。列表框數(shù)組Dim strnext As StringDim ml As BooleanDim i As IntegerDim uj As IntegerDim j As Integer 39。 = 0 = 0 = 0 = = = = = full 39。加載媒體 = False = True 39。禁止全屏End Sub 按鈕“打開”“下一首”“上一首”代碼如下：Private Sub Command1_Click()On Error GoTo mp3 = True 39。 指定缺省的過濾器 = 2 str = filestr = \ = str strlen = InStr(StrReverse(str), \) ml = False 39。不存在則存放到數(shù)組中加入到列表框中 39。重新定義數(shù)組的長度 ReDim Preserve mp3list(j) As String Mid(str, Len(str) strlen + 2) 39。**播放路徑都是當(dāng)前的 39。 找出播放文件在數(shù)組中的位置 strnext = For i = 1 To UBound(mp3list) If strnext = mp3list(i) Then uj = i Exit For End If Next i 39。此時可以將“ADO”屬性中的記錄源的命令類型設(shè)置為“1adCmdText”,并在下面的命令文本中添加相應(yīng)的SQL 語句即可。這些對話框作為Windows的資源，在VB中已被做成“公共對話框”控件。解決的方法是在“CommboBox”控件的屬性窗口中將其“Style”屬性設(shè)置為“0Dropdown”。主要代碼如下：Dim As , rs As , st As StreamSet = New = pstrSet rs = New select * from tboa_file, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary 39。打開Stream來操作二進(jìn)制或文本數(shù)據(jù)的流 39。只顯示文件名結(jié)論本次設(shè)計(jì)讓我從中嘗到很多知識，設(shè)計(jì)中用到的很多控件在平常學(xué)習(xí)中從來沒有用過的，所以在做的過程中碰到了許多的問題，有的一個問題困繞著我好幾天；有時明明覺得程序語法沒有錯誤可是就是運(yùn)行不起來；有時因“隱蔽”的拼寫的錯誤耽誤畢業(yè)設(shè)計(jì)的進(jìn)度……各種各樣的困難，不像實(shí)訓(xùn)時做的課程設(shè)計(jì)，畢業(yè)設(shè)計(jì)比平時做的東西要多得多，各種資料都是通過自己查閱、收集，功能的設(shè)計(jì)需要通過調(diào)查分析……雖然出現(xiàn)許多困難，但是通過網(wǎng)上查閱資料、圖書館查閱書籍、尋求老師的幫助，最終完成了任務(wù)。學(xué)習(xí)的耐心和解決問題的決心得到了考驗(yàn)，同時動手能力也被大大的提高。這對于我以后做人做事都有一個很大的啟發(fā)。致謝五個月的精心準(zhǔn)備，畢業(yè)論文終于到了劃句號的時候了。第一次花費(fèi)如此長的時間和如此多的精力來完成一篇論文，其中的艱辛與困難難以訴說，敲完最后一個字符，重新從頭細(xì)細(xì)閱讀早已不陌生的文字，我感觸頗多。它是無數(shù)教誨、關(guān)愛和幫助的結(jié)果。**老師雖身負(fù)教學(xué)、科研重任，但仍能抽出時間，不時召集我和同組的同學(xué)以督責(zé)課業(yè)，耳提面命，殷殷之情盡在諄諄教誨中。從初稿到定稿，**老師不厭其煩，一審再審，大到篇章布局的偏頗，小到語句格式的瑕疵，都一一予以指出。他們從多方面給予我畢業(yè)設(shè)計(jì)大量的支持，讓我能夠全身心地投入到論文的寫作中。我將繼續(xù)前行！參考文獻(xiàn)1劉瑞新,，李樹東，萬朝陽. Visual Basic 程序設(shè)計(jì)教程. 電子工業(yè)出版社,20002周穎 Visual Basic ，2000:55~743高春艷， Basic數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選，4宋昆、李嚴(yán). SQL 5賽奎春、高春艷Visual 2003 Basic數(shù)據(jù)庫開發(fā)及工程實(shí)例 人民郵電出版社 20037高春艷、李俊民等 Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社200王建國等 數(shù)據(jù)庫程序設(shè)計(jì)——SQL Server 2000 人民郵電出版社200高春艷等 Visual Basic數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 2003 ：人民郵電出版社，2002 Basic ：電子工業(yè)出版社，1999， Basic ：中國民航出版社，2000 Basic ：電子工業(yè)出版社，1998 59