这是本人下在编写医院收费软件中的一段 if dmsjk.syzqzj.Active then dmsjk.syzqzj.Close; dmsjk.syzqzj.CommandText:=''; dmsjk.syzqzj.CommandText:='SELECT brfyhj.病人ID, brfyhj.病人姓名, Sum(brfyhj.金额) AS 金额计 FROM 门诊病人诊疗费用登记 AS brfyhj WHERE (((brfyhj.处方日期)=Date()) AND ((brfyhj.收费员) Like '''+zyhmc+''')) GROUP BY brfyhj.病人ID, brfyhj.病人姓名'; dmsjk.syzqzj.Open; if dmsjk.syzqzj.Locate('病人ID',edit13.Text,[]) then begin // 不能将(syzqzj)此表设为从表,不能建立主从关系! edit3.Text:=currToStr(dmsjk.syzqzj.FieldValues['金额计']); label5.Caption:=''+edit15.Text+'本次就诊费用合计是:'; edit4.SetFocus; end; 这段程序的作用是找出病人ID与edit.text中文本相同的的记录.并进行其它一些处理
----------------------------------------------
-