求助 一个查询表单的问题
小弟在做一个小小的书籍管理系统现在遇到一个关于 查询表单的问题
表单 包括 一个combo 一个text 和 两个命令按钮 一个叫查询 一个叫退出
combo 包括 9个选项 7个字段是 字符型 另外两个是逻辑型 的
我不知道逻辑型的两个字段改如何做查询 希望高手帮帮忙
还有就是 如何能让弹出的查询结果的窗口可以直接更改其中的内容
另外就是我的程序执行中 查不到记录的时候不提示我写的messagebox的内容 而是直接显示一个空的表
请各路高手帮忙看看吧 谢谢
查询按钮的 代码如下
if empty(thisform.Text1.value)=.f.
go top
a=
b=alltrim(thisform.Text1.value)
local c as integer
if a="编号"
Select * from 书目信息表 where 编号 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="作者"
Select * from 书目信息表 where 作者 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="作者译名"
Select * from 书目信息表 where 作者译名 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="作品名称"
Select * from 书目信息表 where 作品名称 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="出版信息"
Select * from 书目信息表 where 出版信息 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="光盘名称"
Select * from 书目信息表 where 光盘名称 like '%'+b+'%'
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="评分"
Select * from 书目信息表 where 评分 == b
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
if a="是否刻盘"
Select * from 书目信息表 where 是否刻盘 = b
sele 书目信息表
c=reccount()
if c<1
use
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
()
return
ENDIF
endif
else
messagebox("请输入要查找的内容!",16,"系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
斜体 带下划线的部分不会写了 是否刻盘 字段是逻辑型的
[ 本帖最后由 congzhendong 于 2010-6-7 06:16 编辑 ]