منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار (/showthread.php?tid=20596)

الصفحات: 1 2

استفسار - فراس الغزي - 02-06-17

السلام عليكم ورحمة الله وبركاته 

بداية كل عام وانتم بالف خير رمضان كريم على كل العرب ان شاء الله  

ااخوان  راح ادخل في المباشر بدون مقدمات 

عندي  جدول اسسمه saking يحتوي على
الاسم / العمر/ التاريخ / الخدمة / الطبيب  السعر 

الي ابيه يا اخوان رجاءا وليس امرا  
ابي  كود يعمل الاتي 
لما اكتب اسم الدكتور بيطلع مجموع المبلغ الي حصل عليه من خلال تحويل اليه يعنيمثال 

1- زيد  18 سنة 1-6-2017 دكتورفراس 100$
2-عمر 20سنة 1-6-2017 دكتورعلي  150$
3ليلى 25 سنة1-6-2017 دكتور فراس 200$ 

لما اجياكتب اسم الدكتور في التكتست بوكس دكتور فراس بيطلع في تكسست بوكس اخر 300$ 
علما انا اعمل على MYsql  &vb.net2013 
اتمنى منكم المساعدةاخوان وفقكم الله لوفيحد عندوحل يساعدني 
وكل عاموانتم بالف خير

RE: استفسار - امحمد - 02-06-17

(02-06-17, 03:29 AM)فراس الغزي كتب : السلام عليكم ورحمة الله وبركاته 

بداية كل عام وانتم بالف خير رمضان كريم على كل العرب ان شاء الله  

ااخوان  راح ادخل في المباشر بدون مقدمات 

عندي  جدول اسسمه saking يحتوي على
الاسم / العمر/ التاريخ / الخدمة / الطبيب  السعر 

الي ابيه يا اخوان رجاءا وليس امرا  
ابي  كود يعمل الاتي 
لما اكتب اسم الدكتور بيطلع مجموع المبلغ الي حصل عليه من خلال تحويل اليه يعنيمثال 

1- زيد  18 سنة 1-6-2017 دكتورفراس 100$
2-عمر 20سنة 1-6-2017 دكتورعلي  150$
3ليلى 25 سنة1-6-2017 دكتور فراس 200$ 

لما اجياكتب اسم الدكتور في التكتست بوكس دكتور فراس بيطلع في تكسست بوكس اخر 300$ 
علما انا اعمل على MYsql  &vb.net2013 
اتمنى منكم المساعدةاخوان وفقكم الله لوفيحد عندوحل يساعدني 
وكل عاموانتم بالف خير
السلام عليكم اخي فراس  
ياريت توضح موضعك اكثر

RE: استفسار - فراس الغزي - 02-06-17

(02-06-17, 06:29 AM)امحمد كتب :
(02-06-17, 03:29 AM)فراس الغزي كتب : السلام عليكم ورحمة الله وبركاته 

بداية كل عام وانتم بالف خير رمضان كريم على كل العرب ان شاء الله  

ااخوان  راح ادخل في المباشر بدون مقدمات 

عندي  جدول اسسمه saking يحتوي على
الاسم / العمر/ التاريخ / الخدمة / الطبيب  السعر 

الي ابيه يا اخوان رجاءا وليس امرا  
ابي  كود يعمل الاتي 
لما اكتب اسم الدكتور بيطلع مجموع المبلغ الي حصل عليه من خلال تحويل اليه يعنيمثال 

1- زيد  18 سنة 1-6-2017 دكتورفراس 100$
2-عمر 20سنة 1-6-2017 دكتورعلي  150$
3ليلى 25 سنة1-6-2017 دكتور فراس 200$ 

لما اجياكتب اسم الدكتور في التكتست بوكس دكتور فراس بيطلع في تكسست بوكس اخر 300$ 
علما انا اعمل على MYsql  &vb.net2013 
اتمنى منكم المساعدةاخوان وفقكم الله لوفيحد عندوحل يساعدني 
وكل عاموانتم بالف خير
السلام عليكم اخي فراس  
ياريت توضح موضعك اكثر
مشكور اخي امحمد

التوضيح كالاتي 

اخي انا عندي برنامج خاص بالمرضى وفي  جدول في  قاعدةالبيانات  خاص بالمرضى  تاريخ المراجعة الطبيب المعالج اخر مراجعة العر الكلي الخصم الاجمالي الواجب الدفع  
المطلوب انا اريد ان اقوم مثلا لما اختار اسم دكتور معين بيطلع كم حالة تم التحويل اليه  ولكن ليس عدد الحالات  وانما الاجمالي المبالغ التي تم التحويل اليه يعني  مجموع  اجمالي المبالغ التي تم تحويلها للدكتور المعين 
وهذا طبعا بيكون 
فيه تكست بوكس اكتب فيه اسم الدكتور بيطلع الاجمالي بمقابله بتكست بوكس اخر 
اتمنى تكون الفكرة واضحة  اخي

RE: استفسار - محمود بكرى - 02-06-17

