+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
فورم البحث عن الفواتير - خالد كامل1 - 30-08-19
اخوانى اسعدكم الله بكل ما تحبونه من خير ورزق وبشر وفرح
اخوانى لدى فورم فيه فيه كل الفواتير واسميه الحث عن الفواتير
ويأخذ قيمه من جدول راس الفاتوره
فماهى اسهل طريقه او كود لنقل بيانات الفاتوره سواء من راس الفاتوره او من تفاصيل الفاتوره لادراجها فى فاتوره الاصليه للتعديل الفاتوره او حذفها
ارجو اسهل طريقه وبدون تعقيد ولكم منى جزيل الشكر
RE: طلب ارجوكم اخوانى واساتذتى - اسامه الهرماوي - 30-08-19
السلام عليكم...
أن تجعل للمواد المرتبطة بالفاتورة (رقم_الفاتورة) ثم عند إرادة التعديل يتم جلب بيانات الفاتورة بهذا الكودلا ويجب أن يكون هناك جدولين جدول للتعديل وجدول به البيانات ويمكن الإستغناء عن اسما الحقول بالنجمة(*).
كود :
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "INSERT INTO basket SELECT كود_البيع,الباركود,صنف_المادة,اسم_المادة,الوحدة,سعر_الشراء,سعر_البيع,الكمية,إجمالي_السعر,ملحوظة,الربح,المستخدم,الوقت,اليوم,التاريخ FROM sale Where كود_البيع=" & Val(TextBox3.Text) & ""
cmd.ExecuteNonQuery()
cmd.CommandText = "Delete From sale where كود_البيع=" & Val(TextBox3.Text) & ""
cmd.ExecuteNonQuery()
con.Close()RE: طلب ارجوكم اخوانى واساتذتى - خالد كامل1 - 30-08-19
استاذى استاذ اساكمه اشكرك على تفاعلك السريع معى
ولكنى اما امر واقع
الان لدى فورم البحث وفورم الفاتوره واريد جلبيانات الفاتوره من فورم البحث وادراجها فى التكستات والداتا جريد فهل من الممكن ان افعل ذلك ومن فضلك بطريقه سهله
RE: طلب ارجوكم اخوانى واساتذتى - ابراهيم ايبو - 30-08-19
السلام عليكم اخي الكريم
تعدبل الفاتوة او حذف الاصناف المدرجة يتم قبل حفظ الفاتورة
اما وان تم الحفظ فلماذا التعدبل؟ ولماذا وجد شيئ اسمه مرتجع بيع؟أو مرتجع شراء؟
الفاتورة بعد الحفظ تتعلق بها جداول اخرى (جدول المنتجات - المخزن - حساب العملاء ان كان البيع اجل -الارباح و.... حسب البرنامج)
التعدبل يتم بفاتورة مرتجع هذا هو الصواب على ما اظن وحذف فاتورة محفوظة ينتج اخطاء في الحسابات
عدل واحذف قبل الحفظ
RE: طلب ارجوكم اخوانى واساتذتى - خالد كامل1 - 30-08-19
(30-08-19, 10:28 PM)ابراهيم ايبو كتب :احسنت والله وانا مع الفكرة قلبا وقالباولكنى اريدها من باب التعلم كيفيه جلب بينات الفاتوره من فورم البحث عن الفواتيرالسلام عليكم اخي الكريمتعدبل الفاتوة او حذف الاصناف المدرجة يتم قبل حفظ الفاتورةاما وان تم الحفظ فلماذا التعدبل؟ ولماذا وجد شيئ اسمه مرتجع بيع؟أو مرتجع شراء؟الفاتورة بعد الحفظ تتعلق بها جداول اخرى (جدول المنتجات - المخزن - حساب العملاء ان كان البيع اجل -الارباح و.... حسب البرنامج)التعدبل يتم بفاتورة مرتجع هذا هو الصواب على ما اظن وحذف فاتورة محفوظة ينتج اخطاء في الحساباتعدل واحذف قبل الحفظ
وكنت اريد سؤال اخر
هل من الممكن جلب بينات الفاتوره من الجداول فقط من فورم به رقم الفاتوره فقط وماهى الطريقه
اتمنى ان تكون هناك طريقه فسوف توفر الجهد والعناء الكثير سواؤ كانت بداتا ريدر او غيرها
RE: طلب ارجوكم اخوانى واساتذتى - ابراهيم ايبو - 30-08-19
السلام عليكم
المشكلة الاولى الواجب تسويتها هي الجداول والعلاقات بينها
فمثلا عندما تنشئ فاتورة ستجلب من جدول العملاء اسم العميل وبعض بياناته وستضعها في راس الفاتورة مع رقم الفاتورة(المعرف) وتاريخها
وستقوم لاضافة المنتجات الى تفاصيل الفاتورة
لنناقش الامر في تفاصيل الفاتورة :
يمكن للفاتورة الواحدة ان تجوي اكثر من منتج
كذلك يمكن للمنتج الواحد ان يتواجد في اكثر من فاتورة
هنا ستكون العلاقة بين جدول المنتجات وجدول المبيعات(الفاتورة) علاقة متعدد لمتعدد وهذه العلاقة لا ننشئها
بل نعمد الى انشاء جدول ثالث فيه مفاتيح فرعية لجدول المنتجات وجدول المبيعات(الفاتورة) نسميه جدول تفاصيل الفاتورة
عندها بمكننا الاستعلام برقم الفاتورة او تاريخها وجلب تفاصيلها
اتمنى ان تدرس الامر جيدا قبل القيام بما ترغب به
اليك هذ الفيديو سيشرح لك علاقة الجداول
https://www.youtube.com/watch?v=JWUaBJxBraA&list=PLwj1YcMhLRN2Y5O_olVfMT7dFe-INcWQT&index=3
RE: طلب ارجوكم اخوانى واساتذتى - خالد كامل1 - 30-08-19
(30-08-19, 11:18 PM)ابراهيم ايبو كتب : السلام عليكماخىواعلم بعلاقات الجداول جيدا وانا قد نفزت علاقة الجداول جيدا ولكنى اريد كتابه الكود لجلب من الجدول الى الداتا ججريد بمعنى جلب بيانات تفاصيل الفاتوره الى الداتا جريد الخاصه بالفاتوره للحذف
المشكلة الاولى الواجب تسويتها هي الجداول والعلاقات بينها
فمثلا عندما تنشئ فاتورة ستجلب من جدول العملاء اسم العميل وبعض بياناته وستضعها في راس الفاتورة مع رقم الفاتورة(المعرف) وتاريخها
وستقوم لاضافة المنتجات الى تفاصيل الفاتورة
لنناقش الامر في تفاصيل الفاتورة :
يمكن للفاتورة الواحدة ان تجوي اكثر من منتج
كذلك يمكن للمنتج الواحد ان يتواجد في اكثر من فاتورة
هنا ستكون العلاقة بين جدول المنتجات وجدول المبيعات(الفاتورة) علاقة متعدد لمتعدد وهذه العلاقة لا ننشئها
بل نعمد الى انشاء جدول ثالث فيه مفاتيح فرعية لجدول المنتجات وجدول المبيعات(الفاتورة) نسميه جدول تفاصيل الفاتورة
عندها بمكننا الاستعلام برقم الفاتورة او تاريخها وجلب تفاصيلها
اتمنى ان تدرس الامر جيدا قبل القيام بما ترغب به
اليك هذ الفيديو سيشرح لك علاقة الجداول
https://www.youtube.com/watch?v=JWUaBJxBraA&list=PLwj1YcMhLRN2Y5O_olVfMT7dFe-INcWQT&index=3
RE: طلب ارجوكم اخوانى واساتذتى - ابراهيم ايبو - 31-08-19
السلام عليكم
اذا كنت قد نفذت ماسبق
الان عندك في جدول تفاصيل الفاتورة سجلات كثيرة وكل سجل له رقم محتلف لكن هناك منتجات لها رقم مشترك هو رقم الفاتورة
فم بانشاء جملة استعلام من جدول التفاصيل تجلب لك كل الحقول بشرط رقم الفاتورة واملا بها الداتا تابل ...
ثم اجعل الداتاسورس للداتاغرايد هو الداتاتابل مثل استعلام جلب البيانات العادي
او يمكنك جلب خقول معبنة من جدول التفاصيل وحقول من جدول العملاء في هذه الحالة اذكر اسم الجدول دوت اسم الحقل هذا عائد للاستعلام الذي ترغب به
RE: طلب ارجوكم اخوانى واساتذتى - خالد كامل1 - 31-08-19
(31-08-19, 12:04 AM)ابراهيم ايبو كتب : السلام عليكم
اذا كنت قد نفذت ماسبق
الان عندك في جدول تفاصيل الفاتورة سجلات كثيرة وكل سجل له رقم محتلف لكن هناك منتجات لها رقم مشترك هو رقم الفاتورة
فم بانشاء جملة استعلام تجلب لك كل الحقول بشرط رقم الفاتورة واملا بها الداتا تابل ... ثم اجعل الداتاسورس للداتاغرايد هو الداتاتابل مثل جلب البيانات
او يمكنك جلب خقول معبنة من جدول التفاصيل وحقول من جدول العملاء هذا عائد للاستعلام الذي ترغب به
كل هذا فعلته ولكن يقف معى جلبها من الاستعلام الى الداتا جريد فيو التى فى الفاتوره
للتاكيد اخى الاستعلام موجود فى فورم البحث وليس فورم الفاتوره يعطينى هذا الخطأ عند التنفيذ
وهذا الكود الذى استخدمه فهل هناك شئ ينقصه او خطأكود :
Dim dt2 As New DataTable
Dim da1 As New OleDbDataAdapter
da1 = New OleDbDataAdapter("select entagcode, khamacode, khamaname, khamaprice, kamaqt, kamatotal from entagdet where entagcode=" & DGVSEARCH.CurrentRow.Cells(0).Value & "", con)
da1.Fill(dt2)
ENTAG.Text = " فاتوره تصنيع رقم " & DGVSEARCH.CurrentRow.Cells(0).Value
ENTAG.dgv_ENTAGDET.DataSource = dt2
ENTAG.Show()RE: فورم البحث عن الفواتير - ابراهيم ايبو - 31-08-19
السلام عليكم
اخي خالد الدتاغرايد فارغة لايوجد فيها بيانات وانت في جملة الاستعلام تضع الشرظ السجل الحالي العمود صفر من الداتاغرايد(حتما لايوجد قيمة تسند)
اجعل الشرط ياخذ قيمته من مربع نص حبث تضع فيه رقما يمثل رقم الفاتورة عندها سيجلب لك كل السجلات التي تحمل رقم الفاتورة ويظهرها في الداتاغرايد