7、修改总数据库表单xgmain（图10-1）

（1）、表单的coaption=‘修改总数据库’；icon=‘d:\demo\pic\tool3.ico’；windowtype=‘1-模式’。
（2）、建立表格gird1，右击选择生成器，选择main的全部字段。
（3）、建立文本框text1。
（4）、建立命令按钮command1，caption=‘查找’；
command1.click：
locate for allt(main.qcmc)=allt(thisform.text1.value)
if found()
go recn()
else
wait window at 18,38 nowait '没有找到你要查询的信息！'
endif
thisform.grid1.refresh
（5）、建立命令按钮command2，caption=‘退出’；command2.click：thisform.release
（6）、表格gird1里的所有text1的rightclick过程为：do yji.mpr（右击表格时调出快捷菜单）。
8、个人工具卡表单grgj（图10-2）

（1）、建立文本框text1
（2）、建立命令按钮command1。picture=‘d:\demo\pic\find.bmp’；
command1.click：
=requ("ll_gjk")  &&刷新本地视图‘ll_gjk’
（3）、建立命令按钮command2。picture=‘d:\demo\pic\print.wyc’；
command2.click：
messagebox('请用A4纸！',16,'提示信息')
report form ll_gjk.frx to printer
thisform.refresh
（4）、建立命令按钮command3。picture=‘d:\demo\pic\preview.bmp’；
command3.click：
report form ll_gjk.frx to preview
（5）、建立命令按钮command4。picture=‘d:\demo\pic\close.wyc’；
command4.click：
thisform.release
（6）、建立表格gird1。右击选择生成器，选择视图ll_gjk的所有字段，deletemark=‘.F.-假’；readonly=‘.T.-真’；recordmark=‘.F.-假’；scrollbars=‘2-垂直’。
9、创建本地视图ll_gjk
（1）、选择项目管理器中的数据库kfgl下的本地视图，按新建按钮，选择新建视图（图10-3）。

（2）、选择表grgjk，按填加按钮，然后关闭，保存为ll_gjk。（图10-4）

（3）、字段全部填加。
（4）、选项“筛选”中填加：grgjk.llr="&xingm"(图10-5）。

（5）、“排序依据”选择grgjk.rq升序。