如何做个简单的小软件呢？如果要求不高，那winform绝对是必选项，那么废话不多少了，先用winform做个简单的登录界面，一步一步的开启做软件之路，冲鸭！冲鸭！
首先呢，在做登录界面之前，我们得有数据库是不是，用来保存我们的用户信息，老样子还是用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.Click
Dim sql As String
Dim conn As New OleDbConnection
Dim PassWord As String
Dim UserName As String
UserName = TextBox1.Text.Trim
PassWord = TextBox2.Text.Trim
If UserName = "" Or PassWord = "" Then
MessageBox.Show("账号或密码不能为空")
Return
End If
conn.ConnectionString = "provider =microsoft.ace.oledb.12.0;data source=C:UsershuanglongDesktop数据库.accdb"
sql = String.Format("select 用户账号,用户密码 from 用户信息表 where 用户账号='{0}' and 用户密码='{1}'", UserName, PassWord)
Dim adapter As New OleDbDataAdapter(sql, conn)
Dim dt As New DataSet
adapter.Fill(dt, "用户信息表")
Dim datareader As DataTableReader
Try
datareader = dt.Tables("用户信息表").CreateDataReader
If datareader.Read Then
If datareader.HasRows Then
MessageBox.Show("登录成功")
End If
Else
MessageBox.Show("登录失败，请输入正确账号密码")
Return
End If
Catch ex As Exception
MessageBox.Show("出现异常" & ex.Message)
End Try
Me.Hide()
End Sub
篇幅有限，代码就不详细讲了，大家应该能看懂，编译一下就是如下图这样
输入正确的数据库里的用户账号和密码，点击登录按钮就会弹出登录成功
输入错误的话会弹出登录失败界面
然后进入Button2_Click事件，就是取消按钮的点击事件，上面说了点击取消按钮整个登录界面将关闭，用Me.Close就行了，Me代表当前窗体，C#里用this这个关键词表示当前窗体。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
这就是非常简单的登陆界面，可以在创建个窗体，当账号和密码输入正确时点击登录按钮后登录界面隐藏，界面跳转到新创建的窗体里。今天就不介绍了，下次才进一步介绍
下次见了[送心][送心][送心]
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。