المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
السلام عليكم ورحمة الله وبركاته
اريد كود يحفظ لك عدد الاقساط ويغير في الشهر لكل قسط فقط(حسب ماهو مسجل في التكست عدد الاقساط)
مثلا في textbox1.text="4" 1
يعطي في زر الحفظ مرة واحدة الاقساط اربع مرات ويغير في التاريخ فقط (الشهر فقط)
بعد الضغط على زر الحفظ مرة واحدة :يظهر التالي
القسط الاسم القسط الشهر
1 احمد 1100 1/1/2020
2 احمد 1100 1/2/2020
3 احمد 1100 1/3/2020
4 احمد 1100 1/4/2020
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
لا ادري هل فهمت المطلوب
انت تقصد كود يعيطيك الشكل المكتوب في التكسب بوكس
ضع في زر التالي
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 و نهايته
و الله اعلم
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
12-09-20, 11:58 AM
(آخر تعديل لهذه المشاركة : 12-09-20, 12:04 PM {2} بواسطة عمور2016.)
شكرا جزيلا لكم
انا اقصد زر الحفظ فقط يعطي 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, "نجاح اضافة الاقساط ")
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
12-09-20, 12:49 PM
(آخر تعديل لهذه المشاركة : 12-09-20, 01:10 PM {2} بواسطة Anas Mahmoud.)
كود :
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 مربعات نص ولا تعلم ايهم يفعل ماذا الا ذا ذهبت وتحققت كل مرة ، هذا ضياع للوقت
المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
12-09-20, 01:12 PM
(آخر تعديل لهذه المشاركة : 12-09-20, 01:14 PM {2} بواسطة عمور2016.)
نعم جميل جدا
اين اضع 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 تاريخ بداية القسط
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
كود :
Format(DateTimePicker1.Value.AddMonths(i - 1), "yyyy/MM/dd")
المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
ممتاز ماشاء الله الله يكتب اجرك
وكيف لي ان يضيف رقم القسط طبعا يسلسل رقم القسط
1
2
3
وهكذا حسب i
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
مكان ما تكتب رقم القسم في الاستعلام اضف عليها (i-1)
|