تقييم الموضوع :
  • 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 والا تظهر رسالة ان الكمية غير كافية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002

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


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