Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Convert.ToInt32(Me.textBox3.Text.Length) < 8) Then
MessageBox.Show(ChrW(22806) & ChrW(25346) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(24471) & ChrW(23569) & ChrW(19982) & "8" & ChrW(20301))
Else
Dim connectionString As String = "server=zwzf3333SQL.db.3549840.hostedresource.com;database=zwzf3333SQL;uid=zwzf3333SQL;pwd=********"
Dim cmdText As String = "select username from UserInfo where username=@username"
Dim connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(cmdText, connection)
command.Parameters.Add("@username", SqlDbType.NVarChar)
connection.Open
command.Parameters.Item("@username").Value = Me.textBox3.Text.ToString
Dim table As New DataTable
table.Load(command.ExecuteReader)
connection.Close
Try
If (Not table.Rows.Item(0).Item(0).ToString Is Nothing) Then
MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(24050) & ChrW(23384) & ChrW(22312) & "," & ChrW(35831) & ChrW(26356) & ChrW(25442) & ChrW(24080) & ChrW(21495))
End If
Catch exception As Exception
MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(21487) & ChrW(20197) & ChrW(27880) & ChrW(20876))
End Try
End If
End Sub