vf课程设计 设备管理系统(2)

a(7)=alltrim(thisform.text7.value) a(8)=alltrim(thisform.text8.value) insert into 设备信息 from array a messagebox("输入成功",1,"提示") “取消”的CLICK的事件代码为： thisform.release

4）该表单的运行图示如下(图10)

7.报废设备表单(设备报废.scx)设计

1）将设备信息.dbf添加到该表单的数据环境中 2）设备购买表单界面中主要控件属性如表9所示。

设计界面如图11，界面如下：

3)各事件代码。

“查询”的CLICK的事件代码为： select 设备信息 set filter to do case

case thisform.optiongroup1.value=1

set filter to 设备名称=alltrim(thisform.text4.value) locate for 设备名称=alltrim(thisform.text4.value) case thisform.optiongroup1.value=2

set filter to 类别=alltrim(thisform.text4.value) locate for 类别=alltrim(thisform.text4.value) case thisform.optiongroup1.value=3

set filter to 所属单位=alltrim(thisform.text4.value) locate for 所属单位=alltrim(thisform.text4.value) endcase

thisform.refresh

“确认报销”的CLICK的事件代码为： select 设备信息

sel=messagebox ("真的要报销吗？",4,"提示") if sel=6 delete pack

messagebox("操作成功",4,"提示") *use

Endif

“取消”的CLICK的事件代码为： thisform.release

4）该表单的运行图示如下(图12)

8.设备信息统计表单(设备信息统计.scx)设计

设备信息统计表单用于系统的使用者对整个数据进行统计，便于对数据整体情况的了解。

1）将设备信息.dbf添加到该表单的数据环境中。 2）设备信息统计表单界面中主要控件属性如表10所示。

设计界面如图13，界面如下：