BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: น้องใหม่ร้ายเหลือ ที่ สิงหาคม 28, 2006, 00:37:58 AM

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

อยากเรียนถาม เซียนรายงาน ครับ ว่า การเขียน Report ให้พิมพ์เครื่องหมายถูก หน้ารายการที่เราเลือกตอนบันทึกนั้น ทำอย่างไรครับ  ดูตัวอย่างที่พิมพ์ แล้วยังงงครับ  เป็นค่า a ไม่ทราบว่าหมายถึงอะไร
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: doramon ที่ สิงหาคม 28, 2006, 02:09:17 AM
ช่วยส่งไฟล์ รายงานมาให้ดูด้วยครับ

หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: anukul ที่ สิงหาคม 28, 2006, 23:23:23 PM
ฝาก อ.อ๊อด หรือ อ.นาจ ช่วยดูด้วย อยากทราบวิธีทำเหมือนกัน  ของ มะการักษ์ ก็ยังไม่ได้ปรับรายงานให้ห้องคลอดเลย ไม่ค่อยมีเวลา พอไปดูแล้วก็เจอปัญหาคล้ายๆกัน ตรงข้อมูลที่เป็น check box จะปรับแก้เองก็ยังไม่ค่อยชำนาญ รบกวนช่วยแนะนำด้วยครับ
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: anukul ที่ สิงหาคม 28, 2006, 23:30:41 PM
ตัวอย่างด้านล่างของรายงาน ที่บางข้อมูลมีการกาเครื่องหมายถูกให้ แต่บางข้อมูลไม่มีการกา (แม้ว่าจะบันทึก)
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: por ที่ สิงหาคม 28, 2006, 23:45:57 PM
อยากได้ในส่วนของ dialog box เลือช่วงวันที่ ที่ต้องการรายงานด้วยนะครับ อยากทราบวิธีนะครับ
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: doramon ที่ สิงหาคม 29, 2006, 09:24:39 AM
ทำแบบนี้ครับไม่ทราบว่าพอได้หรือเปล่าครับ 
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: doramon ที่ สิงหาคม 29, 2006, 09:36:19 AM
โค๊ด: 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';
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: doramon ที่ สิงหาคม 29, 2006, 09:46:09 AM
โค๊ด: 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.  
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: nahos ที่ สิงหาคม 29, 2006, 20:00:00 PM
ขอบคุณที่นำสิ่งดี ๆ มาให้เสมอครับ
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: anukul ที่ สิงหาคม 29, 2006, 22:26:50 PM
ขอบคุณมากครับ อ.อ๊อด
ผมลองตรวจสอบดู พบว่ามี script อยู่แล้วใน form แต่เจอปัญหาหลายจุดซึ่งคิดว่าเกิดจากการปรับปรุง code ของ ระบบห้องคลอด แต่ยังไม่ได้ปรับเปลี่ยนที่แบบฟอร์ม

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

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

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

ขอบคุณมากครับ
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: anukul ที่ กันยายน 07, 2006, 04:02:13 AM
อ.อ๊อด ช่วยแสดงให้ดูหน่อยครับ
หัวข้อ: Re: การพิมพ์รายงานที่มี check box ทำอย่างไงครับ
เริ่มหัวข้อโดย: Manit ที่ กันยายน 07, 2006, 19:59:47 PM
แก้เสร็จแล้วขอด้วยนะครับ ผมเขียนรายงานไม่เป็น  ;D