تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] لدي مشروع واريد التعديل عليه
#1
التعديل على المبالغ لكل كود .
الفكرة هي :
لدي كود 001
المبلغ الموفر في الكود هو 200 دولار
قمت بستخدام مبلغ وقدره 50 دولار
البرنامج يفهم بأن الكود 001 تم استخدام منه 50 دولار فيكون المبلغ الموجود 150 دولار
بعد عملية استخدام الكود المرة الثانية واريد استخدام 200 دولار يخبرك بان الكود فقط يوجد به 150 دولار
واذا الكود تم استخدام المبلغ بالكامل يخبرك بان لايوجد به مبلغ ليستخدم

فقط هذة هي الطريقة الى اريدها  : واليكم الاكواد اضافة الكود مع المبلغ .

كود :
dc.Add_Code(txtCode.Text, CInt(txtAmount.Text))
       MessageBox.Show("تم  الحفظ  بنجاح", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

عرض بيانات الزبون :
كود :
Dim dt As New DataTable
       Dim dap As New OleDbDataAdapter("Select Code_ID,Code_num,Code_Timein,Code_Timeout,Code_mount from Customers", Con)
       dap.Fill(dt)
       Return dt
التحقق من وجود الكود :
كود :
Dim dt As New DataTable
       Dim dap As New OleDbDataAdapter("Select Code_num from Code where Code_num=@cn", Con)
       dap.SelectCommand.Parameters.AddWithValue("@cn", code)
       dap.Fill(dt)
       Return dt
إضافة زبون مع الكود حقه :
كود :
Dim cmd As New OleDbCommand("Insert into Customers (Code_num,Code_Timein,Code_Timeout,Code_mount) values (@cn,@ct1,@ct2,@cm)", Con)
       cmd.Parameters.AddWithValue("@cn", code)
       cmd.Parameters.AddWithValue("@ct1", Datein)
       cmd.Parameters.AddWithValue("@ct2", Dateout)
       cmd.Parameters.AddWithValue("@cm", amount)
       Con.Open()
       cmd.ExecuteNonQuery()
       Con.Close()
وهذا اضافة كود جديد :
كود :
Dim cmd As New OleDbCommand("Insert into Code (Code_num,Code_mount) values (@cn,@cm)", Con)
       cmd.Parameters.AddWithValue("@cn", code)
       cmd.Parameters.AddWithValue("@cm", amount)
       Con.Open()
       cmd.ExecuteNonQuery()
       Con.Close()

نسيت اخبركم تظهر البيانات في ListView

كود :
ListView1.Items.Clear()

       For Each dr As DataRow In dc.ShowData().Rows

           Dim item As New ListViewItem(dr("Code_ID").ToString())
           item.SubItems.Add(dr("Code_num").ToString())
           item.SubItems.Add(dr("Code_Timein").ToString())
           item.SubItems.Add(dr("Code_Timeout").ToString())
           item.SubItems.Add(dr("Code_mount").ToString())
           item.SubItems.Add("")
           ListView1.Items.Add(item)

           For i As Integer = 0 To ListView1.Items.Count - 1 Step 1
               If Val(ListView1.Items(i).SubItems(3).Text < DateTime.Now.ToString("h:mm:ss tt")) Then
                   ListView1.Items(i).BackColor = Color.Red
                   ListView1.Items(i).ForeColor = Color.White
                   ListView1.Items(i).SubItems(5).Text = "إنتهى الوقت المحدد"

               Else
                   ListView1.Items(i).SubItems(5).Text = "لم ينته الوقت المحدد"
               End If
           Next

       Next
الرد
تم الشكر بواسطة:
#2
تعمل استعلام بموجب رقم الكود وتخزن المبلغ الموجود في متغير

وتقارن المصروف بالموجود لو اكبر تظهر رسالة لا يوجد مبلغ كافي .
الرد
تم الشكر بواسطة:
#3
حاولت اخوي لكن لم اجد الحل المناسب مادري هل الكود الى وجده غلط او يحتاج تعديل ؟؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يمكن كتابة كود جافا داخل مشروع فيجوال بيسك muad 0 52 , 11:50 PM
آخر رد: muad
  مساعدة فى مشروع لمكتب دعاية واعلان mohamed2316 0 74 27-11-21, 12:43 AM
آخر رد: mohamed2316
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 4 540 16-11-21, 03:07 PM
آخر رد: Theshaoui
  احتاج مساعدة في التعديل على كود شغال تمام في wpf اما winform يظهر مشكل farfour 3 241 10-11-21, 12:27 AM
آخر رد: mrfenix93
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 2 420 21-10-21, 03:43 AM
آخر رد: ibrahimhuseen828
  كود التعديل على السجلات aftfm 0 164 17-10-21, 08:03 PM
آخر رد: aftfm
  [سؤال] كيفية معرفه مسار الويندوز أو بمعني آخر ازاي اعرف البارتيشن ال نازل عليه الويندوز حسن الجلب 1 245 16-10-21, 09:59 PM
آخر رد: Mohamad Anan
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 940 11-09-21, 07:01 PM
آخر رد: dalas
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 1 310 09-09-21, 04:17 PM
آخر رد: aftfm
  [VB.NET] التعديل على المثال AHMED213 1 293 08-09-21, 12:40 AM
آخر رد: ابراهيم ايبو

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


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