เรียน อ.mn ที่นับถือ
ผมขออนุญาตจัดทำคู่มือการทำรายงานด้วย Report Designer
ฉบับ Yindee เนื่องจากมีหลายโรงพยาบาลที่สนใจและต้องการที่จะนำไปใช้ โดยการจัดทำผมรวบรวมจากที่ได้เคยไปฟัง อ.mn สอนตามที่ต่างๆ จาก อ.อ๊อด จากหนังสือ แล้วนำมารวบรวมตามความเข้าใจของผมเอง
ขอออกตัวก่อนว่าผมไม่ใช่ โปรแกรมเมอร์นะครับ ดังนั้นเนื้อหาในคู่มืออาจจะไม่ถูกต้องตามหลักที่ควรจะเป็น แต่อาศัยจากการลองเขียนใช้ด้วยตนเอง ภายใน 2 อาทิตย์นี้จะพยายามจัดทำคู่มือการสร้าง report ด้วย Pascal Script ใน Temreport ให้กับผู้สนใจและการ สร้าง Pacal Script สำหรับแก้ไข field ในตาราง อย่างง่าย เพราะแบบยากๆๆทำไม่เป็นครับ (ส่วนนี้สำหรับน้องTanKit(กิจ) โดยเฉพาะและ Admin ท่านอื่นๆที่สนใจ)
ดังนั้นก่อนที่ทุกท่านจะลองนำไปใช้จริงกับระบบหลักแนะนำให้ลองทดสอบในเครื่อง Stand Alone ก่อนจนแน่ใจว่าไม่เกิดความเสียหายในการนำไปใช้งานนะครับ ปล..ความเสียหายที่เกิดจากการนำคู่มือนี้ไปใช้งานขอให้
น้องยินดีรับผิดชอบแต่เพียงผู้เดียว ดังนั้นท่านใดที่เอ็นดูและเมตตาน้องยินดีตาดำๆ ก็ขอให้ลองทดสอบก่อนจนแน่ใจว่าไม่เกิดความเสียหายในการนำไปใช้งานนะครับ
ตัวอย่าง Script
program non;
var
tc:tclientdataset;
i:integer;
begin
i:=0;
tc:=tclientdataset.create(nil);
tc.data :=hosxp_getdataset('select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
while not tc.eof do
begin
i:= i+1;
tc.edit;
tc.fieldbyname('public_note').asstring:='Y';
tc.post;
showdebugtext('ÅӴѺ·Õè '+inttostr(i)+' HN = '+tc.fieldbyname('hn').asstring+' >>>>>>>> Public_note change result '+tc.fieldbyname('public_note').asstring+' OK');
tc.next
end;
if tc.changecount>0 then
hosxp_updatedelta(tc.delta,'select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
showdebugtext('...........................................................................');
showdebugtext('ÃÇÁ·Ñé§ÊÔé¹ '+inttostr(tc.recordcount)+' ÃÒ¡ÒÃ');
tc.free;
showmessage('Process Done');
end.
หัวข้อ: ขออนุญาตจัดทำคู่มือการทำรายงานด้วย Report Designer ฉบับ Yindee (อ่าน 27032 ครั้ง)