用户登陆界面程序vb设计
VB制作系统登录界面,包括用户名,密码和错误校验及效果全代码
VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码第十讲:教你用VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码以下代码均为个人学习心得，经过测试并且无误，可以嵌入大型程序中作为身份认证的功能作用。
其中有一些窗体名和效果代码，不必复制，否则会出现错误，请仔细阅读核心代码理解即可。
红色代码部份为实现用户检测的关键代码，必需要有后台数据库用来存放用户信息，通过 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\HISDB.mdb"来连接，然后用If rs.EOF = True Then进行判断表中是否存在用户信息即可。
Option ExplicitDim Cnum As IntegerPrivate Sub CmdCancel_Click()'//结束EndEnd SubPrivate Sub CmdLogin_Click()Dim UserName As StringDim PassWord As StringDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim StrSQL As Stringconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path & "\HISDB.mdb"UserName = Trim(TxtUserName.Text) '//将文本框内的值赋给定义好的全局变量PassWord = Trim(TxtPassword.Text) If UserName = "" Or PassWord = "" ThenMsgBox "对不起，用户或密码不能为空～请重新输入～～", vbCritical, "错误"ElseIf UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空Cnum = Cnum + 1StrSQL = "select * from 用户信息表 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打开记录集If rs.EOF = True ThenMsgBox "对不起，无此用户或者密码不正确～请重新输入～～", vbCritical, "错误"TxtUserName.Text = ""TxtPassword.Text = ""TxtUserName.SetFocusrs.CloseIf Cnum >= 3 ThenMsgBox "对不起，您已经多次失败，无权操作本系统～", vbCritical, "无权限"Unload MeExit SubEnd IfElse '登陆成功,以下为权限验证If rs.Fields("用户权限").Value = "系统管理" Then Frmmdimain.Show Unload MeElseIf rs.Fields("用户权限").Value = "挂号" ThenFrmregistration2.ShowUnload MeElseIf rs.Fields("用户权限").Value = "诊断" Then Frmdiagnose2.Show Unload MeElseIf rs.Fields("用户权限").Value = "收费" Then Frmcharges2.Show Unload MeElseIf rs.Fields("用户权限").Value = "发药" Then Frmmedicine2.Show Unload MeEnd Ifrs.CloseEnd IfEnd IfEnd SubPrivate Sub Form_Load()'//加载主窗时给文本框赋值TxtUserName.Text = "Admin"TxtPassword.Text = "123"Cnum = 0End SubPrivate Sub TmrChangeColor_Timer() '//调用定义好的改变颜色过程, Call changecolor(LblWelcome(0), 0, 1, 2, 3, 4, 5, 6, 7)End SubPrivate Sub TmrMoveText1_Timer() '//移动LblShaSiLblShaSi(0).Move LblShaSi(0).Left + 20 LblShaSi(1).Move LblShaSi(1).Left + 20 End SubPrivate Sub TmrMoveText2_Timer() '//移动LblShaSiIf LblShaSi(0).Left + LblShaSi(0).Width >= Me.Width +LblShaSi(0).WidthThenLblShaSi(0).Move -1500End IfIf LblShaSi(1).Left + LblShaSi(1).Width >= Me.Width +LblShaSi(1).WidthThenLblShaSi(1).Move -1500End IfEnd Sub'//定义一个改变颜色的过程,下面的control就是我们所说的控件 Sub changecolor(LCnt As Control, color1 As Integer, _color2 As Integer, color3 As Integer, _color4 As Integer, color5 As Integer, _color6 As Integer, color7 As Integer, _color8 As Integer)Dim tmep As Integertmep = Val(LCnt.Tag) '//将返回包含于字符串内的数字赋给TEMP Select Case tmepCase color1LCnt.Tag = color2Case color2LCnt.Tag = color3Case color3LCnt.Tag = color4Case color4LCnt.Tag = color5Case color5LCnt.Tag = color6Case color6LCnt.Tag = color7Case color7LCnt.Tag = color8Case color8LCnt.Tag = color1End SelectLCnt.ForeColor = QBColor(LCnt.Tag) '//给控件LCnt中的字体赋予颜色,注意QBColor是将一值'//转换为三色,MSDN详解,我也是在那查的````哈End Sub。
简单的VB登录窗体
简单的VB登录窗体，附代码VERSION 5.00Begin VB.Form frmLoginBorderStyle = 3 'Fixed Dialog Caption = "登录"ClientHeight = 1545ClientLeft = 8955ClientTop = 4755ClientWidth = 3750LinkTopic = "Form1"MaxButton = 0 'FalseMinButton = 0 'FalseScaleHeight = 912.837ScaleMode = 0 'UserScaleWidth = 3521.047ShowInTaskbar = 0 'FalseBegin VB.TextBox txtUserNameHeight = 345Left = 1290TabIndex = 1Top = 135Width = 2325 EndBegin mandButton cmdOKCaption = "确定"Default = -1 'TrueHeight = 390Left = 495TabIndex = 4Top = 1020Width = 1140EndBegin mandButton cmdCancelCancel = -1 'TrueCaption = "取消"Height = 390Left = 2100TabIndex = 5Top = 1020Width = 1140EndBegin VB.TextBox txtPasswordHeight = 345IMEMode = 3 'DISABLELeft = 1290PasswordChar = "*"TabIndex = 3Top = 525Width = 2325EndBegin bel lblLabelsCaption = "用户名称(&U):"Height = 270Index = 0Left = 105TabIndex = 0Top = 150Width = 1080EndBegin bel lblLabelsCaption = "密码(&P):"Height = 270Index = 1Left = 105TabIndex = 2Top = 540Width = 1080EndEndAttribute VB_Name = "frmLogin"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitDim n As Integer ' 密码错误次数Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()'设置全局变量为false'不提示失败的登录Unload frmLoginEnd SubPrivate Sub cmdOK_Click()If n = 1 ThenMsgBox "账号名密码错误次数太多" & vbCrLf & " 点击退出！", vbOKOnly, "提示！"Unload frmLoginElse'检查正确的密码If txtUserName = "" Or txtPassword = "" ThenMsgBox "账号或密码不能为空", vbOKOnly, "提示！"If txtUserName = "" Then txtUserName.SetFocusIf txtPassword = "" Then txtPassword.SetFocusIf txtUserName = "" And txtPassword = "" Then txtUserName.SetFocusn = n - 1MsgBox "还有" & n & "次机会！", vbOKOnly, "警告！"ElseIf txtUserName = "admin" And txtPassword = "1234" Then'将代码放在这里传递'成功到calling 函数'设置全局变量时最容易的Form1.ShowMe.HideElseMsgBox "无效的账号或密码，请重试!", , "登录"n = n - 1MsgBox "还有" & n & "次机会！", vbOKOnly, "警告！"txtUserName = ""txtPassword = ""txtPassword.SetFocusEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()n = 5 End Sub。
用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属性设置为"确定"和"取消"。
vb程序设计登陆界面代码详例
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。
VB程序设计程序用户界面设计
过滤器属性，是一个字符串，用于设置对话框中 可以显示的文件类型
过滤器索引属性，是一整数，表示文件列表框中 默认的文件类型是Filter属性的设置的第几组。
初始化路径属性，设置对话框的初始文件目录
DefaultExt
设置保存文件时默认的文件扩展名
“颜色”对话框的常用属性
实例5-1程序界面
实例5-1程序实现分析
通用对话框的属性设置 在窗体中显示图像文件的路径与文件名
的实现 如何调用外部程序编辑图像文件 实现步骤 代码清单
自定义对话框
创建自定义对话框就是建立一个窗体， 然后根据实际需要或自己的喜好在窗体 上放置控件，通过设置属性值来自定义 窗体的外观。
通用对话框的属性和方法
Action属性 0 1 2 3 4 5 6
Show方法
ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
打开的通用对话框的类型 无对话框显示 打开文件对话框 另存对话框 颜色对话框 字体对话框 打印机对话框 帮助对话框
坐标位置][，y坐标位置]） 使用示例：
s= InputBox("请输入您的Email地址", "用户 信息输入") 说明
输出消息框
基本格式：MsgBox（提示信息，[， 按钮数值][，标题]）
使用示例：c=MsgBox("密码错",21， "密码核对" )
说明 （详见教材）
用于指定按钮数目及形式的VB常数
5
显示“重试”、“取消”按钮
用于指定图标样式的VB常数
VB符号常量 VbCritical VbQuestion VbExclamation VbInformation
VB程序设计程序用户界面设计
Private Sub Form_Click() CommonDialog1.Action = 3 Form1.BackColor = CommonDialog1.Color End Sub
“字体”对话框的常用属性
对应数值 1 2 3 4 5 6 7
用户的选择按钮 单击“确定”按钮 单击“取消”按钮 单击“终止”按钮 单击“重试”按钮 单击“忽略”按钮 单击“是”按钮 单击“否”按钮
通过对话框
VB提供了一组基于Windows的常用的标 准对话框界面，用户可以充分利用通用 对话框（Common Dialog）控件在窗体 上创建6种标准对话框，它们分别是打开 （Open）、另存为（Save As）、颜色 （Color）、字体（Font）、打印机 （Printer）和帮助（Help）对话框。
通用对话框的使用步骤
通用对话框控件不属于VB6.0的标准控件，默 认情况下未出现在开发环境的工具箱中，因此 必须首先将该控件添加到工具箱中方可使用。 通用对话框的编程一般应包括以下三个步骤 。
将通用对话框添加到工具箱中 性或调用其基本方法 个性化属性设置及程序设计
返回或设置用户所要打开或另存为的文件名
过滤器属性，是一个字符串，用于设置对话框中 可以显示的文件类型
过滤器索引属性，是一整数，表示文件列表框中 默认的文件类型是Filter属性的设置的第几组。
初始化路径属性，设置对话框的初始文件目录
DefaultExt
设置保存文件时默认的文件扩展名
“颜色”对话框的常用属性
属性 Flags
Color FontName FontSize FontBold FontItalic FontUnderline FontStrikethru
用户管理及登陆程序设计 vb实验报告
软件开发环境与工具实验报告实验二实验题目: 用户管理及登陆程序设计实验类型:验证性指导老师：王琦专业班级:计算机科学与技术系1001班学号: 2010100152姓名:陈振北2012年 11月 17日一、实验题目用户管理及登录程序设计二、实验目的通过本次实验，进一步掌握五大对象及其功能，掌握利用对数据库进行存取的两种方法，并利用，采用分层架构，实现一个完整的用户管理及登录程序。
两种连接方式。
三、实验功能要求实验功能要求：1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。
2、实现完整的用户登录系统。
3、对敏感数据进行加密处理。
4、用.NET分层架构设计。
四、实验步骤1.把连库的基本参数放到APP.CONFIG中<appSettings><add key="server" value="LIU-PC\SQLSERVER2005"/><add key="uid" value="sa"/><add key="pwd" value=""/><add key="database" value="vb_net"/></appSettings>2.新建一个类库为myCommon并新建一个类clsStrconn 在里面设置连库的基本语句Public Shared Function getStrConn() As StringDim strConn As StringstrConn = "server=" &System.Configuration.ConfigurationManager.AppSettings("server") & ";"strConn &= "uid=" &System.Configuration.ConfigurationManager.AppSettings("uid") & ";"strConn &= "pwd=" &System.Configuration.ConfigurationManager.AppSettings("pwd") & ";"strConn &= "database=" &System.Configuration.ConfigurationManager.AppSettings("database")Return strConnEnd Function3．新建一个类库，并新建一个类clsuser在类内设置增，删，改，查的基本语句，并且为一个为一个function，要声明命名空间和根例：Public Function getall2dr(ByVal strWhere As String) AsSqlClient.SqlDataReaderDim conn As New SqlClient.SqlConnectionconn.ConnectionString = myCommon.clsStrconn.getStrConn Dim cmd As New SqlClient.SqlCommandcmd.Connection = connIf strWhere = "" ThenmandText = "select * from login"ElsemandText = "select * from login where " & strWhereEnd Ifconn.Open()Returncmd.ExecuteReader(CommandBehavior.CloseConnection)End Function搜索stewhere所对应的记录并且在相应的类中声明一系列变量，把值传回这个类，并进行相应的应用4.设置一个主窗体，为登陆界面并用MD5进行加密主代码如下Sys_姓?名? = UsernameTextBox.TextAutumn_password =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.PasswordTextBox.Text, "MD5")Dim dr As SqlClient.SqlDataReaderdr = o.getall2dr("")Dim i As Integeri = 0While dr.Readi = i + 1If Autumn_password = dr!u_pwd ThenSys_姓?名? = dr.Item("u_name")Sys_uid = dr("state")End IfEnd Whiledr.Close()5设置一个主界面进行增删改查的选择，如图：6.设置相应的增，删，改，查的界面核心代码： add.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox_uid.Texto.dUser_Name = Me.TextBox_uname.Texto.dUser_Pwd =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.TextBox_upwd.Text, "MD5")o.dUser_sname = Me.TextBox_usname.Texto.dUser_DeptID = Me.TextBox_usdept.TextDim sr As Stringsr = o.saveIf sr = "1" ThenMsgBox("保存成功")ElseMsgBox("保存失败" & sr)End IfEnd SubUpdata.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox1.Texto.dUser_Name = Me.TextBox2.TextDim sr As Stringsr = o.updateIf sr = "1" ThenMsgBox("成功更新")ElseMsgBox(“失败更新” & sr)End IfEnd SubEnd Classdel_l.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox1.Text Dim sr As Stringsr = o.deleteIf sr = "1" ThenMsgBox("成功删除")ElseMsgBox("失败删除" & sr) End IfEnd Sub7.运行如图：六、实验总结通过本次实验，懂得了连库的基本方法，及一些基本应用。
如何用VB编写一个用户登录窗口
方法/步骤7
在form1窗体里， 双击“重新输入” 按钮，弹出代码窗 口，写上代码，然 后关闭代码窗口。 Private Sub Command2_Clic k() Text1 = "" Text2 = "" End Sub
方法/步骤8
在form2窗体里， 双击“返回”按钮， 弹出代码窗口，写 上代码，然后关闭 代码窗口。 Private Sub Command1_Clic k() Form2.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Sub
方法/步骤9
在form3窗体里， 双击“重新输入” 按钮，弹出代码窗 口，写上代码，然 后关闭代码窗口。 Private Sub Command1_Clic k() Form3.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Su
选中（单击即可）窗体Form1，在 右边的属性栏将Caption属性值改 为“用户登录”；选中标签Lable1 将Caption属性值改为“用户名”， 选中标签Lable2将Caption属性值 改为“密码”，属；选中文本框 Text1，将Text属性值置空，选中 文本框Text2，将Text属性值置空 且将PasswordChar属性值改为 “*”；选中按钮Command1，将 Caption属性值改为“登录”，选 中按钮Command2，将Caption属 性值改为“重新输入”。然后调整 各控件位置和大小，使整个窗体更 加美观。
如何用VB编写一个用户登录窗口
在form2窗体各添加一个标 签和按钮。在标签的 Caption属性值改为“登录 成功！”也可以通过Font属 性更改字体；按钮的 Caption属性值改为“返 回”。
在form3窗体各添加一个 标签和按钮。在标签的 Caption属性值改为“用户 名或tion 属性值改为“重新登录”。
.
9
方法/步骤10
至此，我们完成 了编程，调试一下 以检验程序的正确 性。一种可以右键 “文件”，再点击 “调试”，另一种 是直接点击调试按 钮。
.
10
此课件下载可自行编辑修改，此课件供参考！ 部分内容来源于网络，如有侵权请与我联系删除！
.
5
方法/步骤6
在form1窗体里，双击“登录”按钮，弹 出代码窗口，写上代码（在编写代码时系 统会自动检查代码错误，但不是万能的哦， 有些错误系统检查不出来），然后关闭代 码窗口，代码会自动保存。我把代码也写 下来，以方便亲手复制粘贴验证一下。
Private Sub Command1_Click() If Text1 = "aaa" And Text2 = "abc123" Then Form1.Hide Form2.Show Else Form1.Hide Form3.Show End If End Sub
Private Sub Command1_Clic k() Form2.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Sub
.
8
方法/步骤9
在form3窗体里， 双击“重新输入” 按钮，弹出代码窗 口，写上代码，然 后关闭代码窗口。
Private Sub Command1_Clic k() Form3.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Sub
用户登陆界面程序vb设计
用户登陆界面程序vb设计毕业论文题目: 用户登录界面程序设计年级/专业/班: 学生姓名:学号:指导教师：目录摘要 (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课程设计
登录界面VB课程设计一、课程目标知识目标：1. 让学生掌握VB编程中登录界面的基本设计原理和实现方法；2. 学会使用VB语言中的控件，如文本框、按钮等，完成登录界面的布局和功能实现；3. 了解计算机编程中变量、条件语句和循环语句的应用，为后续功能拓展打下基础。
技能目标：1. 培养学生运用VB语言设计登录界面的实际操作能力；2. 提高学生分析问题、解决问题的能力，使其能够独立完成登录界面的编写和调试；3. 培养学生团队合作意识，通过小组讨论和协作，共同完成课程设计任务。
情感态度价值观目标：1. 激发学生对计算机编程的兴趣和热情，培养其主动学习的习惯；2. 培养学生面对困难和挫折时的坚持和毅力，使其具备克服编程中各种问题的信心；3. 引导学生关注网络安全，了解登录界面在保护用户隐私方面的重要性，提高其社会责任感。
分析课程性质、学生特点和教学要求，本课程目标旨在使学生在掌握登录界面VB编程的基础上，提高其编程技能和实际操作能力，培养其团队协作和情感态度价值观。
课程目标具体、可衡量，以便于教学设计和评估的实施。
二、教学内容本章节教学内容依据课程目标，结合教材，科学系统地组织以下内容：1. VB编程基础回顾：变量、数据类型、运算符等基本概念；2. 控件应用：文本框、按钮、标签等控件的使用方法；3. 界面设计原则：登录界面的布局、美化和用户交互设计；4. 功能实现：使用条件语句和循环语句完成登录验证功能；5. 项目实践：分组进行登录界面设计，培养学生的实际操作能力和团队协作精神。
教学大纲安排如下：第一课时：回顾VB编程基础，介绍控件应用，分析登录界面设计原则；第二课时：讲解并演示登录界面功能实现，引导学生动手实践；第三课时：分组讨论和协作，进行登录界面项目实践，教师巡回指导；第四课时：展示学生作品，进行评价和总结，巩固所学知识。
教学内容与教材紧密关联，确保学生在掌握基本知识的基础上，逐步提高编程能力和实践操作技能。
VB6.0 + Access制作登陆界面
VB6.0 + Access制作登陆界面前段时间，我也为用VB 6.0制作登陆界面而痛苦，为此，我没少上百度，没少查资料，终于，现在大功告成了，现在我也来分享一下我的个人经验！（在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是“工程”——>“引用”——> Microsoft ActiveX Data Objects 2.X Library ,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Access中存放的帐号数据来登陆，肯定要先有存放帐号密码的数据库吧，这里假设我们用到的数据库为 Test ，其中有一张表，叫做 test_info ，表中有两个字段，分别是userID 和 password ，分别存放登陆帐号和密码。
步骤二：新建窗体①在VB中，本就有现成的登陆窗体，我们可以直接选择，当然，也可以创建一个空白的窗体，我们自己添加内容（即“控件”），然后Caption 属性设置为“登陆”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。
②建立登陆界面，肯定是想登陆成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登陆是否成功，在这里，我们将这个窗体的Name(名称) 属性设为默认的 Form2步骤三：设置窗体首先向新建的窗体分别添加两个 Label 控件、两个 TextBox 控件和两个CommandButton，各控件属性如下表：控件属性属性值Label1Caption 用户名AutoSize TrueLabel2Caption 密码AutoSize True Text1 Text NULLText2 PasswordChar * Text NULLCommand1 Caption 确定Command2 Caption 取消如果想让按下回车就默认选择“确定”按钮，只需将 Command1 的Default 属性更改为 True 即可，设置好后的窗体如下图步骤四:填写代码（最重要的一步）说到代码，我想就是大家最关切的问题了，那我就具体来说说这个代码吧，首先双击窗体，打开代码编辑界面，输入如下代码：Private Sub Form_Load() ‘此段代码的主要作用是当窗体打开时就连接数据库Dim conn As New ADODB.ConnectionDim connectionstring As StringConnectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "E:\Test.mdb;Persist Security Info=False" ‘将Data Source 处的路径改为你本机数据库所在路径即可conn.Open connectionstringEnd Sub接着双击“确定”，同样的，输入如下代码：Private Sub Command1_Click()Dim sql As StringDim conn As New ADODB.ConnectionDim rs_login As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then ‘检测用户名正确与否MsgBox "用户名不能为空，请重新输入！", vbOkOnly + vbExclamation, "错误"Text1.SetFocusElsesql = "select * from Test where test_info = '" & Text1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox "用户名不存在，请重新输入！",vbOkOnly + vbExclamation , "错误"Text1 = ""Text1.SetFocusElse ‘检测密码正确与否If Trim(rs_login.Fields(1)) = Trim(Text2) Thenrs_login.CloseUnload MeForm2.ShowElseMsgBox "密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"Text2.SetFocusEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码：Private Sub Command2_Click()MsgBox "您已成功退出！", vbOkOnly + vbExclamation, "提示"Unload MeEnd Sub如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command_Click()就行了，思路是定义一个变量，赋初值为 0 ，错误一次，这个变量增加 1 ，如果这个变量等于 3 了，就 Unload Me。
vb程序设计登陆界面代码详例
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。
vb登录界面（代码）
Private Sub Command1_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"If users.Text = "" ThenMsgBox ("账号不能为空")users.SetFocusElseIf password.Text = "" ThenMsgBox ("密码不能为空")password.SetFocusElseusername = users.Textpassword = password.Textsql = "Select * From Users where 用户名='" & username & "' and 密码='" & password & "'" Reco.open sql, conn, 1, 3If Reco.EOF ThenMsgBox "没有找到此用户"ElseForm1.HideForm4.ShowForm4.Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "帐号不能为空，请输入", vbCritical, "提示"Text1.SetFocusElseIf Text2.Text = "" ThenMsgBox "密码不能为空，请输入", vbCritical, "提示"Text2.SetFocusElseDim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"sql = "insert into Users(用户名,密码)values('" & Text1.Text & " ','" & Text2.Text & " ')"conn.Execute sqlconn.CloseForm2.HideForm3.Showbel1.Caption = "注册成功！点返回至登录页"End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click() Form3.HideForm1.Showers.SetFocusEnd SubPrivate Sub Form_Load()End SubPrivate Sub Combo1_Change() End SubPrivate Sub Command1_Click()Form4.HideForm5.ShowForm5.Text1.SetFocusEnd SubPrivate Sub Command2_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"sql = "Select * From Users where 用户名='" & Text2.Text & "'"Reco.open sql, conn, 1, 3If Reco.EOF <> True ThenForm4.HideForm7.ShowForm7.List1.AddItem "用户名:" & Reco("用户名").V alueForm7.List1.AddItem "性别:" & Reco("性别").V alueForm7.List1.AddItem "年龄:" & Reco("年龄").V alueForm7.List1.AddItem "地址:" & Reco("地址").V alueElseMsgBox "未找到该用户的资料!", 16Text2.SetFocusEnd IfEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"Reco.open "Select 用户名From liebiao where 类型='" & Combo1.Text & "'", conn, 1, 3 Text1.Text = Reco("用户名").V alueEnd SubPrivate Sub Form_Load()Combo1.AddItem "我的同学"End SubPrivate Sub Command1_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"If Text2.Text <> Text3.Text ThenMsgBox ("两次密码输入不一致！"), vbCritical, "提示"Elsesql = "Update Users Set 密码='" & Text2.Text & "' where 用户名='1414087626'" conn.Execute sqlconn.CloseForm5.HideForm6.ShowEnd IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()Form6.HideForm4.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click() Form7.HideForm4.ShowEnd SubPrivate Sub Form_Load()List1.Width = 1695End SubPrivate Sub HScroll1_scroll() End Sub。
vb课程设计-多用户登陆框
课程设计-----－多用户登陆框的制作1、教材分析ﻫ(1）该节课的教学内容是建立一个多用户的系统登陆框和修改框,主要知识点是随机文件的读取和存储,以及循环和判断语句的使用。
ﻫ(2)该教学内容对系统设计来说,是一个功能上的极大扩充,使设计的系统真正有了实用价值。
2、目标定位(1)教学目标通过建立系统登陆框和修改框,使学生真正了解随机文件的特点,灵活掌握随机文件的读取和存储,以及在实际开发中的使用，让学生认识到没有文件的系统功能是单一的，ﻫ（2)教学重点;怎样使用随机文件来完成我们的问题。
ﻫ（3)教学难点；解决问题的思路。
ﻫ（４）教学准备多媒体教学3、教学流程ﻫ首先,回顾一下前面学的知识,在前面我们已经简单的讲了一个密码登陆框，提问：1．那么请某个同学总结一下,密码登陆框的基本思路是什么?思路应该是确定一个默认的密码，然后等用户登陆的时候，核对默认密码和输入密码是否一致。
2.提出，这个简单的密码登陆框功能上有什么缺点？能不能符合现在社会的需要？比如，当密码泄漏后,失去了安全的功能。
还有,不同的登陆者应该有不同的权限，这样我们是不是要同时验证用户名和密码，就好比我们使用过的wｉn200０以上的系统，它是一个多用户的操作系统,那么我们应该想一想做一个像ｗin2000的密码等陆框，该怎么完成？３.请学生提出自己的思路？(观看界面设计思考)(１).首先，我们建立的是一个多用户的登陆框，那么在系统中就应该有一个文件用来存放多个用户登陆信息。
也就是说,先前的那种固定密码登陆肯定不能使用了。
思路：(培养学生解决问题的能力）两个事件:1．创建用户,把用户信息保存到随机文件中。
步骤：建立数据类型定义此数据类型变量核实用户两次输入密码相同,把用户信息保存。
(保证文本框不为空,）2．登陆：步骤：打开密码文件循环读取每条记录,把输入框的用户姓名和记录一一对应。
在找到相同姓名的情况下，再核实密码是否正确,如果正确进入系统,否则,跳出对话框，告诉密码错误；如果还没有用户名对应，就跳出,没有此人。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
毕业论文题目: 用户登录界面程序设计年级/专业/班: 学生姓名:学号:指导教师：目录摘要 (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知识点：界面设计，command控件、text控件及其属性，随机的读出于追加。
1.2.1设计题目用户登录界面程序设计1.2.2主要内容设计一用户的登录窗口检验程序。
1.2.3具体要求设计合理的用户界面，编制程序，实现如下功能：1、建立一随机文件,顺序文件或者数据库表文件,建立用户档案，预先存储一些用户的基本信息(用户名, 密码，姓名等)；2、当输入“用户名”和“密码”并选择“登录”后，单击“确定”按钮，则在数据文件中去查找该用户名和密码是否均为正确。
若用户名和密码正确，则在对话框中提示“合法用户！”，否则提示“不是合法用户或密码错误！”，给用户提供3次输入的机会，超过3次则程序退出或进入一死循环程序执行。
3、如果用户不存在，提示用户“是否需要注册？”，当输入“用户名”和“密码”并选择”注册”后，单击“确定”按钮，则向数据文件中添加新用户（包括用户名、密码和姓名）。
如已有相同用户名，则提示“该用户名已在使用！请重新选择”。
4. 单击“清除”按钮，则清除用户名和密码框中的内容，并将焦点设置在用户名框。
2设计方案根据系统需要，本软件共一个界面。
2.1程序功能设计2.1.1系统功能描述根据设计要求，程序要达到的功能如下：（1）用户通过界面登录系统，登录后提醒合法用户；（2）用户名错误或者密码错误时提醒错误或者注册，并提醒用户共有三次操作机会；（3）当选择注册时，通过随机文件追加用户信息，并提醒注册成功；2.1.2系统结构分析根据上面对系统功能的描述，构建出系统的总体功能结构图，如图1所示Array图1系统的总体功能结构图2.1.3系统流程分析本系统运行后直接进入主界面。
程序的主要工作流程图如图2所示。
图2 系统主要工作流程图2.2程序界面和代码设计2.2.1系统工程设计框架在设计程序之前，应先布局整个工程。
本系统可设立一个工程文件，取名为用户登录界面．VBP，1个窗体文件，如图3所示：图3 工程内容2.2.2 系统各界面设计及代码设计根据功能不同，在本系统中设计了一个窗体。
用户操作界面主要功能是提供用户登录系统的操作界面如图4所示、图4 操作界面操作界面主要代码如下：通用部分的代码如下：Private Type UserInfozh As String * 10mima As String * 10End TypeDim U As UserInfoDim counter As IntegerDim G As Boolean登录Command1过程代码如下：Dim z As String * 10, m As String * 10z = Trim(Text1.Text)m = Trim(Text2.Text)If Option1.Value = True ThenF = FalseOpen App.Path + "\user.dat" For Random As #1i = 0Do While Not EOF(1)i = i + 1Get #1, i, UIf z = U.zh And m = U.mima ThenMsgBox "你是合法用户"F = TrueExit DoEnd If ’’’' 登录成功LoopClose #1If F = False Then ’’非法用户时运行counter = counter + 1If counter < 3 Then '''' jia rumsg$ = "用户不存在或密码错误！是否注册？注册单击<是>" + vbCrLf + "否则单击<否>"Title$ = "操作进程确认 "x = MsgBox(msg$, vbYesNo + 32, Title$)If x = 6 ThenOption2.Value = TrueElseIf x = 7 ThenMsgBox "请重新输入！"MsgBox "您总共有三次操作机会！"Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd IfIf counter = 3 ThenMsgBox "重试次数已到，即将退出本系统!" EndExit SubEnd IfEnd If ''''添加End IfIf Option2.Value = True Then ’’’’’’注册 Open App.Path + "\user.dat" For Random As #2 i = 0G = FalseWhile Not EOF(2)i = i + 1Get #2, i, UIf z = U.zh ThenMsgBox "该用户名已存在！请重新选择！"G = TrueEnd IfWendClose #2Open App.Path + "\user.dat" For Random As #2 If G = False ThenU.zh = zU.mima = mPut #2, , UMsgBox "注册成功"End IfClose #2End IfEnd Sub删除command2 过程代码：Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd Sub3 结果分析3.1单击“登录”选择，再单击“确定”按钮3.1.1 用户合法时，运行结果见图5所示。
图5 提示3.1.2 用户不合法时，运行结果见图6示。
图6 提示3.1.2.1 （1）单击“是”按钮，运行其一结果见图7示。
图7 注册操作（2）其二结果见图8所示3.1.2.2单击“否”按钮，运行系列结果见图8示。
图8 重新登录3.1.2.3 重复3.1.1操作，结果如图5 所示，再重复且非法用户不注册两次时，运行结果见图9示。
图9 强制退出3.2 直接单击“注册”选项，再单击“确定”结果如图3.1.2.1 所示通过运行程序，本次课程设计（基本或/圆满）达到了预期要求，但也存在着一些不足，比如提示较多，确认提示时操作并不是很方便，界面不够美观，没有使用说明。
结论本次课程设计合理使用VB中随机文件操作，设计一简易用户登录系统，能方便地实用户登录，注册等功能。
其中用到了VB中自定义数据类型，随机文件的读写，常用控件的使用（文本框，单选按扭等）等等。
通过本次课程设计，巩固了VB语言知识，提高了综合运用所学知识解决实际问题的能力。
虽然程序中存在诸多的问题，比如调试程序时的出错，程序没有运行，多余等问题。
希望在以后的学习中不断探索,不断创新，改进，实践。
在这次课程设计中积累的这些宝贵的经验对于以后的学习和工作一定会起着非常重要的作用。
我很庆幸在我的大学生涯中有这样一次课程设计，它鞭策着我不断进步。
致谢在此，感谢这次课程设计的经验给我带来了不少收获。
在本次课程设计中，我得到了很多人的帮助。
首先衷心感谢敬爱的滕艳琼老师上学期的悉心授课和指导，很多优秀的学生，在本次设计中这些同学给了我很大的帮助，特别是我的亲爱的室友，不管是在资料收集还是技术支持上，都尽量帮助我圆满地完成本次课程设计。
再次感谢老师，广大师兄和同学的大力支持。
你们辛苦了！参考文献［1］杨明广.王秀华 Visual basic程序设计教程.中国科学技术出版社，2006.11，21世纪教材［2］王秀华.余见坤.Visual basic程序设计上机和级考实训教程。
中国科学技术出版社，2006.1，21世纪教材［3］龚沛曾.Visual basic 程序设计简明教程（第二版）.高等教育出版社，2003［4］曾强聪.编Visual basic 程序设计教程。
清华大学出版社，2004。