小女子毕设求助~~~~~~
用VFP做一个图书管理系统,各个模块的查询功能总是实现不了,谁能帮我看看啊:
查询代码:
if thisform.Pageframe1.activepage=1
thisform.pageframel.page1.Grid1.recordsourceType=4
tsbh=allt(thisform.Pageframe1.page1.text1.value)
zz=allt(thisform.pageframe1.page1.text2.value)
tsmc=allt(thisform.pageframe1.page1.text3.value)
tslb=allt(thisform.pageframe1.page1.text4.value)
if thisform.pageframe1.page1.check1.value=0
thisform.pageframe1.page1.Grid1.recordsource="select * from 图书资料 where tsbh$图书编号;
.or.zz$作者.or.tsmc$图书名称.or.tslb$图书类别 into cursor a"
else
set exact on
thisform.pageframe1.page1.Grid1.recordsource="select * from 图书资料 where tsbh==图书编号;
.or.zz==作者.or.tsmc==图书名称.or.tslb==图书类别 into cursor a"
set exact off
endif
else
if thisform.Pageframe1.activepage=2
thisform.pageframel.page2.Grid1.recordsourceType=4
dzbh=allt(thisform.Pageframe1.page2.text1.value)
dzxx=allt(thisform.Pageframe1.page2.text2.value)
zjh=allt(thisform.Pageframe1.page2.text3.value)
dwbm=allt(thisform.Pageframe1.page2.text4.value)
if thisform.Pageframe1.page2.check1.value=0
thisform.Pageframe1.page2.Grid1.recordsource="select * from 读者信息 where dzbh$读者编号;
.or.dzxx$读者姓名.or.zjh$证件号.or.dwbm$职业 into cursor a"
else
set exact on
thisform.Pageframe1.page2.Grid1.recordsource="select * from 读者信息 where dzbh==读者编号;
.or.dzxx==读者姓名.or.zjh==证件号.or.dwbm==职业 into cursor a"
set exact off
endif
endif
endif
有达人可以帮我看看的话感激不尽,请联系我 QQ185666665