小弟在做一个小小的书籍管理系统
现在遇到一个关于 查询表单的问题
表单 包括 一个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 编辑 ]

另行附上 已经完成的其他内容 请高手帮忙看看 现在就差查询的部分没搞定了

是不是可以开始连编了



[ 本帖最后由 congzhendong 于 2010-6-7 06:09 编辑 ]

我把查出来的内容放到一个临时表，这样就可以统计记录数了，还有那个逻辑型的字段，可以考虑单独使用一个组合框，这样可以嵌套查询

谢谢 楼上的朋友
messagebox 的问题可以通过你的方式解决
可是还是不能再 查询的结果上直接更改 有什么办法吗

问题依然没有全部解决
希望 各路高手 多多帮忙
顶上去先

combo1的 逻辑型项 分解为2项, 比如: "是否刻盘" 分解为"已刻盘", "未刻盘"

再用筛选, 比如:

if a="已刻盘"
    Select * from 书目信息表 where 是否刻盘 =已刻盘的标识, 比如.t.
    ...
endif


if a="未刻盘"
    Select * from 书目信息表 where 是否刻盘 =未刻盘的标识, 比如.f.
    ...
endif


如果你要修改查询到的内容

1. 如果表单上有表格控件(grid), 将查询内容放到grid上, 可在grid上直接修改~

2. 如果表单没有表格控件(grid), 可用brow修改~ 例:

  if a="编号"
     Select * from 书目信息表 where 编号 like '%'+b+'%' into tabl tmp
     brow

谢谢楼主的指点
关于逻辑型的查询得到了很好的解决
第二个问题是查询的结果可以更改了 但是我想要的是在更改查询结果临时表tmp的同时 自动同步更改数据源表 “书目信息表”

另有一个新的小问题 我在菜单中有一个菜单项叫 “浏览” 过程如下

set default to E:\叶项目
if !used("书目信息表") &&如果""表没打开,打开它;如果已经打开,则选择它
USE E:\叶项目\书目信息表
else
* INDEX ON & 作者
* SELECT * FORM 书目信息表 ORDER BY 作者,作者译名,作品名称
ENDIF
browse
return

我想在打开表 浏览的同时 按作者名称排序 可是试了 星号后的两个句子都有问题 应该如何解决
再有就是 查询结果的表 tmp 有了内容以后 在点 浏览 时显示的就变成了 tmp的内容了 是什么原因呢

本身你这个IF……ELSE……ENDIF就有问题，按你的写法，如果文件没打开，那么你就只是打开文件，然后执行BROWS，而ELSE后面的那两行就不执行了。
SELECT得到的临时表应该是默认的当前区，此时Brows的内容当然就是临时表的内容了

[ 本帖最后由 啸凡 于 2010-6-10 16:59 编辑 ]

8楼正解~


或直接:

set default to E:\叶项目
SELECT * From 书目信息表 ORDER BY 作者,作者译名,作品名称  && 是from, 不是form  
return