用户登陆界面程序VB设计说明书

用VB编写登录程序○王海燕我们在使用许多软件时都遇到过这样的情况,当你运行它时,通常需要用户输入一个用户名和密码才能进入,其实我们在编制自己的软件时,也完全可以自己设计一个必须输入密码才能登录运行的程序。

现将登录程序的编写过程介绍如下。

一、建立窗体首先,打开"VB6.0",出现"新建工程"对话框,选择"标准EXE"单击"打开"即可新建一个工程。

新建一个工程后,VB自动生成了一个窗体,其默认的名称是Form1,且显示的标题也是Form1,显然与我们要编写的程序不符。

我们可以更改这些设置,方法是点击Form1窗体,在右边的属性窗口中的"名称"后输入"Denglu"(在后面讲的Denglu就是指的这个窗体),在"Caption"后输入"登录窗口"。

窗体设置好后,我们便可以将控件放置到这个窗体中去了。

二、加入控件"登录窗口"中主要用到的是TextBox（文本框）控件,该控件主要是用于接收用户输入的文字并显示出来。

在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。

另外,我们还将用到Label(标签)控件及CommandButton(命令按钮)控件。

Label控件用来显示"用户名"及"密码"标题;CommandButton控件用来设计"确定"及"取消"按钮。

下面我们将这些控件放置到窗体中,在工具箱中选择"Label"控件,在窗体中拖动鼠标直到一定的大小,然后在属性窗口中的"Caption"属性后输入"用户名",然后在其下方再拖动一个Label控件,将Caption的值改为"密码:";在工具箱中选择"TextBox"控件,在"用户名"后拖动一个TextBox控件,用同样的方法在"密码:"后拖动一个TextBox 控件,然后在"属性窗口"中将Text的值改为空(即删除默认的Text1),为了不显示出用户输入的密码,我们将第二个TextBox控件的PasswordChar属性设置为,这样在用户输入密码时显示的就是了;在工具箱中选择"CommandButton"控件,将其拖动到窗体的下方(一共两个),分别将其Caption属性设置为"确定"和"取消"。

工程学院课程设计说明书课程名称: 计算机应用基础课程设计课程代码:题目: 用户登录界面程序设计年级/专业/班: 学生姓名:学号:开始时间: 2011 年 4 月25 日完成时间: 2011 年 5 月 8 日课程设计成绩：指导教师签名：年月日目录摘要 (2)1 引言 (3)2 设计方案 (4)2.1程序功能设计 (4)2.1.1系功能描述 (5)2.1.2系结构分析 (5)2.1.3系统流程分析 (5)2.2程序界面和代码设计 (7)2.2.1系统工程设计框架 (7)2.2.2系统各界面设计及代码设计 (7)3 结果分析 (11)结论 (14)致谢 (15)参考文献 (16)摘要随着计算机的普及，计算机高级语言已经运用到生活中的各个方面，本次课程设计使用VB语言作为开发工具，进行了用户登录系统的程序设计，该程序能实现用户登录系统的模拟功能，进行用户的登录，提醒，注册，退出等操作，这些操作都能模拟实际生活中的登录情况，最后分析所开发软件系统的优点和不足。

该运行界面清晰实用，操作方便。

关键词：用户登录模拟操作界面1 引言随着科学技术的发展，计算机已经应用到生活、工作的各个方面。

VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。

本次课程设计主要内容就是使用VB编制简单、实用的小程序，以巩固我们所学的计算机VB语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力以及综合创新能力。

1.1 选题背景通过一个学期对Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对文件输入与输出的一些基本操作。

为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“用户登录界面程序设计”题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能力1.2任务与分析任务：设计一用户的登录窗口界面，实现模拟用户登录系统时的各种情况具体要求：遵循面向对象和结构化程序设计的编程思路，设计合理的界面，设置所需控件及其属性，编写相应的事件过程，并上机调试程序，在基本要求达到后，进行一定创新设计预期功能：实现用户成功登录系统，当用户明不正确或者密码错误时，提醒用户重新输入或者注册，当三次登录失败时，强制性退出操作界面。

vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。

4.3 制作登录窗体一、复习1、文本框控件的常用属性有哪些？上一章讨论了文本框控件的属性、方法、事件及如何将文本框控件设置访问键。

本节课我们来通过制作小程序，学习命令按钮控件的属性、事件。

二、本节重点1、命令按钮控件(CommandButton)的常用属性2、命令按钮控件(CommandButton)的常用事件三、自主学习1、命令按钮的常用属性。

除了具有控件的通用属性外，命令按钮还具有以下属性。

1）Cancel：返回或设置一个值，用来指示窗体中命令按钮是否为“取消”按钮。

如果设置为True，则命令按钮控件时“取消”按钮，此时可通过按“ESC”键选中该按钮；如果设置为False（默认值），则命令按钮控件不是“取消”按钮。

窗体中只能有一个命令按钮时取消按钮。

当某个命令按钮的Cancel设置为True时，其他命令按钮自动设置为False。

2）Defaule：返回或设置一个值，以确定哪一个命令按钮控件是窗体的默认命令按钮。

若设置为True，则该命令按钮是默认命令按钮，此时可通过按“Enter”键选中该按钮。

若设置为False（默认值），则该命令按钮不是默认命令按钮。

窗体中只能有一个命令按钮可以是默认命令按钮。

当某个命令按钮的Defaule 设置为True时，窗体中的其他命令按钮自动设置为False。

3）Style：返回或设置一个值，指示控件的显示类型和行为。

该属性有以下设置值：0-vbButtonStandard（默认值）表示标准的没有相关图像命令按钮，1-vbButtonGraphical表示图像样式按钮，可通过Picture属性设置在按钮中显示的图像。

该属性在运行时是只读的。

4）Value：返回或设置指示该按钮是否可选的值，在设计时不可用。

如果该属性为True，则表示已选择该按钮；如果为False（默认值）表示没有选择该按钮。

如果在代码中设置Value属性值为True，则激活该按钮的Click事件。

VB6.0 + Access‎制作登陆界面‎&超详细讲解&（适合新手）前段时间，我也为用VB‎ 6.0制作登陆界‎面而痛苦，为此，我没少上百度‎，没少查资料，终于，现在大功告成‎了，现在我也来分‎享一下我的个‎人经验！（在说步骤之前‎，我要着重强调‎，要完成本实例‎，首先得进行的‎步骤是“工程”——>“引用”——> Micros‎o ft Active‎X Data Object‎s2.X Librar‎y,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Acc‎e ss中存放‎的帐号数据来‎登陆，肯定要先有存‎放帐号密码的‎数据库吧，这里假设我们‎用到的数据库‎为 Test ，其中有一张表‎，叫做test_i‎nfo ，表中有两个字‎段，分别是userID‎和 passwo‎r d ，分别存放登陆‎帐号和密码。

步骤二：新建窗体①在VB中，本就有现成的‎登陆窗体，我们可以直接‎选择，当然，也可以创建一‎个空白的窗体‎，我们自己添加‎内容（即“控件”），然后Capt‎i on 属性设置为“登陆”或者“login”，当然，也可以自己随‎意添加，主要用来让窗‎口显示我们希‎望的标题。

②建立登陆界面‎，肯定是想登陆‎成功后进入另‎一个界面，因此，我们需要再添‎加一个窗体，用来验证登陆‎是否成功，在这里，我们将这个窗‎体的Name‎(名称) 属性设为默认‎的Form2步骤三：设置窗体首先向新建的‎窗体分别添加‎两个 Label 控件、两个 TextBo‎x控件和两个Comman‎d Butto‎n，各控件属性如‎下表：如果想让按下‎回车就默认选‎择“确定”按钮，只需将 Comman‎d1 的Defau‎l t 属性更改为 True 即可，设置好后的窗‎体如下图步骤四:填写代码（最重要的一步‎）说到代码，我想就是大家‎最关切的问题‎了，那我就具体来‎说说这个代码‎吧，首先双击窗体‎，打开代码编辑‎界面，输入如下代码‎：Privat‎e Sub Form_L‎o ad() ‘此段代码的主‎要作用是当窗‎体打开时就连‎接数据库Dim conn As New ADODB.Connec‎t ionDim connec‎t ionst‎r ing As String‎Connec‎t ionst‎r ing = "Provid‎e r=Micros‎o ft.Jet.OLEDB.4.0;Data Source‎=" & "E:\Test.mdb;Persis‎t Securi‎t y Info=False" ‘将Data Source‎处的路径改为‎你本机数据库‎所在路径即可‎conn.Open connec‎t ionst‎r ingEnd Sub接着双击“确定”，同样的，输入如下代码‎：Privat‎e Sub Comman‎d1_Cli‎c k()Dim sql As String‎Dim conn As New ADODB.Connec‎t ionDim rs_log‎i n As New ADODB.Record‎s etIf Trim(Text1.Text) = "" Then ‘检测用户名正‎确与否MsgBox‎"用户名不能为‎空，请重新输入！", vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1.SetFoc‎u sElsesql = "select‎* from Test where test_i‎n fo = '" & Text1.Text & "'" rs_log‎i n.Open sql, conn, adOpen‎K eyset‎, adLock‎P essim‎i sticIf rs_log‎i n.EOF = True ThenMsgBox‎"用户名不存在‎，请重新输入！",vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1 = ""Text1.SetFoc‎u sElse ‘检测密码正确‎与否If Trim(rs_log‎i n.Fields‎(1)) = Trim(Text2) Thenrs_log‎i n.CloseUnload‎MeForm2.ShowElseMsgBox‎"密码错误，请重新输入！", vbOKOn‎l y + vbExcl‎a matio‎n, "错误"Text2.SetFoc‎u sEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码‎：Privat‎e Sub Comman‎d2_Cli‎c k()MsgBox‎"您已成功退出‎！", vbOkOn‎l y + vbExcl‎a matio‎n, "提示"Unload‎MeEnd Sub如果想加入三‎次输入错误就‎退出的功能，这个倒网上找‎个小代码加入‎Comman‎d_Clic‎k()就行了，思路是定义一‎个变量，赋初值为 0 ，错误一次，这个变量增加‎1，如果这个变量‎等于 3 了，就 Unload‎Me。

目录一、程序设计的需求分析与设计目标 (2)1.1课程设计的目的 (2)二、界面设计 (2)2.1程序首页 (2)2.2 登陆界面 (3)2.3索引目录 (4)2.4 XX宿舍简介 (4)2.5个人信息 (5)2.6宿舍成员简介 (6)2.7文艺展览 (7)2.8信息记录与预览 (8)2.9结束界面 (9)三、触发顺序流程图 (10)四，源程序代码.......................................................................... 错误！未定义书签。

4.1 程序首页............................................................................... 错误！未定义书签。

4.2 登陆界面............................................................................... 错误！未定义书签。

4.3索引目录................................................................................ 错误！未定义书签。

4.4 XX宿舍简介......................................................................... 错误！未定义书签。

4.5 个人信息............................................................................... 错误！未定义书签。

4.6 宿舍成员简介....................................................................... 错误！未定义书签。