关于学生信息管理系统的改进问题

 

   最近在大家验收时，我旁听了一点，很多师哥师姐提出了很多我们没有到过的东西，感觉长了不少知识。

   一，界面的美化

   在作品展的时候还能想到界面的美化，但是这次却没怎么注意，但是至少那些控件的摆放，对齐还是要有滴

。

  二，回车键不能使用

    比如，在我们登陆学生信息管理系统的时候，敲完用户名和密码进入系统时，猛敲回车，根本不能像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

在读取完记录后，先判断输入框中的值是否和按下修改按钮后，却没有修改的值一样，如果一样，弹出提示，并退出当前过程。

执行后：