BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: apatnon86 ที่ กุมภาพันธ์ 23, 2012, 15:19:34 PM
-
ตามรูปที่ทำกรอบไว้ คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ แต่ถ้าไม่มีการแพ้ยา อยากให้มันแสดงข้อความ
ประมาณว่า "ไม่มีประวัติการแพ้ยา" วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก ได้โปรดชี้แนะข้าน้อยด้วย
ขอบคุณครับ
-
อันนี้เป็นของ รพ....
นะครับ
ทดลองใช้งานดู้ครับ
-
แก้ไข้แบบนี้ครับ
Variables
Value := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'"');
-
คือผมอยากให้มันแสดงข้อความ "ไม่มีประวัติการแพ้ยา" ถ้าใน drugallergy เป็นค่าว่างน่ะครับ
-
คือผมอยากให้มันแสดงข้อความ "ไม่มีประวัติการแพ้ยา" ถ้าใน drugallergy เป็นค่าว่างน่ะครับ
เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)
dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;
-
คือผมอยากให้มันแสดงข้อความ "ไม่มีประวัติการแพ้ยา" ถ้าใน drugallergy เป็นค่าว่างน่ะครับ
เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)
dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;
ขอบคุณครับ แบบนี้แหละที่ต้องการ ;D ;D ;D
-
ตามรูปที่ทำกรอบไว้ คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ แต่ถ้าไม่มีการแพ้ยา อยากให้มันแสดงข้อความ
ประมาณว่า "ไม่มีประวัติการแพ้ยา" วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก ได้โปรดชี้แนะข้าน้อยด้วย
ขอบคุณครับ
ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ
If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';
-
ตามรูปที่ทำกรอบไว้ คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ แต่ถ้าไม่มีการแพ้ยา อยากให้มันแสดงข้อความ
ประมาณว่า "ไม่มีประวัติการแพ้ยา" วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก ได้โปรดชี้แนะข้าน้อยด้วย
ขอบคุณครับ
ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ
If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';
มีความรู้ที่เป็นเกร็ดเล็ก เกร็ดน้อยตลอดเลยครับพี่โก้
ถ้าไม่มีพี่โก้ ทุกวันนี้ผมก็คงช่วยงานโรงพยาบาลไม่ได้ขนาดนี้
เป็นอาจารย์สอนผมเพียงไม่กี่วัน แต่ความรู้ที่ได้ถ่ายทอดมาเหลือคณานับ
อยากให้มีเหมือนพี่โก้ ทุกโรงพยาบาลเลยครับ ;D