您的位置：首页 > 其它

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

2013-11-16 10:18 253 查看

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 决定是否使用标准或自定义格式显示日期和时间。

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航

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