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