11.6.6 库存统计表单的制作

 

11.6.6 库存统计表单的制作

1．制作所有库存查询表单

（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  运行该表单所查询的数据

2．制作库存条件查询表单

（1）创建如图11-46所示的库存条件查询表单（tjkc.scx），表单有两个命令控件、两个标签控件和两个文本框控件。

图11-46  库存条件查询表单

（2） 设置表单基本属性。

·    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  运行该表单所查询的数据