มาต่อจากบทความที่แล้ว อ่านดูได้ที่ [ คำถาม ! 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