+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا (/showthread.php?tid=21548)
المساعدة في بعض الاشياء البسيط في مشروعي هذا - 0theghost0 - 01-09-17
السلام عليكم
في هذا المشروع اريد تعلم حاجتين وهما
في الداتا قريد فيو أثناء الكتابة أو اختيار المطلوب رفعه على الداتا قريد فيو يضاف في الاماكن المخصصة لها
عندكم في المشروع :
equpment
price
quantati
date
أثناء اضافتهم في الداتا قريد فيو ماذا يحصل :
price هذا سعر الحبة الواحدة
quantati الكمية
اذا تم اختيار حبتين في الداتاقريد فيو يضع حبتين ويقوم بكتابة سعرها الكلي للحبتين في خانة في الداتاقريد فيو اسمها unite ويكتب السعر الاجمالي للحبتين
------------------------------------------------
اما بخصوص quatati
يتم خفض لكل غرض تم استئجارة
هذا حاليا وتالي سوف اتعرف بعد الترجيع كيف يمكن استخدام الود نفسه بعد الترجيع في فورمة اخرى مع بعض التوضيحات سوف يتم شرحها لكم وشكرا
RE: المساعدة في بعض الاشياء البسيط في مشروعي هذا - محمد كريّم - 02-09-17
أين المشكلة مع الداتا قريد؟
كل ما في الأمر هو عملية ضرب الكمية في السعر لاخراج الاجمالي
تحتاج للتعامل مع حدث تغيير نص الخلية فقط وتفحص اذا كان رقم الخلية يشير الى انها خلية الكمية فقم بالعملية الحسابية
RE: المساعدة في بعض الاشياء البسيط في مشروعي هذا - 0theghost0 - 03-09-17
ممكن التعديل على المشروع الصغير التي تم ارفاقه وشرح مالذي عملته اخي ؟؟
وشكرا لك
RE: المساعدة في بعض الاشياء البسيط في مشروعي هذا - 0theghost0 - 04-09-17
هل من الممكن شباب التعديل عليه ليتطابق بما اريده ؟؟
RE: المساعدة في بعض الاشياء البسيط في مشروعي هذا - 0theghost0 - 06-09-17
اريد دمج الكود هذا لو سمحتم :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value Is Nothing Then Exit For
Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] - @Equ_Qantity WHERE Equ_ID=@Equ_ID", conn)
cmd.Parameters.AddWithValue("@Equ_Qantity", TextBox8.Text)
cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
cmd.ExecuteNonQuery()
End Using
Next
conn.Close()
End Usingكود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value Is Nothing Then Exit For
Dim sql As String =
"INSERT INTO [Rent]" &
"( Cus_ID, Cus_Name, Cus_Private_Number, Cus_Address, Cus_Car, Cus_Telephone_Number, Cus_Balance, Equ_Name, Equ_Price, Equ_Qantity, Rent_Date )" &
"VALUES" &
"( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Cus_Address, @Cus_Car, @Cus_Telephone_Number, @Cus_Balance, @Equ_Name, @Equ_Price, @Equ_Qantity, @Rent_Date )"
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Car", TextBox4.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Balance", TextBox6.Text.ToString)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Price", row.Cells(1).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
cmd.Parameters.AddWithValue("@Rent_Date", DateTimePicker1.Value.ToString)
cmd.ExecuteNonQuery()
End Using
Next
conn.Close()
End Using
MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)