用户登陆界面程序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属 性值改为“重新输入”。然后调整 各控件位置和大小，使整个窗体更 加美观。
- 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。