+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود حفظ الاقساط (/showthread.php?tid=36368)
كود حفظ الاقساط - عمور2016 - 11-09-20
السلام عليكم ورحمة الله وبركاته
اريد كود يحفظ لك عدد الاقساط ويغير في الشهر لكل قسط فقط(حسب ماهو مسجل في التكست عدد الاقساط)
مثلا في textbox1.text="4" 1
يعطي في زر الحفظ مرة واحدة الاقساط اربع مرات ويغير في التاريخ فقط (الشهر فقط)
بعد الضغط على زر الحفظ مرة واحدة :يظهر التالي
القسط الاسم القسط الشهر
1 احمد 1100 1/1/2020
2 احمد 1100 1/2/2020
3 احمد 1100 1/3/2020
4 احمد 1100 1/4/2020
RE: كود حفظ الاقساط - عبد الهادي بهاب - 12-09-20
لا ادري هل فهمت المطلوب
انت تقصد كود يعيطيك الشكل المكتوب في التكسب بوكس
ضع في زر التالي
PHP كود :
Dim title = "القسط" & " " & "الاسم" & " " & "القسط" & " " & "الشهر" & vbNewLine
Dim txt = ""
For i = 1 To 4
txt = txt & i & " " & "احمد" & " " & "1100" & " " & "1/" & i & "/2020" & vbNewLine
Next
TextBox1.Text = title & txt
اذا اردت تغيير الارقام من الي ما عليك الى تغيير بداية for و نهايته
و الله اعلم
RE: كود حفظ الاقساط - asemshahen5 - 12-09-20
PHP كود :
If Txt_CutomerName.Text = "" Or Txt_DebtValue.Text = "" Or Txt_MonthCount.Text = "" Then
MSGASEM_XT("الرجاء ملاْ جميع القول و شكراً", "خطأ", SystemIcons.Error)
Exit Sub
End If
Dim sum1 As Double = 0
Dim sum2 As Double = 0
Dim sum3 As Double = 0
Dim sum4 As Double = 0
Dim sum5 As Double = 0
DataGridView1.Rows.Clear()
For i = 1 To CInt(Txt_MonthCount.Text)
sum5 += 1
DataGridView1.Rows.Add(Txt_CustomerID.Text, DateTimePicker1.Value.AddMonths(sum5), Txt_DebtValue.Text, Val(Txt_DebtValue.Text * Cmb_FaedaPersent.Text / Txt_MonthCount.Text), Val(Txt_DebtValue.Text / Txt_MonthCount.Text) + Val(Txt_DebtValue.Text * Cmb_FaedaPersent.Text / Txt_MonthCount.Text), 0, False, ID_INV)
Next
sum4 = Txt_DebtValue.Text + Val(Txt_DebtValue.Text * Cmb_FaedaPersent.Text)
For Each row As DataGridViewRow In DataGridView1.Rows
If row.IsNewRow Then Continue For
sum1 = sum4
sum2 += row.Cells(4).Value
sum3 = sum1 - sum2
row.Cells(2).Value = sum3
Next
[attachment=25655]
[attachment=25656]
RE: كود حفظ الاقساط - عمور2016 - 12-09-20
شكرا جزيلا لكم
انا اقصد زر الحفظ فقط يعطي 4 اقساط مره واحدة
مثلا بتايمر او طريقة اخرى
بدلا ما اضغط على زر الحفظ قسط قسط حتى اصل الى نهاية القسط اريد كما هو الحال في الصورة الاولى في المشاركة#3
الكود هذا بالاسفل يضيف حفظ جديد صف واحد
كيف لي ان اجعله يحفظ حسب ما هو مسجل في التكست اربع اقساط او 10 اقساط ويعدل بالتاريخ
PHP كود :
If Label8.Text = "new" Then
Try
If Conn.State = ConnectionState.Closed Then Conn.Open()
Dim A_AddInto As New SqlClient.SqlCommand("insert into store_3 ([serialz],[parc],[namez],[wahd],[countz],[sellz],[buyz],[notez],[userz],[datez])values ('" & TextBox1.Text.Trim & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & Label10.Text & "','" & Format(Now, "yyyy/MM/dd") & "')", Conn)
A_AddInto.ExecuteNonQuery()
' da.Fill(DataSet1, "Table_1")
Conn.Close()
Beep()
MsgBox("تم بنجاح اضافة جديدة", 64 + 524288, "نجاح اضافة الاقساط ")
RE: كود حفظ الاقساط - Anas Mahmoud - 12-09-20
كود :
If conn.State = ConnectionState.Closed Then conn.Open()
Dim NumerOfMonths As Integer = TextBox8.Text
For i As Integer = 1 To NumerOfMonths
Dim A_AddInto As New SqlClient.SqlCommand("insert into store_3 ([serialz],[parc],[namez],[wahd],[countz],[sellz],[buyz],[notez],[userz],[datez])values ('" & TextBox1.Text.Trim & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & Label10.Text & "','" & Format(Now, "yyyy/MM/dd") & "')", conn)
A_AddInto.ExecuteNonQuery()
'الان i
'يمثل رقم الحفظ الحالي ، لااعلم مكان تاريخ القسط ولكن اضف اليه
'i-1
Next
' da.Fill(DataSet1, "Table_1")
conn.Close()جرب for
ملاحظة هامة جدا :
قراءة القيم من مربعات النص مباشرة يجعلها عرضة لل SQL INJECTION يجب ان تستخدم ال Parameters
كود :
Dim A_AddInto As New SqlClient.SqlCommand("insert into store_3 ([serialz],[parc],[namez],[wahd],[countz],[sellz],[buyz],[notez],[userz],[datez]) values (@serialz,@parc,@namez,@wahd,@countz,@sellz,@buyz,@notez,@userz,@datez)", conn)
A_AddInto.Parameters.AddWithValue("@serialz", TextBox1.Text)
A_AddInto.Parameters.AddWithValue("@parc", TextBox2.Text)
A_AddInto.Parameters.AddWithValue("@namez", TextBox3.Text)
A_AddInto.Parameters.AddWithValue("@wahd", ComboBox1.Text)
A_AddInto.Parameters.AddWithValue("@countz", TextBox4.Text)
A_AddInto.Parameters.AddWithValue("@sellz", TextBox5.Text)
A_AddInto.Parameters.AddWithValue("@buyz", TextBox6.Text)
A_AddInto.Parameters.AddWithValue("@notez", TextBox7.Text)
A_AddInto.Parameters.AddWithValue("@userz", Label10.Text)
A_AddInto.Parameters.AddWithValue("@datez", Format(Now, "yyyy/MM/dd"))
A_AddInto.ExecuteNonQuery()وكذلك مسميات مربعات النص ، يجب ان تكون ذات دلالة ليس منظقي ان تأخد مدخلات من المستخدم من 10 مربعات نص ولا تعلم ايهم يفعل ماذا الا ذا ذهبت وتحققت كل مرة ، هذا ضياع للوقت
RE: كود حفظ الاقساط - عمور2016 - 12-09-20
نعم جميل جدا
اين اضع i
التعديل على الكود
PHP كود :
Dim A_AddInto As New SqlClient.SqlCommand("insert into store_3 ([serialz],[parc],[namez],[wahd],[countz],[sellz],[buyz],[notez],[userz],[datez])values ('" & TextBox1.Text.Trim & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & Label10.Text & "','" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "')", Conn)
text7 رقم القسط 1
DateTimePicker1.Value تاريخ بداية القسط
RE: كود حفظ الاقساط - Anas Mahmoud - 12-09-20
كود :
Format(DateTimePicker1.Value.AddMonths(i - 1), "yyyy/MM/dd")RE: كود حفظ الاقساط - عمور2016 - 12-09-20
ممتاز ماشاء الله الله يكتب اجرك
وكيف لي ان يضيف رقم القسط طبعا يسلسل رقم القسط
1
2
3
وهكذا حسب i
RE: كود حفظ الاقساط - Anas Mahmoud - 12-09-20
مكان ما تكتب رقم القسم في الاستعلام اضف عليها (i-1)