学生信息管理系统优化（二）

最新推荐文章于 2019-09-10 10:23:31 发布

凉快-Eric

最新推荐文章于 2019-09-10 10:23:31 发布

阅读量927

点赞数 2

本文链接：https://blog.csdn.net/lk1822791193/article/details/76775398

版权

优化尚未结束，今天我们继续！

之前和大家分享了几个关于学生管理系统优化的方法！今天还有一些方法继续分享给大家！

1.查询修改信息窗体

（1）在你进入数据查询修改的窗体的时候，如果你没有数据的时候，系统应该会给你提示，没有数据是否添加！代码如下：

  If mrc.EOF = False Then
        mrc.MoveFirst
        Call viewData
        myBookmark = mrc.Bookmark
    Else
        str1$ = MsgBox("没有纪录,是否添加记录！", vbOKOnly + vbExclamation, "警告")
        If str1$ = True Then
           frmAddcourseinfo.Show
           Unload Me
        End If
        Exit Sub
    End If

只有这些还是不够的，你需要在主窗体的代码段输入：

On Error Resume Next

这行代码的意思就是，当一条出现问题的时候，程序运行下一条语句！

（2）在修改信息窗体有一个删除记录的按钮，在你删除最后一条信息记录的时候，程序会给你报错！所以我们需要在程序删除最有一条指令的时候，进行一个判断，是否删除最后一条记录，删除后没有记录就进入信息添加的窗口！代码如下：

If mrc.RecordCount = 1 Then    '表中只剩一条数据
         str1$ = MsgBox("这是最后一条记录，是否删除？", vbOKOnly + vbExclamation, "警告")
         If str1$ = vbOK Then
           mrc.Delete      '删除数据
           MsgBox "数据为空，是否添加？", vbOKOnly + vbExclamation, "警告"
           frmAddresult.Show
           frmModifyresult.Hide
         End If
         Else

（3）还有一个问题，就是你在修改信息的时候，如果你修改学号，改成之前有的学号，系统是会告诉你你输入的学号是重复的学号，你重新输入，但是你点击确定之后，你会发现修改的那条记录没有了，而在你不修改学号，改别的信息的时候，有数据库里还有之前的学号，它也会给你报错，之后你修改的信息也会消失！

这个问题出现的主要原因就是，书上写的代码是在你修改数据之前，先把数据库的数据删除，在你修改之后，他会输入一条新的数据！知道了原因，你就可以按照逻辑，解决问题了！先上代码：

