【正文】 on, 警告 End IfEnd IfDim strsql As StringDim strsql1 As Stringstrsql = select 宿舍號 as [sushe] from 宿舍 Dim conn As New Dim rst As New Dim cmd As New = strcon 39。引用公共變量 = conn = strsqlSet rst = Do Until If UCase(struser) = UCase(rst(sushe)) Then strsql1 = select ,姓名,班級,違紀(jì)處理情況,備注 from 宿舍,學(xué)生,宿舍信息 where = and = and =39。 amp。 amp。 39。 Call bindGrid(strsql1) Exit Sub Else strsql1 = select ,姓名,班級,違紀(jì)處理情況,備注 from 宿舍,學(xué)生,宿舍信息 where = and = and =39。 amp。 amp。 39。 Call bindGrid(strsql1)End If Loop End SubSub bindGrid(strsql As String)Rem 綁定datagrid Dim conn As New Dim rst As New = strcon 39。引用公共變量 = adUseClient strsql, conn, adOpenDynamic, adLockBatchOptimistic Set = Call gridWidth blnAdding1 = True End SubPrivate Sub Command4_Click() If Trim() = Then MsgBox 沒有選中任何行或則[學(xué)號]為空!, vbInformation, 提示 Exit Sub End If On Error GoTo myError: Dim strsql As String Dim strsql1 As String strsql = update 學(xué)生 set 學(xué)號=39。 amp。 amp。 39。,姓名=39。 amp。 amp。 39。,班級=39。 amp。 amp。 39。 where 學(xué)號=39。 amp。 amp。 39。 strsql1 = update 宿舍 set 宿舍號=39。 amp。 amp。 39。,備注=39。 amp。 amp。 39。 where 宿舍號=39。 amp。 amp。 39。 Call sqlcmd(strsql) Call sqlcmd(strsql1) blnAdding = False strsql1 = select ,姓名,班級,違紀(jì)處理情況,備注 from 宿舍,學(xué)生,宿舍信息 where = and = and =39。 amp。 amp。 39。 Call bindGrid(strsql1) MsgBox 執(zhí)行成功!, vbInformation, 提示 = = = = = Exit SubmyError: MsgBox 更新失??！ amp。 Chr(10) + Chr(13) amp。 更新的數(shù)據(jù)中存在非法字符[空格、單引號、雙引號、空], vbExclamation, 提示End SubPrivate Sub Command5_Click()If Trim() = Then MsgBox 沒有選中任何行或則[學(xué)號]為空!, vbInformation, 提示 Exit Sub End If If MsgBox(確定刪除學(xué)號為[ amp。 amp。 ]的記錄?, vbOKCancel, 提示) = vbCancel Then Exit Sub End If If blnAdding = True Then = = = = = = True = True End If On Error GoTo myError: Dim strsql As String strsql = delete from 宿舍信息 where 宿舍號=39。 amp。 amp。 39。 Call sqlcmd(strsql) strsql = delete from 學(xué)生 where 學(xué)號=39。 amp。 amp。 39。 Call sqlcmd(strsql) strsql = delete from 宿舍 where 宿舍號=39。 amp。 amp。 39。 Call sqlcmd(strsql) blnAdding = False MsgBox 執(zhí)行成功!, vbInformation, 提示 = = = = = Exit SubmyError: MsgBox 刪除失敗請重試！ amp。 Chr(34) + Chr(10) amp。 可能原因:與數(shù)據(jù)庫連接時失敗, vbExclamation, 提示End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()blnAdding = False = True = True Dim n As Integer Dim DgCount As Integer DgCount = If blnAdding1 = True ThenFor n = 0 To DgCount 1 = n Select Case n Case 0 = Case 1 = Case 2 = Case 3 = Case 5 = End Select Next nElse Exit SubEnd IfEnd SubPrivate Sub cmdUpdate_Click()End SubPrivate Sub Form_Load()strcon = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=學(xué)生宿舍管理系統(tǒng)。server=(local)blnAdding1 = FalseEnd SubSub gridWidth() Dim n As Integer Dim DgCount As Integer DgCount = For n = 0 To DgCount 1 (n).Width = Len((n).Caption) * 350 = n = False = False = False = False Next nEnd SubPrivate Sub DridStudent_RowColChange(LastRow As Variant, ByVal LastCol As Integer) End SubSub sqlcmd(strsql As String) 39。更新、刪除、插入數(shù)據(jù) Dim conn As New Dim cmd As New = strcon 39。引用公共變量 = conn = strsql End Sub 5 系統(tǒng)測試系統(tǒng)測試的目標(biāo)為了發(fā)現(xiàn)程序系統(tǒng)可能存在的錯誤。測試的原則是：盡量不由程序設(shè)計者進(jìn)行測試；要注重測試用例的選擇；充分注意測試中的群集現(xiàn)象。本軟件在操作過程中，操作方便、簡單容易入手，各個控件功能的實現(xiàn)都是如我所設(shè)計一樣。 應(yīng)用程序設(shè)計完成后，最后的工作就是編譯成可執(zhí)行文件，并且制作一個可在其他客戶端機器上安裝的程序。通過Visual Basic ，注意附帶文件的安裝路徑。設(shè)置基本信息，特性設(shè)置，安裝類型，升級路徑，添加指定的程序內(nèi)容，設(shè)置目標(biāo)系統(tǒng),定制安裝對話框，定義安裝系統(tǒng)要求和操作，最后發(fā)布安裝?？? 結(jié)通過這次實驗，我拓寬了知識面，鍛煉了能力，同時使個人的綜合素質(zhì)得到較大提高。 安排實驗的基本目的在于通過理論與實際的結(jié)合、人與人的溝通，進(jìn)一步提高思想覺悟。尤其是觀察、分析和解決問題的實際工作能力。 作為整個學(xué)習(xí)體系的有機組成部分，實驗課程雖然安排的課時比較少，但不是否定它的重要性。它的一個重要功能，在于運用學(xué)習(xí)成果，檢驗學(xué)習(xí)成果。運用學(xué)習(xí)成果，把課堂上學(xué)到的系統(tǒng)化的理論知識，嘗試性地應(yīng)用于實際設(shè)計工作，并從理論的高度對設(shè)計工作的現(xiàn)代化提出一些有針對性的建議和設(shè)想。檢驗學(xué)習(xí)成果，看一看課堂學(xué)習(xí)與實際工作到底有多大距離，并通過綜合分析，找出學(xué)習(xí)中存在的不足，以便為完善學(xué)習(xí)計劃，改變學(xué)習(xí)內(nèi)容與方法提供實踐依據(jù)。 對我們計算機系得學(xué)生來說，實踐能力的培養(yǎng)至關(guān)重要，而這種實踐能力的培養(yǎng)單靠課堂教學(xué)是遠(yuǎn)遠(yuǎn)不夠的，必須從課堂走向?qū)嵺`。這也是一次預(yù)演和準(zhǔn)備畢業(yè)設(shè)計工作。通過完成實驗，讓我們找出自身狀況與實際需要的差距，并在以后的學(xué)習(xí)期間及時補充相關(guān)知識，為求職與正式工作做好充分的知識、能力準(zhǔn)備，從而縮短從校園走向社會的過渡時間。 在短短的幾個課時的實驗之后，我們普遍感到不僅實際動手能力有所提高，更重要的是通過對軟件開發(fā)流程的了解，進(jìn)一步激發(fā)了我們對專業(yè)知識的興趣，并能夠結(jié)合實際存在的問題在專業(yè)領(lǐng)域內(nèi)進(jìn)行更深入的學(xué)習(xí)。參考文獻(xiàn)[1] :清華大學(xué)出版社,[2] ,2007[3] 劉新民. Visual Basic :清華大學(xué)出版社,200433