机房收费系统之总结

         What

         何为机房？何为机房收费系统？所谓机房指的是地点，也可以叫网吧收费系统，所谓机房收费系统，即这个系统是用来收费的，什么是系统呢？人体是最奇妙的系统，每个器官有自己的功能，但又互相合作、互相关联。

         收获

         前期：大家需要配置文件DSN；附加数据库；注册文件；这些难度系数都不大，之前在做学生的时候配置过ODBC、附加过数据库所以有一定的基础，注册文件会使用到DOS命令，根据所给素材里的内容一步一步做，还是很简单的，不会的话，可以查查巨人的博客，站在巨人的肩膀是嘛。

         中期：我听好多人说机房进行了好久，一直拖、不想进行。我教大家一个方法，先把自己会的一点一点弄好，这样也可以让自己的进度不那么慢。还有一个就是难的问题其实是由很多很多个简单的问题组成的，遇到问题的时候可以把难的问题进行拆分，拆分到自己可以解决的程度。中期就是添加代码的过程了。代码大部分都是写在按钮里的即对按钮进行编写。

所有的代码分为三大结构：

VB——三大结构

         顺序结构

Private Sub cmdchange_Click()
	Dim a as integer
	Dim b as integer
	a=val(inputbox(“a”))
	b=val(inputbox(“b”))
	c=a
	a=b
	b=x
	MsgBox(“交换后a=” & a & ” b ” & b)
End Sub

          循环结构：分为1.for…next 2.do…loop 3.while…wend

1.for…next
    For i=1 to 100
    p=p+i
    next
2.do…loop
    i=1
    do
    p=p+1
    i=i+1(或i+=1)
    loop until i>100
3.while…wend
    i=1
    While i<=100
    p=p+1
    i=i+1(或i+=1)
    wend

      判断结构

If 判断条件 Then
    代码块:  条件为Ture则执行
Else
    代码块:  条件为False则执行
End If

VB——断点调试

哪里有错，就在哪里打断点！（这是巨人告诉我的）

调试分为：逐语句、逐过程

逐语句：就是一步一步的调试。逐过程：即一个过程一个过程的调试。

优点：可以看出程序与自己的思路是否有出入，及时调整，在调试的过程中可以将鼠标放在对应的代码上，它会出现相应的值，看是否是自己想要的。可以高速排查、提高效率。

         后期：现在这个阶段代码已经填充完成，但是还有一些错，主要是逻辑有问题，所以导致代码出错。大家遇到问题的时候呢，可以理一理思路，画一画流程图，给大家推荐一个画流程图的软件：processon。还有就是优化啦！给大家展示展示我的代码吧：

机房——导出Excel

If MSHFlexGrid1.Text = "" Then            '判断是否有记录可以导出
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        Set xlApp = CreateObject("excel.application")     '调用execel程序
        Set xlBook = xlApp.Workbooks.Add(1)               '创建新的空白簿
        Set xlSheet = Excel.ActiveWorkbook.ActiveSheet    '创建新的工作表单
            For i = 0 To MSHFlexGrid1.Rows - 1            '填入数据
            For j = 0 To MSHFlexGrid1.Cols - 1
                xlSheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j)        'cell(a,b)表示a行，b列
            Next j
            Next i
        xlApp.Visible = True         '显示Excel表格
        Set xlApp = Nothing          '交还控制给Excel
End If

机房修改密码——强制下机

Dim frm As Form
    For Each frm In Forms
    If frm.Name <> "Login" Then
        Unload frm
    If myexit = vbNo Or myexit = vbYes Then
        Cancel = False
    End If
        FrmMain.Hide
        frmLogin.Show
        frmLogin.txtPassword.Text = ""
        frmLogin.txtusername.Text = ""
End If

     不足

         说一下自己对自己不满意的地方，遇到事情容易着急，这点特别不好，在以后我会慢慢改进，做到不论遇到什么事都可以风轻云淡，不受任何人的影响。时刻保持一颗积极向上的心，迎难而上！