Imports System.Data.SqlClient

Public Class ParGhabz
    Dim con As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DbBanke.mdf;Integrated Security=True;User Instance=True"
    'آدرس دیتابیس را در متغییر می ریزد
    Dim inta As Double = 99999999
    'تعریف متغییر
    Dim intb As Double = 9999
    Dim strnomberpardakht As String
    Dim strnombersh As String
    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 TextBox6.Text = "" Or ComboBox1.SelectedItem = "" Then
                'شرط خالی نبودن تکس باکس ها
                MsgBox(" فیلد ها را کامل پر کنید ")
                Exit Sub
            End If

            Dim cn As New SqlConnection(con)
            'تعریف متغییری از نوع اس کیو ال کانکشن
            cn.Open()
            'بازنمودن 
            Dim str As String = "INSERT INTO TBlghabz1   (ShenaseGhabz, ShenasePardakht, price, SHoHesab, TypeGhabz, Date)VALUES   (@1,@2,@3,@4,@5,@6)"
            'تعریف متغییری از نوع استرینگ جهت نگهداشتن دستور اس کیو ال/دستور اضافه نمودن 
            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", ComboBox1.SelectedItem)
            cm.Parameters.AddWithValue("@6", TextBox6.Text)
            cm.ExecuteNonQuery()
            'اجرای تمامی دستورات بالا
            'MsgBox("شناسه قبض شما" & strnombersh & "و شناسه پرداخت شما  " & strnomberpardakht & "می باشد")
            Label8.ForeColor = Color.Green
            'تغییر رنگ لیبل 8 به رنگ سبز
            Label8.Text = "ثبت شد"
            'پیغام
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            'خالی نمودن تکس باکسها
            ParGhabz_Load(Nothing, Nothing)
            'لود دوباره همین فرم جهت رفرش شدن دیتا گرید ویو
            cn.Close()
            'بستن دیتا بیس

        Catch ex As Exception
            'شرط در صورت خطا دادن برنامه این پیغام نمایش پیدا کند
            Label8.ForeColor = Color.Red
            'به رنگ قرمز در آید 
            Label8.Text = "برنامه با مشکلاتی روبرو شده . لطفا شکیبا باشید"
        End Try

    End Sub

    Private Sub ParGhabz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DBDSPardakht.TblPardakht' table. You can move, or remove it, as needed.

        TextBox6.Text = Date.Now.Day & " \ " & Date.Now.Month & " \ " & Date.Now.Year & "ساعت : " & Date.Now.Hour & ":" & Date.Now.Month
        'گرفتن تاریخ از سیستم
    End Sub
    Private Sub Button2_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox5.Text <> Nothing Then
            'اگر تکس باک 5 خالی نبود ادامه بده
            Try
                Dim cn As New SqlConnection(con)
                'تعرایف متغییری از نوع اس کیو ال کانکشن جهت اتصال به دیتابیس
                cn.Open()
                'باز کردن دیتابیس
                Dim da As New SqlDataAdapter("SELECT code AS کد, ShenaseGhabz AS [شناسه قبض], ShenasePardakht AS [شناسه پرداخت], price AS مبلغ, SHoHesab AS [شماره حساب], TypeGhabz AS [نوع قبض],  Date AS [تاریخ ثبت] FROM      TBlghabz1 WHERE ShenaseGhabz = " & TextBox5.Text, cn)
                'دستور نمایش با شرط اینکه عبارت جستجو شده که شناسه قبض می باشد مساوی تکیس باکس 5 باشد
                Dim ds As New DataSet
                'تعریف متغییری از توع دیتا ست
                da.Fill(ds, "TBlghabz1")
                'پر کردن دی اس از طریق دیتا آداپتور
                Me.DataGridView1.DataSource = ds.Tables(0)
                'نمایش نتایج جستجو در دیتا گرید وید
            Catch ex As Exception
                Label8.ForeColor = Color.Red
                Label8.Text = "برنامه با مشکلاتی روبرو شده . لطفا شکیبا باشید"
            End Try

        End If

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = False Then
            e.Handled = True
            Exit Sub
        End If
        'دستور بالا در تکس باک مربوطه امکان نوشتن غیر از اعداد را لغو می کند
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

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

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

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

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    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 ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            TextBox4.Text = "9000001"
        ElseIf ComboBox1.SelectedIndex = 1 Then
            TextBox4.Text = "9000002"
        ElseIf ComboBox1.SelectedIndex = 2 Then
            TextBox4.Text = "9000003"
        ElseIf ComboBox1.SelectedIndex = 3 Then
            TextBox4.Text = "9000004"
        End If

    End Sub

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