学生信息管理系统总结

【1】.学前认识

学习目的：

    通过这个系统，让每个学生都对信息管理系统（MIS）有一个初步的了解。同时通过这个入门级的系统，消除学生对系统的恐惧信息，增强其自信。尤其是自认为没有基础的学生。

学习内容：

    1.练习vb6.0的使用，增加代码量，提升代码亲和力

    2.初步掌握对数据库的基本操作

    3.学会调试，测试程序

    4.初步掌握系统发布，部署，验收工作

    5.初步了解MIS的制作流程

    6.学会站在巨人肩膀上学习

【2】.学习思路

该系统一共16个窗体、1个模块。刚开始觉得挺杂挺乱的无从下手，于是花了一定的时间整理了一下自己的思路。我是这样想的，先运行师傅给的源代码，看看哪个窗体出现在先就先敲哪个窗体：frmmain-->frmlogin-->顺着frmlogin设计的菜单编辑器依次建立窗体。{PS：对模块的作用认识不到位，刚开始的时候，根本就没有敲}

师徒会议——纠正方向

1.敲学生之前开过一次师徒会，当时对MIS充满了好奇，总想着自己也搞个系统敲敲，至于师傅们的建议和指导，最开始是似懂非懂，这个时候，师傅给的主要是思想上的引导吧。

2.MIS敲了一半的时候，感觉迷茫了。自己是照着代码敲的，里面有好多东西，都是照抄照搬，越敲越没有信心了，感觉挺机械的，没有什么收获。师傅们还是在我最需要的时候再次出现，我反映了一下自己的情况，师傅主要强调了两点：一是，注释的重要性。敲每个窗体之前，要想明白这个窗体是用来做什么的，可以在代码窗口的最上边写一下注释，形成自己的思路。二是，摆正心态，耐心、细心。做任何事都不可能是一帆风顺的，总会遇到这样或那样的问题，这时候正是考验我们的时候 ，不能遇到困难就退缩。敲MIS主要有两大难：代码不理解；敲完后错误百出。MIS只是我们学习初期的牛刀小试，只是培养感觉的，我们总不能在这个阶段就被打败吧，我们要做的是正视问题，解决问题，这些都是我们成长过程中的财富。

3.验收阶段。MIS我用了一个月的时间才完成。（ＰＳ，时间管理不合理：装、连数据库就耗费了一周的时间；敲代码大概花了两周的时间；调试一周。）原本以为登录成功，ＭＩＳ就大功告成了，没想到师傅验收，我的错误依旧百出。其中，自我感觉最严重的问题就是：没有体现为人民服务的思想。具体问题：１．登录限制２．删除记录３．选择课程４．添加信息时窗体及ｃｏｍｂｏｘ的默认值５．数据库数据类型。

最近一次开会，谈及ＭＩＳ的时候，同组的同组同学说的敲系统的思路，我感觉挺不错的，也挺有思想的：ＭＩＳ中对于数据库的增删改查都有体现，敲的时候，可以自动归类（比如，查询信息的窗体可以一起敲），而且这样，对于有些重复出现的变量可以定义成全局变量（亦可写在模块里），他是用断点调试，根据进系统的先后，敲的。

【３】．ＭＩＳ中遇到的问题

１．登录后显示空白

解决办法：重新设置一下工程属性。将启动对象设置为　ｓｕｂ　ｍａｉｎ．（这个方法不是绝对有效的。具体问题具体分析。）

２．添加信息时，要更多的体现为人民服务的精神。比如说添加学籍时性别那，可以设置默认为“男”或“女”。这样可以有一半的机率碰对，有效的节约时间。

还有“确定添加”当单击之后，就应该清空上条添加的记录，以便于继续添加。等等。。。

３．删除最后一条记录时总报错。

解决办法：加一条错误判断。

Private Sub deleteCommand_Click()
    myBookmark = mrc.Bookmark
    
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    mrc.Delete
 
    　　　txtSID.Text = ""
    　　　txtName.Text = ""
   　　　txtBorndate.Text = ""
         txtTel.Text = ""
         txtAddress.Text = ""
         txtComment.Text = ""
         txtRudate.Text = ""
         comboClassno.Text = ""
    <span style="background-color: rgb(204, 204, 204);">On Error GoTo dateErr  '如果有错误直接执行dateErr那一步
    mrc.MoveFirst       '
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True


　　dateErr:
     　　If Err = 3021 Then
         　MsgBox "没有数据，请退出！"</span>
         　txtSID.Text = ""
         　txtName.Text = ""
         　txtBorndate.Text = ""
         　txtTel.Text = ""
         　txtAddress.Text = ""
         　txtComment.Text = ""
         　txtRudate.Text = ""
         　comboClassno.Text = ""
       　End If
End Sub

４．选择课程时，重复点击就会重复添加、重复删除课程。

解决办法：我改变了一下思路。我后来用的是双击事件，然后加了一个重复判断。

Private Sub listallcourse_DblClick()
    Dim selectcourse As Integer
    Dim i As Integer         '定义两个整型变量
     Dim j As Integer
    
     For selectcourse = 0 To listAllcourse.ListCount - 1
         If listAllcourse.Selected(selectcourse) = True Then
                listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
                                             '往 listSelectcourse列表中添加课程
               For i = 0 To listSelectcourse.ListCount - 1
                    For j = i + 1 To listSelectcourse.ListCount
                                              '   判断在list列表中是否有相同的名称
                                 If listSelectcourse.List(i) = listSelectcourse.List(j) Then
                                        listSelectcourse.RemoveItem j
                                        MsgBox "已添加此课程！", vbOKOnly, "提示"
                                        Exit Sub
                                 End If
                    Next j
             Next i
        End If
     Next selectcourse
End Sub

５．数据库数据类型不匹配问题

解决办法：打开数据库，重新设置一下合适的数据类型。这时候，可能又会出现另外一个问题，就是修改之后的数据库无法保存。

这个时候，需新设置一下就好啦。打开：工具—选项—Ｄｅｓｉｇｎｅｒｓ

【４】学习总结：

每一次经历，都是一种感悟。踏踏实实走好每一步，不断成长！