منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) (/showthread.php?tid=23292)



تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 12-01-18

هذا كود لجلب الاحصائيات من الاخوة الغاليين احمد منصور  والاخ myalsailamy والاخ ahmedabdelaliem
ارجو التعديل عليه 
ملاحظة في جملة where 
Psex=1 And FPhelth=2
حيث ان اFPhelth حالة المريض 
1 =عايش 
2 =متوفي 
 وكذلك Psex والتي هي الجنس  
1= ذكر 
2 =انثى


معلومة :- 
zTotalMale=الاشخاص ذكور 
zTotalFemal =الاشخاص اناث
zTDM = الاشخاص المتوفين ذكور 
zTDF = الاشخاص المتوفين اناث
هذا ولكم شكري 
كود :
Private Sub Form_Load()
Call ConnectionDatabase
Me.Height = 3690
Me.Width = 10830
End Sub
Private Sub Command1_Click()
'On Error Resume Next
Dim zTotalFemal As String
Dim zTotalMale As String
Dim zTDM As String
Dim zTDF As String
Dim Too As Date
Dim from As Date
from = Format(DTPicker1, "mm/dd/yyyy")
Too = Format(DTPicker2, "mm/dd/yyyy")

zTotalMale = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 1 And FPhelth <>2 And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"
zTDM = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 1 And FPhelth=2  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"

zTotalFemal = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 2 And FPhelth <>2 And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"
zTDF = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 2 And FPhelth=2  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"


Set RS2 = New ADODB.Recordset

 
RS2.Open "Select almohafz.mohID ,almohafz.mohName, Count(Pemr) as Total," & zTotalFemal & " as Totalfemal," & zTotalMale & " as Totalmale," & zTDM & " as RTDM," & zTDF & " as RTDF  FROM TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName", Db, adOpenStatic, adLockOptimistic


Set DataGrid1.DataSource = RS2
End Sub



RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 13-01-18

ياتي بالمجاميع في الاجمالي

اما في
احياء( ذكور اناث)
اموات ( ذكور اناث )

يعطينا يعطينا ارقام ونفس الاقام يوزعها


برفع مثال لكي اوضح لك اكثر اخي


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 13-01-18

اخي هذا الملف وفيه نفس الجداول والكود 

الله يحفظك
[attachment=16692]


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 13-01-18

المطلوب عرض في جريد الحقول التالية :
اسم المحافظ ، العدد الكلي، عدد الذكور، عدد الاناث،متوفين ذكور متوفين اناث بناء على التاريخ
(تاريخ الخروج)

الله يحفظك


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 13-01-18

اخي الغالي 
هذه الصورة من المثال بعد ان حذفت كود 
FROM TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID

ظهرت لي نتائج ولكن ليست صحيحة كما في الصورة :- 
[attachment=16695]



وهذا الملف :

[attachment=16696]


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 14-01-18

اخي هل وصلت لك الفكرة ؟


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 14-01-18

خذ راحتك اخي العزيز امير الزبيدي

شكرا على تفاعلك معي

احترمك


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 15-01-18

اولا حياك الله اخي امير الزبيدي 
اتمنى ان تكون بصحة وعافية 
اما بخصوص PGov 
هذا الحقل هو رقم المحافظة في جدول المريض


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 15-01-18

Help help help


RE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - awidan76 - 16-01-18

صعب والله ماعرفت حاولت وحاولت مافي فائدة