DOC《VFP课程设计》

6 interactivechange thisform.refresh lostfocus thisform.refresh Text Name Text1 ControlSource Reader.xm Text Name Text2 ControlSource Reader.dh Grid Name Grid1 RecordSource bower Command Name Command1 Caption 还书 Click tbdf=alias() select(thisform.dataenvironment.cursor2.alias) replace ghrq with date() select(thisform.dataenvironment.cursor1.alias) replace zks with (zks+1) select &tbdf thisform.refresh return 数据环境:cursor1 reader.bdf cursor2 brower.bdf cursor3 booker.bdf 数据关系:relation1 reader.dzbh-brower.dzbh 图书入库与报废登记管理 图书编号内输入编号,后面输入入库或报废的图书册书.输入编号不存在则表示是新书入库,反之则为对已存在信息进行入库或报废登记. 控件 属性/过程 值Text Name Text1 InteractiveChange thisform.dataenvironment.cursor1.filter='tsbh='+"'"+trim(this.value)+"'" thisform.refresh return Gotfocus thisform.dataenvironment.cursor1.filter='tsbh='+"'"+trim(this.value)+"'" thisform.refresh return Text Name Text2 Grid Name Grid1 RecordSource booker Command Name Command1 Caption 新书入库登记 Click append blank replace tsbh with thisform.text1.value replace kcs with thisform.text2.value replace zks with thisform.text2.value thisform.dataenvironment.cursor1.filter='tsbh='+"'"+trim(thisform.text1.value)+"'" thisform.refresh Command Name Command1 Caption 图书报废登记 Click delete replace kcs with kcs-kcs thisform.refresh