+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 SubRE: تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء) - 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
صعب والله ماعرفت حاولت وحاولت مافي فائدة