منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - المساعدة في بعض الاشياء البسيط في مشروعي هذا

السلام عليكم

في هذا المشروع اريد تعلم حاجتين وهما

في الداتا قريد فيو أثناء الكتابة أو اختيار المطلوب رفعه على الداتا قريد فيو يضاف في الاماكن المخصصة لها

عندكم في المشروع :
equpment
price
quantati
date

أثناء اضافتهم في الداتا قريد فيو ماذا يحصل :
price هذا سعر الحبة الواحدة
quantati الكمية
اذا تم اختيار حبتين في الداتاقريد فيو يضع حبتين ويقوم بكتابة سعرها الكلي للحبتين في خانة في الداتاقريد فيو اسمها unite ويكتب السعر الاجمالي للحبتين
------------------------------------------------
اما بخصوص quatati
يتم خفض لكل غرض تم استئجارة

هذا حاليا وتالي سوف اتعرف بعد الترجيع كيف يمكن استخدام الود نفسه بعد الترجيع في فورمة اخرى مع بعض التوضيحات سوف يتم شرحها لكم وشكرا

أين المشكلة مع الداتا قريد؟
كل ما في الأمر هو عملية ضرب الكمية في السعر لاخراج الاجمالي
تحتاج للتعامل مع حدث تغيير نص الخلية فقط وتفحص اذا كان رقم الخلية يشير الى انها خلية الكمية فقم بالعملية الحسابية

ممكن التعديل على المشروع الصغير التي تم ارفاقه وشرح مالذي عملته اخي ؟؟

وشكرا لك

هل من الممكن شباب التعديل عليه ليتطابق بما اريده ؟؟

اريد دمج الكود هذا لو سمحتم :

كود :

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)

اتمنى انكم ماتبخلون عليي بمعرفتكم في البرمجة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

0theghost0

محمد كريّم

0theghost0

0theghost0

0theghost0