[فراس الغزي]

(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