[VB.NET] التحقق من البيانات - نسخة قابلة للطباعة

كود :

Public Class Form1

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        My.Settings.m = Me.Location

        My.Settings.Save()

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Me.Location = My.Settings.m

        tn.Focus()

    End Sub

    Private Sub tn_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles tn.KeyDown

        If e.KeyData = Keys.Enter Then

            If sender.text = "" Then

                sender.focus()

            Else

                TextBox1.Focus()

            End If

        End If

    End Sub

    Private Sub tn_LostFocus(sender As Object, e As System.EventArgs) Handles tn.LostFocus

        If sender.text = "" Then

            sender.focus()

        End If

    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyData = Keys.Enter Then

            If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub 'Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub

            If sender.text = "" Then

                sender.focus()

            Else

                TextBox2.Focus()

            End If

        End If

    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus

        If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub

        If sender.text = "" Then

            sender.focus()

        End If

    End Sub

    Private Sub TextBox2_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown

        If e.KeyData = Keys.Enter Then

            If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub

            If sender.text = "" Then

                sender.focus()

            End If

        End If

    End Sub

    Private Sub TextBox2_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox2.LostFocus

        If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub

        If sender.text = "" Then

            sender.focus()

        End If

    End Sub

End Class

كود :

Private Sub TextBox1_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Validated

هذا الكود غرضه التأكد من السجل المدني موجود اوغير موجود

        Dim con As New SqlConnection

        Dim cmd As New SqlCommand

        con.Close()

        con.ConnectionString = "Server=your server;Database=your database;Integrated Security=true"

        cmd.Connection = con

        con.Open()

        cmd.Parameters.Clear()

        cmd.CommandText = "Select * from your table where Number=@un"

        cmd.Parameters.Add("@un", SqlDbType.NVarChar, 50).Value = TextBox1.Text

        Dim dr As SqlDataReader = cmd.ExecuteReader()

        If dr.HasRows = True Then

            MessageBox.Show("هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox1.Focus()

            TextBox1.SelectionStart = 0

            con.Close()

        End If

    End Sub

PHP كود :

Private Sub txtCRN_Validated(sender As Object, e As EventArgs) Handles txtCRN.Validated

        Dim cmd As New OleDbCommand
        ApoSYSconn.Close()
        ApoSYSconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
        cmd.Connection = ApoSYSconn
        ApoSYSconn.Open()
        cmd.CommandText = "Select * from tblCustomers where CivilRegNum=txtCRN"

        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        If dr.HasRows = True Then
            MessageBox.Show("هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            ApoSYSconn.Close()

        End If

    End Sub