【正文】 ，發(fā)現(xiàn)是Operator表沒有設置主鍵，所以出錯了，然后我設置了主鍵，問題就解決了。Integrated Security=SSPI。為了保證系統(tǒng)的安全，雖然用戶已經(jīng)登錄，但是必須再次輸入用戶名和密碼，驗證用戶的權限，才能修改密碼。下面是修改密碼窗體frm_psdmodify的界面：這一部分的代碼為：Option ExplicitPrivate Sub cmd_cancel_Click()Dim opt As Stringopt = MsgBox(您確定要退出修改密碼嗎？, vbYesNo, )If opt = vbYes Then 39。 amp。, vbInformation, = True Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd IfEnd SubPrivate Sub cmd_yes_Click()Dim sql1 As StringDim rst_psd As New 39。檢查是否輸入了確認密碼 MsgBox 請輸入確認密碼, vbInformation, Else 39。 amp。 amp。Integrated Security=SSPI。修改密碼時新密碼不可見 = * = *End SubPrivate Sub opt_yes_Click() 39。 添加學生記錄 控件向SQL 2000 數(shù)據(jù)庫中寫入記錄。下面是添加學生信息模塊的界面：這一部分的代碼為：考慮到在實際操作過程中可能會連續(xù)甚至大量添加屬于同一班級同學的信息，所以此處添加班級信息選擇了列表框單擊選擇的方式。添加學生所屬的院系和班級時，采用列表框選擇的方 39。的單位已經(jīng)在列表框中，則不再重復添加，并將焦點 39?？焖偾宄弦淮屋斎氲臄?shù)據(jù) = = = = = = False = FalseEnd SubPrivate Sub cmd_exit_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click() 39。Dim rst_add As New Dim sql As Stringsql = select* from Student sql, n, adOpenDynamic, adLockPessimisticIf = ThenMsgBox 學號不能為空, vbInformation, Else If Len() 10 Then MsgBox 學號的長度不能大于10位, vbExclamation + vbOKOnly, Else If txt_sname = Then MsgBox 姓名不能為空, vbInformation, Else If = False And opt_girl = False Then MsgBox 請選擇男生或是女生, vbInformation, Else If = True Then ssex = 男 Else ssex = 女 End If 39。功能 測繪116班 水文112班 英語112班End Sub各個模塊信息查找的功能都是相似的，下面繼續(xù)以學生信息模塊為代表，給出這一模塊的界面和主要實現(xiàn)代碼:考慮到查找關鍵字的實用性，系統(tǒng)提供了SQL 語言查詢功能和便于操作的按學號、姓名、性別、班級、生日、家庭住址查找的功能，雖然也可以實現(xiàn)通過電話號碼和簡歷查找的功能，但是這樣做的實用性似乎并不大。 amp。 39。比如要查詢一個學生的選課信息，可以再成績信息中按學號查找記錄，要查找某一門課程的選課信息，可以再成績表中按課程號進行信息查找。添加一條記錄 = True = True‘此處為了保證系統(tǒng)的安全，用戶在將一條新的有效的記錄寫入到數(shù)據(jù)庫之前，不能再添加新的空白的記錄，因為數(shù)據(jù)庫中主鍵的約束不允許添加空白的記錄，而添加空白記錄本身也沒有意義。雖然在DataGrid1可以直接添加學生記錄，但是容易出 _ 現(xiàn)錯誤，浪費時間并造成不必要的麻煩，所以此處仍 _ 默認調(diào)用frm_studentadd窗口添加記錄。刪除一條記錄Dim opt As StringOn Error GoTo deleror 39。將刪除一條記錄，如果選擇“否”，將取消操作opt = MsgBox(你確定要刪除嗎？, vbYesNo, )If opt = vbYes Then = TrueMsgBox 刪除成功, vbExclamation + vbOKOnly, = FalseElse Exit SubEnd Ifdeleror:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_refresh_Click() 39。對退出進行確認39。Unload Me39。最后一條記錄End SubPrivate Sub cmd_first_Click() 39。查詢Dim rs_findstudent As New Dim sql As String 39。%39。 39。 Trim( amp。%39。 % amp。%39。麻煩End IfIf = vbChecked Then sql3 = Ssex like 39。 39。 amp。 39。 amp。 39。 amp。 39。 sql1 amp。 sql3 amp。 sql5 amp。建議不要采用ＳＱＬ查詢，避免出現(xiàn)不必要的錯誤Dim rs_findstudent As New 39。全部記錄Dim sql As Stringsql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdTextSet = rst_student = vbDefault sqlEnd SubPrivate Sub Command3_Click() 39。不可刪除 = False 39。下面是一份導出的課程信息表報表的內(nèi)容：課程信息表課程編號課程名稱學時課程類型0001高等數(shù)學（上）4800010002大學物理6000010003化學4800010004政治4800020005英語4800020006影視鑒賞3600030007民法基礎2400030008地圖制圖基礎1600030009數(shù)據(jù)結(jié)構(gòu)4800040010數(shù)據(jù)庫原理與應用3600040011工程力學4800030012音樂鑒賞160002 關于系統(tǒng)此部分提供了使用須知和幫助文檔兩個窗口。 strline amp。在編寫代碼的過程中，我主要學習了老師提供給我們的課件和用VB 開發(fā)的 Access 數(shù)據(jù)庫的例子，尤其是第四章數(shù)據(jù)庫應用系統(tǒng)開發(fā)，是我在實驗過程中少走了許多彎路，窗體界面并沒有什么大的創(chuàng)新。我以為是Win 7 系統(tǒng)的問題，于是把 服務器的名稱改為DELLPC，程序又可以正常運行了。最后我在無意中發(fā)現(xiàn)把鼠標停留在工具箱欄的右邊界時，可以調(diào)節(jié)工具箱的大小，我向右寬了一些，然后工具箱上多了許多的控件，這樣才找到了ToolBar和ImageList 控件。 如果單擊“確定“，系統(tǒng)將自動啟動SQL Server服務，如下圖所示：安裝程序時數(shù)據(jù)庫的初始化和在程序中啟動MSSQLSERVER 服務。這次課程實踐，加深了我對Visual Basic 的了解，特別是又學會了新的控件，比如ADODC，DataGrid，DataReport，DataEnvironment的常用屬性和使用方法。第五章 參考資料 Basic 程序設計 張艷 清華大學出版社 賀利堅 北京希望電子出版社 +SQL 學生管理系統(tǒng) 楊茂科 貴州師范大學職業(yè)技術學院33