FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด

[adisaksri]

ทดลองเขียนรายงานจากความรู้basic reportของBMS
เอาไปใช้โดยไปแก้ icode ของยาaspirin
 

[ไม่เสียสละ ชัยชนะไม่เกิด]

ไม่ทราบว่าช่องของการรับยาต้องการให้แสดงผลยังไงครับ

[adisaksri]

ถ้าต้องการเขียนเพิ่มว่า 1=ได้รับ  0=ไม่ได้รับ ต้องเขียนคำสั่งเพิ่มตรงไหนและเขียนคำสั่งอย่างไรครับ

[udomchok]

ถ้าต้องการเขียนเพิ่มว่า 1=ได้รับ  0=ไม่ได้รับ ต้องเขียนคำสั่งเพิ่มตรงไหนและเขียนคำสั่งอย่างไรครับ

ใช้ OnGetText ของค่าที่แสดงว่าได้รับหรือไม่ได้รับ
สมมุติค่าได้ที่ได้รับหรือไม่ได้รับอยู่ใน DBText1 นะครับ
ใส่

If DBText1 = 0 then
Text := 'ไม่ได้รับ'
else
If DBText1 = 1 then
Text := 'ได้รับ'
else
Text := 'ไม่ทราบ';

[ไม่เสียสละ ชัยชนะไม่เกิด]

ขอบคุณครับพี่โก้
   ลองแก้ตามก่อนนะครับ

[adisaksri]

กรณีเป็นVariable เขียนยังไง เอาไปแทรกตรงไหนครับ
begin

  Value := GetSQLIntegerData('select count(distinct hn) '+
           'from opitemrece '+
           'where hn="'+DBPipeline['hn']+'" '+
           'and icode in ("1520006","1000039","1000038")');

end;

[udomchok]

ไปกำหนด OnGetText ของ Variable นั้น นะครับ