السلام وعليكم ورحمته الله وبركاتة
معي قاعده بيانات اسمها price وفيها 3 حقول partno - desc- price اريد عند ادخال رقم القطعة في التكست الاول يظهر البيانات في باقي التكست
جزاكم الله خير
كود :
Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
'فحص الاتصال بقاعدة البيانات
If SQL.conn.State = ConnectionState.Open Then
SQL.conn.Close()
End If
SQL.conn.Open()
Dim cmd As New SqlCommand()
cmd.Connection = SQL.conn
cmd.CommandText = "select * from price where partno =@partno"
cmd.Parameters.AddWithValue("@partno ", TextBox1.Text)
Dim dr As SqlDataReader = cmd.ExecuteReader
While dr.Read
desc.Text = dr.Item(2)
price.Text = dr.Item(3)
End While
dr.Close()
SQL.conn.Close()
If Not QTY.text = "" Then
total.text = QTY.text * TextBox4.Text
Else
total.text = TextBox4.Text
End If
End Sub
جزاك الله الف خير وجعلة في ميزان حسناتك ولكن يطلع الخطا التالي
يوجد فراغ بين part و no
يجب ان تكون partno بدوف فراغ اخي
قم برفع المثال اذا اردت ساعدل عليه
صديقي الطؤيقه التي تستخدمها خاطئه ولا يمكنك عمل نظام مشتريات هكذا
تحتاج datagridview لعمل ذلك
قمت باضافه فورم جديد لمشروعك و اضفت datagridview و قمت بغمل ما تريد
فعند كتابه part no في عمود ال part no و ضغط enter سوف يقوم بتعبئه الوصف و السعر في باقي السطر و يضيف سطر جديد لاضافه جديده وهكذا
وكذلك يمكنك تغير الكميه ، الكميه تكون 1 عند اضافه جديده و يمكنك تغيرها بالظغط مرتيت عليها و كتابه الكميه المراده و عند الضغط على enter
ستتغير الكميه و ويحسب ال total حسب الكميه
اتمنا اني افدتك .
جزاك الله الف الف خير اخي شكرا
سؤال فقط اريد ان احفظ في قاعده البيانات عن طريق الداتا جريد واريد الاكمال التلقائي لخلية الpartno
سؤال اخر اخي اريد اظهار رساله في حال نسي المستخدم اي حقل فارغ في التكست ؟
وفي حال ادا احد الحقول ليس موجود في قاعده البيانات يظهر رسالة تطلب نه هل يريد ادخال قطعة جديدة ويفتح فورم جديد فية PART NO - DESCREPTION -PRICE
تفضل صديقي قمت لك بعمل المطلوب بأستثناء عمليه الاضافه وهو امر بسيط جدا قم انت بتعلم الصريقه و عمله
يجب ان تخطاء و تتعب لكي تتعلم
عكلن اتمنى اني افدتك
تم عمل التكمله التلقائيه لرقم المنتج
تم عمل تفقد لرقم المنتج اذا لم يكن مسجل ليظهر فوؤم جديد للاضافه
تم عمل رساله اذا ترك رقم المنتج فارغ
أقتراحات :
عليك اضافه عمود للكميه الموجوده لكل صنف و تاؤيخ الادخال
وهناك العديد من الامور
اذا كان الهدف هو التعلم واصل صديقي والله الموفق .
جزاك الله الف خير اخي وانا والله اننا اتعلم بقدر المستطاع والهدف منه التعلم وفي نفس الوقت لانهي عمل الشركة الا انا شغال فيها طلبو مني عمل الفور دا مؤقت للفواتير بسبب نهائية السنة وسامحنا ادا ازعجتك وشكرا لك