如何用vb.net实现用户登陆界面的操作？

select * from t1 where name=** and password=** and style=**

目前创新互联已为近1000家的企业提供了网站建设、域名、网站空间、成都网站托管、企业网站设计、南山网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

如果查询到的表是空的，说明登陆错误，否则成功

vb.net 登陆界面设计 连接ACCESSS数据库 为什么打不开新窗体

Form2.Show()这里有下划线报错

Form1.Close()

应该是Load Form2

Form2.Show

Unload Form1

用户名和密码输入错误码的话，连接数据库后用IF语句判断用户名和密码，正确则执行后面的代码，错误则弹出MSGBOX提示，用EXIT SUB跳出过程回到输入用户名和密码的界面就行了。

vb.net若要设计一个要求用户输入密码登陆界面则接受用户密码输入可使用的最佳

Try

Conn = New SqlConnection("Data Source = ASTRAYBI-PC;Initial Catalog = Attendsystem;"  "Integrated Security = false; User ID=sa;Password=********")

Conn.Open()

Comm = New SqlCommand("pwd_CheckPass", Conn)

Comm.CommandType = CommandType.StoredProcedure

Comm.Parameters.Add("@CHKName", SqlDbType.VarChar, 30).Value = TBuser.Text

Comm.Parameters.Add("@CHKPass", SqlDbType.VarChar, 10).Value = TBpwd.Text

Comm.Parameters.Add("@ISValid", SqlDbType.VarChar, 20).Direction = ParameterDirection.Output

Comm.ExecuteNonQuery()

If Comm.Parameters("@ISValid").Value = "Good" Then

MessageBox.Show("Welcome!")

Attendsys.Show()

Me.Hide()

Else

MessageBox.Show("Wrong Password Or Unexisted User!")

End If

Catch ex As Exception

MessageBox.Show(ex.ToString())

End Try

具体步骤是建立数据库连接，赋值textbox控件，验证！

怎么用VB设计一个登陆界面？

1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，

2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：

private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '这里写验证代码...  '通过验证后要干么elsemsgbox("用户名或者密码不正确！")end if end subprivate sub button2_click()endend sub

分享文章：vb.net登陆界面设计 vb程序设计登录界面
文章来源：http://myzitong.com/article/dopieii.html