ดึง filed ปฏิเสธ การแพ้ยาจากตารางไหนครับ

[thecoy]

ตรงเพิ่มปฏิเสธการแพ้ยา ลงใน  opd card ต้องถึงจาก fied ในตารางไหนครับ

[pop_hosxp]

found_allergy ใน opdscreen ครับ

[thecoy]

ขอบคุณครับ

[shukree]

แพทย์ต้องการให้แสดงใน OPD card ด้วย แต่ในฟิล จะเป็น N Y ไม่ทราบว่าต้องใช้คำสั่งอย่างไร ให้แสดงเป็น "ปฏิเสธการแพ้ยา" หรือ "มีอาการแพ้ยา" หรือ"ไม่ทราบ"

[thecoy]

กำหนดแบบนี้ครับ
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 ทั้งสามว่างตำแหน่งเดี่ยวกันครับ

[shukree]

ขอบคุณครับ ถ้าไม่เป็นการรบกวน พี่ช่วย modify ในฟอร์มเลยได้ไหมครับ แบบว่าทำไม่เป็นง่ะ

[udomchok]

กำหนดแบบนี้ครับ
โดยให้ label ทั้งสามว่างตำแหน่งเดี่ยวกันครับ

อ้าว...แล้วทำไมไม่ใช้ Label เดียวกัน แล้วใช้ if ช่วยล่ะครับ

[pongsa]

ลองใช้ครับ
if DBPipeline['drugallergy']<>'' then
Value := DBPipeline['drugallergy']
else Value :='&raquo;&macr;&Ocirc;&agrave;&Ecirc;&cedil;&iexcl;&Ograve;&Atilde;&aacute;&frac34;&eacute;&Acirc;&Ograve;';