มาต่อจากบทความที่แล้ว  อ่านดูได้ที่   [ คำถาม ! vn_script มีคำสั่ง ฟังชัน อะไรบ้าง ? ]

getsqldata() คือ ฟังชันสำหรับส่งค่า sql แล้ว return ค่าที่เรากำหนดได้ จะยืดหยุ่นต่อ นักพัฒนาอย่างเราๆ ครับ

ตัวอย่าง
โจทนี้ ลองเอา VN ที่ได้มาจาก ฟังชัน GetGlobalValue()
แล้วไปหาค่าต่อ  คือจะไปหา HN หาชื่อคนไข้รายนี้ และหา person_id ของ รายนี้
ก็จะได้โค้ด pascal ตามนี้ครับ

**********************************
var
fvn : string;
fhn : string;
fptname : string;
fperson_id :string;
begin
fvn := GetGlobalValue(‘VN’);
fhn := getsqldata(‘select hn from ovst where vn=”‘+fvn+'” ‘);
fptname := getsqldata(‘select concat(pname,fname,” “,lname)as pt from patient where hn=”‘+fhn+'” ‘);
fperson_id := vartostr(getsqldata(‘select person_id from person where patient_hn=”‘+fhn+'” ‘));
showmessage(‘VN=’+fvn+’ HN=’+fhn+’ Name=’+fptname+’ Person=’+fperson_id);
end;

**********************************

จะเห็นได้ว่าเราสามารประยุกต์ ต่อยอดจาก ตัวแปรที่เราได้มา อีกมากมาย เดี่ยวมาดูว่า เราจะทำระบบ สักอย่างหนึ่งเพื่อทำเป็นตัวดึงข้อมูลมาทำรายงาน หรือส่งออก Excel ได้ผ่านระบบ vn script นี้ยังไง มาต่อกันเลยครับ

ติดตามบทความต่อไป…..เร็วๆนี้

 6,148 total views,  6 views today

คำถาม ! vn_script มีคำสั่ง ฟังชัน อะไรบ้าง EP.2
Tagged on:         

ใส่ความเห็น

อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น ช่องข้อมูลจำเป็นถูกทำเครื่องหมาย *

This site uses Akismet to reduce spam. Learn how your comment data is processed.