学生信息管理系统总结

【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

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



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



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



【４】学习总结：
每一次经历，都是一种感悟。踏踏实实走好每一步，不断成长！