[Dr.Sherif Alazizi]

(30-03-15, 12:36 AM)dhetos كتب : وانا فى انتظارك يادكتور

الاخ dhetos


جعلت بالمثال امكانية تحديد مدة القسط كل ؟؟ يوم او شهر او سنه
وسيقوم البرنامج باضافة عدد الاقساط كل قسط بقيمته وتاريخ سداده حسب ما كتبت في بيانات العميل


وهذا هو الكود كامل

كود :

Imports System.Data.SqlClient
Public Class Form1
   Dim con As New SqlConnection
   Dim cmd As New SqlCommand
   Dim PremDate As Date  
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=CustDb;Integrated Security=SSPI;")
       cmd.Connection = con
       DMY.Items.Add("يوم")
       DMY.Items.Add("شهر")
       DMY.Items.Add("سنه")
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       con.Close()
       con.Open()
       cmd.CommandText = "INSERT INTO CustomerTbl ([CustName], [PremiumValue], [PremiumDate]) values('" & CustName.Text & "','" & PremiumValue.Text & "','" & PremiumDate.Text & "')"
       cmd.ExecuteNonQuery()
       Try
           For i As Integer = 1 To PremiumsNum.Text - 1
               If DMY.SelectedIndex = 0 Then PremDate = DateAdd("d", Val(PremiumEach.Text), PremiumDate.Text)
               If DMY.SelectedIndex = 1 Then PremDate = DateAdd("M", Val(PremiumEach.Text), PremiumDate.Text)
               If DMY.SelectedIndex = 2 Then PremDate = DateAdd("YYYY", Val(PremiumEach.Text), PremiumDate.Text)
               PremiumDate.Text = PremDate
               cmd.CommandText = "INSERT INTO CustomerTbl ([CustName], [PremiumValue], [PremiumDate]) values('" & CustName.Text & "','" & PremiumValue.Text & "','" & PremiumDate.Text & "')"
               cmd.ExecuteNonQuery()
           Next
           PremiumDate.Text = Now.Date
           MsgBox(" تم تسجيل أقساط العميل " & CustName.Text & " بنجاح ", vbExclamation, "تسجيل الأقساط")
       Catch ex As Exception
           MessageBox.Show(" حدث خطأ أثناء إدخال البيانات .. من فضلك حاول مرة أخرى" & ex.Message, "خطأ")
       Finally
           con.Close()
       End Try
   End Sub
End Class

وبالمرفقات تجد 

المثال الذي تم عمله كامل مع قاعدة البيانات SQL  - لاني لاحظت ان مشروعك يعتمد على هذه القاعده
فيديو بسيط يوضح كيفية عمل المثال

اتمنالك التوفيق

ولو واجهت اي عقبات اخبرني