รบกวนขอscriptประวัติการรับวัคซีน TT,PCEC ที่ห้องฉุกเฉินหน่อยครับ อยากให้แสดงว่าได้รับวัคซีนชนิดนี้เมื่อไหร่ประมาณนี้ครับ
ผมลองเขียนแล้วมันไม่แสดง รบกวนอาจารย์ทั้งหลายหน่อยครับ
if fdepartment='011' then
begin
fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');
if getsqldata('select count(pv.vaccine_name) as cc '+
'from ovst_vaccine ov,person_vaccine pv,ovst v '+
'where v.vn=ov.vn and v.hn="'+fhn+'" and ov.person_vaccine_id=pv.person_vaccine_id '+
'and pv.person_vaccine_id between "39" and "44" ')>0 then
showmessage('ทดสอบระบบ');<--- ตรงนี้อยากให้บอกว่า ได้วัคซีนอะไร เข็มที่เท่าไหร่ เมื่อวันที่เท่าใด ครับ
end;
ขอบคุณล่วงหน่าครับ
หัวข้อ: รบกวนขอscript ประวัติการรับวัคซีนหน่อยครับ (อ่าน 5090 ครั้ง)