机房收费系统--组合查询

  前言：   

           组合查询可是机房收费系统中的一个比较难啃的骨头呢，搞不清楚它的思路，然后代码也就没法进行下去。刚开始这个过程时，自己真的是一头雾水，静下来思考了一段时间，再加上向别人请教，才开始有有了自己的头绪，才敢慢慢的着手去做。

内容：

       首先分析一下它的逻辑关系吧。何谓“组合”，首先就是为了找到自己想要的东西更加准确、快捷、方便，然后才有了一个“组合查询”的诞生。我们设定的这个页面有三层组合关系，如下图分析：

       


    组合关系有了清晰的认识，接下来需要做的就是搞清楚他们之间的逻辑关系。


    


     条理有了清晰的认识，那么接下来就是敲代码喽！代码嘛

，自己去琢磨喽！

 
接下来，我介绍一下我运用的一些比较便捷的时间日期控件，在查询时给用户也可以带来很好的体验呢。首先是时间控件DTPicker1，看一下它的效果吧先来


  


       这样的话，选择时间，就用自动在“要查询的内容”那一栏显示时间的格式，这样用户就不用担心输入的时间格式不对，给他们带来困扰喽！

代码如下：

  

If cmbColName1(0).Text = "注册时间" Or cmbColName1(0).Text = "注销时间" Then
txtContent1(0).Text = DTPicker1.Hour & ":" & DTPicker1.Minute & ":" & DTPicker1.Second
End If

If cmbColName1(1).Text = "注册时间" Or cmbColName1(1).Text = "注销时间" Then
txtContent1(1).Text = DTPicker2.Hour & ":" & DTPicker2.Minute & ":" & DTPicker2.Second
End If

If cmbColName1(2).Text = "注册时间" Or cmbColName1(2).Text = "注销时间" Then
txtContent1(2).Text = DTPicker3.Hour & ":" & DTPicker3.Minute & ":" & DTPicker3.Second
End If

   还有就是日期控件MonthView1，它提供的效果和时间的相同呢

：

  


  代码如下：

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

If cmbColName1(0).Text = "注册日期" Or cmbColName1(0).Text = "注销日期" Then
txtContent1(0) = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day

MonthView1.Visible = False
End If

End Sub

      通过进行组合查询，了解到了，进行一个程序，不仅仅要有代码的积累，还要有一个清晰的思路，还需要有严谨的态度，需要有耐心。要站在用户的角度上去思考，如何让他们便捷的使用程序。