منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فورم البحث عن الفواتير - نسخة قابلة للطباعة

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

الصفحات: 1 2

RE: فورم البحث عن الفواتير - خالد كامل1 - 31-08-19

(31-08-19, 01:28 AM)ابراهيم ايبو كتب : السلام عليكم
اخي خالد الدتاغرايد فارغة لايوجد فيها بيانات وانت في جملة الاستعلام تضع الشرظ السجل الحالي العمود صفر من الداتاغرايد(حتما لايوجد قيمة تسند)
اجعل الشرط ياخذ قيمته من مربع نص حبث تضع فيه رقما يمثل رقم الفاتورة عندها سيجلب لك كل السجلات التي تحمل رقم الفاتورة ويظهرها في الداتاغرايد
احسنت يا استاذى والله بارك الله فيك وفى عمرك وفى كل ما تحب
اريد حذف الفاتوره بتافاصيلها من الداتا ست او بمعنى اخر من الجدول علما بان هناك علاقه بين راس الفاتوره وتفاصيلها ولك منى جزيل الشكر

RE: فورم البحث عن الفواتير - ابراهيم ايبو - 31-08-19

السلام عليكم اخي خالد 
ستحذف ايضا بنفس شرط الجلب (رقم الفاتورة)
كود الحذف سيحتوي على كودين حذف  :
 حذف من جدول التفاصيل اولا بشرط رقم الفاتورة
ثم حذف الفاتورة بنفس الشرظ من جدول الفواتير
ملاحظة هامة: ان  كنت تفتح الاتصال وتغلقه نفذ الفتح والاغلاق مرة واحدة داخل كود الحذف افتح الاتصال ونفذ جملة الحذف الاولى
ثم نفذ جملة الحذف الثانية بعدها اغلق الاتصال
تبقى مشكلة المخزن والحسابات هذه مشكلتك قلت لك ذلك سابقا كيف لا أعلم
اليك الكود 
كود :
Private Sub Btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Delete.Click
       'Txt_FaturaNumber.text  نفترض ان مربع النص لرقم الفاتورة اسمه
       ' التحقق من وجود رقم الفاتورة
       Try
           If Txt_FaturaNumber.Text = "" Then
               MsgBox("من فضلك ادخل رقم الفاتورة", MsgBoxStyle.Critical, Title:="Error")
               Exit Sub
           Else

               If MessageBox.Show("هل انت متأكد من حذف السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                   'Dim cmd As New OleDbCommand()

                   'cmd = New OleDbCommand("Delete from [جدول تفاصيل الفاتورة] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & ")", con)
                   'con.Open()
                   'cmd.ExecuteNonQuery()
                   'cmd.Dispose()

                   'cmd = New OleDbCommand("Delete from [جدول الفواتير] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & "')", con)
                   'cmd.ExecuteNonQuery()
                   'cmd.Dispose()

                   MessageBox.Show("تم الحذف بنجاح؟", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Else
                   Exit Sub
               End If
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub