ขอความช่วยเหลือเรื่องคำสั่ง if ครับ

[panus_t]

จากตัวอย่าง
  if DBPipeline['hpi'] is null then
   CheckBox1.checked:=false
  else
   CheckBox1.checked:=true;
ถ้าค่า hpi ไม่เป็นช่องว่าง ให้ CheckBox1 ติ๊กเครื่องหมายถูก

แต่ถ้าต้องการเงื่อนไขให้ตรวจสอบอักษรใน hpi ล่ะครับ  เช่น
ถ้า hpi มีคำว่า ("ให้ทานยา" หรือ"ให้ ทานยา") และ"ส่งตัวไปER"
จะเขียน If ยังไง
 

[pop_hosxp]

น่าจะเป็น

โค๊ด: Delphi

1. If getsqlintegerdata('select count(vn) as cc from opdscreen where hpi like "%ให้ทานยา%" and vn="'+dbpipeline['vn']+'" ')>0 then
2.    CheckBox1.checked:=false
3.   else
4.    CheckBox1.checked:=true;
5. end;

[nummon]

อีกแบบที่น่าจะได้

    If (pos('ทานยา',DBPipeline['hpi'])>0 and pos('ส่งตัวไปER',DBPipeline['hpi'])>0) then

       CheckBox1.checked:=false

      else

       CheckBox1.checked:=true;

    end;

[panus_t]

น่าจะเป็น

โค๊ด: Delphi

1. If getsqlintegerdata('select count(vn) as cc from opdscreen where hpi like "%ให้ทานยา%" and vn="'+dbpipeline['vn']+'" ')>0 then
2.    CheckBox1.checked:=false
3.   else
4.    CheckBox1.checked:=true;
5. end;

ถ้าต้องการเงื่อนไข หลาย ๆ ตัวล่ะครับ เช่น "%ให้ทานยา%" หรือ "%ให้ ทานยา%" และ"%ส่ง ER%"

[panus_t]

อีกแบบที่น่าจะได้

    If (pos('ทานยา',DBPipeline['hpi'])>0 and pos('ส่งตัวไปER',DBPipeline['hpi'])>0) then

       CheckBox1.checked:=false

      else

       CheckBox1.checked:=true;

    end;

Error นี้แก้ไขอย่างไรครับ

(ลืมแนบไฟล์)

[nummon]

Error นี้แก้ไขอย่างไรครับ

 

[pop_hosxp]

น่าจะเป็น

โค๊ด: Delphi

1. If getsqlintegerdata('select count(vn) as cc from opdscreen where hpi like "%ให้ทานยา%" and vn="'+dbpipeline['vn']+'" ')>0 then
2.    CheckBox1.checked:=false
3.   else
4.    CheckBox1.checked:=true;
5. end;

ถ้าต้องการเงื่อนไข หลาย ๆ ตัวล่ะครับ เช่น "%ให้ทานยา%" หรือ "%ให้ ทานยา%" และ"%ส่ง ER%"

เพิ่ม condition เข้าไปครับ เช่น

select count(vn) as cc from opdscreen where (hpi like "%ให้ทานยา%" or hpi like "%ส่ง ER%" or hpi like "%ให้ ทานยา%") and vn="'+dbpipeline['vn']+'"

[nummon]

Error นี้แก้ไขอย่างไรครับ
(ลืมแนบไฟล์)

เอา code ไปใส่ไว้ที่ไหน ใช่อันนี้ไหมครับ

[panus_t]

Error นี้แก้ไขอย่างไรครับ
(ลืมแนบไฟล์)

เอา code ไปใส่ไว้ที่ไหน ใช่อันนี้ไหมครับ

ผมเอาไปไว้ที่ Variable ครับ..

[panus_t]

ต้องมีการประกาศชนิดตัวแปรตรงไหนก่อนหรือเปล่าครับ

[nummon]

ขออภัย ผิดที่วงเล็บครับ เพิ่มไปอีกนิด ) กับ (

If (pos('ทานยา',DBPipeline['hpi'])>0)
and ( pos('ส่งตัวไปER',DBPipeline['hpi'])>0) then

       CheckBox1.checked:=false

      else

       CheckBox1.checked:=true;

    end;