5
« เมื่อ: มิถุนายน 22, 2012, 13:18:52 PM »
ผมจะเขียนรายงาน ตัวหนึ่ง ค้นจะค้นหาจากวันที่และ HN ของผู้ป่วย แต่ใช้ function : SearchOPDPtient ไม่เป็นคับ
ช่วยแนะนำให้หน่อยคับ
procedure GlobalOnCreate;
begin
GetDateRangeDialog(d1, d2);
SearchOPDPtient: hn;
ds1:= FormatDateTime('YYYY-MM-DD', d1);
ds2:= FormatDateTime('YYYY-MM-DD', d2);
ChangeReportSQL('SELECT Concat(p.pname, p.fname," ", p.lname) AS name, o.vstdate, o.pe, o.cc, '+
' o.bw, Concat(o.bps, "/", o.bpd) AS bp, o.pulse, o.hr, phm.service_text, '+
' phm.plan_text, phm.progress_text, phm.problem_text '+
' FROM opdscreen o LEFT OUTER JOIN '+
' patient p ON o.hn = p.hn LEFT OUTER JOISearchOPDPatient; '+
' physic_main phm ON o.vn = phm.vn '+
' WHERE o.hn = "'+hn+'" and o.vstdate BETWEEN "'+ds1+'" AND "'+ds2+'" '+
' order by o.vstdate' );
end;
ผมอยู๋จังหวัดกาญจนบุรีคับ รพ.บารมี จพ.เครื่องคอมพิวเตอร์