12-01-18, 07:03 PM
هذا كود لجلب الاحصائيات من الاخوة الغاليين احمد منصور والاخ myalsailamy والاخ ahmedabdelaliem
ارجو التعديل عليه
ملاحظة في جملة where
Psex=1 And FPhelth=2
حيث ان اFPhelth حالة المريض
1 =عايش
2 =متوفي
وكذلك Psex والتي هي الجنس
1= ذكر
2 =انثى
معلومة :-
zTotalMale=الاشخاص ذكور
zTotalFemal =الاشخاص اناث
zTDM = الاشخاص المتوفين ذكور
zTDF = الاشخاص المتوفين اناث
هذا ولكم شكري
ارجو التعديل عليه
ملاحظة في جملة 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