【正文】 lse = = = = = = End SubPrivate Sub cmdexit_Click() 39。這些東西時在網(wǎng)上查找學(xué)到的，非常感謝在網(wǎng)上熱心認真回答他人問題的網(wǎng)友。在程序安裝后，第一次啟動程序時，會檢驗計算機上是否已經(jīng)啟動MSSQLSERVER服務(wù)，如果沒有啟動，程序?qū)⑼ㄟ^shell “net strat mssqlserver”來啟動服務(wù)，然后檢查當前服務(wù)器上是否存在School數(shù)據(jù)庫，如果沒有則將備份好的School 數(shù)據(jù)庫恢復(fù)到當前服務(wù)器上，這一部門的功能在啟動對象Sub Main實現(xiàn)。或者在工具欄上添加一個垂直滾動條，方便用戶查找控件。運行界面如下： 實現(xiàn)代碼為：Option ExplicitPrivate Sub Form_Load()Dim strline As String = Open amp。 sql6 = adUseClient sql, n, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findstudent sqlEnd SubPrivate Sub cmd_sqlquery_Click() 39。 % amp。 % amp。 39。中的查詢條件，也都添加了一個amp。opt = MsgBox(你確定要退出嗎, vbYesNo, )39。在新數(shù)據(jù)存入數(shù)據(jù)庫之前，或者取消添加一條記錄之前 39。為了增強查詢功能，考慮到實際使用的需要，我們有時可能會查找全部姓張的學(xué)生，或者家庭住址都是河南省的學(xué)生，也或者出生在1992年2月的學(xué)生的記錄，或者同在某一個班級的學(xué)生的記錄。少輸入錯誤Dim sdept As StringDim i As IntegerDim permission As Booleanpermission = True 39。Initial Catalog=School。密碼不能和原來的密碼一樣 = = Else If Len() 6 Then 39。Initial Catalog=School。 \backup\School39。查詢教師信息End Sub‘選擇ToolBar上每個按鈕的關(guān)鍵字Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case password Case student Case grade Case teacher Case class Case course Case sdept Case help Case exit Unload Me End SelectEnd Sub 全局變量設(shè)置 程序編寫過程中需要用到一些全局變量，并且軟件的啟動從Sub Main 過程開始，這一過程包含了軟件的初始化，School 數(shù)據(jù)庫的恢復(fù)。下面試這一部分的代碼:Option ExplicitPrivate Sub Classmanagement_Click() 39。然后再Visiual Basic ： 因為程序在運行的時候我才能抓取到當前窗體，程序運行的時候Imagelist 控件隱藏了，所以我們只能看到ToolBar控件。學(xué)生信息查詢End Sub Private Sub teacheradd_Click() 39。, conn, 1, 3 If 1 Then mkdir_kill restore database School from disk=39。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then Unload Me Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd Ifi = i + 1If i = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then MsgBox 恭喜，您可以開始修改密碼！新密碼的長度不能低于六位，建議您使用數(shù)字和字母的組合。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請牢記您的新密碼!, vbInformation, End If End If End If End IfEnd IfEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。Option ExplicitDim ssex As StringPrivate Sub cmd_addsdept_Click() 39。并不影響輸入數(shù)據(jù)時的選擇，所以不提供清除Item的 39。下面是模塊的代碼：Private Sub cmd_add_Click() 39。原退出按鈕的功能39。點，對于為選中的查詢字段，sql=39。 Trim( amp。End IfIf = vbChecked Then sql4 = Sclass like39。End IfIf = vbChecked Then sql6 = Sbirth like39。 And amp。下面是用Word 2003 圖片工具裁切過的一個設(shè)計的報表，名稱為課程信息表。這個地放浪費了我許多時間，因為網(wǎng)上說可能計算機上Activex 或者 dll沒有正常注冊。對簡單的VB編程熟練性增加，對用Visual Basic 開發(fā)SQL 2000數(shù)據(jù)庫系統(tǒng)也有了比較全面的了解。 問題解決 實驗過程中，我遇到了一些問題，并努力通過網(wǎng)絡(luò)和參考資料，逐漸解決了這些問題。生成報表End SubPrivate Sub exit_Click() 39。 And amp。 Trim( amp。 amp。 ) amp。第一條記錄End SubPrivate Sub cmd_last_Click() 39?！皵?shù)據(jù)無價”，操作必須謹慎。Else sql4 = Sclass like 39。添加學(xué)生記錄的主要操作，因為學(xué)號、姓名和性別為 39。為了保證系統(tǒng)的正常運行，在程序中對學(xué)生的學(xué)號、姓名和行唄進行檢驗，如果為空則不執(zhí)行寫入數(shù)據(jù)庫的命名，以降低系統(tǒng)出現(xiàn)錯誤的可能。 39。對用戶行為進行確認Unload MeElse Exit SubEnd IfEnd SubPrivate Sub cmd_check_Click() 39。 39。Persist Security Info=False。重新登錄End SubPrivate Sub passwordmodify_Click() 39。中國礦業(yè)大學(xué)環(huán)境與測繪學(xué)院數(shù)據(jù)庫技術(shù)與應(yīng)用課程實踐目錄第一章 系統(tǒng)分析與設(shè)計………………………………………………………………… 3 ……………………………………………………………………. 3……………………………………………………………………….. 3第二章 系統(tǒng)實施……………………………………………………………………………. 5 主界面設(shè)置…………………………………………………………………….. 6 全局變量設(shè)置…………………………………………………………………. 9 用戶登錄窗口………………………………………………………………… 11 密碼修改窗口………………………………………………………………… 12 用戶注冊窗口………………………