ตัวอย่าง Form-RxOrder1 ที่มีรายการแลปล่วงหน้าแสดง

[naj]

เนื่องจากทางพี่พยาบาล OPD  ต้องการให้มีรายการแลปล่วงหน้าแสดงตอนพิมพืใบสั่งยาจากจากเมนูส่งตรวจผู้ป่วยนอก ของผู้ป่วยนัดคลินิกเบาหวาน เพื่อให้ห้องแลปตรวจสอบได้ง่ายขึ้น เลยเอามาให้ทดสอบดูครับ สามารถใช้ได้กับรายการที่เป็นแบบเดี่ยวๆ และที่เป็น Subgroup
หมายเหตุ
เงื่อนไขที่ผมเขียนคือจะแสดงก็ต่อเมื่อคนไข้มาตรงตามวันนัดเท่านั้นครับ
ตัวอย่าง Code ที่ใช้

โค๊ด: Delphi

1.  
2.  Value:= GetSQLstringData('select concat("ÁÒµÃǨµÒÁ¹Ñ´ ¤ÅÔ¹Ô¡","  ",b.name) as dd from oapp a '+
3.         'left outer join clinic b on a.clinic=b.clinic '+
4.        'where a.hn="'+DBPipeline['hn'] +'" '+
5.        ' and a.nextdate="'+Formatdatetime('yyyy/mm/dd',DBPipeline['vstdate'] )+'"');
6.        
7.  fvn:= GetSQLstringData('select vn from oapp a '+
8.         'where a.hn="'+DBPipeline['hn'] +'" '+
9.        ' and a.nextdate="'+Formatdatetime('yyyy/mm/dd',DBPipeline['vstdate'] )+'"');
10.        if length(fvn)>0 then
11.        begin
12.         subgroup:= GetSQLStringData('select sub_group_list from lab_app_head where vn="'+fvn+'" ');
13.         if subgroup<>'' then
14.         begin
15.         lab:=GetSQLSubQueryData('select b.lab_items_sub_group_name '+
16.    ' from  lab_items_sub_group b   '+
17.                 'where lab_items_sub_group_code in('+subgroup+')  ') ;
18. lab:=lab+','+GetSQLSubQueryData('select c.lab_items_name from lab_app_head a '+
19.   'left outer join lab_app_order b on a.lab_app_order_number=b.lab_app_order_number '+
20.   'left outer join lab_items c on b.lab_items_code=c.lab_items_code '+
21.   'where a.vn="'+fvn+'"  '+
22.   'and c.sub_group_list not in ('+lab+') ');
23.   lab:=SearchAndReplace(lab,'''','');
24.   memo1.lines.text:=SearchAndReplace(lab,'Urine Analysis','UA');
25.   Memo1.Visible:=True;
26.   end   else
27.   begin
28.    lab:=GetSQLSubQueryData('select c.lab_items_name from lab_app_head a '+
29.   'left outer join lab_app_order b on a.lab_app_order_number=b.lab_app_order_number '+
30.   'left outer join lab_items c on b.lab_items_code=c.lab_items_code '+
31.   'where a.vn="'+fvn+'" ');
32.    lab:=SearchAndReplace(lab,'''','');
33.    memo1.lines.text:=SearchAndReplace(lab,'Urine Analysis','UA');
34.   Memo1.Visible:=True;
35.   end else
36.   Memo1.Visible:=False;
37.   end;
38.