机房收费——组合查询的日期和时间的选择实现
发布时间:2020-12-17 07:44:42 所属栏目:百科 来源:网络整理
导读:在组合查询的窗体李面有两个窗体的选项带时间和日期的输入,但是时间和日期的输入都需要一定的格式才能被数据库所识别,那么怎样才能让用户直接就能方便的输入数据而又不违反格式规定呢? 在组合窗体的内容项上,我添加了DTpiker的这个控件,从而就可以实现
在组合查询的窗体李面有两个窗体的选项带时间和日期的输入,但是时间和日期的输入都需要一定的格式才能被数据库所识别,那么怎样才能让用户直接就能方便的输入数据而又不违反格式规定呢? 在组合窗体的内容项上,我添加了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 然后就实现可选择式输入时间了
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |