ถาม : การเขียน Script ควบคุมใน UE

[udomchok]

ผมได้ออกแบบ "แบบคัดกรองการสูบบุหรี่"
concept การทำงาน คือถ้าติ๊กในกรอบ A1 เป็น "ไม่สูบ" หรือ "เคยสูบ" กรอบ A2 จะ disable แต่ถ้าติ๊กที่กรอบ A1 เป็น "สูบ...." กรอบ A2 จึงจะ enable มาเพื่อให้ติ๊กต่อไปได้
และถ้าติ๊ก "ไม่คิดที่จะเลิกสูบ" ในกรอบ A2 กรอบ ไม่คิดที่จะเลิกสูบ ก็จะ enable มาให้ติ๊กต่อไปได้ แต่ถ้าเปลี่ยนมาติ๊กในกรอบ A2 ว่า "สนใจเลิก..." กรอบ ไม่คิดที่จะเลิกสูบ ก็จะ disable และ untick ให้ด้วย (ถ้ามีการติ๊กไว้) และกรอบ สนใจเลิก... ก็จะ enable มาให้ติ๊กได้

ใครเขียน script กำกับได้บ้างครับ
ผมลองเขียน event script ของ checkgroup และ radiogroup มันไม่สามารถใช้ได้ครับ

[Khuad]

... พี่โก้  เดี๋ยวผมขอใช้เวลาประมวลผล concept ที่พี่โก้บอกไว้  สัก 2-3 .... นะครับ
    แล้วเดี๋ยวบอกว่าจะช่วยได้หรือเปล่า ....  ....

[kittor]

พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด

[Khuad]

พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด

.... ให้พี่โก้เติมเองครับ 55555 ....  .....

     ก. วัน
     ข. เดือน
     ค. ปี


   

[เกื้อกูล ครับ..]

พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด

.... ให้พี่โก้เติมเองครับ 55555 ....  .....

     ก. วัน
     ข. เดือน
     ค. ปี


  

ค. คำตอบสุดท้ายอ่ะเปล่า...ครับ

[Khuad]

ค. คำตอบสุดท้ายอ่ะเปล่า...ครับ

.... สงสัยประมาณนั้น  เพราะ อ.พี่โก้น่าจะทำเสร็จแล้ว

         ผมจะทำเนียนขอใช้ด้วย ครับ อ.พี่เกื้อ
         แต่อย่าเอาไปบอก อ.พี่โก้นะครับ ความลับ ....      ....

[kittor]

งั้นที่โก้บอกกิ๊กว่าเป็นวินาทีได้ไหมค่ะพี่ขวด เผอิญว่าเป็นวัยรุ่นใจร้อนคำตอบสุดท้ายค่ะพี่เกื้อ

[manoi]

แก้ไขให้เรียก Event onKeyup ตอน click ให้แล้วครับใน 3.54.1.12(e)

[Khuad]

... คำตอบสุดท้าย คือ อ.mn ครับ  สุดยอด  ...  ....

[doramon]

สุดยอดครับ  แบบนี้ รอ version ใหม่ มาทดสอบกับ การ format เครื่องใหม่เลยก็ดีครับ

[Man100KG]

สุดยอดครับ  แบบนี้ รอ version ใหม่ มาทดสอบกับ การ format เครื่องใหม่เลยก็ดีครับ

ประเดิม เลยหรอคับ พี่อ๊อด 

[udomchok]

สุดยอดเลยครับ วันเดียว 5 version
รอ loadครับ

[manoi]

บอกผิดครับ ต้องเขียน Event onclick ครับ

[udomchok]

บอกผิดครับ ต้องเขียน Event onclick ครับ

ตอนนี้ใช้ event script ที่ onclick แต่ยังไม่สามารถสั่งได้ครับ ใช้ .enable := true ประมาณนี้ครับ
เดี๋ยวจะรอ .13 ครับ

[manoi]

ช่วยส่ง form เข้ามาด้วยครับ

[udomchok]

มาแล้วครับ

[udomchok]

HOSxP 3.54.1.14 สามารถใช้ event script OnClick ได้แล้วครับ

begin

i := GetFormInputValue(123);
If i < 3 then
  begin
  ShowMessage(IntToStr(i));
  RadioGroup127.enable := true;
  end
else
  RadioGroup127.enable := false;

end;

แต่ผมยังสั่ง .enable ไม่ได้ครับ มันไม่รู้จัก

[udomchok]

รบกวน อ.mn แนะนำเป็นตัวอย่างหน่อยครับ 
แบบนี้ก็ใช้ไม่ได้ ได้แค่ showmessage ครับ
begin

i := GetFormInputValue(123);
If i < 3 then
  begin
  ShowMessage(IntToStr(i));
  127.enable := true;
  end
else
  127.enable := false;

end;

[udomchok]

ตอนนี้ใช้แบบนี้ครับ
begin

i := GetFormInputValue(123);
If i < 3 then
  begin
  ShowMessage(IntToStr(i));
  RadioGroup127.enabled := true;
  end
else
  RadioGroup127.enabled := false;

end;

แต่ได้ error ตามรูปข้างล่างนี้มาแทนครับ

[udomchok]

ตอนนี้ใช้แบบนี้ครับ
begin

