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

 

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

   一，界面的美化

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

  二，回车键不能使用

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

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

执行后：