السلام عليكم اخي فراس الاستعلام كما قال المبدع alma2 ولاكن من وجهة نظري المتواضعة يفضل ان تنشيء جدول مستقل للاطباء به اسم الطبيب وكوده رقم مسلسل وتعدل جدول المرضي مع الخدمة بدل اسم الطبيب يكون كود الطبيب وتربط بين الجدولين بكود الطبيب __
** وياحبذا لو فعلت الاتي
1- جدول للاطباء (أسم الطبيب - كوده)
2- جدول المرضي (اسم المريض -السن- كود المريض(مثل رقم التعريف الوطني او اي كود مسلسل))
3-جدول الخدمات (كود الخدمة -اسم الخدمة - سعر الخدمة)
4- جدول الحركة (مسلسل- التاريخ-المبلغ-كود الخدمة-كود الطبيب-كود المريض)
طبعا لك ان تتخيل كم الاستعلامات المتاح فى هذا التصميم
واخيرا كل ما سبق متوقف على ما تريد
والله ولى التوفيق

RE: استفسار - فراس الغزي - 03-06-17

(02-06-17, 07:12 PM)محمود بكرى كتب : السلام عليكم اخي فراس الاستعلام كما قال المبدع alma2  ولاكن من وجهة نظري المتواضعة يفضل ان تنشيء جدول مستقل للاطباء به اسم الطبيب وكوده رقم مسلسل وتعدل جدول المرضي مع الخدمة بدل اسم الطبيب يكون كود الطبيب وتربط بين الجدولين بكود الطبيب __
** وياحبذا لو فعلت الاتي
1- جدول للاطباء (أسم الطبيب - كوده)
2- جدول المرضي (اسم المريض -السن- كود المريض(مثل رقم التعريف الوطني او اي كود مسلسل))
3-جدول الخدمات (كود الخدمة -اسم الخدمة - سعر الخدمة)
4- جدول الحركة (مسلسل- التاريخ-المبلغ-كود الخدمة-كود الطبيب-كود المريض)
طبعا لك ان تتخيل كم الاستعلامات المتاح فى هذا التصميم
واخيرا كل ما سبق متوقف على ما تريد
والله ولى التوفيق

شكرا لك  اخي اخي انا بصراحة جديد في الفيجوال بيسك  وحاب اتعلم  يعني حبيت اعرف السبب  وفعلا الي بتقولة  جميل  وسهل ولكن  مثل  ما قلت  لك  انا مبتدا في  هذا الامر  ولكن اخي  
انا بحثت في المواقع  الاجنبية ولقيت  هذا الكود  وارفق لك  الصورة  والكود  صورة الخطا  والكود  عسى وان  تنفعوني في ايجاد الحل  وفقكم الله  

   
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "' and '" & Txtdoctor.Text & "' AND '" & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone()

    End Sub

RE: استفسار - محمود بكرى - 03-06-17

واضح ان جملة الاستعلام خاطئة ولا توجد اسماء حقول
PHP كود :
Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "' and (ضع اسم حقل الدكتور)='" 
            & Txtdoctor.Text & "' AND (حقل مطلوب )='" 
            & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone() 


RE: استفسار - فراس الغزي - 03-06-17

(03-06-17, 02:15 AM)محمود بكرى كتب : واضح ان جملة الاستعلام خاطئة ولا توجد اسماء حقول
PHP كود :
Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "' and (ضع اسم حقل الدكتور)='" 
            & Txtdoctor.Text & "' AND (حقل مطلوب )='" 
            & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone() 

استاذمحمود شكرا لكن لكن المشكلة لازالت قائمة 
وهذا الكودبعد التعديل

   
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "'and(doctor)='" & Txtdoctor.Text & "' AND (datehjz )='" & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone()
    End Sub


RE: استفسار - محمود بكرى - 03-06-17

اخي فراس صعب التعامل بالكود فقد لكي افيدك ولاكن ممكن ان تجعل الرسالة تعليق وثم تعمل رسالة لاقتناص الخطاء كى نعرف ما هي المشكلة
اكتب الاتى فى الرسالة 
كود :
msgbox( ex.tostring)


RE: استفسار - فراس الغزي - 03-06-17

(03-06-17, 03:00 AM)محمود بكرى كتب : اخي فراس صعب التعامل بالكود فقد لكي افيدك ولاكن ممكن ان تجعل الرسالة تعليق وثم تعمل رسالة لاقتناص الخطاء كى نعرف ما هي المشكلة
اكتب الاتى فى الرسالة 
كود :
msgbox( ex.tostring)

اخي العزيز  المشكلة ان البرنامج لما اكتب اسم الدكتور والتاريخ بيظهر الرسالة الي تقول ان لا يجود اي شي لهذا الطبيب لهذا اليوم مع العلم انا ضفت سسجل جديد لهذا اليوم الان ونفس الشي واذا  ممكنواذا تسسمح لي اعطيك البرنامج كلو اخي مع قاعدة البيانات تشوف بنفس بنفسك اخي

RE: استفسار - محمود بكرى - 03-06-17

(03-06-17, 03:03 AM)فراس الغزي كتب :
(03-06-17, 03:00 AM)محمود بكرى كتب : اخي فراس صعب التعامل بالكود فقد لكي افيدك ولاكن ممكن ان تجعل الرسالة تعليق وثم تعمل رسالة لاقتناص الخطاء كى نعرف ما هي المشكلة
اكتب الاتى فى الرسالة 
كود :
msgbox( ex.tostring)

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