การพิมพ์รายงานที่มี check box ทำอย่างไงครับ

[น้องใหม่ร้ายเหลือ]

พอดีอยากปรับรายงานห้องคลอด  มีหลายจุดที่ยังไม่สมบูรณ์  เช่นข้อมูลบางฟิลด์ที่เป็น check box ในหน้าต่างบันทึกข้อมูลห้องคลอด  แต่เวลารายงานที่พิมพ์ออกมา ไม่มีการพิมพ์เครื่องหมายถูก หน้ารายการที่เราเลือกไว้   แต่บางข้อก็พิมพ์ให้

อยากเรียนถาม เซียนรายงาน ครับ ว่า การเขียน Report ให้พิมพ์เครื่องหมายถูก หน้ารายการที่เราเลือกตอนบันทึกนั้น ทำอย่างไรครับ  ดูตัวอย่างที่พิมพ์ แล้วยังงงครับ  เป็นค่า a ไม่ทราบว่าหมายถึงอะไร

[doramon]

ช่วยส่งไฟล์ รายงานมาให้ดูด้วยครับ

[anukul]

ฝาก อ.อ๊อด หรือ อ.นาจ ช่วยดูด้วย อยากทราบวิธีทำเหมือนกัน  ของ มะการักษ์ ก็ยังไม่ได้ปรับรายงานให้ห้องคลอดเลย ไม่ค่อยมีเวลา พอไปดูแล้วก็เจอปัญหาคล้ายๆกัน ตรงข้อมูลที่เป็น check box จะปรับแก้เองก็ยังไม่ค่อยชำนาญ รบกวนช่วยแนะนำด้วยครับ

[anukul]

ตัวอย่างด้านล่างของรายงาน ที่บางข้อมูลมีการกาเครื่องหมายถูกให้ แต่บางข้อมูลไม่มีการกา (แม้ว่าจะบันทึก)

[por]

อยากได้ในส่วนของ dialog box เลือช่วงวันที่ ที่ต้องการรายงานด้วยนะครับ อยากทราบวิธีนะครับ

[doramon]

ทำแบบนี้ครับไม่ทราบว่าพอได้หรือเปล่าครับ 

[doramon]

โค๊ด: Delphi

1.   label61.visible:=   DBPipeline['pregnancy']<>'Y';
2.    label62.visible:=   DBPipeline['pregnancy']='Y';
3.  
4.    label63.visible:=   DBPipeline['found_amphetamine']<>'Y';
5.    label64.visible:=   DBPipeline['found_amphetamine']='Y';

อธิบายคือ
   เราต้องการให้เครื่องหมายอะไรขึ้นตรงให้ก็นำ   label ไปว่างครับจากนั้นต้อง กำหนด font ให้เป็น webding  แล้วพิมพ์แสดงเป็น a  จะได้เครืองหมายถูก
จากนั้นก็ต้องจำให้ได้ว่า label อันที่เราทำนี้มันหมายเลขอะไร 

ต่อไปการทำงานก็แคต้องทำให้  visible  หรือไม่  โดยกำหนดเงื่อนไขตาม
DBPipeline['found_amphetamine']<>'Y'; 
อันนี้แล้วแต่ข้อมูลที่เราดึงมาจากหน้า sql






   label62.visible:=   DBPipeline['pregnancy']='Y';

[doramon]

โค๊ด: Delphi

1.   Label33.Visible := DBPipeline['Labour_Spontaneous'] = 'Y';
2.   Label36.Visible := DBPipeline['Labour_Induced'] = 'Y';
3.   Label38.Visible := DBPipeline['Labour_Augmentation'] = 'Y';  
4.  
5.   Label58.Visible := DBPipeline['Labour_Drug_MO'] = 'Y';  
6.   Label62.Visible := DBPipeline['Labour_Drug_Phenergan'] = 'Y';  
7.   Label66.Visible := DBPipeline['Labour_Drug_Pethidine'] = 'Y';  
8.   Label70.Visible := DBPipeline['Labour_Drug_Other'] = 'Y';  
9.    
10.   Label76.Visible := DBPipeline['Membrane_ARM'] = 'Y';  
11.   Label78.Visible := DBPipeline['Membrane_Spontancous'] = 'Y';  
12.  
13.   Label81.Visible := DBPipeline['Membrane_Clear'] = 'Y';  
14.   Label83.Visible := DBPipeline['Membrane_Mild'] = 'Y';  
15.   Label85.Visible := DBPipeline['Membrane_Moderate'] = 'Y';  
16.   Label87.Visible := DBPipeline['Membrane_Thick'] = 'Y';  
17.  
18.   Label108.Visible := DBPipeline['Placenta_Drug_Methergin'] = 'Y';  
19.   Label112.Visible := DBPipeline['Placenta_Drug_Other'] = 'Y';  
20.  
21.   if (DBPipeline['Infant_Abnormality'] = 'Y') then
22.   begin
23.     Label131.Visible := False ;
24.     Label133.Visible := True ;
25.   end
26.   else begin
27.     Label131.Visible := True  ;
28.     Label133.Visible := False ;
29.   end  ;
30.  
31.   Label136.Visible := DBPipeline['Infant_Help_O2Tubing'] = 'Y';  
32.   Label138.Visible := DBPipeline['Infant_Help_O2Bagcmask'] = 'Y';  
33.   Label140.Visible := DBPipeline['Infant_Help_O2ETTube'] = 'Y';  
34.  
35.   Label144.Visible := DBPipeline['Infant_Terramycin'] = 'Y';  
36.   Label146.Visible := DBPipeline['Infant_VitK1'] = 'Y';  
37.   Label148.Visible := DBPipeline['Infant_HBVac'] = 'Y';  
38.   Label150.Visible := DBPipeline['Infant_HBIG'] = 'Y';  
39.  
40.   if DBPipeline['Note_Effect'] = 'Y' then
41.   begin
42.     Label154.Visible := False;
43.     Label156.Visible := True;
44.   end else
45.   begin
46.     Label154.Visible := True;
47.     Label156.Visible := False;
48.   end ;
49.  
50.  

[nahos]

ขอบคุณที่นำสิ่งดี ๆ มาให้เสมอครับ

[anukul]

ขอบคุณมากครับ อ.อ๊อด
ผมลองตรวจสอบดู พบว่ามี script อยู่แล้วใน form แต่เจอปัญหาหลายจุดซึ่งคิดว่าเกิดจากการปรับปรุง code ของ ระบบห้องคลอด แต่ยังไม่ได้ปรับเปลี่ยนที่แบบฟอร์ม

1. มีการเพิ่มตาราง labor_drug ขึ้นมา ไว้สำหรับเก็บข้อมูลการให้ยา และยกเลิกการบันทึกข้อมูลการใช้ยาในตาราง labor (เดิมเก็บไว้ในตาราง labor) ทำให้รายงานไปหาข้อมูลไม่พบ ไม่ได้ดึงข้อมูลจาก labor_drug

2. ข้อมูลวิธีการคลอด (spont , induced ,) เดิมเก็บไว้ในฟิลด์แยกกัน  แต่ปรับเปลี่ยนเป็นเก็บไว้ในฟิลด์เดียว คือ mother_method  (เก็บค่าเป็น 1 2 หรือ 3) ทำให้การดึงข้อมูลมาพิมพ์รายงานไม่พบ

กำลังทดลองหัดเขียนใหม่อยู่ (ถ้ามีเวลา) แต่ถ้าใครปรับเสร็จแล้ว ขอยืมใช้ด้วยแล้วกันครับ

ขอบคุณมากครับ

[anukul]

อ.อ๊อด ช่วยแสดงให้ดูหน่อยครับ

[Manit]

แก้เสร็จแล้วขอด้วยนะครับ ผมเขียนรายงานไม่เป็น