ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา

[apatnon86]

          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ

[ittipol]

อันนี้เป็นของ รพ....
นะครับ
ทดลองใช้งานดู้ครับ

[ittipol]

แก้ไข้แบบนี้ครับ

Variables

Value := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'"');

[apatnon86]

คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ

[nutsuanplu]

คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ

เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)

dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;

[apatnon86]

คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ

เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)

dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;

ขอบคุณครับ   แบบนี้แหละที่ต้องการ     

[udomchok]

          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ

ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ

If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';

[nutsuanplu]

          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ

ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ

If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';

มีความรู้ที่เป็นเกร็ดเล็ก เกร็ดน้อยตลอดเลยครับพี่โก้
ถ้าไม่มีพี่โก้ ทุกวันนี้ผมก็คงช่วยงานโรงพยาบาลไม่ได้ขนาดนี้
เป็นอาจารย์สอนผมเพียงไม่กี่วัน แต่ความรู้ที่ได้ถ่ายทอดมาเหลือคณานับ
อยากให้มีเหมือนพี่โก้ ทุกโรงพยาบาลเลยครับ