+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] لدي مشروع واريد التعديل عليه (/showthread.php?tid=21242)
لدي مشروع واريد التعديل عليه - 0theghost0 - 30-07-17
التعديل على المبالغ لكل كود .
الفكرة هي :
لدي كود 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
NextRE: لدي مشروع واريد التعديل عليه - حريف برمجة - 31-07-17
تعمل استعلام بموجب رقم الكود وتخزن المبلغ الموجود في متغير
وتقارن المصروف بالموجود لو اكبر تظهر رسالة لا يوجد مبلغ كافي .
RE: لدي مشروع واريد التعديل عليه - 0theghost0 - 02-08-17
حاولت اخوي لكن لم اجد الحل المناسب مادري هل الكود الى وجده غلط او يحتاج تعديل ؟؟