请高手帮助VB代码改写
以下是一个登入界面的代码，请问那个高手可以帮我把下面得代码改成用一个类分装，然后用一个摁钮来调用~~~Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Public t As New DataTable
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString As String
If txtName.Text <> "" And txtPassword.Text = "" Then
MsgBox("请输入密码!", , "提示")
ElseIf txtName.Text = "" And txtPassword.Text <> "" Then
MsgBox("请输入帐号!", , "提示")
ElseIf txtName.Text = "" And txtPassword.Text = "" Then
MsgBox("请输入帐号和密码!", , "提示")
Else
'Call DBopen()
connectionString = "server=(local);database=Northwind;uid=sa"
Dim connector As New SqlConnection
connector.ConnectionString = connectionString
Dim commander As New SqlCommand
commander.CommandText = "SELECT name FROM users WHERE name=@name AND password=@password"
commander.CommandType = CommandType.Text
commander.Connection = connector
Dim parPassword As New SqlParameter
parPassword.ParameterName = "@password"
parPassword.SqlDbType = SqlDbType.Char
parPassword.Size = 20
parPassword.Value = Me.txtPassword.Text
parPassword.Direction = ParameterDirection.Input
Dim parName As New SqlParameter
parName.ParameterName = "@name"
parName.SqlDbType = SqlDbType.Char
parName.Size = 20
parName.Value = Me.txtName.Text
parName.Direction = ParameterDirection.Input
commander.Parameters.Add(parName)
commander.Parameters.Add(parPassword)
Try
connector.Open()
Dim reader As SqlDataReader = commander.ExecuteReader(CommandBehavior.CloseConnection)
If reader.HasRows Then
MessageBox.Show("登入成功！")
Dim f As New Form3
f.Show()
End If
reader.Close()
Catch ex As Exception
MessageBox.Show("登入失败！")
Finally
If connector.State = ConnectionState.Open Then
connector.Close()
End If
If Not (connector Is Nothing) Then
connector.Dispose()
End If
If commander.Parameters.Count > 0 Then
commander.Parameters.Clear()
End If
If Not (commander Is Nothing) Then
commander.Dispose()
End If
End Try
End If
Imports System.Data.SqlClient
Public Class check '类名
Private t As New DataTable
Public Function checkNULL(ByVal name As String, ByVal password As String) As String
If name <> "" And password = "" Then
Return "请输入密码!"
Exit Function
ElseIf name = "" And password <> "" Then
Return "请输入账号！"
Exit Function
ElseIf name = "" And password = "" Then
Return "请输入账号与密码！"
Exit Function
Else
check(name, password)
End If
End Function
Public Function check(ByVal name As String, ByVal password As String) As Boolean
Dim connectionString As String
'Call DBopen()
connectionString = "server=(local);database=Northwind;uid=sa"
Dim connector As New SqlConnection
connector.ConnectionString = connectionString
Dim commander As New SqlCommand
commander.CommandText = "SELECT name FROM users WHERE name=@name AND password=@password"
commander.CommandType = CommandType.Text
commander.Connection = connector
Dim parPassword As New SqlParameter
parPassword.ParameterName = "@password"
parPassword.SqlDbType = SqlDbType.Char
parPassword.Size = 20
parPassword.Value = password
parPassword.Direction = ParameterDirection.Input
Dim parName As New SqlParameter
parName.ParameterName = "@name"
parName.SqlDbType = SqlDbType.Char
parName.Size = 20
parName.Value = name
parName.Direction = ParameterDirection.Input
commander.Parameters.Add(parName)
commander.Parameters.Add(parPassword)
Try
connector.Open()
Dim reader As SqlDataReader = commander.ExecuteReader(CommandBehavior.CloseConnection)
If reader.HasRows Then
Return True '登陆成功
End If
reader.Close()
Catch ex As Exception
Return False '登陆失败
Finally
If connector.State = ConnectionState.Open Then
connector.Close()
End If
If Not (connector Is Nothing) Then
connector.Dispose()
End If
If commander.Parameters.Count > 0 Then
commander.Parameters.Clear()
End If
If Not (commander Is Nothing) Then
commander.Dispose()
End If
End Try
End Function
End Class
这个是改的类，没调试，至于空验证最好不要封装，放在按钮时间里面做最好，因为你要求一起封装，所以就写上来了，如果放在按钮时间里，直接调用check接口可以了，你拿去试下
调用时先引用类，实例化后直接掉接口，传参数就可以了 不明白的在问我[qq]276269534[/qq] 你的QQ是？？？ 276269534 我的意思的把和数据库那部分的代码封装起来 tencent://message/?uin=76235593&Site=http://eyp.pconline.com.cn/yp&Menu=yes
页:
[1]