posts - 14,  comments - 3,  trackbacks - 0

 

有两个数据窗口对象dw_1,dw_2,通过录入病案号来检索病人信息,如果存在该病人,则自动调出病人的其它信息于dw_1,如果该病人输过血,则调出其输血信息于dw_2。

代码如下:event :itemchanged()

 int sumpaid

if dwo.name='pa_id' then //如果当前列为病案号pa_id
   select  count(*) into :sumpaid from t_patient where pa_id=:data; //检索数据表t_patient中病案号为当前item的值的个数

   if sumpaid>0 then //如果有数据,即数据库中有此病人信息
         dw_1.setfilter("pa_id='"+trim(data)+"'")  //则过滤此病人信息
         dw_1.filter()
       dw_1.retrieve()
     dw_1.settaborder('pa_id',0) //这个功能在下面专门讲
   end if
 
 dw_2.settransobject(sqlca) //dw_2检索病案号为当前item值的输血信息
   dw_2.setfilter("pa_id='"+trim(data)+"'")
   dw_2.filter()
   dw_2.retrieve()
  
end if

posted on 2007-07-17 22:01 wlj768 阅读(435) 评论(1)  编辑 收藏 引用 所属分类: 数据库编程之PB学习

FeedBack:
# re: 录入数据+检索数据[未登录]
2007-11-29 12:12 | SINCERE
楼主,你的资料写的太好了。
嘿嘿,我建了一个群:50978537。本人初学,希望能进来多多指点。谢谢. .主要想学习数据窗口  回复  更多评论
  
只有注册用户登录后才能发表评论。
<2007年11月>
28293031123
45678910
11121314151617
18192021222324
2526272829301
2345678

常用链接

留言簿(1)

随笔分类(11)

随笔档案(14)

文章分类(2)

1

搜索

  •  

最新评论

阅读排行榜

评论排行榜