机房收费系统 之 日历控件TDPicker 的使用锦囊

TDPicker

                            

               （1）                            （2）                                       （3）

一简介：

该控件的设计目的是我们可以用鼠标从弹出窗口进行日期选择，使日期录入方便快捷。

二使用方法：

1 添加部件。（图1）

工程--属性--MicrosoftWindows Common Controls-2 6.0

 2画出控件（图2）。以机房收费系统为例，可参考：

    Dim startDate As String  '存放由日历控件转化的 日期
    Dim endDate As String
    
    startDate = Format(DTPStart.Value, "yyyy-mm-dd") '使日期按yyyy-mm-dd形式格式化
    endDate = Format(DTPEnd.Value, "yyyy-mm-dd")

3在数据库中查询

If DTPStart.Value > DTPEnd.Value Then 'value 返回/设置 当前日期
        MsgBox "请选择合适的时间范围", vbOKOnly + vbExclamation, "提示"
    Else
        txtSQL = "select  * from reCharge where date>='" & startDate & "'" & "and date<='" & endDate & "'"
        Set mrc = ExecuteSQL(txtSQL, msgString)

4运行效果，图3。

三 附常用属性：

1 customFormat  获得或设置用于在控件中格式化日期和/或时间的自定义格式字符串。 

2 DataField  获得或设置一个值，将控件绑定到当前记录的一个字段

3 DataFormat  返回数据格式对象，用于该部件的可绑定性(打开属性页)

4DataSource  设置一个数值，指出数据控件通过它将当前控件绑定到数据库

5MaxDate  获得或设置能被显示或者通过控件接受的最近日期。

6MinDate  获得或设置能被显示或者通过控件接受的最早日期

7Value 获得或设置当前日期

8 Format  决定是否使用标准或自定义格式显示日期和时间。