check box ในรายงาน

[Knott]

ต้องการสร้าง check box ใน รายงาน เช่น การดึงค่า field ที่เป็นค่า Y,N เปลี่ยนมาเป็น check box โดย Y=เครื่องหมายถูก N=ไม่ต้องใส่เครื่องหมาย แบบนี้จะต้องเขียน script ยังไงครับให้แสดงในรายงานได้ครับ

ขอความรู้หน่อยครับ
ขอบคุณครับ

[nahos]

คร่าว ๆ ครับ

เก็บ ๆ มา

การกำหนด Visible 
  Label42.Visible := DBPipeline['an'] > '0'; 
(ถ้า an > 0 ให้มองเห็น label42)

อีกแบบหนึ่ง ใช้ Variable (if ...then... else if)

procedure Variable2OnCalc(var Value: Variant);
begin
Label12.visible:=False;
Label21.visible:=False;
Label23.visible:=False;
Label29.visible:=False;

if   DBPipeline['spclty']='09' then Label12.visible:=True
else if DBPipeline['spclty']='08' then Label21.visible:=True
else if DBPipeline['spclty']='02' then Label23.visible:=True
else Label29.visible:=True;



end;

[Svl2Nuk3]

1. CheckBox
    อันนี้ใช้คู่กับ  Variable  ครับ ใช้กับเงื่อนไขที่ซับซ้อนได้  เช่นเงื่อนไขที่จะให้เช็คถูกมีหลายเงื่อนไข
   
   ตัวอย่าง  ให้เช็คถูกถ้า  icode  ที่  query  มามีค่า  =1000002 หรือ 1000007

if   (DBPipeline['icode'] = '1000002') or (DBPipeline['icode'] = '1000007') then
    CB.checked := true
else
    CB.checked := false;


2. DBCheckBox
    อันนี้ใช้กับเงื่อนไขง่าย  ๆ  เช่น  Y  เช็คถูก   N  ไม่เช็ค  (1:1)
   วิธีใช้ก็กำหนด  DBPipeline  และ  Dafafield  ให้มันครับ
   เสร็จแล้วก็กำหนด  Miscellanueous  ว่าข้อมูลตัวไหนจะให้เช็คถูก

ปล.  แต่รายงานตัวที่พี่ส่งมาไม่ใช้  checkbox  น่าจะดูง่ายกกว่าเนอะ   

[doramon]

สุดยอดทุกคน 

[Knott]

ปล.  แต่รายงานตัวที่พี่ส่งมาไม่ใช้  checkbox  น่าจะดูง่ายกกว่าเนอะ  

ก็คงงั้นแหละ ไม่เห็นต้องทำให้มันยุ่งยากเลย เอาไว้ไปใช้อย่างอื่นดีกว่า 

ขอบคุณท่านอาจารย์ทั้ง 2 เก็บไว้เป็นความรู้ต่อปาย เอิ๊กๆ