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
10-11-17, 10:26 PM (آخر تعديل لهذه المشاركة : 10-11-17, 10:28 PM {2} بواسطة Rabeea Qbaha.)
صديقي الطؤيقه التي تستخدمها خاطئه ولا يمكنك عمل نظام مشتريات هكذا
تحتاج datagridview لعمل ذلك
قمت باضافه فورم جديد لمشروعك و اضفت datagridview و قمت بغمل ما تريد
فعند كتابه part no في عمود ال part no و ضغط enter سوف يقوم بتعبئه الوصف و السعر في باقي السطر و يضيف سطر جديد لاضافه جديده وهكذا
وكذلك يمكنك تغير الكميه ، الكميه تكون 1 عند اضافه جديده و يمكنك تغيرها بالظغط مرتيت عليها و كتابه الكميه المراده و عند الضغط على enter
ستتغير الكميه و ويحسب ال total حسب الكميه
اتمنا اني افدتك .
جزاك الله الف خير اخي وانا والله اننا اتعلم بقدر المستطاع والهدف منه التعلم وفي نفس الوقت لانهي عمل الشركة الا انا شغال فيها طلبو مني عمل الفور دا مؤقت للفواتير بسبب نهائية السنة وسامحنا ادا ازعجتك وشكرا لك