มาต่อกับ EP.3 (อ่านบทความก่อนหน้า คำถาม ! vn_script มีคำสั่ง ฟังชัน อะไรบ้าง EP.2 )
RunHOSxP_ScriptProgram() เป็นฟังชันสำหรับสั่งเปิดฟอร์ม ที่มีอยู่ทำงานได้ ภายในฟอร์มที่ Allow User Run อะครับ
อ้า..มาดูกัน
อยากแรกสร้างฟอร์มเปล่า ๆ มาก่อน โดยใช้ Delphi XE ก่อนนะครับ ทำตามรูปเลย
ให้สร้างฟอร์ม นะ ไม่ใช่ VCL Forms Application นะ ดูดีๆ
ออกแบบตามใจชอบเลย แต่ขอบอกว่าให้ใช้ component standard นะครับ จะได้ไม่มีปัญหาภายหลัง (เดียวมาเล่าให้ฟังว่าทำไม)
ได้แล้วก็ บันทึด้วย ชื่อตามรูปเลย Form_a_u.pass แต่ชื่อฟอร์มให้เป็นชื่อ Form_a พอนะครับแล้วมาทำต่อ..
กลับไป HOSxP ไปเปิด HOSxP SQL Query หายปุ่มสายฟ้า –> ไปแท็บ Script –> ไปกดปุ่ม ค้นหาไฟล์ที่เราบันทึกไว้ ชื่อ Form_a_u.pas เท่านั้นนะครับ แล้วกดปุ่ม Open ได้เลยมันจะออกมาเป็นรูปต่อไปนี้
ก็ออกตามที่เราทำไว้ตอน ทำที่ Delphi XE อะครับ เสร็จแล้วก็บันทึก ที่ปุ่ม Save ตั้งชื่อว่า Form_ant ตามรูปนี้
เสร็จแล้วก็เปิด สายฟ้า อีกอัน แล้วเขียนโค้ดตามนี้ลงไปครับ
**************************
var
Form_ant :string;
begin
RunHOSxP_ScriptProgram(‘Form_ant’);
end;
**************************
แล้วกดปุ่ม Execute ก็จะได้เปิดฟอร์ม Form_ant มาให้ นั้นก็คือคุณสมบัติของฟังชันของ RunHOSxP_ScriptProgram() นะครับ พอมองออกใช่ไหมครับ
ก็ลองเอาไปประยุกต์ใช้ดูนะครับ คิดว่าน่าจะเป็นประโยชน์กับ admin ที่ถามเขามานะครับ
เดี่ยวตัวอย่างต่อไป จะมาต่อยอดตัว นี้ยังไง รอติดตามบทความต่อไปครับ
มีคำถามก็ถามมาได้ใต้ บทความนี้ได้นะครับ
แล้วพบกันใหม่บทความต่อไป……..
3,087 total views, 1 views today