สามารถดึงผล LAB ที่ลงแล้ว มาโชว์ที่ UE ได้เปล่าครับ
มีวิธีอย่างไรครับ สอบถามผู้รู้หน่อย
ขอบคุณครับ
------------UE Data---------------
ใน Script Event OnLoad เราสามารถใส่โค้ดเข้าไปตรงนี้ได้ครับ
แล้วก็เขียนคำสั่ง Set ค่าให้กับ Object เช่น Scr1.text := 'test';
แต่ในที่นี้เราจะ set ค่าที่ได้จากการดึงในฐานข้อมูล ซึ่งเราดึงผ่าน TClicentDataset
ลองเอาตัวอย่างโค๊ดนี้ไปศึกษาดูครับ
var tc : TClientDataset; // ประกาศตัวแปรเป็น TClientDataset
begin
tc := TClientDataset.create(nil); // Initial
tc.data:=hosxp_getdataset('select count(*) as cc from patient'); // Query Data
Scr1.text := tc.fieldbyname('cc').asstring; // Set ค่าให้กับ Object
showmessage('Count Patient= '+tc.fieldbyname('cc').asstring); // Showmessage
tc.free;
end;