机房收费系统总结

       前言：到今天为止，整个机房收费系统就算是敲完了，总结整个系统，主要就是增、删、改、查，这四点来进行的。

          第一，查询

                 查询在机房中是最基础的sql语句，也是最常用到的语句，通常来讲用到的都是select*from 表名 来查询，比如：查询收取金额，首先到充值表中，然后查询在选择的时间段内的数据。

txtsql = "select * from recharge_info where date > ='" & DTPicker1.Value & "' and date <= '" & DTPicker2.Value & "'"

执行查询语句，并添加到数据集中。

Set mrc = ExecuteSQL(txtsql, msgtext)

最后把查询到的数据添加到表中

With MSHFlexGrid1
     .CellAlignment = 4
     .Rows = 1
     Do While Not mrc.EOF
     .Rows = .Rows + 1
     .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(2))
     .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
     .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
     .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(5))
     .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(6))
     .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(7)) 
     mrc.MoveNext
     Loop
End With

       第二，增加

       增加在查询的基础上，进行的，首先执行查询程序，然后将查询到相关表进行连接，然后添加新的一列，然后将数据添加到新的空白列中，然后更新到数据库中，比如：添加用户为例

      首先查询相关的数据表，用上面提到的select查询语句：

      txtsql = "select*from user_info" 

      Set mrc = ExecuteSQL(txtsql, msgtext)

      然后新加新的一列

      mrc.AddNew 

     将数据添加到新的列中

     mrc.Fields(0) = txtuser.Text
     mrc.Fields(2) = combolevel.Text
     mrc.Fields(3) = txtname.Text
     mrc.Fields(1) = txtpassword.Text
     mrc.Fields(4) = mrc1.Fields(0)

    更新到数据库中

     mrc.Update

    第三，修改

    修改和添加相差不多，添加是在数据库中新加一列，然后把数据添加到里面，而修改是在查询到想相关数据后，直接把添加的数据覆盖了原有数据，然后更新到数据库中。比如修改密码，是在查询到后表后，直接填加新的数据到表中，txtsql = "select * from user_info where PWD='" & txtoldpassword.Text & "'" 

Set mrc = ExecuteSQL(txtsql, msgtext)

    修改数据

mrc.Fields(1) = txtnewpassword.Text 

    更新数据

mrc.Update 

    第四，删除

    删除数据也是在查询的基础上，在查询到要删除的数据后，直接用delete语句删除，比如说删除用户：

txtsql = "delete from user_info where userid='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) & "'"
Set mrc1 = ExecuteSQL(txtsql, msgtext)

   第五，其他部分

    在机房收费系统还有两个难点就是组合查询和导出excel，这两点在之前已经写过相关博客了，在这里就不加赘述了，这里是相关博客链接：组合查询点击打开链接

                                                                                       导出excel点击打开链接

   结束语

   在敲机房的过程中其实最大的收获不是在技术上的提高，更多的是在思想的一种提高，一种改变，独立完成一个程序要考虑的东西有很多，你要站在不同的角度思考问题，还要宏观上把握你的程序，两种方法那种更优，程序的优化更多的是细节的问题，细节决定成败。