Question

VF自动生成的表单中的“查找”、“打印”等按钮很好用，如何在自己设计的表单中加入这些按钮

Answer 1

添加按钮很容易，关键是按钮里面的代码。这个就根据个人的需要来看了

追问

是啊，我就是不知道如何在自己的设计的表单按钮中写代码，达到那些按钮的功能。希望高手指导一下。

追答

查询
*建立一个临时表
DO WHILE .T.
C1_RTN_CODE = SYS(2015)
IF FILE(C1_RTN_CODE + ".DBF")
ELSE
EXIT
ENDIF
ENDDO
*查询符合条件的资料
SELECT * FROM table1 WHERE aa = "a" INTO CURSOR C1_RTN_CODE
IF RECCOUNT() > 0
*赋值给GRID
THISFORM.C2_GRID_MAIN = C1_RTN_CODE
THISFORM.GRID1.ENABLED = .T.
THISFORM.GRID1.VISIBLE = .T.
THISFORM.GRID1.RECORDSOURCE = C1_RTN_CODE
THISFORM.GRID1.COLUMNCOUNT = 2
THISFORM.GRID1.LEFT = 0
THISFORM.GRID1.HEIGHT = THISFORM.HEIGHT - THISFORM.GRID1.TOP
THISFORM.GRID1.WIDTH = THISFORM.WIDTH
THISFORM.GRID1.FONTSIZE = 12
THISFORM.GRID1.COLUMN1.READONLY = .T.
THISFORM.GRID1.COLUMN2.READONLY = .T.
THISFORM.GRID1.COLUMN1.WIDTH = 80
THISFORM.GRID1.COLUMN2.WIDTH = 80
THISFORM.GRID1.COLUMN1.CONTROLSOURCE = C2_SQL_DATA + "." + "USER_NAME"
THISFORM.GRID1.COLUMN2.CONTROLSOURCE = C2_SQL_DATA + "." + "USER_ID"
THISFORM.GRID1.SETFOCUS
ENDIF
列印
采用@ ... SAY 命令。如:@ 3 , 110 say "姓名:" + ALLTRIM(USER_NAME) FONT "标楷体",20 style '0T'
列印的代码就不给你写了，你自己试试看。上面查询的代码也需要根据你的实际要求进行修改。

追问

我的意思是如何能具有那些按扭的强大的查询功能，可以自由选择字段，可以自由选择“大于”、“小于”、“在。。之间”、“在。。之中”这些操作符。

这个提问怎么不能插入图片，要不我可以截个图片给你。

追答

你可以添加条件，让他选择是大于，小于...

追问

怎么添加条件，不会弄啊，我现在的表单都是自动生成再修改的，自动生成的单表那些按钮都不能修改代码的。

追答

你可以在添加几个Lable,Combox,Text，你可以根据自己的需要添加。例如:年龄，大於，30
你在执行查询时，先判断这几个控件是否为空，如果是空，查询全部/不让他查询。如果不是空，你可以在查询的WHERE後面加上此条件(and age > 30 )。如果是姓名，and neme like '张%'