机房收费——组合查询的日期和时间的选择实现

前端之家收集整理的这篇文章主要介绍了机房收费——组合查询的日期和时间的选择实现前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

在组合查询的窗体李面有两个窗体的选项带时间和日期的输入,但是时间和日期的输入都需要一定的格式才能被数据库所识别,那么怎样才能让用户直接就能方便的输入数据而又不违反格式规定呢?

在组合窗体的内容项上,我添加了DTpiker的这个控件,从而就可以实现规范输入了,但是要怎么使用呢?

首先把窗体建好后,插入日期控件

然后把大小调整的和查询框一样大覆盖

然后就是代码的工作了:

属性里把控件的可见性设为否

然后在字段选择的combo框的click事件里写下如下代码

    If CombField(Index).Text = "上机时间" Or CombField(Index).Text = "下机时间" Then
        DTPicker1(Index).Visible = True
        DTPicker1(Index).Format = dtpTime   <span style="color:#009900;">'时间的格式</span>
        txtInquir(Index).Text = DTPicker1(Index).Value
    End If
    
     If CombField(Index).Text = "上机日期" Or CombField(Index).Text = "下机日期" Then
        DTPicker1(Index).Visible = True
        DTPicker1(Index).Format = dtpShortDate     <span style="color:#009900;">'日期的格式</span>
        txtInquir(Index).Text = DTPicker1(Index).Value
    End If

实现了在输入日期的时候显示日期控件

然后是日期控件的代码

Private Sub DTPicker1_Change(Index As Integer)
    txtInquir(Index).Text = DTPicker1(Index).Value
End Sub

然后就实现可选择式输入时间了

猜你在找的VB相关文章