تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تعديل كود التالي لجذب الذكور الاناث (متوفين واحياء)
#1
هذا كود لجلب الاحصائيات من الاخوة الغاليين احمد منصور  والاخ 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
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله
اهلا بك اخي الحبيب awidan76
نسأل الله حسن الختام و ان يرحم موتانا و موتى جميع المسلمين
آمين يا رب العالمين
بداية احب ان اتوجه بالشكر و الحب و الامتنان لأخواني الكرام الذين ذكرتهم
و المذكور اسماؤهم في التوقيع هم معلميني ايضاً
ولهم عليّ فضل كبير و كنت وما زلت اتعلم منهم
و لهم وقار بيننا اسأل الله ان يحفظهم و أن يغفر لهم و يرحمهم أجمعين.
اتمنى ان تسامحني على عدم التركيز
بعد قرائتي للكود الموجود امامنا وجدت بأنه بالفعل يأتي بالمجاميع
( ذكور ، اناث ) ، ( احياء ، اموات ) .
لكن ما المطلوب بالتحديد لاقوم باضافته لك في الكود .
واذا كان بالامكان ارفاق قاعدة البيانات ايضا ستقرّب لنا الصورة اكثر
بالتوفيق
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: عبد العزيز البسكري , awidan76
#3
ياتي بالمجاميع في الاجمالي

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

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


برفع مثال لكي اوضح لك اكثر اخي
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#4
اخي هذا الملف وفيه نفس الجداول والكود 

الله يحفظك

.rar   hospital.rar (الحجم : 75.37 ك ب / التحميلات : 34)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله و بركاته
اهلا بك اخي الكريم
ما المطلوب بالتحديد ؟
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: awidan76
#6
المطلوب عرض في جريد الحقول التالية :
اسم المحافظ ، العدد الكلي، عدد الذكور، عدد الاناث،متوفين ذكور متوفين اناث بناء على التاريخ
(تاريخ الخروج)

الله يحفظك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

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

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



وهذا الملف :


.rar   2hospital.rar (الحجم : 75.39 ك ب / التحميلات : 28)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#8
اخي هل وصلت لك الفكرة ؟
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#9
بالضبط اخي عويدان
انا اسف على عدم التركيز
هذا حالي هذه الايام
لا استطيع التركيز
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: awidan76
#10
خذ راحتك اخي العزيز امير الزبيدي

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

احترمك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم