vb基础教程之DTicker日期控件使节能

vb基础教程之DTpicker日期控件使用介绍 VB日期控件怎么使用

DateTimePicker控件允许您提供一个格式化的日期字段，使日期选择变得容易。或者，用户可以从类似于MonthView控件的下拉日历界面中选择一个日期。

介绍

【1】加载方法

VB默认的控件栏中是没有DTpicker日期控件的，添加过程：工程——部件——“MicrosoftWindows Common Controls-2.6.0”——应用——确定

【2】两种操作模式

下拉式日历模式(缺省)—允许用户显示一种能够用来选择日期的下拉式日历。

时间格式模式—允许用户在日期显示中选择一个字段(例如：月、日、年等等)，按下控件右边的上下箭头来设置它的值。

可以自定义控件的下拉式日历的外观。使用各种颜色属性，例如CalendarBackColor、CalendarForeColor、CalendarTitleBackColor、CalendarTitleForeColor和CalendarTrailingForeColor，允许创建属于您自己的颜色方案。

【3】属性说明

机房运用

【1】如何与数据库中的日期格式相符合

?

1

2

rmat   =   dtpCustom  

stomFormat   =   ""

或者

控制面板—— 区域和语言设置——自定义——日期——短日期格式设置成需要的模式，如：

【2】在SQL中取值语句?

1

txtSQL = "s elect * fromCancelCard_Info where Date='" & 开始日期 & "'"

【3】部分代码?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

Private Sub cmdFind_Click() 

    Dim StartDate As String     是一个好消息。波兰及其他波罗的海国家都希望'用于存放开始时间 

    Dim EndDate As String       '用于存放结束时间 

 

    StartDate = Format(lue, "yyyy-mm-dd") 

    EndDate = Format(lue,做实个人账户已经无法持续 "yyyy-mm-dd") 

 

    txtSQL = "s elect * f rom CancelCard_Info where Date='" & StartDate & "'" 

    'txtSQL = "s elect * f rom ReCharge_Info where date between '" & StartDate & "'and'" & EndDate & "'" 

    Set mrc = ExecuteSQL(txtSQL, Msgtext) 

 

    If DTPckStart.Value > lue Then 

        MsgBox "请选择正确的时间范围！", vbOKOnly + vbExclamation, "提示" 

        Exit Sub 

    Else 

        If F Then 

            MsgBox "没有记录！", vbOKOnly + vbExclamation, "提示" 

            ear    '清除myFlexGrid 的内容 

            Exit Sub 

        Else 

            With myFlexGrid     'myFlexGrid添加内容 

· 

· 

· 

End sub

总结VB不难，只要不断的练习，温故而知新即可。

营口白癜风去哪治疗
临沂治疗白癜风方法
孩子厌食怎么调理