[vb版机房] 机房收费系统总结

经过三个多星期的工作，机房收费系统结束了，机房收费系统是自己接受的第二个系统，不论代码量还是逻辑结构都要比第一个接触的学生信息管理系统复杂的多。老实说，自己对这个系统理解的还是皮毛，还需要自己以后不断的加深理解。

总体的介绍

下面是整个系统中的全部功能介绍。全部功能有点多，但是大致分为三个类型：一般用户，操作员，管理员。对于一般用户的理解，我开始认为是学生，但是经过后来的理解认为是不合理的。如果是学生，任何学生都能控制上下机，这样这个机房就会乱掉。所以一般用户应该是正在值班的老师。只能提供一些基本的操作。

功能完善

组合查询中如果如果前面选择框中出现性别，姓名，等后面就不能出现> 或者<。如果前面出现日期后面就应该限制只能输入日期的数字，如果前面出现时间，后面就只能出现时间的数字。问题描述：解决方法：窗体在窗体中添加3个dtpicker控件，并且盖住文本框。大小相同。选择在最上层。代码

Private Sub Combo1_click(Index As Integer)
    For b = 0 To 2
     If Combo1(b).Text = "姓名" Or Combo1(b).Text = "备注" Then
     
        Combo2(b).clear
        Combo2(b).AddItem ""
        Combo2(b).AddItem "="
        Combo2(b).AddItem "<>"
    Else
        Combo2(b).clear
        Combo2(b).AddItem ""
        
        Combo2(b).AddItem "="
        Combo2(b).AddItem "<"
        Combo2(b).AddItem ">"
        Combo2(b).AddItem "<>"
    End If
    Next b
'****************************************************************************
    For a = 0 To 2
        If Combo1(a).Text = "上机时间" Or Combo1(a).Text = "下机时间" Then
            DTPicker1(a).Visible = True
            DTPicker1(a).Format = dtpTime
            
            Style = "color:#009900;" '设置成时间格式
            Text1(a).Text = DTPicker1(a).Value
        ElseIf Combo1(a).Text = "上机日期" Or Combo1(a).Text = "下机日期" Then
        
            DTPicker1(a).Visible = True
            DTPicker1(a).Format = dtpShortDate
            Style = "color:#009900;"    '设置成日期格式
            Text1(a).Text = DTPicker1(a).Value
            
            Else
             DTPicker1(a).Visible = False
             Text1(a).Text = ""
        End If
        Next a
End Sub

感受

1.没有全局观，整个过程没有做好准备工作，整个过程就是为了实现某一个功能想办法，没有整体的整理思路，造成自己的速度非常的慢。2.代码写的非常不规范，比如记录集打开之后没有进行关闭，查询速度缓慢了。3.代码没有加注释，造成自己在调错的非常的困难.

收获

1.学会了调错。调错的方法有很多，可以使用断点调试，msgbox跟踪变量，还可以使用其实用Debug.Print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除.通常：MsgBox nName应该：

Debug.Print nName2.学会了代码的简单写法比如使用iif 语句简化if语句的长度

If nNum = 0 ThensName = "sancy"ElsesName = "Xu"End If

简单的代码：sName=IIf(nNum=0,"sancy","Xu")