机房收费系统最后总结

思想篇

        看了一下自己今目标上机房建项目的开始时间是6月5号，再看一下今天做最后总结的时间是8月10号，无法想象一个小小的机房我就进行了2个多月，但是事实就是如此。想了一下为什么自己会用这么长的时间呢，不说期末考试复习的时间，不说放假回家的时间，其实的时间也还有至少1个月的时间呢，自己为什么会拖了这么久呢，说一下自己的原因吧。希望对大家有一定的借鉴。

1、自己没有做好时间管理，没有做好时间规划，没有合理的安排时间

2、在敲机房敲，没有理好思路，直接就上手敲窗体了，这是最不好的
3、当自己遇到问题的时候，自己没有经过一定时间的思考，就去问度娘了，这是最不利己的
4、当自己同时遇到几个问题的时候，自己不是专注的解决一个问题再去解决另外一个问题。而是这个问题还没有解决出来呢，就动手去解决另外的一个问题了，另外的一个问题没有解决，我就有可能去做别的事情了。所以这两个问题我都没有解决，然而时间我也浪费过去了。第二天我还得花时间解决。
5、自认为有些窗体很难，所以自己就一直拖着没有动，但是当这个窗体敲完以后，自己才会明白它到底难不难。
6、自己没有按照自己计划来，该哪天完成的工作自己当天没有完成，拖到了第二天才去完成。

 。。。等等，也许还有别的原因吧，但是这是最主要的。所以希望自己在下次做系统的时候，一定不要再这样了。

     我想既然自己认识到了这些问题，这就是我在机房当中最大的收获，这就是我的进步所在。没有问题可能就是最大的问题。出现问题了一定要去解决问题，自己才会有更大的收获，在思想上才会有更大的提升。

知识篇

      下面是一些我认为比较重要的，但是常被大家忽略的知识点，总结出来，让自己可以有更大的进步。
1、获取电脑的名字：
①方法一：直接写代码：Text1.Text = Trim(Environ("computername"))

②方法二：加载一个控件：在 工程菜单的部件里找到 Microsoft Winsock Control 然后添加。然后代码写为

Text1.Text =winsock1.LocalHostName

2、文本框清空，简单的写法：

Private Sub cmdEmpty_Click()    Dim ctr1 As Control    For Each ctr1 In Me.Controls        If TypeOf ctr1 Is TextBox Then  '是否为文本框textbox            ctr1.Text = ""        End If    NextEnd Sub

3、窗体最小化：

Private Sub Form_Deactivate()    If Me.WindowState <> 1 Then        Me.WindowState = 1    End If    End Sub

4、vbCrLf的含义：

     vbCrLf是Visual Basic(VB,一种编程语言)中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思。

常见的函数：

5、Datediff()函数

①表示两个指定日期间的时间间隔数目。

②语法 ：DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 

③DateDiff 函数语法中有下列命名参数： 

④设置

⑤firstdayofweek 和firstweekofyear参数可以有以下值：

⑤说明

    DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

     为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。 
     firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。 
     如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。 
     在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。它算进去。

6、打印和打印预览（报表）

Private Sub cmdPrint_Click()     Report.[Print] (True)End SubPrivate Sub cmdPrintpreview_Click()    Report.PrintPreview (True)End Sub

  希望每一次总结都可以对自己的各个方面有一个很大的提升，加油。

机房的系列博客链接：

机房收费系统 问题（一）——机房运行准备工作：http://blog.csdn.net/zmh458/article/details/51606377

机房收费系统问题（二）——MDI子窗体不显示：http://blog.csdn.net/zmh458/article/details/51712845
vb中MSFlexgrid 和 MSHFlexgrid 的区别：http://blog.csdn.net/zmh458/article/details/51828757

机房收费系统—初始报表：http://blog.csdn.net/zmh458/article/details/52013211

机房收费系统思路整理：http://blog.csdn.net/zmh458/article/details/52044191
机房收费系统—上下机：http://blog.csdn.net/zmh458/article/details/52061922

机房收费系统—导出Excel表：http://blog.csdn.net/zmh458/article/details/52068174

机房收费系统—结账：http://blog.csdn.net/zmh458/article/details/52103262