If (txtSID.Text <> asid) Then
          
        txtSQL = "select*from student_info where student_ID='" & Trim(txtSID.Text) & " '"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)     '有问题
        
        If mrcc.EOF = False Then
           MsgBox "学号重复，请重新输入！", vbOKOnly + vbRetryCancel, "警告"
           mrcc.Close
           txtSID.SetFocus
        Else
              
          If Not IsDate(txtBorndate.Text) Then
              MsgBox "出生时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
              txtBorndate.SetFocus
          Else
              txtBorndate = Format(txtBorndate, "yyyy-mm-dd")
        
            If Not IsDate(txtRudate.Text) Then
              MsgBox "入校时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
              txtRudate.SetFocus
            Else
              txtSQL = "select * from student_info"
              Set mrc = ExecuteSQL(txtSQL, MsgText)
              mrc.Bookmark = myBookmark
              mrc.Delete
              txtRudate = Format(txtRudate, "yyyy-mm-dd")
               
                  mrc.AddNew
                  mrc.Fields(0) = Trim(txtSID.Text)
                  mrc.Fields(1) = Trim(txtName.Text)
                  mrc.Fields(2) = Trim(comboSex.Text)
                  mrc.Fields(3) = Trim(txtBorndate.Text)
                  mrc.Fields(4) = Trim(ComboClassno.Text)
                  mrc.Fields(5) = Trim(txtTel.Text)
                  mrc.Fields(6) = Trim(txtRudate.Text)
                  mrc.Fields(7) = Trim(txtAddress.Text)
                  mrc.Fields(8) = Trim(txtComment.Text)
                  mrc.Update
                  mrc.Bookmark = myBookmark
                  Call viewData
                  
                  MsgBox "修改成绩成功！", vbOKOnly + vbExclamation, "警告"
                   
                  firstCommand.Enabled = True
                  previousCommand.Enabled = True
                  nextCommand.Enabled = True
                  lastCommand.Enabled = True
                  txtSID.Enabled = True
                  
                  txtName.Enabled = False
                  comboSex.Enabled = False
                  txtBorndate.Enabled = False
                  ComboClassno.Enabled = False
                  txtRudate.Enabled = False
                  txtTel.Enabled = False
                  txtAddress.Enabled = False
                  txtComment.Enabled = False
                  mcclean = True
                  End If
                End If
            End If
                
            Else
            If Not IsDate(txtBorndate.Text) Then
               MsgBox "出生时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
               txtBorndate.SetFocus
           
           Else
               txtBorndate = Format(txtBorndate, "yyyy-mm-dd")
                 If Not IsDate(txtRudate.Text) Then
                    MsgBox "入校时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
                    txtRudate.SetFocus
                Else
                  txtRudate = Format(txtRudate, "yyyy-mm-dd")
                 
                  mrc.Fields(0) = Trim(txtSID.Text)
                  mrc.Fields(1) = Trim(txtName.Text)
                  mrc.Fields(2) = Trim(comboSex.Text)
                  mrc.Fields(3) = Trim(txtBorndate.Text)
                  mrc.Fields(4) = Trim(ComboClassno.Text)
                  mrc.Fields(5) = Trim(txtTel.Text)
                  mrc.Fields(6) = Trim(txtRudate.Text)
                  mrc.Fields(7) = Trim(txtAddress.Text)
                  mrc.Fields(8) = Trim(txtComment.Text)
                  mrc.Update
                  mrc.Bookmark = myBookmark
                  Call viewData
                  
                  MsgBox "修改成绩成功！", vbOKOnly + vbExclamation, "警告"
                   
                  firstCommand.Enabled = True
                  previousCommand.Enabled = True
                  nextCommand.Enabled = True
                  lastCommand.Enabled = True
                  txtSID.Enabled = True
                  
                  txtName.Enabled = False
                  comboSex.Enabled = False
                  txtBorndate.Enabled = False
                  ComboClassno.Enabled = False
                  txtRudate.Enabled = False
                  txtTel.Enabled = False
                  txtAddress.Enabled = False
                  txtComment.Enabled = False
                  mcclean = True
                  End If
                End If
          End If
          
End Sub

这些代码虽然多，但是很多重复的，你只要是理解其中的逻辑的顺序就好了！那个asid就是你之前的学号，在修改完进行更新的时候，先让他进行判断，如果你修改后的学号与之前的学号不一样，就说明你修改的是学号，那就在和数据库的别的信息进行比较，继续惊醒下边的操作，但是如果你修改后的学号与之前的一样说明，你修改的是别的，那就直接修改，不用进行学号比较！

其实还有一个比较简单的方法，就是在你要修改这条消息的时候，把书签定在这里，然后进行修改，直接更新数据，不需要把以前的数据删除，当你修改的学号重复或是别的信息有问题时，直接回到书签位置，这样你的信息也不会消失了！但是你需要修改一下SQL语句，在学号检验的时候，排除本条数据！大家感兴趣可以自己去试试！嘿嘿！

在最后还是给大家一些小的提醒！

（1）在输入出生日期，入校日期时一定要符合逻辑，出生日期早于入校日期！而且时间不能过早，要符合实际。这些问题只需要你在输入信息，添加数据的时候，进行一下比较判断就好了！

（2）在使用Combo这个控件的时候，添加数据的时候，则需要选择它为只能选择，无法输入的模式，这个则只需要修改一下控件的Style属性就好了！

这些就是我在优化学生信息管理系统遇到问题和解决方法，希望能给大家一些帮助，如果我写的哪里有问题，希望大家积极指出！以后有新的发现，我还会给大家分享！