项目总结| 学生信息管理系统

前言：

        纸上得来终觉浅，觉知此事须躬行。本来以为可以自己做一个学生系统，没想到学生信息系统可以用多种语言来完成，少有用vb语言完成的，多是Java，C 语言的版本，而且复杂的还有什么三层架构，可是我不会呀，所以在自己的幻想中，我浪费了一周的时间，然后又用了一周的时间自己画结构图，自己构想构建一个学生系统需要哪些信息，什么结构，然后一周又过去了，然后不久就迎来了考试准备月，项目什么的，就都放下了，我怕挂科，然后家里不好交代。到了暑假再真正拾起，但是又适逢当值，个人的时间管理做的不是很好，所以每天进步一点点，经过三次的验收优化，我现在对每个控件操作之后，应该需要什么效果有了大致的思路。下面就来谈谈，我的调试和优化之路吧，路虽艰，但收获颇丰。

一。调试（各种错）：

1.查询错误

1）

                

解决方法：检查数据库的链接语句是否正确异地发布的时候，因为局域网换了，可能会导致数据库链接不上而报错，

以及通过弹出 txtSQL 和 MsgText 来进行调试。

2）

       

列名在输入的时候，没有以字符的形式进行查询匹配

解决方法：

添加单引号表示字符。

2.数据库导入错误

1）错位：

    

根据数据库中的表和实际的需求进行调整： 

Public Sub viewData() ' 把临时表中当前记录赋给文本框
    
    txtClassno.Text = mrc.Fields(0)
    comboGrade.Text = mrc.Fields(1)
    txtDirector.Text = mrc.Fields(2)
    Comboclass.Text = mrc.Fields(3)
     
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------

2）类型不符：

解决方法：打开SQL Server ---》 打开数据库---》展开 student 数据库---》选择右击菜单中的设计查看相应的数据类型，进行代码调试

还有许多就不在这里赘述了，如EOF问题，数据库的连接问题 ... ...

二。第一次优化

第一次验收，自我感觉也不是很好，但是没有想到会爆出这么多错，回炉重造了一下

学生按照功能也无非是添加，修改，查询这三种功能，弄细致就好了。

1）添加了字数提示标签和输错光标返回上一次输入点

(通用)

dim j as integer

dim b(100) as string

-------------------------------------------

Private Sub txtAddress_Change()

Dim i As Integer

j = j + 1

For i = 1 To Len(txtAddress.Text)

     txtAddress.ToolTipText = "还有" & 50 - Len(txtAddress.Text) & "个字可以输入"

     lb_Add.Caption = "还有" & 50 - Len(txtAddress.Text) & "个字可以输入"

     b(j) = txtAddress.Text

     txtAddress.SelStart = (j - 1)

Next i

If Len(txtAddress.Text) > 50 Then

      MsgBox "住址不超过50个字"

     txtAddress.Text = b(j - 1)

     txtAddress.SelStart = (j - 1)

End If

End Sub

2.设置年级课程的防止重复读取年级课程，防止重复设置课程

3.添加成绩信息窗体中，学籍信息，班级信息，考试信息三张表之间的关系

反思：验收时，没有用手机记录下错误，回去，没有完整的调试思路

三。第二次调试

         

四。第三次优化

         

以上就是我的学生总结了，通过这次学生信息管理系统的学习，我对vb程序与数据库之间的关系有了更深的认识，纸上得来总觉浅，觉知此事需躬行。