学生信息管理系统总结 之 "常见小问题"

学生信息管理系统总结之 "常见小问题"

系统敲完了,但是学习并没有结束,在敲系统的过程中出现了很多的问题,总结一下,将会成为以后做东西的宝贵经验.

问题一

这个问题在系统中是和数据库相关的问题,表现形式就是相应的对象并没有在数据库中取得相应的值,也就是数据库连接不通,这时候需要解决问题:

首先看代码,看代码连接是否有问题,在这个系统中我们使用了两种连接方式,一种是系统在自己的电脑上连接自己的电脑上的数据库,代码如下:

ConnectString ="FileDSN=studentinfo.dsn;UID=sa;PWD=123456"

另一种则是将系统放到别的机子上然后连接自己机子上的数据库,代码如下

ConnectString ="Provider=SQLOLEDB;Data Source=192.168.24.176;InitialCataLog=Student;UID=sa;PWD=123456"

其次如果代码没有什么问题问题的话,那么接下来查看ODBC的配置是否有问题,这里需要注意的两点是

第一点是filedsn的名称代码中和配置的要相同

第二点则是用户名和密码,这里的用户名和密码指的是登录sqlserver服务器的用户名和密码.

以上这两点比较容易出问题,要时常注意.

如果odbc配置的没有问题,那么就需要看看你的sqlserver服务是否开启,有的时候不知道什么原因电脑重新启动之后服务无法开启.这时候你需要想尽办法的去开启服务.

问题二

这种错误一般是因为文本框等录入控件没有设定字符串的范围或者设定的范围超出了对应数据库中该属性的范围,导致输入的内容超出了本应该规定的范围,当然这样的错误可以通过设定文本框等录入控件的最大字符串长度maxlength来避免错误.

然而这其中有一个大的弊端,比如电话号码设定的长度是十位,如果出现了十一位的电话号码,那么第十一位会被自动裁剪掉.而且不会报错,这样如果不注意的话,很可能造成了数据录入的错误,当然这些需要在设计数据库的时候充分的考虑,是能够避免的.

问题三

这种错误的原因是因为表已经人去楼空,没有数据,自然设定的一些对象和书签不能够使用了,这其实也不能说是个错误,只是我们可以将程序变得更加的完善一些.当然这种错误一般出现在两个地方,一个就是当功能窗体加载的时候这时候可能需要数据库中的数据来显示一些内容,如果数据库中没有了数据那么会显示错误,另一个就是当删除的时候有可能删掉最后一条记录,这时候的书签没有了相应的数据也可能报同样的错误.我们可以添加一段代码来避免错误的产生:

Dim StrSQL As String
   Dim StrMsg As String
   Dim objRst As Recordset
   Dim Str2 As Integer
  
   StrSQL = "select * fromcourse_info"
   Set objRst = ExecuteSQL(StrSQL, StrMsg)
  
  
   '判断记录集是否为空，如果为空则不能加载此界面
   If objRst.RecordCount = 0 Then
      Str2 = MsgBox("记录集为空，是否现在就填写",vbOKCancel, "警告")
     
      If Str2 = vbOK Then
         frmAddcourseinfo.Show
         Exit Sub
      Else
         Exit Sub
      End If
    Else
      frmModifyCourseinfo.Show
      frmMainStatusBar.Panels(1).Text ="修改课程信息"
    End If

这里虽然只是列举了三个小问题,但是也很容易发现其实这些如果说是问题的话就都是逻辑上的问题,或许解决不是很困难,但是如果一次做到不出问题也不是多么可能的事情,没有什么事情可以做完美,和软件一样,不可能一次就做到完美,不过虽然做不完美,但是我们追求的是尽量完美,其实要做到这些也不难,只要拥有一个随时随地为他人着想,全心全意为人民服务服务的心,就差不多了.