正文

vb.net设计登录界面 用vb设计登陆界面

IP云
IP云V管理员/6 阅读
04/12
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

1.首先添加2个label控件vb.net设计登录界面，一个caption为用户名vb.net设计登录界面，一个为密码然后分别在2个label控件后面添加一个text控件vb.net设计登录界面，

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

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

相关问答

Q1: 一个vb.net的用户登陆页面代码

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

If TextBox Text = Or TextBox Text = Then

Label Text = 请确认您vb.net设计登录界面的输入vb.net设计登录界面！

Return

End If

Dim sql As String = select * from pwd where stu_id=@stu_id and pwd=@pwd

Dim m As SqlCommand = New SqlCommand（sql conn）

m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

m Parameters（ @stu_id ） Value = TextBox Text

m Parameters Add（New SqlParameter（ @pwd SqlDbType Char ））

m Parameters（ @pwd ） Value = TextBox Text

Dim dr As SqlDataReader

conn Open（）

dr = m ExecuteReader

If dr Read Then

Session（ stu_id ） = TextBox Text

dr Close（）

m Cancel（）

Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id

m = New SqlCommand（sql_ conn）

m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

m Parameters（ @stu_id ） Value = Session（ stu_id ）

m ExecuteNonQuery（）

m Cancel（）

Response Redirect（ detail aspxvb.net设计登录界面？stu_id= Session（ stu_id ） ）

Else

Label Text = 您还没有注册或账号密码错误

End If

End Sub

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

TextBox Text =

TextBox Text =

lishixinzhi/Article/program/net/201311/13960

Q2: 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

具体步骤是建立数据库连接vb.net设计登录界面，赋值textbox控件vb.net设计登录界面，验证vb.net设计登录界面！

vb.net设计登录界面的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb设计登陆界面、vb.net设计登录界面的信息别忘了在本站进行查找喔。