| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 636 人关注过本帖
标题:小女子毕设求助~~~~~~
只看楼主 加入收藏
水兰色精灵
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-9
收藏
 问题点数:0 回复次数:1 
小女子毕设求助~~~~~~
用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
搜索更多相关主题的帖子: 小女子 
2006-05-09 11:37
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 

thisform.pageframe1.page1.Grid1.refresh
试试看!

2006-05-09 19:22
快速回复:小女子毕设求助~~~~~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026410 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved