冲鸭
首先呢,在做登录界面之前,我们得有数据库是不是,用来保存我们的用户信息,老样子还是用Access作数据库吧,按照下图的样子做个用户信息表,里面初步要有用户ID、用户姓名、用户账号、用户密码,以后随着功能的添加还要设置账号类型、权限等内容,目前设置这些就够了好了,我们数据库里就有了第一位用户张哈哈的用户信息了下面要开始表演了,啧啧
打开vs2019 创建新项目,语言选择Visual Basic(就是vb.net),平台选择windows,选中windows 窗体应用(.NET Framework),如下图所示,点击下一步设置项目名称等内容就不说了,都是设置好后,就是下图这个样子然后这里就省略一些字了,经过调整大小,设置一些属性参数,把界面调整到下图的样子是不是有点像登录界面的样子了,winform是事件驱动的,登录界面里有两个按钮,在单击他们时就会产生点击事件,点击登录按钮就要跳转到主程序界面,点击取消按钮就要关闭登录界面,按照这个思路开始写代码首先双击登录按钮,进入Button1_Click事件里如图所示按照思路开始编写程序,Button1_Click里面的代码就是这样的Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim sql As StringDim conn As New OleDbConnectionDim PassWord As StringDim UserName As StringUserName = TextBox1.Text.TrimPassWord = TextBox2.Text.TrimIf UserName = "" Or PassWord = "" ThenMessageBox.Show("账号或密码不能为空")ReturnEnd Ifconn.ConnectionString = "provider =microsoft.ace.oledb.12.0;data source=C:\Users\huanglong\Desktop\数据库.accdb"sql = String.Format("select 用户账号,用户密码 from 用户信息表 where 用户账号='{0}' and 用户密码='{1}'", UserName, PassWord)Dim adapter As New OleDbDataAdapter(sql, conn)Dim dt As New DataSetadapter.Fill(dt, "用户信息表")Dim datareader As DataTableReaderTrydatareader = dt.Tables("用户信息表").CreateDataReaderIf datareader.Read ThenIf datareader.HasRows ThenMessageBox.Show("登录成功")End IfElseMessageBox.Show("登录失败,请输入正确账号密码")ReturnEnd IfCatch ex As ExceptionMessageBox.Show("出现异常" & ex.Message)End TryMe.Hide()End Sub篇幅有限,代码就不详细讲了,大家应该能看懂,编译一下就是如下图这样输入正确的数据库里的用户账号和密码,点击登录按钮就会弹出登录成功输入错误的话会弹出登录失败界面然后进入Button2_Click事件,就是取消按钮的点击事件,上面说了点击取消按钮整个登录界面将关闭,用Me.Close就行了,Me代表当前窗体,C#里用this这个关键词表示当前窗体Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickMe.Close()End Sub这就是非常简单的登陆界面,可以在创建个窗体,当账号和密码输入正确时点击登录按钮后登录界面隐藏,界面跳转到新创建的窗体里今天就不介绍了,下次才进一步介绍下次见了[送心][送心][送心]
(图片来源网络,侵删)
0 评论