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

السلام عليكم ورحمة الله وبركاته

اريد كود يحفظ لك عدد الاقساط ويغير في الشهر لكل قسط فقط(حسب ماهو مسجل في التكست عدد الاقساط)

مثلا في textbox1.text="4"   1
يعطي في زر الحفظ مرة واحدة الاقساط اربع مرات ويغير في التاريخ فقط (الشهر فقط)

بعد الضغط على زر الحفظ مرة واحدة :يظهر التالي
القسط الاسم القسط الشهر
1 احمد     1100 1/1/2020
  2 احمد     1100 1/2/2020
3 احمد     1100 1/3/2020
4 احمد     1100 1/4/2020

لا ادري هل فهمت المطلوب
انت تقصد كود يعيطيك الشكل المكتوب في التكسب بوكس

ضع في زر التالي

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 و نهايته

و الله اعلم

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]

شكرا جزيلا لكم

انا اقصد زر الحفظ فقط يعطي 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, "نجاح اضافة الاقساط ")

كود :

       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 مربعات نص ولا تعلم ايهم يفعل ماذا الا ذا ذهبت وتحققت كل مرة ، هذا ضياع للوقت

نعم جميل جدا

اين اضع 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 تاريخ بداية القسط

كود :

           Format(DateTimePicker1.Value.AddMonths(i - 1), "yyyy/MM/dd")

ممتاز ماشاء الله الله يكتب اجرك

وكيف لي ان يضيف رقم القسط طبعا يسلسل رقم القسط
1
2
3
وهكذا حسب i

مكان ما تكتب رقم القسم في الاستعلام اضف عليها (i-1)

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

عمور2016

عبد الهادي بهاب

asemshahen5

عمور2016

Anas Mahmoud

عمور2016

Anas Mahmoud

عمور2016

Anas Mahmoud