แก้ไขรายงานการคลอดให้แล้วครับ

[naj]

ก่อนนำไปใช้ลองทดสอบดูก่อนนะครับ ผืดพลาดตรงไหนก็แจ้งให้ทราบด้วยนะครับจะแก้ให้ครับ
มีปัญหานิดหน่อยสำหรับลูกคนที่ 2 เนื่องจากผมเลือกขนาดเป็น a4 หาที่วางไม่ได้จึงต้องทำเป็น CUSTOM -REPORT
อาจจะไม่สะดวกนักเวลาที่ใช้
กำลังหาวิธีที่จะให้แสดงในหน้าเดียวกันครับ

[naj]

ตัวอย่าง code ที่ใช้ครับ
 

โค๊ด: Delphi

1. begin
2.  
3.   Label33.Visible := DBPipeline['mother_method'] = '1';
4.   Label36.Visible := DBPipeline['mother_method'] = '2';
5.   Label38.Visible := DBPipeline['mother_method'] = '3';
6.  
7.   Label58.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
8.   'and labordrugtype="1" and labordrugname like"MO gr1/6" ')<>0;
9.   Label62.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
10.   'and labordrugtype="1" and labordrugname like"Phenergan 50 mg" ')<>0;
11.   Label66.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
12.   'and labordrugtype="1" and labordrugname like"Pethidine 50 mg" ')<>0;
13.   Label70.Visible  := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
14.   'and labordrugtype="1"  and ((labordrugname not like "MO gr1/6")  and (labordrugname not like "Phenergan 50 mg") '+
15.   ' and  (labordrugname not like "Pethidine 50 mg") ) ')<>0;
16.    
17.   Label76.Visible :=DBPipeline['membrane_arm_method']  = '1';
18.   Label78.Visible := DBPipeline['membrane_arm_method'] = '2';
19.  
20.   Label81.Visible := DBPipeline['membrane_descrip'] = '1';
21.   Label83.Visible := DBPipeline['membrane_descrip']  = '2';
22.   Label85.Visible := DBPipeline['membrane_descrip']  = '3';
23.   Label87.Visible := DBPipeline['membrane_descrip'] = '4';
24.  
25.   Label108.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
26.   'and labordrugtype="2" and labordrugname like"Methergin 1 amp." ')<>0;
27.   Label112.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
28.   'and labordrugtype="2" and labordrugname  not like"Methergin 1 amp." ')<>0;
29.  
30.   if (DBPipeline['Infant_Abnormality'] = 'Y') then
31.   begin
32.     Label131.Visible := False ;
33.     Label133.Visible := True ;
34.   end
35.   else begin
36.     Label131.Visible := True  ;
37.     Label133.Visible := False ;
38.   end  ;
39.  
40.   Label136.Visible := DBPipeline['Infant_Help_O2Tubing'] = 'Y';  
41.   Label138.Visible := DBPipeline['Infant_Help_O2Bagcmask'] = 'Y';  
42.   Label140.Visible := DBPipeline['Infant_Help_O2ETTube'] = 'Y';  
43.  
44.   Label144.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
45.   'and labordrugtype="3" and infant_id="1" and labordrugname like"Terranmycin &#187;&#233;&#210;&#194;&#181;&#210;" ')<>0;
46.   Label146.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
47.   'and labordrugtype="3" and infant_id="1" and labordrugname like"vit K1" ')<>0;
48.   Label148.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
49.   'and labordrugtype="3" and infant_id="1" and labordrugname like"HB vac 0.5 ml." ')<>0;
50.   Label150.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
51.   'and labordrugtype="3" and infant_id="1" and labordrugname like"HBIG 0.5 ml." ')<>0;
52.  
53.   if DBPipeline['Note_Effect'] = 'Y' then
54.   begin
55.     Label154.Visible := False;
56.     Label156.Visible := True;
57.   end else
58.   begin
59.     Label154.Visible := True;
60.     Label156.Visible := False;
61.   end ;
62.  
63.  
64. end;                  
65.  

[Khuad]

....ขอบคุณ อ.นาจครับ  ขอเก็บไว้ทดสอบด้วยคนครับ....  .....

มีปัญหานิดหน่อยสำหรับลูกคนที่ 2

....ถ้ามีลูกคนเดียวไม่เป็นไรนะครับ  อิ อิ อิ.....     ....

[jdadmin1]

  ขอ custom_form คนที่3 ด้วยครับ อ.นาจ บังเอิญน้ามีลูก 3 คนกลัวลูกคนเล็กมันจะเสียใจ....5555...

[vios1909]

ขอ custom_form คนที่3 ด้วยครับ อ.นาจ บังเอิญน้ามีลูก 3 คนกลัวลูกคนเล็กมันจะเสียใจ....5555...

[naj]

แก้ไขเพี่มเติม ตามรูปครับ

[naj]

สำหรับน้า (jdadmin1) ครอบครัวใหญ่ อิจฉาจังมีลูกต้อง สามคน  :Dคงต้องรอ อ.mn เพิ่มฟอร์มการบันทึกสำหรับลูกคนที่ 3 ก่อนนะครับ

[Khuad]

....Thank you อย่างแรง & หลาย ๆ ครับ อ.นาจ.... .....

[bbb3]

ขอบคุณมากครับอาจารย์naj

[golf_win]

ขอบคุณ อ.นาจ ที่สุดๆ 

[A ROON CHAI]

ขอบฯแล้วขอบฯอีก หลายๆหนเลยครับ
ถ้าได้รายงานสรุปการคลอดด้วยละก้อ แจ่ม! จะขอบฯอีกหลายหนหละ

[wiphusit]

ขอบคุณครับ