学生信息管理系统总结

 

        前言

          学生信息管理系统历时一个多月，经过一个多月的努力，敲完了所有代码，改完了所有bug，优化了某些方面。

         代码

         代码是编程的灵魂。在我们开始学生的时候往往会有点迷惑，会不知道从哪里开始学习学生，不知道是先敲代码呢？还是先安装数据库呢？在改bug的时候，是一个一个窗体的改呢还是敲完一起改呢？现在我提出一些自己的建议，仅供参考。在开始学生之后，如果你选择的是一个一个窗体的去调试，那就先安装上数据库，因为有的窗体是需要数据库，存一些数据，查一些数据的。如果你选择的是敲完之后再调试，那就敲完之后去安装数据库。

         Bug

        

         424是我在调试学生的时候经常出现的错误。解决方法：一般遇到这种情况，是因为你命名的属性框里边的控件名字和你所敲代码里边的名字不一样，仔细查看，自己的错误在哪里。

        

遇到此类问题有三种情况：1.数据库设置有问题2.ODBC没有配置好3.代码有问题.

         其他bug

         在我们敲的过程中，还会遇到一些其他的错误，大部分都是因为自己粗心，代码的问题，所以大家一定要仔细。

         优化

         单引号问题

        

大家在登录的时候，如果在用户名那里输入单引号会报错。解决方法：

Private SubtxtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 39 Then '禁止输入单引号
KeyAscii = 0
End If
End Sub

加入这段代码之后就限制了单引号的输入。

        重复添加课程

        

解决方法：修改箭头里的代码

Private Sub cmdAdd_Click()

Dim s As String

Dim i As Integer

    i = listSelectcourse.ListCount '已选择课程列表框的项目

    s =listAllcourse.List(listAllcourse.ListIndex) '所有课程列表框选中的项目

      For i = 0 To listSelectcourse.ListCount -1 '在列表框中循环找一遍

        If listSelectcourse.List(i) = s ThenExit For

    Next

    If i = listSelectcourse.ListCount ThenlistSelectcourse.AddItem s

    'If listAllcourse.ListIndex <> -1Then

        'listSelectcourse.AddItemlistAllcourse.List(listAllcourse.ListIndex)

   ' End If

End Sub

字符和字数限制

Private Sub txtDirector_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii '禁止输入数字和特殊字符

        Case 65 To 90

        Case 97 To 122

        Case 44

        Case 46

        Case 13

        Case 8

        Case Else

        KeyAscii = 0

    End Select

End Sub

禁止输入字符的

  Select Case KeyAscii '只能输入数字

    Case 8 '无变化，退格键

    Case 48 To 57

    Case Else '出来上边的都屏蔽

    KeyAscii = 0

    End Select

这个只能输入数字

 

心得

大家在敲的过程中一定要仔细，还有梳理逻辑。