i := GetFormInputValue(123);
If i < 3 then
  begin
  ShowMessage(IntToStr(i));
  RadioGroup127.enabled := true;
  end
else
  RadioGroup127.enabled := false;

end;

แต่ได้ error ตามรูปข้างล่างนี้มาแทนครับ

ใช้แบบนี้ แต่ไม่ต้องติ๊ก USE Delphi web script engine ครับ
แจ่ม......ครับ

[manoi]

แก้ไข compile error ให้แล้วครับ ใน 3.54.1.14b


ส่วนการ Disable / Enable control สามารถเขียนแบบนี้ใน dws ได้ครับ

[SrWooD]

ลองทดสอบใช้ DBGrid กำหนด DBGrid Property เรียบร้อยแล้ว

ใช้ script ผ่าน OnClick ของ Button ตามรูปครับ

พอ Test กด Button แล้ว error ครับ

อ.MN พอจะมีคู่มือให้ศึกษาไหมครับ

 

[udomchok]

แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ

[manoi]

ฝากทดสอบใหม่ใน 3.54.1.14b ด้วยครับ

[ismailsa]

นึกว่าอาจารย์จะออกเป็น แบบคัดกรองบุหรี ในหน้าจอคัดกรองซะอีก

[udomchok]

แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ

ใคร load ไป แล้วไม่ Thank ขอแช่ง.....

[doramon]

แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ

ใคร load ไป แล้วไม่ Thank ขอแช่ง.....

กดแล้วครับ Thank   

[A ROON CHAI]

ผมยังติด Error นิดนึง หลังเลือก A2 แล้วเลือกติ๊กด้านขวาต่อไม่ได้ครับ

[udomchok]

ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ 
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ

[Tigger]

กำลังต้องการอยู่พอดีเลย ขอบคุณคะ 
 V 53.11.29 จะใช้ได้หรือเปล่าค่ะ

[udomchok]

กำลังต้องการอยู่พอดีเลย ขอบคุณคะ 
 V 53.11.29 จะใช้ได้หรือเปล่าค่ะ

ต้องใช้ Version 3.54.1.12e ขึ้นไปครับ
ถ้าจะให้ดีก็ up เป็น version 3.54.1.22 เลยครับ

[A ROON CHAI]

ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ 
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ

ผมใช้อันเก่าของ อ.Udomchokไปเกือบ 300 คนแล้ว ถ้าใช้อันใหม่นำเข้าไป ข้อมูลเก่าจะหายไหมครับ

[udomchok]

ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ 
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ

ผมใช้อันเก่าของ อ.Udomchokไปเกือบ 300 คนแล้ว ถ้าใช้อันใหม่นำเข้าไป ข้อมูลเก่าจะหายไหมครับ

อ้าวงั้นแก้ไขเองครับ
เดี๋ยวผมดูก่อนนะครับ ว่าลบตรงไหนออกบ้าง จะ post บอกอีกทีครับ

[natch2005]

ขอบพระคุณครับ
แต่มีอีกนิดนึงครับ พอติ๊ก พิมพ์แบบฟอร์ม มันขึ้นถามหา UE-FORM-13 อะครับ
ขอบพระคุณครับ

[เกื้อกูล ครับ..]

ขอบพระคุณครับ
แต่มีอีกนิดนึงครับ พอติ๊ก พิมพ์แบบฟอร์ม มันขึ้นถามหา UE-FORM-13 อะครับ
ขอบพระคุณครับ

คงต้องออกแบบฟอร์มชื่อนี้ แหล่ะเอง  แล้่ว SAVE เก็บไว้ใน  System Reporttemplate

[natch2005]

แล้วหากจะดึงรายงานจะดึงได้จากตารางไหนครับ
ขอบพระคุณอีกครั้งครับ

[เกื้อกูล ครับ..]

นับรายงาน ตามรายการใน  universal_detail  และ  universal_head  ครับ

[anupan_sripa]

ทำอย่างไรที่จะให้เวลาดูผลการลงข้อมูลจะให้ข้อความขึ้นแทนค่าตัวแปร ครับ

[udomchok]

ไม่มีครับ ต้องเข้าไปดูเองครับ

[golf_win]

แต่คนที่เข้าไปดูได้สามารถแก้ไขข้อมูลได้มันไม่ปลอดภัยครับ อยากให้ทำแบบห้อง lab คือดูได้แต่บันทึกไม่ได้ยกเว้นคนที่ได้รับสิทธิ์ครับ

[เกื้อกูล ครับ..]

แต่คนที่เข้าไปดูได้สามารถแก้ไขข้อมูลได้มันไม่ปลอดภัยครับ อยากให้ทำแบบห้อง lab คือดูได้แต่บันทึกไม่ได้ยกเว้นคนที่ได้รับสิทธิ์ครับ

ปลูกจิตสำนึกครับ...acccess  control  คงจะไม่มีวันสิ้นสุด....ครับ

[anupan_sripa]

ขอบคุณครับ

[udomchok]

รายงาน bug นิดหนึ่งครับ กรณีใช้กับผู้ป่วยใน จะส่ง an เข้าไปใน field vn แต่ไม่ส่ง hn เข้าไปเก็บใน field hn ครับ
รบกวน อ.mn ด้วยครับ

[udomchok]

รายงานที่เกี่ยวข้อง

[nongyaihos]

Thank a lot .........