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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 39 29-11-16, 01:37 AM
آخر رد: hglogtd
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 69 28-11-16, 05:36 PM
آخر رد: معتز الجازوي
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 197 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 107 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 145 25-09-16, 02:14 PM
آخر رد: أبووسم
  [VB.NET] محتاج مساعدة في عمل برنامج 0theghost0 1 106 23-09-16, 04:11 PM
آخر رد: أبو عمر
  تعديل الكود لرفع ملف على الانترنت anes 10 342 22-09-16, 04:20 PM
آخر رد: أبو عمر
Rainbow [سؤال] كيف يتم تعديل الكود من الفيجوال بيسك الى الفيجوال دوت نت محمد مسافر 2 183 17-09-16, 08:32 PM
آخر رد: محمد مسافر
  [VB.NET] طلب مشروع تعديل في قيم الريجستري محمد مسافر 2 119 17-09-16, 03:44 PM
آخر رد: محمد مسافر

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


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