منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

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

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

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

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

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

(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
اتمنى منكم المساعدةاخوان وفقكم الله لوفيحد عندوحل يساعدني
وكل عاموانتم بالف خير

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

(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
اتمنى منكم المساعدةاخوان وفقكم الله لوفيحد عندوحل يساعدني
وكل عاموانتم بالف خير
السلام عليكم اخي فراس
ياريت توضح موضعك اكثر

مشكور اخي امحمد

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

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

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

(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

واضح ان جملة الاستعلام خاطئة ولا توجد اسماء حقول

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() 

(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

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

كود :

msgbox( ex.tostring)

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

كود :

msgbox( ex.tostring)

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

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

كود :

msgbox( ex.tostring)

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

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

الصفحات : 1 2