UE Tip บวกฟิวล์ที่สร้างมา แล้วมากำหนดค่าในช่องฟิวล์ ผลรวม ให้ด้วย

นึกอะไรไม่ออก ผมมักจะกลับไปอ่านใน Facebook แต่ดันค้นหาไม่เจอ เลยต้องมาเก็บบันทึกไว้ใน Blog นี้  (ความจำผมเต็ม ต้องระบาย….)

มีเพื่อนใน FB ถามมาเลยมาทำคลิปให้ดูถ้าจะอธิบายคงยาว ดูคลิปนี้ประกอบนะครับ

แล้วเอาโค้ดนี้ไปประยุกต์ใช้เอานะครับ
***********
var ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10 :string;
total :integer;
begin
ch1 := GetFormInputValue(419);
ch2 := GetFormInputValue(420);
ch3 := GetFormInputValue(421);
ch4 := GetFormInputValue(422);
ch5 := GetFormInputValue(423);
ch6 := GetFormInputValue(424);
ch7 := GetFormInputValue(425);
ch8 := GetFormInputValue(426);
ch9 := GetFormInputValue(427);
ch10 := GetFormInputValue(428);
total := strtoint(ch1)+
strtoint(ch2)+
strtoint(ch3)+
strtoint(ch4)+
strtoint(ch5)+
strtoint(ch6)+
strtoint(ch7)+
strtoint(ch8)+
strtoint(ch9)+
strtoint(ch10);
SetFormInputValue(429,total);
end;
***********

วิธีนำไปใช้ก็ไม่ยากอะไร  คลิกขวาที่ช่องที่จะให้ Event ทำงาน
แต่ต้องเขียนโค้ดให้ถูกที่สุด เพราะถึงจะเขียนโค้ดผิด เวลารันหรือทำงาน หากมี error มันจะไม่แสดงอะไรเลย  ทำให้ Admin มือใหม่ งง  และไปต่อไม่ได้  จบ  –>  และก็มา inbox มาหาผม ผมก็เลย ทำคู่มือเล็กๆ น้อยๆ มาให้อ่านเพื่อให้เข้าใจมากขึ้น

และ

และ

และ

ประมาณนี้ละกัน  หลักๆ คือดูตัวเลขด้านหลัง  เพื่อดึงตัวแปร ออกมา หรือจะกำหนดค่าก็กำหนดได้ด้วยเลขตัวหลังของชื่อ ตามรูปนี้

และคำสั่งที่เอาไว้สำหรับดึงค่ามาคือ
GetFormInputValue(419);

และคำสั่งที่เอาไว้กำหนดค่า ให้กับ object นั้นคือ
SetFormInputValue(429,total);
ปล. 429 คือ object ที่ชื่อ SpinEdit429
ส่วน total คือค่าที่จะกำหนด

ดาวโหลดฟอร์ม UE ในตัวอย่างนี้ตามนี้ครับ
*** UniversalFormExport-แบบประเมินและการส่งต่อผู้ป่วยโรคหลอดเลือดสมอง (29 downloads ) ***

ประมาณนี้นะครับคิดว่าน่าจะเป็นประโยชน์นะครับ
มีข้อเสนอแนะก็แจ้งมานะครับ

ขอบคุณที่ติดตาม แล้วพบกันใหม่ในบทความต่อไป