引言
DateTimePicker控件使您可以提供格式化的日期字段,使得进行日期选择很容易。另外,用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。
介绍
【1】加载方法
VB默认的控件栏中是没有DTpicker日期控件的,添加过程:工程——部件——“MicrosoftWindows Common Controls-2.6.0”——应用——确定
【2】两种操作模式
下拉式日历模式(缺省)—允许用户显示一种能够用来选择日期的下拉式日历。
时间格式模式—允许用户在日期显示中选择一个字段(例如:月、日、年等等),按下控件右边的上下箭头来设置它的值。
可以自定义控件的下拉式日历的外观。使用各种颜色属性,例如CalendarBackColor、CalendarForeColor、CalendarTitleBackColor、CalendarTitleForeColor和CalendarTrailingForeColor,允许创建属于您自己的颜色方案。
【3】属性说明
机房运用
【1】如何与数据库中的日期格式相符合
DTPicker1.Format@H_404_25@ = dtpCustom
DTPicker1.CustomFormat@H_404_25@ = "yyyy.mm.dd"@H_404_25@
或者
控制面板—— 区域和语言设置——自定义——日期——短日期格式设置成需要的模式,如:YYYY.MM.DD
【2】在sql中取值语句
txtsql = "select@H_404_25@ * fromCancelCard_Info where@H_404_25@ Date@H_404_25@<='" & 结束日期 & "'@H_404_25@" &"@H_404_25@and@H_404_25@ date@H_404_25@>='" & 开始日期 & "'@H_404_25@"@H_404_25@@H_404_25@
【3】部分代码
Private@H_404_25@ Sub@H_404_25@ cmdFind_Click()
Dim@H_404_25@ StartDate As@H_404_25@ String@H_404_25@ '用于存放开始时间 @H_404_25@
Dim@H_404_25@ EndDate As@H_404_25@ String@H_404_25@ '用于存放结束时间 @H_404_25@
StartDate = Format(DTPckStart.Value,"yyyy-mm-dd"@H_404_25@)
EndDate = Format(DTPckEnd.Value,"yyyy-mm-dd"@H_404_25@)
txtsql = "select * from CancelCard_Info where Date<='"@H_404_25@ & EndDate & "'"@H_404_25@ & "and date>='"@H_404_25@ & StartDate & "'"@H_404_25@
'txtsql = "select * from ReCharge_Info where date between '" & StartDate & "'and'" & EndDate & "'" @H_404_25@
Set@H_404_25@ mrc = Executesql(txtsql,Msgtext)
If@H_404_25@ DTPckStart.Value > DTPckEnd.Value Then@H_404_25@
MsgBox "请选择正确的时间范围!"@H_404_25@,vbOKOnly + vbExclamation,"提示"@H_404_25@
Exit@H_404_25@ Sub@H_404_25@
Else@H_404_25@
If@H_404_25@ mrc.EOF Then@H_404_25@
MsgBox "没有记录!"@H_404_25@,"提示"@H_404_25@
myFlexGrid.Clear '清除myFlexGrid 的内容 @H_404_25@
Exit@H_404_25@ Sub@H_404_25@
Else@H_404_25@
With@H_404_25@ myFlexGrid 'myFlexGrid添加内容 @H_404_25@
·
·
·
End@H_404_25@ sub@H_404_25@
后记
我们用到过的知识总是会忘记,自己总结一遍,不但会加深一遍的印象,还会得到他人的指教,并且能够帮助他人的学习,是一件一举多得的事情。