สอบถามการเขียนคำสั่ง IF ใน Report

[panus_t]

  if DBPipeline['agent'] is not null then
  CheckBox6.checked:=true
  else
  CheckBox6.checked:=false;

ผมเขียนลงใน Variable  ถูกหรือเปล่าก็ไม่รู้ แต่มัน Error ครับ บอกว่าไม่สามารถรัน Variable2 ได้
ตอนแรกผมใช้   if DBPipeline['found_allergy'] = 'N' then
มาตรวจสอบพบที่หลังว่า found_allergy = N แต่ 'agent' กับมารายการยาที่แพ้ ผมก็เลยเลือกตรวจสอบ 'agent'

 ;Dอยากถามคำสั่ง IF ข้างบนผมเขียนถูกหรือเปล่า เขาเขียนกันยังไง แล้วถ้ามี CheckBox 2 ตัวคือ CheckBox5 (ไม่แพ้ยา)และ 6 (แพ้ยา)
จะเขียนต่อกันไปแบบยาว ๆ ได้อย่างไรครับ

[golf_win]

แบบนี้ได้มั้ย ยังไม่ได้ทดสอบนะครับ

if DBPipeline['agent'] <>'' then
  CheckBox6.checked:=true
  else
  CheckBox6.checked:=false;

น่าจะลองใช้ drugallergy จากตาราง patient จะง่ายกว่ามั้ยครับ
ทดสอบแล้วได้ผลอย่างไรแจ้งด้วยนะครับ จะได้เอาไปใช้มั่ง

[James011]

  หลักการเขียน IF กรณี หลายคำสั่ง

โค๊ด: Delphi

1.  
2.  if DBPipeline['agent']<>''  then
3.   begin
4.    CheckBox6.checked:=true;
5.    CheckBox4.checked:=true;
6.   end
7.   else
8.   begin
9.   CheckBox6.checked:=false;
10.   CheckBox4.checked:=false;
11.   end;
12.  
13.  

[panus_t]

ได้แล้วครับ ใช่แบบของคุณ เจมส์@ศูนย์อนามัยที่ 11 ครับ

[@_MY_NAME_IS_AM_@]

ถามต่ออีกนิดนะครับถ้า ตัวแปรมีได้หลายๆค่าล่ะครับ เช่น ค่าว่างด้วยเป็นเลข 1 กับ 4 ด้วยแบบนี้เขียนอย่างไรครับ
ผมลองแล้ว

if  (((DBPipeline['smoking_type_id'] = '1' or (DBPipeline['smoking_type_id'] = '4'))
and (DBPipeline['drinking_type_id'] = '1'))

then

  begin

  CheckBox7.checked:=true;
  CheckBox8.checked:=false;

  end

  else

  begin
 
  CheckBox7.checked:=false;
  CheckBox8.checked:=true;

  end;

แบบนี้มันถูกไหมครับ แล้วตามโค๊ดด้านบนผมอยากให้ เท่ากับค่าว่างด้วยครับ เพราะผมเพิ่มแล้วมัน Error ครับ

[golf_win]

if  ((DBPipeline['smoking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = '4'))
and (DBPipeline['drinking_type_id'] = '1')  then
  begin
  CheckBox7.checked:=true;
  CheckBox8.checked:=false;
  end
  else
  begin
  CheckBox7.checked:=false;
  CheckBox8.checked:=true;
  end;

แบบนีได้มั้ยครับ

[@_MY_NAME_IS_AM_@]

if  ((DBPipeline['smoking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = '4'))
and (DBPipeline['drinking_type_id'] = '1')  then
  begin
  CheckBox7.checked:=true;
  CheckBox8.checked:=false;
  end
  else
  begin
  CheckBox7.checked:=false;
  CheckBox8.checked:=true;
  end;

แบบนีได้มั้ยครับ

ผมอยากเพิ่มว่าเป็นค่าว่างด้วย ทั้ง 2 ตัวแปรเลย ใช้คำสั่งแบบไหนครับ

[golf_win]

if  ((DBPipeline['smoking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = '4') or (DBPipeline['smoking_type_id'] = ''))
and ((DBPipeline['drinking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = ''))  then
  begin
  CheckBox7.checked:=true;
  CheckBox8.checked:=false;
  end
  else
  begin
  CheckBox7.checked:=false;
  CheckBox8.checked:=true;
  end;

[@_MY_NAME_IS_AM_@]

if  ((DBPipeline['smoking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = '4') or (DBPipeline['smoking_type_id'] = ''))
and ((DBPipeline['drinking_type_id'] = '1') or (DBPipeline['smoking_type_id'] = ''))  then
  begin
  CheckBox7.checked:=true;
  CheckBox8.checked:=false;
  end
  else
  begin
  CheckBox7.checked:=false;
  CheckBox8.checked:=true;
  end;

ผมกด Like ไม่ได้ ขอบคุณมากๆครับ