机房收费系统之收取金额查询-日期DTpicker控件

      机房收费系统算是我第一个完全自己接手的小小项目，其中的代码完全需要自己去琢磨，功能的实现也需要自己的想像。
      机房的收取金额查询算是接触到的第一个组合查询，所以一开始有很多都不明白的东西，需要自己查询资料，找博客去慢慢找到自己的逻辑和思路。
      基本上分为两路：一是没有数据记录，提示重新选择日期；二是存在数据记录，结果在msflexgrid控件中显示出来。在这个窗体中用到了新的控件日期DTpicker控件。
      如何加载日期DTpicker控件：
      在VB6.0的工具栏中是没有这个控件的，那么如何加载呢？方法如下：工程—部件—控件—“Microsoft Windows common controls

2 6.0”—应用—确定

                

       加载后的图形显示：

                

       主要有两个属性：
       1.Value属性：主要获得Dtpicker日期控件当前选中的日期
       2.Format属性：有1 2 3 4 四个属性值，其中的区别需要自己去发现哦！
       在这个窗体中运用主要是判断：一是当前日期是否存在数据记录；二是判断终止日期不得早于起始日期。
       主要的判断语句则在查询的单击事件下运行，具体的VB代码是：
       date1 = DTPicker1.Value
       date2 = DTPicker2.Value
    
       '比较两个日期的大小
       If DateDiff("n", CDate(date1), CDate(date2)) < 0 Then
          MsgBox "起始日期与终止日期有冲突，请重新选择日期！", vbOKOnly +   vbExclamation, "提示"
          Exit Sub
       End If
       小小的控件就可以帮助我们实现我们想要的功能，就像是一个小小的想法也许就可以改变世界！