BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: thecoy ที่ พฤศจิกายน 03, 2008, 12:29:17 PM
-
ตรงเพิ่มปฏิเสธการแพ้ยา ลงใน opd card ต้องถึงจาก fied ในตารางไหนครับ
-
found_allergy ใน opdscreen ครับ
-
ขอบคุณครับ
-
แพทย์ต้องการให้แสดงใน OPD card ด้วย แต่ในฟิล จะเป็น N Y ไม่ทราบว่าต้องใช้คำสั่งอย่างไร ให้แสดงเป็น "ปฏิเสธการแพ้ยา" หรือ "มีอาการแพ้ยา" หรือ"ไม่ทราบ"
-
กำหนดแบบนี้ครับ
procedure Label91OnPrint;
begin
label91.visible:= DBPipeline['found_allergy']='Y'; หมายถึง ให้ label91 ซึ่งมีข้อความว่า "มีอาการแพ้ยา"
end;
procedure Label92OnPrint;
begin
label92.visible:= DBPipeline['found_allergy']='Y'; หมายถึง ให้ label92 ซึ่งมีข้อความว่าม "ปฎิเสธการแพ้ยา"
end;
procedure Label93OnPrint;
begin
label93.visible:= DBPipeline['found_allergy']=' '; หมายถึง ให้ label93 ซึ่งมีข้อความว่า "ไม่ทราบ"
end;
โดยให้ label ทั้งสามว่างตำแหน่งเดี่ยวกันครับ
-
ขอบคุณครับ ถ้าไม่เป็นการรบกวน พี่ช่วย modify ในฟอร์มเลยได้ไหมครับ แบบว่าทำไม่เป็นง่ะ
-
กำหนดแบบนี้ครับ
โดยให้ label ทั้งสามว่างตำแหน่งเดี่ยวกันครับ
อ้าว...แล้วทำไมไม่ใช้ Label เดียวกัน แล้วใช้ if ช่วยล่ะครับ
-
ลองใช้ครับ
if DBPipeline['drugallergy']<>'' then
Value := DBPipeline['drugallergy']
else Value :='»¯Ôàʸ¡ÒÃá¾éÂÒ';