BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: panus_t ที่ กุมภาพันธ์ 02, 2011, 14:57:55 PM

หัวข้อ: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: panus_t ที่ กุมภาพันธ์ 02, 2011, 14:57:55 PM
  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 (แพ้ยา)
จะเขียนต่อกันไปแบบยาว ๆ ได้อย่างไรครับ

หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: golf_win ที่ กุมภาพันธ์ 02, 2011, 15:14:58 PM
แบบนี้ได้มั้ย ยังไม่ได้ทดสอบนะครับ ;D ;D

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

น่าจะลองใช้ drugallergy จากตาราง patient จะง่ายกว่ามั้ยครับ
ทดสอบแล้วได้ผลอย่างไรแจ้งด้วยนะครับ จะได้เอาไปใช้มั่ง ;) ;)
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 02, 2011, 15:26:08 PM
 ;D ;D ;D หลักการเขียน 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.  
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: panus_t ที่ กุมภาพันธ์ 04, 2011, 16:04:35 PM
ได้แล้วครับ ใช่แบบของคุณ เจมส์@ศูนย์อนามัยที่ 11 ครับ ;D
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: @_MY_NAME_IS_AM_@ ที่ พฤศจิกายน 06, 2013, 19:35:51 PM
ถามต่ออีกนิดนะครับถ้า ตัวแปรมีได้หลายๆค่าล่ะครับ เช่น ค่าว่างด้วยเป็นเลข 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 ครับ
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: golf_win ที่ พฤศจิกายน 06, 2013, 19:54:23 PM
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;

แบบนีได้มั้ยครับ
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: @_MY_NAME_IS_AM_@ ที่ พฤศจิกายน 07, 2013, 08:49:35 AM
อ้างจาก: golf_win ที่ พฤศจิกายน 06, 2013, 19:54:23 PM
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 ตัวแปรเลย ใช้คำสั่งแบบไหนครับ
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: golf_win ที่ พฤศจิกายน 07, 2013, 09:16:10 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;
หัวข้อ: Re: สอบถามการเขียนคำสั่ง IF ใน Report
เริ่มหัวข้อโดย: @_MY_NAME_IS_AM_@ ที่ พฤศจิกายน 08, 2013, 09:47:09 AM
อ้างจาก: golf_win ที่ พฤศจิกายน 07, 2013, 09:16:10 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 ไม่ได้ ขอบคุณมากๆครับ