关于学生信息管理系统的改进问题
最近在大家验收时，我旁听了一点，很多师哥师姐提出了很多我们没有到过的东西，感觉长了不少知识。
一，界面的美化
在作品展的时候还能想到界面的美化，但是这次却没怎么注意，但是至少那些控件的摆放，对齐还是要有滴。
二，回车键不能使用
比如，在我们登陆学生信息管理系统的时候，敲完用户名和密码进入系统时，猛敲回车，根本不能像QQ那样，如我们所愿的进入系统，而是呆呆的毫无反应，这时，只能尴尬地，毫无创意地去点击确定按钮。这根本不符合我们平时的习惯嘛~
这个问题改进起来，也很好改进，只需更改按钮的Default属性就行了。
三，判断语句的添加
1，添加课程时的重复问题；
2，在查询记录时，没有查询到符合条件的记录，不提示“没有符合条件的记录”，根本没反应。
3，记录的读取不能连城环状，例如，一直点击下一条，到最后一条记录时，不能从最后一条跳转到第一条；
4，修改记录时，如果数据库中没有记录时的处理：弹出提示：“数据库中没有任何记录，请先添加记录”，然后弹出添加记录的窗口。
5，删除完数据库中的数据后会出现EOF和BOF同时为TRUE的清空。
6，输入框中值的有效性的判断：字符长度的判断；数值长度的判断；日期格式的判断； 出生日期和入学日期的先后顺序，出生日期和入学日期之间的时间差是否小于某个值。
四，自动清空功能
1，登陆时用户名符合，但是密码不符合，此时应清空密码，并且输入密码的文本框应再次获得焦点。
2，添加完信息之后，文本框应自动清空，来便于添加下一条信息。
3，查询完信息时，如果没有查到符合条件的记录，则应该将CHECK的VALUE自动变为FALSE，即，复选框处于未选中的状态，并且各个文本框的内容清空，弹出提示信息。
五，标记中的代码漏洞
例如，在本窗体中，用了一个mcclean布尔类型的变量来标记是否修改过输入框中的值，其中TRUE表示未标记，即未修改过任何值，FALSE表示标记，修改过其中的值，但是细看代码：
Private Sub editCommand_Click()
mcclean = False '点击按钮后，标记修改过当前记录
'第一组按钮不能用
Frame1.Enabled = False
firstCommand.Enabled = False
previousCommand.Enabled = False
nextCommand.Enabled = False
lastCommand.Enabled = False
'可以修改输入框中的值
txtCourseno.Enabled = True
txtCoursename.Enabled = True
comboCoursetype.Enabled = True
txtCoursedes.Enabled = True
'添加信息
comboCoursetype.AddItem "必修"
comboCoursetype.AddItem "考察"
myBookmark = mrc.Bookmark '记录书签
End Sub
Private Sub updateCommand_Click()
Dim txtSQL As String 'SQL查询语句
Dim MsgText As String 'EXECUTSQL第二个参数
Dim mrcc As ADODB.Recordset '记录集对象
If mcclean Then '如果没有修改过课程信息
MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'检验输入框的值是否为空
If Not Testtxt(txtCourseno.Text) Then
MsgBox "请输入课程编号。", vbOKOnly + vbExclamation, "警告"
txtCourseno.SetFocus
Exit Sub
End If
If Not IsNumeric(Trim(txtCourseno.Text)) Then
MsgBox "课程编号请输入数字", vbOKOnly + vbExclamation, "警告"
txtCourseno.SetFocus
Exit Sub
End If
If Not Testtxt(txtCoursename.Text) Then
MsgBox "请输入课程名称", vbOKOnly + vbExclamation, "警告"
txtCoursename.SetFocus
Exit Sub
End If
If Not Testtxt(comboCoursetype.Text) Then
MsgBox "请输入课程类型", vbOKOnly + vbExclamation, "警告"
comboCoursetype.SetFocus
Exit Sub
End If
If Not Testtxt(txtCoursedes.Text) Then
MsgBox "请输入课程描述信息。", vbOKOnly + vbExclamation, "警告"
txtCoursedes.SetFocus
Exit Sub
End If
mrc.Delete
'执行查询，返回记录集
txtSQL = "select * from course_info where course_no='" & Trim(txtCourseno.Text) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If mrcc.EOF = False Then
MsgBox "课程编号重复，请重新输入", vbOKOnly + vbExclamation, "警告"
mrcc.Close
txtCourseno.SetFocus
Else
mrcc.Close
'更新记录
mrc.AddNew
mrc.Fields(0) = Trim(txtCourseno.Text)
mrc.Fields(1) = Trim(txtCoursename.Text)
mrc.Fields(2) = Trim(comboCoursetype.Text)
mrc.Fields(3) = Trim(txtCoursedes.Text)
mrc.Update
MsgBox "修改课程信息成功", vbOKOnly + vbExclamation, "警告"
mrc.Bookmark = myBookmark '标记书签
Call viewData '显示信息
'第一组按钮可用
Frame1.Enabled = True
firstCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
lastCommand.Enabled = True
'输入框边为不可输入状态
txtCourseno.Enabled = False
txtCoursename.Enabled = False
comboCoursetype.Enabled = False
txtCoursedes.Text = False
mcclean = True '标记值置为默认值
End If
End Sub
我们会发现，只要点击过修改按钮，都会被标记为修改过。例如：我点击完修改按钮，再点击更新按钮，就会弹出如图所示提示：修改信息成功。可是我什么都没修改过啊！
这里少考虑了那种点击了修改按钮，却没有修改的情况。
为此，我们添加如下代码：定义一个字符数组，用来当前正在修改的记录的原值
：Dim strTxtValue(0 To 3) As String
在修改记录和更新记录的代码中加入如下代码：
Private Sub editCommand_Click()
mcclean = False '点击按钮后，标记修改过当前记录
'记录下此时文本框中的值
strTxtValue(0) = mrc.Fields(0)
strTxtValue(1) = mrc.Fields(1)
strTxtValue(2) = mrc.Fields(2)
strTxtValue(3) = mrc.Fields(3)
'第一组按钮不能用
Frame1.Enabled = False
firstCommand.Enabled = False
previousCommand.Enabled = False
nextCommand.Enabled = False
lastCommand.Enabled = False
'可以修改输入框中的值
txtCourseno.Enabled = True
txtCoursename.Enabled = True
comboCoursetype.Enabled = True
txtCoursedes.Enabled = True
'添加信息
comboCoursetype.AddItem "必修"
comboCoursetype.AddItem "考察"
myBookmark = mrc.Bookmark '记录书签
End Sub如上，在标记修改后，记录下文本框中的值。
Private Sub updateCommand_Click()
Dim txtSQL As String 'SQL查询语句
Dim MsgText As String 'EXECUTSQL第二个参数
Dim mrcc As ADODB.Recordset '记录集对象
If mcclean Then '如果没有修改过课程信息
MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'检验输入框的值是否为空
If Not Testtxt(txtCourseno.Text) Then
MsgBox "请输入课程编号。", vbOKOnly + vbExclamation, "警告"
txtCourseno.SetFocus
Exit Sub
End If
If Not IsNumeric(Trim(txtCourseno.Text)) Then
MsgBox "课程编号请输入数字", vbOKOnly + vbExclamation, "警告"
txtCourseno.SetFocus
Exit Sub
End If
If Not Testtxt(txtCoursename.Text) Then
MsgBox "请输入课程名称", vbOKOnly + vbExclamation, "警告"
txtCoursename.SetFocus
Exit Sub
End If
If Not Testtxt(comboCoursetype.Text) Then
MsgBox "请输入课程类型", vbOKOnly + vbExclamation, "警告"
comboCoursetype.SetFocus
Exit Sub
End If
If Not Testtxt(txtCoursedes.Text) Then
MsgBox "请输入课程描述信息。", vbOKOnly + vbExclamation, "警告"
txtCoursedes.SetFocus
Exit Sub
End If
mrc.Delete
'执行查询，返回记录集
txtSQL = "select * from course_info where course_no='" & Trim(txtCourseno.Text) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
'判断是否出现了点击完修改按钮，却没有修改的情况
If (strTxtValue(0) = txtCourseno.Text And strTxtValue(1) = txtCoursename.Text And strTxtValue(2) = comboCoursetype.Text And strTxtValue(3) = txtCoursedes.Text) Then
MsgBox "亲~~~您没有修改过记录，请修改后再更新！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If mrcc.EOF = False Then
MsgBox "课程编号重复，请重新输入", vbOKOnly + vbExclamation, "警告"
mrcc.Close
txtCourseno.SetFocus
Else
mrcc.Close
'更新记录
mrc.AddNew
mrc.Fields(0) = Trim(txtCourseno.Text)
mrc.Fields(1) = Trim(txtCoursename.Text)
mrc.Fields(2) = Trim(comboCoursetype.Text)
mrc.Fields(3) = Trim(txtCoursedes.Text)
mrc.Update
MsgBox "修改课程信息成功", vbOKOnly + vbExclamation, "警告"
mrc.Bookmark = myBookmark '标记书签
Call viewData '显示信息
'第一组按钮可用
Frame1.Enabled = True
firstCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
lastCommand.Enabled = True
'输入框边为不可输入状态
txtCourseno.Enabled = False
txtCoursename.Enabled = False
comboCoursetype.Enabled = False
txtCoursedes.Text = False
mcclean = True '标记值置为默认值
End If
End Sub
在读取完记录后，先判断输入框中的值是否和按下修改按钮后，却没有修改的值一样，如果一样，弹出提示，并退出当前过程。
执行后：
