[0theghost0]

التعديل على المبالغ لكل كود .
الفكرة هي :
لدي كود 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

[حريف برمجة]

تعمل استعلام بموجب رقم الكود وتخزن المبلغ الموجود في متغير

وتقارن المصروف بالموجود لو اكبر تظهر رسالة لا يوجد مبلغ كافي .

[0theghost0]

حاولت اخوي لكن لم اجد الحل المناسب مادري هل الكود الى وجده غلط او يحتاج تعديل ؟؟