คำสั่ง if ปกปิดผล lab ใน labreport1

[golf_win]

if (DBPipeline['lab_items_code'] = '373') or (DBPipeline['lab_items_code'] = '501') then
    value := 'secret'
    else
    value := DBPipeline['lab_order_result']  ;

ทำได้ซะที  ให้ใช้ or ไปเรื่อยๆในรายการที่ต้องการปกปิดครับ
ปล.ใบ lab เอาของพี่โก้มาปรับแต่งเล็กน้อยให้เหมาะกับสภาพคล่องของโรงพยาบาล ขอบคุณพี่โก้มา ณ โอกาสนี้ด้วยครับ

[asawincyber]

ค่า LAB มีหลายค่าของผมก็เจอเหมือนกัน อ.golf_win ขอบคุณมากเลยครับ

[udomchok]

procedure txtLabResultOnGetText(var Text: String);
begin

{  If GetLabVisible(DBPipeline['lab_items_code'])='Y' then
    Text := Text
  else
    Text := 'ปกปิด';}
  If ((DBPipeline['lab_items_code']=369) or (DBPipeline['lab_items_code']=370) or (DBPipeline['lab_items_code']=371)
     or (DBPipeline['lab_items_code']=373) or (DBPipeline['lab_items_code']=374) or (DBPipeline['lab_items_code']=375)) and
    (UpperCase(Text) = 'POSITIVE') then
    Text := '*รอผลยืนยัน*'
  else
    Text := Text;

end;

[udomchok]

ปล.ใบ lab เอาของพี่โก้มาปรับแต่งเล็กน้อยให้เหมาะกับสภาพคล่องของโรงพยาบาล ขอบคุณพี่โก้มา ณ โอกาสนี้ด้วยครับ

มิน่าล่ะ หน้าตาใบ LAB ถึงออกมาสวยงาม 

[Terminator2015]

  แจกตัวรายงานขึ้นมาด้วยสิครับ อิอิ

[thannawe]

ของเค้าดีจริงๆ

[udomchok]

แจกตัวรายงานขึ้นมาด้วยสิครับ อิอิ

ผมเคย post ไปแล้วนะครับ
เดี๋ยวเอามาให้อีกทีก็ได้ครับ ไปประยุกต์ใช้กันนะครับ