BMS-HOSxP Community
HOSxP => Report Exchange => ข้อความที่เริ่มโดย: Knott ที่ เมษายน 02, 2010, 10:32:32 AM
-
ต้องการสร้าง check box ใน รายงาน เช่น การดึงค่า field ที่เป็นค่า Y,N เปลี่ยนมาเป็น check box โดย Y=เครื่องหมายถูก N=ไม่ต้องใส่เครื่องหมาย แบบนี้จะต้องเขียน script ยังไงครับให้แสดงในรายงานได้ครับ
ขอความรู้หน่อยครับ
ขอบคุณครับ
-
คร่าว ๆ ครับ
เก็บ ๆ มา
การกำหนด 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;
-
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 น่าจะดูง่ายกกว่าเนอะ ;D
-
สุดยอดทุกคน :)
-
ปล. แต่รายงานตัวที่พี่ส่งมาไม่ใช้ checkbox น่าจะดูง่ายกกว่าเนอะ ;D
ก็คงงั้นแหละ ไม่เห็นต้องทำให้มันยุ่งยากเลย เอาไว้ไปใช้อย่างอื่นดีกว่า ;D ;D ;D
ขอบคุณท่านอาจารย์ทั้ง 2 เก็บไว้เป็นความรู้ต่อปาย เอิ๊กๆ