(1)创建如图11-44所示的库存查询表单(sykc.scx),其中有两个命令按钮、一个标签控件和一个文本框控件。
图11-44 库存查询表单
(2)设置表单基本属性。
· Autocenter:.T.—真。
· Caption:库存查询——所有库存。
· Closeable:.F.—假。
· Maxbotton:.F.—假。
(3)设置标签控件的名称。
· Caption(labe11):请输入要查询的最大数量。
(4)设置文本框控件的属性。
· IntetraHeight:.T.—真。
· Fontsize:12。
· Fontname:宋体。
· Value:0。
(5)设置命令按钮的属性。
· Caption(Command1):确定。
· Caption(Command2):取消。
(6)双击“确定”按钮,并编写其Click事件代码。
kcs1=thisform.text1.value
thisform.release
OPEN DATABASE 设备数据库
use kucun
BROWSE for 数量<kcs1 fields 编号,名称,产地,规格,数量,单价,包装
(7)双击“取消”按钮,并编写其Click事件代码。
Thisform.release
(8)双击文本框(Text1),并编写其init过程代码。
this.setfocus
(9)保存并运行该表单,其运行效果如图11-45所示。
图11-45 运行该表单所查询的数据
(1)创建如图11-46所示的库存条件查询表单(tjkc.scx),表单有两个命令控件、两个标签控件和两个文本框控件。
图11-46 库存条件查询表单 |
· Autocenter:.T.—真。
· Caption:库存查询——条件查询。
· Closeable:.F.—假。
· Maxbotton:.F.—假。
(3)设置标签控件的名称。
· Caption(labe11):请输入名称。
· Caption(labe12):请输入数量。
(4)设置文本框控件的属性。
· IntetraHeight:.T.—真。
· Fontsize:12。
· Fontname:宋体。
· Value(text1):0。
(5)设置命令按钮的属性。
· Caption(Command1):确定。
· Caption(Command2):取消。
(6)双击“确定”按钮,并编写其Click事件代码。
SET exact off
Mingcheng=upper(alltrim(thisform.text1.value))
Shuliang=thisform.text2.value
OPEN DATABASE 设备数据库
use kucun
BROWSE for 名称=mingcheng AND 数量<shuliang ;
Fields 编号,名称,产地,规格,数量,单价,包装
Release all
Thisform.release
(7)双击“取消”按钮,并编写其Click事件代码。
Release all
Thisform.release
(8)双击文本框(text1)控件,并编写其init过程代码。
This.setfocus
(9)保存并运行该表单,其运行效果如图11-47所示。
图11-47 运行该表单所查询的数据