vb.net 简单上机登陆(面向过程思维)
2011-12-29 11:15
225 查看
首先说说简单的上机登陆
1.窗体界面设计
简单的上机登录很简单,它首先需要在vb.net中新建项目,添加一个windows窗体应用程序。对于窗口界面的设计,主要根据用户的需求来做,用户至上嘛,在这里我就做了个简单的界面,主要以实现它的功能为主,窗体界面设计如图:
2.主要实现的功能
单击确定按钮时,上机成功,弹出“登陆成功!”,否则弹出“登陆失败!”。单机取消按钮时,退出系统。
3.数据库操作
利用SQL Server数据库,建了一个“Login”数据库,其中建了一张UserInfo表,数据表内容具体如图:
4.代码设计
注:此Demo源码以上传至vb.net登录界面(面向过程思维)
1.窗体界面设计
简单的上机登录很简单,它首先需要在vb.net中新建项目,添加一个windows窗体应用程序。对于窗口界面的设计,主要根据用户的需求来做,用户至上嘛,在这里我就做了个简单的界面,主要以实现它的功能为主,窗体界面设计如图:
2.主要实现的功能
单击确定按钮时,上机成功,弹出“登陆成功!”,否则弹出“登陆失败!”。单机取消按钮时,退出系统。
3.数据库操作
利用SQL Server数据库,建了一个“Login”数据库,其中建了一张UserInfo表,数据表内容具体如图:
4.代码设计
'引用命名空间 Imports System Imports System.Data Imports System.Data.SqlClient Public Class Form1 Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click '连接数据库 Dim sqlConnection1 As SqlClient.SqlConnection Dim sqlConnect As String = "Server=waly-pc;database=Login;uid=sa;pwd=123456;" '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码” sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnect) sqlConnection1.Open() '打开数据库 '验证代码 Dim sql As String = "select count(*) from UserInfo where UserID='" & txtUserName.Text.Trim() & "' and UserPassword='" & txtPassword.Text() & "'" Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1) Dim count As Integer count = sqlCmd.ExecuteScalar If count > 0 Then MsgBox("登陆成功!") Else MsgBox("登陆失败!") End If sqlConnection1.Close() '关闭数据库 End Sub '退出系统 Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click End End Sub End Class
注:此Demo源码以上传至vb.net登录界面(面向过程思维)
相关文章推荐
- 如何让VB6.0升级到VB.NET的过程变得更简单?
- VB.net 简单程序的结构 (注意和VB过程的区别)
- 菜鸟编程VB.NET登录窗体之面向过程
- Asp.Net中检查登陆信息(使用全局过程,原创)
- 【VB.net】三层登陆的代码实现
- 【VB.Net机房重构】存储过程的使用
- MVC + 三层 + ASP.NET 简单登陆验证
- VB.NET一个秘密的类:简单但强大
- 使用VB.Net写一个简单的数据访问层:T-Sql函数的支持。
- vb.net 对于文件的的简单操作
- asp.net mvc signalr简单聊天室制作过程分析
- asp.net中 cookies的应用,自己写的一个简单登陆程序。
- asp.net一个简单的登陆系统代码
- 面向过程简单的五子棋逻辑
- VB.NET中的DLL编写和调用的最简单示例
- 存储过程output参数_数据库调用_C#_NET调用简单CODE
- Windows CE .NET中实现服务的简单过程
- vb.net 教程 8-2 简单的SQL语言7
- VB.NET与WEB服务器通讯过程详解
- VB.NET中-自定义过程和函数