读书笔记 《VFP6.0-9.0 解决方案与范例大全》二[VFP自带控件解读]

读书笔记 《VFP6.0-9.0 解决方案与范例大全》二[VFP自带控件解读]

常用控件解读：

文本框：

        文本框的输入输出格式通常是与文本框的数据类型相关的，一般情况下，将文本框与一个表字段邦定后，文本框的数据类型与表字段相同，务须进行设置。如果没有与表字段邦定，可以在文本框的VALUE属性中设置文本框的数据类型。如：

   thisform.text1.value=""   &&设置为字符型

   thisform.text1.value=0   &&设置为数值型

   thisform.text1.value={}   &&设置为日期型  可以使用DateFormat属性设置日期的显示格式

   thisform.text1.value=.T.  &&设置为逻辑型

 

选项按钮：

    选项按钮可以被设置为数值型或字符型

   如果设置选项按钮的VALUE属性为空("")或是其中某个选项按钮的标题（区分大小写），则选项按钮组为字符型

   如果设置选项按钮的Value属性为一个0至组中按钮数目之间的一个数值，则选项按钮为数值型。

  thisform.optiongroup1.value=1 &&数值

  thisform.optiongroup1.value="男" &&字符

列表框：

 列表框可以使用的几种填充类型：

 用ADDITEM方法添加数据项；用字符串值填充；用表中的数据填充；用SQL-select语句生成的临时表；

 用查询结果填充列表框；用数组填充列表框；使用字段填充列表；使用文件、文件夹名称列表框；

使用表结构填充列表；使用弹出式菜单列表；使用集合对象填充列表

 

添加数据数据到下拉列表框或组合框：

   rowsourcetype=1

       cCountryName=alltrim(custs.country)

  if  atc(m.ccountryname,this.rowsource)=0 and ! empty(m.ccountryname)

      this.rowsource=this.rowsource+','+m.countryname

  endif

 rowsourcetype=0

if !empty(this.text)

  for i=1 to this.listcount

  if this.list(i)=this.text

   return  &&如果列表框或组合框内已经存在就不再添加，直接返回

endif

endfor

this.additem(this.text)  &&添加到下拉列表或组合框

endif

rowsourcetype=5

   添加用户输入文本到数组中，然后调用组合框的requery方法重新填充列表

rowsourcetype=2  or rowsourcetype=6

  用户要通过replace命令或Insert -sql命令向表中添加记录，然后再调用组合框的Requery方法