年适用的四字祝福话语众多。事业方面,“蒸蒸日上”寓意事业不断发展、繁荣向上;“平步青云”祝福对方在工作中能顺利晋升、仕途得意;“宏图大展”期望其能充分施展宏伟的计划和抱负。预测2025年很火的四字祝福语具有一定不确定性,但一些美好寓意的祝福......
2025-03-29 435
如何做个简单的小软件呢?如果要求不高,那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 = &,34;&,34; Or PassWord = &,34;&,34; Then
MessageBox.Show(&,34;账号或密码不能为空&,34;)
Return
End If
conn.ConnectionString = &,34;provider =microsoft.ace.oledb.12.0;data source=C:UsershuanglongDesktop数据库.accdb&,34;
sql = String.Format(&,34;select 用户账号,用户密码 from 用户信息表 where 用户账号=&,39;{0}&,39; and 用户密码=&,39;{1}&,39;&,34;, UserName, PassWord)
Dim adapter As New OleDbDataAdapter(sql, conn)
Dim dt As New DataSet
adapter.Fill(dt, &,34;用户信息表&,34;)
Dim datareader As DataTableReader
Try
datareader = dt.Tables(&,34;用户信息表&,34;).CreateDataReader
If datareader.Read Then
If datareader.HasRows Then
MessageBox.Show(&,34;登录成功&,34;)
End If
Else
MessageBox.Show(&,34;登录失败,请输入正确账号密码&,34;)
Return
End If
Catch ex As Exception
MessageBox.Show(&,34;出现异常&,34; & 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
这就是非常简单的登陆界面,可以在创建个窗体,当账号和密码输入正确时点击登录按钮后登录界面隐藏,界面跳转到新创建的窗体里。今天就不介绍了,下次才进一步介绍
下次见了[送心][送心][送心]
打开vs2019 创建新项目,语言选择Visual Basic(就是vb.net),平台选择windows,选中windows 窗体应用(.NET Framework),如下图所示,点击下一步。 设置项...
编辑好代码之后,在函数,类,方法,变量的开头连续输入三个单引号'(vb.net)或者三个///(c#)123这是c#的要做的注释请写在>< 中间''' < summary>''' 函数...
标签: vb.net教程 vb.net入门经典 vb.net基础教程 vb.net编程实例教程 vb.net调试全攻略 vb.net适合开发什么 vbnet自学教材 v
相关文章
年适用的四字祝福话语众多。事业方面,“蒸蒸日上”寓意事业不断发展、繁荣向上;“平步青云”祝福对方在工作中能顺利晋升、仕途得意;“宏图大展”期望其能充分施展宏伟的计划和抱负。预测2025年很火的四字祝福语具有一定不确定性,但一些美好寓意的祝福......
2025-03-29 435
1、淄博职业学院2025年是否单招尚未确定。目前淄博职业技术大学2025录取分数线整理,淄博职业学院尚未官方发布关于2025年是否进行单独招生淄博职业技术大学2025录取分数线整理的明确通知。但根据历史数据,该学院在近年来有持续开展单招的趋......
2025-03-29 315
我宣誓高三励志百日宣誓词押韵简短:为高三励志百日宣誓词押韵简短了心中的梦想高三励志百日宣誓词押韵简短,自信自强,永不放弃。追求卓越,永争第一。我始终有创造和改写自己命运的机会,我坚信天道酬勤,付出总有回报。面对高考,我们充满信心,面对困难,......
2025-03-29 434
沈阳师范大学作为一所知名院校,在招生批次上有着明确的划分。在一些非新高考省份中,沈阳师范大学被归为一本批次招生,而在其他省份,则主要在二本批次招生。这意味着,尽管在某些地方,它可能被视为二本院校,但在更多地区,它依然保持着一本大学的地位。沈......
2025-03-29 679
1、湖南智邦学院是民办大专。湖南智邦学院坐落于湖南河西大学城,依托深圳智邦英才教育科技集团庞大的企业资源,专注于培养工业0和《中国制造2025》战略需要的智能领域高端技术人才。现有教职员工150余人,技术骨干都来自于知名企业。2、湖南智邦学......
2025-03-29 761