【正文】 第 30 頁 共 30 頁。感謝學校提供這次難得的機會，感謝李中華老師的認真指導。我只有在以后的學習之路上做到一絲不茍，才能獲得成功.3 后記面對新的問題，以前的我會覺的十分畏懼，可通過這次實習，我發(fā)現(xiàn)自己變得勇敢，積極地從正面面對問題，認真地查閱資料、動手實踐、和同學交流，問題便能解決。 這次課程設計實習我流的汗和淚，都是以成功的完成課程設計任務為收獲的。解決方法：只要細心，認真就可以做的好。解決：通過看課本，查資料，以及詢問老師等途徑知道自己沒有設置data控件的數(shù)據(jù)綁定常用屬性，還有一些代碼不是和數(shù)據(jù)庫相應的位置連接的。女39。男39。 39。 amp。 39。 amp。 = = = = = = = = Else = (0) = (1) = (2) = (3) = (4) = (5) = (6)End IfEnd If 存在時，調(diào)出數(shù)據(jù)庫。 39。 amp。Private Sub Command2_Click() 進入主界面學生成績錄入界面：代碼如下：Private Sub Command1_Click()If = Or = Or = Or = Or = Or = Or = ThenMsgBox 內(nèi)容不能為空，請重新輸入！Else 判斷輸入的內(nèi)容是否有空的(0) = (1) = (2) = (3) = Val()(4) = Val()(5) = Val()(6) = Val() = Str((Val() + Val() + Val()) / 3)(7) = MsgBox 添加成功！ 沒有空的時候，對數(shù)據(jù)庫進行修改，并保存End If39。End If 選擇查詢的條件，并相應的調(diào)入記錄。 amp。Else = select * from 基本信息表 where 姓名=39。 amp。End IfEnd SubPrivate Sub Command2_Click()End Sub 進入主界面Private Sub Command3_Click()If = ThenMsgBox 請輸入內(nèi)容！Else mybookmark = Str2$ = MsgBox(是否刪除當前記錄？, vbOKCancel, 刪除當前記錄)If Str2$ = vbOK Then 確定刪除 刪除數(shù)據(jù)庫中的相應記錄 = = = = = = = = = End IfEnd If 請空各文本框End Sub學生信息查詢界面：代碼如下：Private Sub Command1_Click()If = 按學號 Then = select * from 基本信息表 where 學號=39。 If ThenMsgBox 學號不存在，請重新輸入！, vbOKOnly + vbExclamation, 警告 = = = = = = = = = 如果輸入的學號數(shù)據(jù)庫無此記錄，則重新輸入。 amp。End IfEnd SubPrivate Sub Command10_Click()If Trim() = ThenMsgBox 學號不能為空，請重新輸入！, vbOKOnly + vbExclamation, 警告Else 判斷輸入學號是否為空 = select * from 成績表 where 學號=39。 (0) = (1) = (0) = (1) = End If 同時，也將輸入的學號添加到“成績表”與“密碼表”中，以及“成績表”中加入學號與姓名，“密碼表”中用戶名與為學號。 Trim() amp。 = select * from 密碼表 where 用戶名=39。 Trim() amp。 = select * from 成績表 where 學號=39。 39。 amp。Private Sub Command3_Click()End Sub 返回主界面。MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼End IfEnd Sub 彈出“修改成功”的窗體。 39。 amp。End Sub修改密碼界面：代碼如下：Private Sub Command1_Click()If Trim() Trim() ThenMsgBox 密碼輸入不正確!, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入的密碼是否一致，若不一致，彈出警告，并重新輸入。Private Sub Command2_Click() = = = 單擊“取消”按鈕，將文本框清空。If Not ThenMsgBox 用戶已存在，請重新輸入用戶名！, vbOKOnly + vbExclamation, 提示信息 = : = : = Exit SubEnd IfEnd If 若不為空，連接數(shù)據(jù)庫，判斷該用戶名是否已經(jīng)存在，若已經(jīng)存在，彈出警告，重新輸入！ If Trim() Trim() ThenMsgBox 兩次輸入的密碼不一樣，請確認！, vbOKOnly + vbExclamation, 警告 = = 若兩次輸入地密碼不一致，則彈出警告，確認并重新輸入密碼。 amp。End Sub添加用戶界面：代碼如下：Private Sub Command1_Click()If Trim() = ThenMsgBox 請輸入用戶名！, vbOKOnly + vbExclamation, 信息提示 判斷用戶名是否為空，若為空，則彈出警告，輸入用戶名！Exit SubEl