منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

حريف برمجة

0theghost0