PB 模糊查询

    自考毕业设计已经完成，其中用到了模糊查询，和之前用到的异曲同工。

1.需求

   我的系统是《医药信息管理系统》，要根据药品名等字段查询销售药品的记录。

2.界面

3.查询功能的实现

//窗口xsdjcx_win的“查询”按钮的clicked()事件，检索满足条件的数据记录 string fh,zd,nr,zhtj fh=trim(ddlb_2.text)if ddlb_1.text="销售票号" thenzd="xsph"nr="'"+sle_1.text+"'" elseif ddlb_1.text="药品编号" thenzd="ypbh"nr="'"+sle_1.text+"'" elseif ddlb_1.text="药品名称" thenzd="ypmc"nr="'"+sle_1.text+"'" elseif ddlb_1.text="简称" thenzd="jc"nr="'"+sle_1.text+"'" end if //综合条件 zhtj=zd+fh+""+nr+"" tab_1.tabpage_2.dw_1.settransobject(sqlca) //对满足条件的数据进行过滤 tab_1.tabpage_2.dw_1.setfilter(zhtj) //检索数据 tab_1.tabpage_2.dw_1.filter() tab_1.tabpage_2.dw_1.retrieve() int row string xsph //得到当前行的行号 row=tab_1.tabpage_2.dw_1.getrow() if row=0 thenmessagebox("","没有您要查询的入库信息!") else//得到当前行第四列的值xsph=tab_1.tabpage_2.dw_1.getitemstring(row,3)string xsph1//选择数据select xsph into :xsph1 from xxdj_tab;if xsph1="" thenelsestring ypbh,jsr,czy,xsph4,ckrq,jsfs,ckmc,ypmc,jc,jx,hw,cd,gg,bz,dw,sb,pzwh,ph,bzq,dj,sl,je//选择数据select ypbh,jsr,czy,xsph,ckrq,jsfs,ckmc,ypmc,jc,jx,hw,cd,gg,bz,dw,sb,pzwh,ph,bzq,dj,sl,je into :ypbh,:jsr,:czy,:xsph4,:ckrq,:jsfs,:ckmc,:ypmc,:jc,:jx,:hw,:cd,:gg,:bz,:dw,:sb,:pzwh,:ph,:bzq,:dj,:sl,:je from xxdj_tab where xsph=:xsph;xsdjcx(ypbh,jsr,czy,xsph,ckrq,jsfs,ypmc,ckmc,jc,jx,hw,cd,gg,bz,dw,sb,pzwh,ph,bzq,dj,sl,je)end if end if
  这里用到的拼接字符串，首先在第二页中查到信息，然后逐条查看显示在界面

总结

以上是生活随笔为你收集整理的PB 模糊查询的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。