Imports System.Data.SqlClient
Public Class Vam
    Dim inta As Double = 9999
    Dim strnomdafter As String
    Dim strnomvam As String
    'اتصال به دیتا بیس
    Dim con As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DbBanke.mdf;Integrated Security=True;User Instance=True"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.SelectedItem = "" Then
                MsgBox("فیلد هارا به دقت پر کنید")
                Exit Sub
            End If
            'شرط خالی نبودن فیلد ها یا تکس باکس ها

            If Val(TextBox4.Text) > Val(TextBox5.Text) Then
                MsgBox("مبلغ وام باید از مبلغ قسط ماهیانه بیشتر باشد")
                Exit Sub
            End If
            'شرط مبلغ وام باید از مبلغ قسط ماهیانه بیشتر باشد 


            Dim cn As New SqlConnection(con)  'صل شدن به دیتا بیس
            cn.Open()
            Dim str As String = "INSERT INTO Tblvam   (Name, NomDaftar, NomVam, GhestMah, Kolevam, Date,typevame,tedadpardakht)  VALUES        (@1,@2,@3,@4,@5,@6,@7,@8)"
            'دستور اضافه نمودن با دستورات اس کیو ال
            Dim cm As New SqlCommand(str, cn)
            cm.Parameters.AddWithValue("@1", TextBox1.Text)
            'اضافه نمودن یکی یکی فیلدها از تکس باکس ها به فیلدهای جدول 
            cm.Parameters.AddWithValue("@2", TextBox2.Text)
            cm.Parameters.AddWithValue("@3", TextBox3.Text)
            cm.Parameters.AddWithValue("@4", TextBox4.Text)
            cm.Parameters.AddWithValue("@5", TextBox5.Text)
            cm.Parameters.AddWithValue("@6", TextBox6.Text)
            cm.Parameters.AddWithValue("@7", ComboBox1.SelectedItem)
            cm.Parameters.AddWithValue("@8", 0)
            cm.ExecuteNonQuery()
            Label8.ForeColor = Color.Green
            Label8.Text = "ثـــبــــت شـــد"
            cn.Close()
            Vam_Load(Nothing, Nothing)
            'لود دوباره فرم وام جهت رفرش شدن گرید ویو

        Catch ex As Exception
            Label8.ForeColor = Color.Red
            Label8.Text = "برنامه با مشکلاتی روبرو شده . لطفا شکیبا باشید"
        End Try
    End Sub

   

    Private Sub Vam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox6.Text = Date.Now.Day & " \ " & Date.Now.Month & " \ " & Date.Now.Year & " ساعت  " & Date.Now.Hour & ":" & Date.Now.Month
        'نمایش تاریخ و ساعت در تکس باکس 6 
        strnomdafter = "2010" & CInt(Int((inta * Rnd()) + 1))
        'CInt((Rnd() * inta) + 1)

        strnomvam = "1390" & CInt(Int((inta * Rnd()) + 1))
        TextBox2.Text = strnomdafter
        TextBox3.Text = strnomvam

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            If TextBox7.Text = "" Then
                Exit Sub
            End If
            'شرط خالی نبودن جهت سرچ

            Dim cn As New SqlConnection(con)
            cn.Open()
            Dim da As New SqlDataAdapter("SELECT  code AS کد, Name AS نام, NomDaftar AS [شماره دفترچه :], NomVam AS [شماره وام:], GhestMah AS [قسط ماهیانه :], Kolevam AS [کل وام :], Date AS [تاریخ :] ,tedadpardakht as [تعداد پرداخت :]  FROM   Tblvam  WHERE  NomDaftar =   " & TextBox7.Text, cn)
            'دستور سکلکت جهت سرچ
            Dim ds As New DataSet
            da.Fill(ds, "Tblvam")
            'پرنمودن دیتا ست 
            Me.DataGridView1.DataSource = ds.Tables(0)
            'پرنمودن دیتا گرید و نمایش سرچ 
            TextBox8.Text = DataGridView1.CurrentRow.Cells(1).Value
            'پرنمودن سرچ شده از گرید ویو درون تکس باکسها 
            TextBox9.Text = DataGridView1.CurrentRow.Cells(2).Value
            TextBox10.Text = DataGridView1.CurrentRow.Cells(3).Value
            TextBox11.Text = DataGridView1.CurrentRow.Cells(4).Value
            TextBox12.Text = DataGridView1.CurrentRow.Cells(5).Value
            TextBox14.Text = DataGridView1.CurrentRow.Cells(6).Value
            TextBox15.Text = DataGridView1.CurrentRow.Cells(7).Value


        Catch ex As Exception
            MsgBox(" شماره دفترچه ی شما اشتباه است .لطفا مقداری درست وارد کنید")
        End Try
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label17.Text = Val(TextBox12.Text) - Val(TextBox13.Text)
        If Val(Label17.Text) < 0 Then
            MsgBox("مبلغ قابل پرداخت از کل وام بیشتر می باشد ")
            Exit Sub
        End If
        Try

            If TextBox9.Text = "" Then
                Exit Sub
            End If
            If TextBox8.Text = "" Then
                Exit Sub
            End If


            Dim cn As New SqlConnection(con)
            cn.Open()
            Dim str As String = "UPDATE  Tblvam  SET   Name = @1,   NomVam = @3, GhestMah = @4, Kolevam = @5, Date = @6  ,tedadpardakht=@7 WHERE  NomDaftar =  " & TextBox9.Text
            'دستور آپدیت
            Dim cm As New SqlCommand(str, cn)
            cm.Parameters.AddWithValue("@1", TextBox8.Text)
            'ویرایش یکی یکی تکس باکسها
            cm.Parameters.AddWithValue("@2", TextBox9.Text)
            cm.Parameters.AddWithValue("@3", TextBox10.Text)
            cm.Parameters.AddWithValue("@4", TextBox11.Text)
            cm.Parameters.AddWithValue("@5", Label17.Text)
            cm.Parameters.AddWithValue("@6", TextBox14.Text)
            cm.Parameters.AddWithValue("@7", Val(TextBox15.Text + 1))
            cm.ExecuteNonQuery()
            cn.Close()
            DataGridView1.Refresh()

            Label20.ForeColor = Color.Green
            Label20.Text = "مبلغ قسط شما ثبت شد"
            'تغییر رنگ و نمایش پیغام ثبت شد

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""
            TextBox8.Text = ""
            TextBox9.Text = ""
            'خالی نمودن 
            TextBox10.Text = ""
            TextBox11.Text = ""
            TextBox12.Text = ""
            TextBox13.Text = ""
            TextBox14.Text = ""
            TextBox15.Text = ""
            Label17.Text = ""
            Vam_Load(Nothing, Nothing)
        Catch ex As Exception
            Label20.ForeColor = Color.Red
            Label20.Text = "برنامه با مشکلاتی روبرو شده . لطفا شکیبا باشید"
        End Try
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Main.Show()
        Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Main.Show()
        Close()
    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = False Then
            e.Handled = True
            Exit Sub
        End If
    End Sub
    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
        If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = False Then
            e.Handled = True
            Exit Sub
        End If
    End Sub
    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
        If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = False Then
            e.Handled = True
            Exit Sub
        End If
    End Sub
    

    Private Sub TextBox13_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox12.KeyPress
        If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = False Then
            e.Handled = True
            Exit Sub
        End If
    End Sub

    
End Class