改进VFP的Searchclass.VC

用过中文VFP的朋友都知道，使用VFP提供的向导类库中的searchform.vcx和searchclass.vcx可以创建通用查询表单。这个查询非常通用，操作界面非常简单明了。
但是这个表单有一个缺点，就是这个表单的字段对话框只能显示字段名。如果数据表的字段名是英文的，显示的字段名对操作员来说不够清楚。一般在设计数据库的时候，我们会给每个字段一个中文标题，详细解释字段名。就像使用BROW命令时一样，我们可以使用字段标题来代替字段名。我们还可以修改searchclass.vcx来显示字段标题，而不是字段名，这样整个界面非常友好。
打开向导类库，选择searchclass.vcx
I .将下列语句中cbofield1的init事件
for m.i = fcount()修改为1 step-1
if in list(aweizflist[m . I，2]，" g "，" m "，" U ")& & Memo field
= ADEL(aWizFList，m . I)
DIMENSION aWizFList[MAX(1，ALEN(MAX' Br/]将数据库设置为(dname)
*将m.i = 1的字段标题
设置为alen (aweizflist，1)
fname = tname+'，'+aweizflist [m.i，1]
。empty(dname)
f caption = dbgetprop(fname，' field '，' caption')
*用字段标题替换字段名称
awe flist [m.i.1] = IIF(！empty(fcaption)，fcaption，awizflist[m.i，1])
endif
end for
THIS。RowSourceType = 5
THIS。row source = " aWizFList "
THIS。价值=这个。LIST[1，1]
删除原最后一句THIS。价值=这个。LIST[1]
其次，修改CBO field 2
this . row source type = 5
this . row source = " aweizflist "
this