BMS-HOSxP Community
HOSxP => Report Exchange => ข้อความที่เริ่มโดย: udomchok ที่ มกราคม 12, 2011, 15:08:58 PM
-
ผมได้ออกแบบ "แบบคัดกรองการสูบบุหรี่"
concept การทำงาน คือถ้าติ๊กในกรอบ A1 เป็น "ไม่สูบ" หรือ "เคยสูบ" กรอบ A2 จะ disable แต่ถ้าติ๊กที่กรอบ A1 เป็น "สูบ...." กรอบ A2 จึงจะ enable มาเพื่อให้ติ๊กต่อไปได้
และถ้าติ๊ก "ไม่คิดที่จะเลิกสูบ" ในกรอบ A2 กรอบ ไม่คิดที่จะเลิกสูบ ก็จะ enable มาให้ติ๊กต่อไปได้ แต่ถ้าเปลี่ยนมาติ๊กในกรอบ A2 ว่า "สนใจเลิก..." กรอบ ไม่คิดที่จะเลิกสูบ ก็จะ disable และ untick ให้ด้วย (ถ้ามีการติ๊กไว้) และกรอบ สนใจเลิก... ก็จะ enable มาให้ติ๊กได้
ใครเขียน script กำกับได้บ้างครับ
ผมลองเขียน event script ของ checkgroup และ radiogroup มันไม่สามารถใช้ได้ครับ
-
... พี่โก้ เดี๋ยวผมขอใช้เวลาประมวลผล concept ที่พี่โก้บอกไว้ สัก 2-3 .... นะครับ
แล้วเดี๋ยวบอกว่าจะช่วยได้หรือเปล่า .... ;D ....
-
พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด
-
พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด
.... ให้พี่โก้เติมเองครับ 55555 .... ;D .....
ก. วัน
ข. เดือน
ค. ปี
-
พี่โก้บอกว่า 2-3 อะไรค่ะพี่ขวด
.... ให้พี่โก้เติมเองครับ 55555 .... ;D .....
ก. วัน
ข. เดือน
ค. ปี
ค. คำตอบสุดท้ายอ่ะเปล่า...ครับ ;D ;D
-
ค. คำตอบสุดท้ายอ่ะเปล่า...ครับ ;D ;D
.... สงสัยประมาณนั้น เพราะ อ.พี่โก้น่าจะทำเสร็จแล้ว
ผมจะทำเนียนขอใช้ด้วย ครับ อ.พี่เกื้อ
แต่อย่าเอาไปบอก อ.พี่โก้นะครับ ความลับ .... ;D ;D ;D ....
-
งั้นที่โก้บอกกิ๊กว่าเป็นวินาทีได้ไหมค่ะพี่ขวด เผอิญว่าเป็นวัยรุ่นใจร้อนคำตอบสุดท้ายค่ะพี่เกื้อ
-
แก้ไขให้เรียก Event onKeyup ตอน click ให้แล้วครับใน 3.54.1.12(e)
-
... คำตอบสุดท้าย คือ อ.mn ครับ สุดยอด ... :D ....
-
สุดยอดครับ แบบนี้ รอ version ใหม่ มาทดสอบกับ การ format เครื่องใหม่เลยก็ดีครับ
-
สุดยอดครับ แบบนี้ รอ version ใหม่ มาทดสอบกับ การ format เครื่องใหม่เลยก็ดีครับ
ประเดิม เลยหรอคับ พี่อ๊อด ;D ;D
-
สุดยอดเลยครับ วันเดียว 5 version
รอ loadครับ
-
บอกผิดครับ ต้องเขียน Event onclick ครับ
-
บอกผิดครับ ต้องเขียน Event onclick ครับ
ตอนนี้ใช้ event script ที่ onclick แต่ยังไม่สามารถสั่งได้ครับ ใช้ .enable := true ประมาณนี้ครับ
เดี๋ยวจะรอ .13 ครับ
-
ช่วยส่ง form เข้ามาด้วยครับ
-
มาแล้วครับ
-
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 ไม่ได้ครับ มันไม่รู้จัก
-
รบกวน อ.mn แนะนำเป็นตัวอย่างหน่อยครับ :D :D :D :D
แบบนี้ก็ใช้ไม่ได้ ได้แค่ showmessage ครับ
begin
i := GetFormInputValue(123);
If i < 3 then
begin
ShowMessage(IntToStr(i));
127.enable := true;
end
else
127.enable := false;
end;
-
ตอนนี้ใช้แบบนี้ครับ
begin
i := GetFormInputValue(123);
If i < 3 then
begin
ShowMessage(IntToStr(i));
RadioGroup127.enabled := true;
end
else
RadioGroup127.enabled := false;
end;
แต่ได้ error ตามรูปข้างล่างนี้มาแทนครับ
-
ตอนนี้ใช้แบบนี้ครับ
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 ครับ
แจ่ม......ครับ ;D ;D ;D ;D
-
แก้ไข compile error ให้แล้วครับ ใน 3.54.1.14b
ส่วนการ Disable / Enable control สามารถเขียนแบบนี้ใน dws ได้ครับ
-
ลองทดสอบใช้ DBGrid กำหนด DBGrid Property เรียบร้อยแล้ว
ใช้ script ผ่าน OnClick ของ Button ตามรูปครับ
พอ Test กด Button แล้ว error ครับ
อ.MN พอจะมีคู่มือให้ศึกษาไหมครับ
;D ;D ;D
-
แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ
-
ฝากทดสอบใหม่ใน 3.54.1.14b ด้วยครับ
-
นึกว่าอาจารย์จะออกเป็น แบบคัดกรองบุหรี ในหน้าจอคัดกรองซะอีก
-
แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ
ใคร load ไป แล้วไม่ Thank ขอแช่ง..... ;D ;D ;D ;D ;D
-
แบบคัดกรองการสูบบุหรี่ Version 0.1 ครับ สามารถใช้งานได้แล้ว
ติดตรง OnSave ยังปรับ Script สำหรับการตรวจสอบการบันทึกข้อมูลไม่เสร็จครับ
ใคร load ไป แล้วไม่ Thank ขอแช่ง..... ;D ;D ;D ;D ;D
กดแล้วครับ Thank ;D ;D ;D ;D
-
ผมยังติด Error นิดนึง หลังเลือก A2 แล้วเลือกติ๊กด้านขวาต่อไม่ได้ครับ
-
ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ ;D ;D ;D
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ
-
กำลังต้องการอยู่พอดีเลย ขอบคุณคะ
V 53.11.29 จะใช้ได้หรือเปล่าค่ะ
-
กำลังต้องการอยู่พอดีเลย ขอบคุณคะ
V 53.11.29 จะใช้ได้หรือเปล่าค่ะ
ต้องใช้ Version 3.54.1.12e ขึ้นไปครับ
ถ้าจะให้ดีก็ up เป็น version 3.54.1.22 เลยครับ
-
ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ ;D ;D ;D
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ
ผมใช้อันเก่าของ อ.Udomchokไปเกือบ 300 คนแล้ว ถ้าใช้อันใหม่นำเข้าไป ข้อมูลเก่าจะหายไหมครับ
-
ผมเขียน script ตรวจสอบบางอันยังไม่เรียบร้อยครับ ;D ;D ;D
อันนี้ผมลบ script ที่มีปัญหาออกแล้วครับ ใช้งานได้ครับ
ผมใช้อันเก่าของ อ.Udomchokไปเกือบ 300 คนแล้ว ถ้าใช้อันใหม่นำเข้าไป ข้อมูลเก่าจะหายไหมครับ
อ้าวงั้นแก้ไขเองครับ
เดี๋ยวผมดูก่อนนะครับ ว่าลบตรงไหนออกบ้าง จะ post บอกอีกทีครับ
-
ขอบพระคุณครับ
แต่มีอีกนิดนึงครับ พอติ๊ก พิมพ์แบบฟอร์ม มันขึ้นถามหา UE-FORM-13 อะครับ
ขอบพระคุณครับ
-
ขอบพระคุณครับ
แต่มีอีกนิดนึงครับ พอติ๊ก พิมพ์แบบฟอร์ม มันขึ้นถามหา UE-FORM-13 อะครับ
ขอบพระคุณครับ
คงต้องออกแบบฟอร์มชื่อนี้ แหล่ะเอง แล้่ว SAVE เก็บไว้ใน System Reporttemplate
-
แล้วหากจะดึงรายงานจะดึงได้จากตารางไหนครับ
ขอบพระคุณอีกครั้งครับ
-
นับรายงาน ตามรายการใน universal_detail และ universal_head ครับ
-
ทำอย่างไรที่จะให้เวลาดูผลการลงข้อมูลจะให้ข้อความขึ้นแทนค่าตัวแปร ครับ
-
ไม่มีครับ ต้องเข้าไปดูเองครับ
-
แต่คนที่เข้าไปดูได้สามารถแก้ไขข้อมูลได้มันไม่ปลอดภัยครับ อยากให้ทำแบบห้อง lab คือดูได้แต่บันทึกไม่ได้ยกเว้นคนที่ได้รับสิทธิ์ครับ
-
แต่คนที่เข้าไปดูได้สามารถแก้ไขข้อมูลได้มันไม่ปลอดภัยครับ อยากให้ทำแบบห้อง lab คือดูได้แต่บันทึกไม่ได้ยกเว้นคนที่ได้รับสิทธิ์ครับ
ปลูกจิตสำนึกครับ...acccess control คงจะไม่มีวันสิ้นสุด....ครับ
-
ขอบคุณครับ :( :(
-
รายงาน bug นิดหนึ่งครับ กรณีใช้กับผู้ป่วยใน จะส่ง an เข้าไปใน field vn แต่ไม่ส่ง hn เข้าไปเก็บใน field hn ครับ
รบกวน อ.mn ด้วยครับ
-
รายงานที่เกี่ยวข้อง
-
Thank a lot .........