تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود حفظ الاقساط
#1
السلام عليكم ورحمة الله وبركاته

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

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

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

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

PHP كود :
  Dim title "القسط" "  " "الاسم" "  " "القسط" "  " "الشهر" vbNewLine
        Dim txt 
""
 
       For i 1 To 4
            txt 
txt "  " "احمد" "  " "1100" "  " "1/" "/2020" vbNewLine
        Next

        TextBox1
.Text title txt 

اذا اردت تغيير الارقام من الي ما عليك الى تغيير بداية for  و نهايته

و الله اعلم
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: WaeLx , WaeLx , حريف برمجة , عمور2016
#3
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.TextDateTimePicker1.Value.AddMonths(sum5), Txt_DebtValue.TextVal(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), 0FalseID_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 

   

   
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#4
شكرا جزيلا لكم 


انا اقصد زر الحفظ فقط يعطي 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, "نجاح اضافة الاقساط ") 
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#5
كود :
       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 مربعات نص ولا تعلم ايهم يفعل ماذا الا ذا ذهبت وتحققت كل مرة ، هذا ضياع للوقت
الرد
#6
نعم جميل جدا

اين اضع 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 تاريخ بداية القسط 
الرد
تم الشكر بواسطة: حريف برمجة
#7
كود :
           Format(DateTimePicker1.Value.AddMonths(i - 1), "yyyy/MM/dd")
الرد
#8
ممتاز ماشاء الله الله يكتب اجرك

وكيف لي ان يضيف رقم القسط طبعا يسلسل رقم القسط
1
2
3
وهكذا حسب i
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#9
مكان ما تكتب رقم القسم في الاستعلام اضف عليها (i-1)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ارجو المساعده فى برنامج لاداره الاقساط الشهريه فارس الاحلام 0 1,188 29-09-16, 06:48 PM
آخر رد: فارس الاحلام

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم