تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج تعديل الاكواد .
#1
السلام عليكم

الكود وظيفته فقط الحفظ واريد اضافة عليه بعض الاشياء الجديدة

من ضمنها ان الكمية الموجودة لغرض معين 10 حبات
جاء زبون يشتري 5 حبات
البرنامج يطرح 10 - 5 = 5
فيقرأ البرنامج المتوفر فقط 5 حبات

والشيء الثاني بعد عملية الطرح واضهار المتوفر الحالي
جاء زبون اخر ويريد شراء نفس الغرض 6 حبات
فالبرنامج يقوم بإظهار مسج ويخبرك بان المتوفر 5 حبات ولا يستطيع تنفيذ العملية بسبب عدم توفر 6 حبات

الكود الى اريد تعديله :

كود :
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)
   End Sub
الرد }}}}
تم الشكر بواسطة:
#2
اعمل دالة تعيد لك الكمية فقط، واستدعيها قبل تنفيذ العملية وقارن وبعدها قرر اما يطرح الكمية او يظهر رسالة.
الرد }}}}
تم الشكر بواسطة:
#3
ممكن مساعدة اخي ؟؟
الرد }}}}
تم الشكر بواسطة:
#4
هذه دالة من احد الدروس وضيفتها ترجع قيمة بمدلول عمود وهي هنا تعيد كمية بمدلول عمود id
PHP كود :
Public Function GetQuantity(id As Integer) As Integer
    Dim cmd 
As New OleDbCommand(String.Format("SELECT [Qty] FROM [Items] WHERE [ID]={0}"id), cnn)
    
cnn.Open()
    
Dim ret As Integer cmd.ExecuteScalar
    cnn
.Close()
    Return 
ret
End 
Function 

وبنفس الاسلوب عملت لك دالة تطرح من الكمية
PHP كود :
Public Function SubQuantity(id As Integerqty As Integer) As Boolean
    Dim cmd 
As New OleDbCommand(String.Format("UPDATE [Items] SET [Qty]=([Qty]-{0}) WHERE [ID]={1}"qtyid), cnn)
    
cnn.Open()
    
Dim ret As Integer cmd.ExecuteNonQuery()
    
cnn.Close()
    If 
ret 0 Then Return True
End 
Function 

الحين اللي عليك تستدعي الدالة GetQuantity عشان تعرف الكمية المتوفرة وعندها قرر هل تنفذ الدالة SubQuantity والا تظهر رسالة ان الكمية غير كافية
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 47 25-02-17, 06:31 PM
آخر رد: khodor1985
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,060 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  [VB.NET] ابغي كود او شرح مفصل مع الاكواد 0theghost0 0 55 13-02-17, 12:53 PM
آخر رد: 0theghost0
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 102 06-02-17, 07:50 PM
آخر رد: sendbad100
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 48 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 240 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 165 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  محتاج كود لمعرفه المواقع التى تم فتحها sasa-rosia 4 166 28-01-17, 02:09 AM
آخر رد: sasa-rosia
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 85 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  محتاج كود النسخ والاستبدال eng.mustafa 1 92 24-01-17, 03:41 AM
آخر رد: eng.mustafa

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم