学生信息管理系统VB课程设计(3)

txtChinese.Text = DataE.rscmdScore!chinese txtMaths.Text = DataE.rscmdScore!maths txtEnglish.Text = DataE.rscmdScore!english txtPolitics.Text = DataE.rscmdScore!politics txtPhysics.Text = DataE.rscmdScore!physics txtChemistry.Text = DataE.rscmdScore!chemistry

dgrdResult.Visible = False frameDetail.Visible = True End Sub

4.4 用户注册界面设计

如图4-4。

图4-4 用户注册界面

注册控件编码：

Private Sub cmdReg_Click() 'Dim cmd As Command

Usertype = General State = 1

Set cmd = New Command

DataE.Connections("conLibrary").Open

cmd.ActiveConnection = DataE.Connections("conLibrary") mandText = "insert into UserTable(UserName,RealName,Unit,pwd,RegisterTime,age,state,usertype) values('" & txtUserName.Text & "','" & txtRealname.Text & "','" & txtUnit.Text & "','" & txtPassword.Text & "','" & Now & "','" & udAge.Value & "','" & State & "','" & Usertype & "')"

mandText = "select * from usertable where username='" & txtUserName & "'"

'子段不要使用关键字“PassWord” '验证重要信息已经填写

If txtUserName.Text = "" Then

MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意" txtUserName.SetFocus Exit Sub

ElseIf txtPassword.Text = "" Then

MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意"

txtPassword.SetFocus Exit Sub

ElseIf txtPwAgain.Text = "" Then

MsgBox "请填写确认密码！", vbOKOnly + vbInformation, "注意" txtPwAgain.SetFocus Exit Sub End If

If txtPassword.Text <> txtPwAgain.Text Then

MsgBox "两次密码不相同，请重新填写！", vbOKOnly + vbInformation, "注意" txtPassword.Text = "" txtPwAgain.Text = "" txtPassword.SetFocus Exit Sub End If

On Error GoTo exit1

If Not IsExistUser(txtUserName, "") Then '添加用户

DataE.cmdAdd txtUserName, txtPassword, txtRealname, txtUnit, Now, udAge, Usertype, State

MsgBox "注册成功！", vbOKOnly + vbInformation, "注意" Unload Me

frmSearch.Show Else

MsgBox "用户已经存在！请重新注册一个新的用户名", vbOKOnly + vbInformation, "注意"

txtUserName.Text = "" txtPassword.Text = "" txtPwAgain.Text = "" txtUserName.SetFocus End If Exit Sub exit1:

MsgBox "数据未成功写入数据库！", vbOKOnly + vbInformation, "错误" Exit Sub End Sub

第5章 课设总结

时光短暂，短短的课程设计即将结束，报告基本完成。从最初的茫然，到慢慢的进入状态，再到对思路逐渐的清晰，整个设计过程难以用语言来表达。历经一周的奋战，紧张而又充实课程设计终于落下了帷幕。现在回头想想这几天的经历和感受，我感慨万千，在这次课程设计的过程中，我拥有了无数的回忆和收获。

这次设计报告的制作过程是我的一次再学习，再提高的过程。在报告中我充分运用了大学期间所学到的知识，也学会了如何使用所学的知识去解决一些实际问题。

此系统是我做的一个简单的学生管理系统，由于缺少经验，在建立数据库的时候，考虑的不完善，建立数据库内容接触较少，导致系统功能实现不是那么完美。虽然在不断的修改，但由于能力和时间的关系，还是有很多不尽人意的地方，在以后的修改过程中，我将会查更多的资料对系统进行更改，使系统的设计更加完善。

总之，通过这次课程设计,我深刻体会到要做好一个完整的事情，需要有系统的思维方式和方法，对待要解决的问题，要耐心、要善于运用已有的资源来充实自己。同时我也深刻的认识到，在对待一个新事物时，一定要从整体考虑，完成一步之后再作下一步，这样才能更加有效。