Imports System.Data
Imports System.Data.SqlClient
Partial Class details
Inherits System.Web.UI.Page
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim str As String
Dim str1 As String
Dim dr As SqlDataReader
Dim i As Integer
Protected Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.Click
If TextBox1.Text = "" Then
Label5.Text = "Enter Proper Value"
End If
If TextBox1.Text.ToString.Length <> 5 Then
Label6.Text = "Must Be 5 Character"
End If
con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\THE ATM SYSTEM\App_Data\Database.mdf;Integrated Security=True;User Instance=True")
Session("card_no") = TextBox1.Text.ToString
Session("pin_no") = TextBox1.Text.ToString
con.Open()
str = ("select * from registration where card_no='" + TextBox1.Text + "'")
cmd = New SqlCommand(str, con)
dr = cmd.ExecuteReader
If dr.Read Then
Label4.Visible = True
TextBox2.Visible = True
End If
str1 = ("select * from registration where pin_no='" + TextBox2.Text + "'")
cmd = New SqlCommand(str1, con)
While dr.Read()
i = i + 1
End While
If i > 0 Then
Response.Redirect("choose.aspx")
End If
con.Close()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + Button1.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + Button2.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + Button3.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + Button4.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + Button5.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + Button6.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + Button7.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + Button8.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + Button9.Text
Label5.Text = ""
Label6.Text = ""
End Sub
Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text + Button10.Text
Label5.Text = ""
Label6.Text = ""
End Sub
End Class
This much coding i have done..but not getting the logic for entering in textbox2..