VB.Net用户登录窗口设计

当前位置:

首页 > VB.net教程 >

VB.Net用户登录窗口设计

基于mssql的vb.net窗体软件，一般在开始的时候需要设置登录窗口，只有在验证用户名+密码匹配的情况下，系统才会调出main界面以供使用。

具体的业务逻辑如下：

业务步骤处理如下：

1、首先新增窗体Login.vb, 并添加用户名、密码、确定等对应控件；

2、修改项目属性 - 应用程序 - 启动窗体中，选择“Login”作为自动窗体；

3、在“确定”控件的Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click函数里，加入如下语句判断用户名或者密码是否存在空值；

1 If TextBox1.Text = "" Or TextBox2.Text = "" Then
2             MessageBox.Show("用户名或密码不能为空")
3             Return
4 End If

4、通过查询语句匹配用户名和密码

1 Dim S_User As String
2 S_User = "select * from S_user" & " where cno=" & TextBox1.Text & " and" & " Cpassword=" & TextBox2.Text
3 ...
4 da = New SqlDataAdapter(S_User, conn)
5             dt = New DataSet()
6             da.Fill(dt, "S_user")
7   conn.Close()

5、根据匹配结果决定是否显示登录成功

1 If dt.Tables("S_user").Rows.Count = 1 Then
2                 Main.Show()
3             Else
4                 MessageBox.Show("用户名或密码不正确")
5                 Return
6             End If

6、附上s_user表的Create语句

 1 CREATE TABLE [dbo].[S_User](
 2     [In_id] [int] IDENTITY(1,1) NOT NULL,
 3     [CNo] [nvarchar](20) NOT NULL,
 4     [CName] [nvarchar](20) NOT NULL,
 5     [CPassWord] [nvarchar](50) NOT NULL,
 6     [CGroup] [nvarchar](50) NOT NULL,
 7     [CCreateDate] [date] NOT NULL,
 8     [CStopDate] [date] NULL,
 9  CONSTRAINT [PK_User] PRIMARY KEY CLUSTERED 
10 (
11     [CNo] ASC
12 )WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
13 ) ON [PRIMARY]

出处：https://www.cnblogs.com/lpzdsq/p/8496810.html

栏目列表