【正文】 如果單擊“確定“，系統(tǒng)將自動啟動SQL Server服務(wù)，如下圖所示：安裝程序時(shí)數(shù)據(jù)庫的初始化和在程序中啟動MSSQLSERVER 服務(wù)。 strline amp。建議不要采用ＳＱＬ查詢，避免出現(xiàn)不必要的錯(cuò)誤Dim rs_findstudent As New 39。 39。 39。%39。 39。Unload Me39。雖然在DataGrid1可以直接添加學(xué)生記錄，但是容易出 _ 現(xiàn)錯(cuò)誤，浪費(fèi)時(shí)間并造成不必要的麻煩，所以此處仍 _ 默認(rèn)調(diào)用frm_studentadd窗口添加記錄。 amp。的單位已經(jīng)在列表框中，則不再重復(fù)添加，并將焦點(diǎn) 39。修改密碼時(shí)新密碼不可見 = * = *End SubPrivate Sub opt_yes_Click() 39。檢查是否輸入了確認(rèn)密碼 MsgBox 請輸入確認(rèn)密碼, vbInformation, Else 39。為了保證系統(tǒng)的安全，雖然用戶已經(jīng)登錄，但是必須再次輸入用戶名和密碼，驗(yàn)證用戶的權(quán)限，才能修改密碼。為了增強(qiáng)系統(tǒng)的安全性，系統(tǒng)對用戶輸錯(cuò)密碼的次數(shù)進(jìn)行了限制，如果用戶連續(xù)三次輸入密碼錯(cuò)誤，則登錄界面將關(guān)閉，用戶必須重新運(yùn)行軟件才能繼續(xù)登錄。Integrated Security=SSPI。課程設(shè)置End SubPrivate Sub coursequery_Click() 39。本數(shù)據(jù)庫采用SQL Server2000來構(gòu)造，數(shù)據(jù)庫名稱為School，共使用了8個(gè)表，它們分別是用戶信息表（Operator）、學(xué)生信息表（Student）、學(xué)生成績表（SC）、教師信息表（Teacher）、課程信息表（Course）、課程類型表（Type）、部門信息表（Sdept）、班級信息表（Class）。錄入學(xué)生信息End SubPrivate Sub studentmodify_Click() 39。====關(guān)閉記錄集====Public Sub Close_Reco() If = 1 Then End IfEnd SubPublic Sub DB_ADD() Dim s As String On Error GoTo ErrorChecka: conn_str2 select * from sysdatabases where name=39。 39。 amp。 amp。系統(tǒng)在啟動時(shí)會默認(rèn)添加幾個(gè)班級的信息，僅為測試軟件功能之用，用戶可以添加自己需要的班級信息，如果所要添加的信息已經(jīng)在列表框中，則不能重復(fù)添加相同的信息，并且焦點(diǎn)會定位到該條記錄，方便用戶進(jìn)行查找。完成數(shù)據(jù)的檢驗(yàn)以后，向SQL數(shù)據(jù)庫中寫入數(shù)據(jù) (Sno) = Trim() (Sname) = Trim() (Ssex) = ssex (Sbirth) = Trim() (Sclass) = () (Saddress) = Trim() (Sphone) = Trim() (Sresume) = Trim() MsgBox 添加記錄成功, vbInformation, End If End If End If End IfEnd SubPrivate Sub Form_Load() 39。也可以同時(shí)選中這兩項(xiàng)，確定某一個(gè)學(xué)生是否選修了某一門課程。刷新39。 為了增加“查詢”按鈕的實(shí)用性功能，支持 39。 End IfIf = vbChecked Then sql2 = Sname like39。Else sql3 = Ssex like 39。Else sql5 = Saddress like 39。 And amp。不可更新 = vbHourglassDim sql As Stringsql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdTextSet = rst_student = vbDefaultEnd Sub 生成報(bào)表這一部門采用了DataReport控件和DataEnvoronmnt 的Connection 中的Command命令?？墒钱?dāng)我保存VB 工程再到第一臺計(jì)算機(jī)測試同樣的問題又出現(xiàn)了，最后我認(rèn)真檢查了老師所提供的例子，將選擇輸入服務(wù)器名稱一項(xiàng)空白，問題就解決了?？偠灾?，這次課程實(shí)踐我學(xué)到了很多有用的知識。當(dāng)我換到一臺名為DELLPC 裝有Win7 x86 系統(tǒng)的計(jì)算機(jī)進(jìn)行測試，在生成報(bào)表時(shí)出現(xiàn)了問題，系統(tǒng)提示找不到指定的服務(wù)器。不可增加 = False 39。 And amp。 ) amp。 ) amp。Else sql1 = Sno like 39。下一條記錄If Not ThenElse If And 0 Then MsgBox 已經(jīng)是最后一條, vbInformation, End IfEnd IfEnd SubPrivate Sub cmd_query_Click() 39。此處對刪除一條記錄操作進(jìn)行確認(rèn)，如果選擇“是”， 39。End If的語句，用戶可以選擇一個(gè)或多個(gè)查詢條件，可以輸入大概的查詢條件，增加查找到所需信息的概率。實(shí)際情況，學(xué)號不會過長，所以設(shè)最大長度為10位。添加其他記錄時(shí)直接在DataGrid 控件進(jìn)行操作。 where operator_name like39。未驗(yàn)證權(quán)限則無權(quán)修改密碼Dim sql As StringDim rst_login As New If Trim() = ThenMsgBox 用戶名不能為空, vbExclamation + vbOKOnly, 沒有這個(gè)用戶Elsesql = select * from Operator where operator_name=39。2000 查詢分析器執(zhí)行了上面的select * from Operator,發(fā)現(xiàn)不能執(zhí)行，換其他的表就沒有問題，然后我 39。Data Source=DB_ADD conn_str1 39。通過課程查詢成績End Sub Private Sub querybystudent_Click() 39。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。課程類型End SubPrivate Sub exit_Click() 39。Initial Catalog=School。 amp?？梢允菙?shù)字、字母和特殊字符的組合，且不能和原來的密碼一樣。設(shè)置新的用戶密碼 Dim rst_login As New sql = update Operator set password=39。下面是用戶注冊界面：第三章 信息維護(hù)無論是學(xué)生信息教師信息，還是班級信息課程信息，他們的添加、修改、查詢、刪除，功能和實(shí)現(xiàn)方式都是相似的。要添加的單位已經(jīng)在列表框中，不允許再次重復(fù)添加End IfNext iIf permission = True Then sdept MsgBox 添加成功！, vbInformation, End IfEnd SubPrivate Sub cmd_clear_Click() 39。 % amp。修改一條記錄On Error GoTo erradjust = Trueerradjust:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_cancel_Click() 39。 Exit Sub39。市縣鎮(zhèn)村的人，或者同姓張或他姓的人Dim sql1 As StringDim sql2 As StringDim sql3 As StringDim sql4 As StringDim sql5 As StringDim sql6 As StringIf = vbChecked Then sql1 = Sno=39。不能用”=“比較文本數(shù)據(jù)，除非是NOT NULL，所以對于姓名應(yīng)該用Like 39。%39。%39。確定錄入數(shù)據(jù)按鈕的功能 = False = False = False = TrueEnd SubPrivate Sub cmdclear_Click() = False = False = False = False = False = Fa