机房收费系统（三）-点点滴滴的收获

一、Dtpicker控件

在加载与日期有关的数据时，dtpicker控件帮了我们很大的忙，有助我们学习，方便我们生活的工具真的很多，有待我们去发现。

1、如何加载

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

2、常用属性：Format

属性	格式
0-dtpLongDate	yyyy-mm-dd hh:mm:ss
1-dtpShortDate	yyyy-mm-dd
2-dtpTime	hh:mm:ss
3-dtpCustom	依据customeFormat而定

(1)一般默认为 1 ，若想显示为时间h:mm:ss 时，Format设为2 即可，

(2)若想自定义格式，将Format设为3，然后将CustomFormat 设置即可（Format不为3时，该属性不可用）

dtpicker1.Format=dtpCustom

dtpicker1.CustomFormat=Format("yyMM dd")

3、在SQL中取值语句：

txtSQL = "select * fromCancelCard_Info where Date<='" & 结束日期 & "'"&"and date>='" & 开始日期 &"'"

当然单单这样很可能取不出来值；最大的因素就是日期的格式不统一。比如，yyyy-mm-dd 、 yyyy/mm/dd

所以，我们还需要转换日期的格式：Format(DTPckStart.Value,"yyyy-mm-dd")

二、Replace函数：

1、解释：

Replace,意思是"代替"，标志着它是一个标识替换的函数。

返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。

例如：replace(s1,s2,[s3]) 即s3替换s1中的s2字符，s3可以不填，默认是空字符。

2、语法

Replace(old_text,old_chars,new_chars)

Replace函数的语法有以下参数:

参数	描述
Old_text	需要替换的字符串
old_chars	需替换掉的字符
New_chars	新字符(为空则把old_chars删除)

3、举例

replace( string1, string_to_replace, [replacement_string ] )

replace('123123tech', '123'); would return'tech'

replace('222tech', '2', '3'); would return'333tech'

4、代码如下：

(1)使用replace函数



(2)不使用replace函数，直接使用chr(13)&chr(10)也可以，如下：



(3)如果运行时，无法换行，且代码检查无错，看multiLine属性是否设置为true。

三、textbox的Enable属性和Locked属性

在上下级这一界面中，当我们上机时，应该只有卡号text框是可以输入的，其他框一律不可输入信息。Enable属性和Locked属性二者都可以很好的帮我们解决了这个问题，但存在一点点区别。

1、Enable属性设为false时

text框无法获得焦点，此时只有卡号text框可以输入信息。

2、Locked属性设为true时

text框可以获得焦点，光标可以在text框里闪动，但输入不了信息，如下图：

四、.row和.Rows的区别

1、 .row时，只显示一行数据

.row运行结果

2、.rows时，结果完整显示

.rows运行结果，完美

3、原因

没有查到合理的解释，暂时的理解可能就是.row和.rows分别代表一行和多行，还请大家多多指教。