用户登陆界面程序vb设计说明书
第02章 VB创建用户界面
第二章 创建用户界面
2.1 创建窗体
5.Print方法 5.Print方法
格式：[Object].Print p1 <s> p2 <s> ··· 格式： 作用：将文本输出到指定对象上。如果缺省对象，则将内容 输出到当前窗体上。 例：在程序代码中增加下列内容： Print “新北京！”;“新奥运！” Print “新北京！”,“新奥运！” 运行程序则在窗体上输出如图：
Visual Basic 程序设计
第二章 创建用户界面
2.2 常用控件
4．列表框（ListBox） 列表框（ListBox）
列出可供用户选择的项目列表。运行时， 列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其 中的一项或多项，选中的项被加亮显示。 中的一项或多项，选中的项被加亮显示。
(2)方法 (2)方法
Visual Basic 程序设计
第二章 创建用户界面
2.1 创建窗体
(2) 窗体的方法
窗体可调用多个方法。常用的方法有： • Hide Hide：隐藏窗体。(如图) • Move Move：把窗体移到某个位置。 • Print Print：显示文本或数据。 • PrintForm ：打印窗体。 • Refresh Refresh：强制重新绘制一个窗体。 • Show Show：显示窗体。
(3) 窗体的事件
窗体可以响应许多事件。常用的事件有： • Click Click：单击。 • Dbclick Dbclick：双击。 • Load Load：装载。 • Resize Resize：调整尺寸。 • Activate Activate：激活。 • Deactivate：失去激活。 Deactivate Visual Basic 程序设计
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
VB6.0Access制作登陆界面超详细讲解（适合新手）
VB6.0 + Access制作登陆界面&超详细讲解&（适合新手）前段时间，我也为用VB 6.0制作登陆界面而痛苦，为此，我没少上百度，没少查资料，终于，现在大功告成了，现在我也来分享一下我的个人经验！（在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是“工程”——>“引用”——> Microso ft ActiveX Data Objects2.X Library,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Acce ss中存放的帐号数据来登陆，肯定要先有存放帐号密码的数据库吧，这里假设我们用到的数据库为 Test ，其中有一张表，叫做test_info ，表中有两个字段，分别是userID和 passwor d ，分别存放登陆帐号和密码。
步骤二：新建窗体①在VB中，本就有现成的登陆窗体，我们可以直接选择，当然，也可以创建一个空白的窗体，我们自己添加内容（即“控件”），然后Capti on 属性设置为“登陆”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。
②建立登陆界面，肯定是想登陆成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登陆是否成功，在这里，我们将这个窗体的Name(名称) 属性设为默认的Form2步骤三：设置窗体首先向新建的窗体分别添加两个 Label 控件、两个 TextBox控件和两个Command Button，各控件属性如下表：如果想让按下回车就默认选择“确定”按钮，只需将 Command1 的Defaul t 属性更改为 True 即可，设置好后的窗体如下图步骤四:填写代码（最重要的一步）说到代码，我想就是大家最关切的问题了，那我就具体来说说这个代码吧，首先双击窗体，打开代码编辑界面，输入如下代码：Private Sub Form_Lo ad() ‘此段代码的主要作用是当窗体打开时就连接数据库Dim conn As New ADODB.Connect ionDim connect ionstr ing As StringConnect ionstr ing = "Provide r=Microso ft.Jet.OLEDB.4.0;Data Source=" & "E:\Test.mdb;Persist Securit y Info=False" ‘将Data Source处的路径改为你本机数据库所在路径即可conn.Open connect ionstr ingEnd Sub接着双击“确定”，同样的，输入如下代码：Private Sub Command1_Clic k()Dim sql As StringDim conn As New ADODB.Connect ionDim rs_logi n As New ADODB.Records etIf Trim(Text1.Text) = "" Then ‘检测用户名正确与否MsgBox"用户名不能为空，请重新输入！", vbOkOnl y + vbExcla mation, "错误"Text1.SetFocu sElsesql = "select* from Test where test_in fo = '" & Text1.Text & "'" rs_logi n.Open sql, conn, adOpenK eyset, adLockP essimi sticIf rs_logi n.EOF = True ThenMsgBox"用户名不存在，请重新输入！",vbOkOnl y + vbExcla mation, "错误"Text1 = ""Text1.SetFocu sElse ‘检测密码正确与否If Trim(rs_logi n.Fields(1)) = Trim(Text2) Thenrs_logi n.CloseUnloadMeForm2.ShowElseMsgBox"密码错误，请重新输入！", vbOKOnl y + vbExcla mation, "错误"Text2.SetFocu sEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码：Private Sub Command2_Clic k()MsgBox"您已成功退出！", vbOkOnl y + vbExcla mation, "提示"UnloadMeEnd Sub如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command_Click()就行了，思路是定义一个变量，赋初值为 0 ，错误一次，这个变量增加1，如果这个变量等于 3 了，就 UnloadMe。
（2）VB用户界面设计
（2）VB用户界面设计source:窗体一、Form 属性·Name 属性：用于在属性窗口定义对象的名称，以便在程序中引用。
它只能在设计时赋值。
对于任何一个可以在属性窗口设置其属性的对象必须设置该属性的值，VB自动为每一个对象给定一个缺省值。
·Caption 属性：属性用于获取、设置窗体的标题。
·BorderStyle 属性：用于设置窗体的边框。
它常用的有两个值：普通窗体（2-Sizable）：可修改窗体的尺寸。
对话框（3-FixedDialog）：不能修改窗体的尺寸。
·Top,Left,Width,Height 属性：它们分别表示该窗体在父窗体或屏幕的位置（Top,Left）和大小（Width,Height）。
·ScaleTop,ScaleLeft,ScaleWidth,ScaleHeight 属性：它们分别表示该窗体工作区的位置和大小。
二、Form 方法1、显示一个窗体。
FormX.Show[vbModal]没有vbModeless表示以非模式方式显示一个窗体。
带有vbModal表示以模式方式显示一个窗体。
2、隐藏一个窗体。
FormX.Hide隐藏窗体并不把窗体从内存中卸载，要卸载窗体需要使用语句：Unload FormX或：UnLoad Me (Me 表示当前窗体)三、Form 事件1、Load 事件：当窗体加载到内存时发生Private Sub Form_Load()... '常把初始化代码放在此处End Sub2、Resize 事件：当窗体改变其尺寸时发生Private Sub Form_Resize()... '常在此处修改其它控件的尺寸End Sub3、Unload 事件: 当窗体从内存卸载时发生Private Sub Form_Unload(Cancel As Integer)... '在窗体卸载前做一些扫尾工作。
vb课件第2章 用户界面设计
2.1.1 窗体的基本属性
属性设置方法：
1 2
通过属性窗口设置 通过程序代码修改
对象名．属性名＝属性值 例：Form1.caption=“程序演示” 注：当对象为窗体时对象名可以省略不写 。
2.1.1 窗体的基本属性
1．Name属性 就是对象的名称，简称对象名。对象名长 度不能超过40个字符，必须以字母开头，可 以包含字母、数字、下划线，不能包括标点 符号和空格。加入到工程中的第一个窗体对 象的默认对象名为Form1 。 注意：Name属性只能够在属性窗口中设置
Spc(n):在各输出项之间插入n个空格 Tab(n):指定下一个输出项在第n列处开始输出 ； :输出项之间的分隔符。
1）字符输出项，它们之间紧接输出 2）数值输出项，则在其头部加一个符号位（正数 为空 格），尾部加一个空格。
， :输出项之间的分隔符。
每一个输出项占一个制表列，每个制表列宽度为14个字符
第1制表列
第2制表列
第3制表列
2.1.2 窗体的基本方法
表达式列表：可以是任意类型的常量、变量、控件
的属性值和表达式等。各输出项之间必须用逗号或
分号分隔，其中可以插入输出项函数Spc和Tab。 1）若最后一个输出项后无分隔符，则换行输出。
2.1.2 窗体的基本方法
例： Print "123456789012345678901234567890" Print 10，"欢迎学习VB!", "ok"
2.1.2 窗体的基本方法
语法格式：对象名.方法名［参数表］ 1.Print方法 [对象名.]Print [spc(n)|Tab(n)][表达式 列表][;|,] 对象名：可以是窗体名和图片框名。在VB 中，当对象是窗体时，对象名可以省略 不写，默认的对象名为当前窗体。
vb制作登陆界面
体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：Public conn As ADODB.ConnectionSub main()Set conn = New ADODB.Connectionconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"conn.Openfrom1.Show’登录界面End Sub再在登录界面“确定”下写入如下代码：Private Sub Command1_Click()If id.Text = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"id.SetFocusExit SubEnd IfIf password.Text = "" ThenMsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"password.SetFocusExit SubEnd IfDim strSQl As StringstrSQl = "select * from Users where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(password.Text) & "' "Dim str As New ADODB.RecordsetSet str = New ADODB.Recordsetstr.CursorLocation = adUseClientstr.Open strSQl, conn, adOpenStatic, adLockReadOnlyWith strIf .State = adStateOpen Then .Close.Open strSQlIf .EOF ThenTry_times = Try_times + 1If Try_times >= 3 ThenMsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"Unload MeElseMsgBox "对不起，用户名不存在或密码错误！", vbOKOnly + vbQuestion, "警告"id.SetFocusid.Text = ""password.Text = ""End IfElseUnload MeForm2.Show’登录进入的另一个界面End IfEnd WithEnd Sub。
登录界面VB课程设计
登录界面VB课程设计一、课程目标知识目标：1. 让学生掌握VB编程中登录界面的基本设计原理和实现方法；2. 学会使用VB语言中的控件，如文本框、按钮等，完成登录界面的布局和功能实现；3. 了解计算机编程中变量、条件语句和循环语句的应用，为后续功能拓展打下基础。
技能目标：1. 培养学生运用VB语言设计登录界面的实际操作能力；2. 提高学生分析问题、解决问题的能力，使其能够独立完成登录界面的编写和调试；3. 培养学生团队合作意识，通过小组讨论和协作，共同完成课程设计任务。
情感态度价值观目标：1. 激发学生对计算机编程的兴趣和热情，培养其主动学习的习惯；2. 培养学生面对困难和挫折时的坚持和毅力，使其具备克服编程中各种问题的信心；3. 引导学生关注网络安全，了解登录界面在保护用户隐私方面的重要性，提高其社会责任感。
分析课程性质、学生特点和教学要求，本课程目标旨在使学生在掌握登录界面VB编程的基础上，提高其编程技能和实际操作能力，培养其团队协作和情感态度价值观。
课程目标具体、可衡量，以便于教学设计和评估的实施。
二、教学内容本章节教学内容依据课程目标，结合教材，科学系统地组织以下内容：1. VB编程基础回顾：变量、数据类型、运算符等基本概念；2. 控件应用：文本框、按钮、标签等控件的使用方法；3. 界面设计原则：登录界面的布局、美化和用户交互设计；4. 功能实现：使用条件语句和循环语句完成登录验证功能；5. 项目实践：分组进行登录界面设计，培养学生的实际操作能力和团队协作精神。
教学大纲安排如下：第一课时：回顾VB编程基础，介绍控件应用，分析登录界面设计原则；第二课时：讲解并演示登录界面功能实现，引导学生动手实践；第三课时：分组讨论和协作，进行登录界面项目实践，教师巡回指导；第四课时：展示学生作品，进行评价和总结，巩固所学知识。
教学内容与教材紧密关联，确保学生在掌握基本知识的基础上，逐步提高编程能力和实践操作技能。
VB教程 用户界面设计
确定
通用对话框图标
第10章 用户界面设计
16
10.2.1 通用对话框的基本属性和方法
1. CommonDialog控件的基本属性
（1） Action属性： 该属性决定打开何种类型的标准对话框，其取值如表10.4所示。 该属性不能在属性窗口中设置，只能在程序中赋值。
表10.4
打开通用对话框的方法与Action属性设置
第10章 用户界面设计
6
10.1 菜单设计
10.1.2 下拉式菜单
在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜
单栏包括一个或多个选择项，称为菜单标题。 在下拉式菜单中，一般只需要对下拉菜单的最低级菜单项编写 单击事件代码，如果对一个有下级菜单的菜单项编写了单击事件， 则在执行下一级菜单时，该菜单程序将先执行。 菜单控件（对象）只有一个事件——单击事件（Click()）
第10章 用户界面设计
11
10.1.3 弹出式菜单设计
表10.2 flags参数值表
位置常数 vbPopupMenuLeftAlign vbPopupMenuCenterAlign vbPopupMenuRightAlign 行为常数 vbPopupMenuLeftButton vbPopupMenuRightButton 值 值 描述 0 缺省值。弹出式菜单的左边定位于 x。 4 弹出式菜单以 x为居中心。 8 弹出式菜单的右边定位于 x。 描述 0 缺省值。 仅当使用鼠标右键单击时， 弹出式 菜单中的项目才响应鼠标单击。 2 弹出式菜单中的项目可接受左、右键单击。
17
（2）Name属性：CommonDialog控件的名称属性。
（3）CancelError属性：多数对话框都有“取消”按钮，用于向 应用程序表示用户想取消当前操作。CancelError属性的作用是向 应用程序报告用户取消当前的操作，通过一个错误报告给应用程 序。如果该属性设置为True，在程序的运行阶段，用户选择“取 消”操作时，出现错误提示。默认是False，不出现错误提示。对 话框打开后，为了防止用户没有输入任何信息便使用取消操作， 则可用此属性设置出错警告。 （4）Flags属性：用于设置对话框外观及工作方式。对于每种对 话框都有许多不同的设置值。 在通用对话框的使用过程中，每种 对话框都有自己的特殊属性。CommonDialog控件的属性可以在属 性窗口中设置，也可在其“属性页”对话框中设置。在窗体中的 CommonDialog控件上右击，在弹出的快捷菜单中选择“属性”命 令，打开“属性页”对话框，该对话框中有五个选项卡，分别可 对不同类型的标准对话框设置属性。
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.T ext) '//将文本框内的值赋给定义好的全局变量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.T ext = ""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.T ext = "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.T ag) '//将返回包含于字符串内的数字赋给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用户界面设计
[例3-19] 利用画线控件和形状控件设计一指针式秒表如 图3-21所示。程序启动后，点击窗体上的“开始”按钮， 表的指针开始转动，每秒动一下，一分钟转一圈。指针 转动时，命令按钮的标题变为“暂停”，如果此时再点 击命令按钮，指针停止转动。命令按钮的标题又变为 “继续”，再点击，指针又开始转动。
3.10.2 MDI窗体的创建
1. 建立有一个子窗体的MDI窗体。（有六个操 作步骤 ）
2. 建立有多个子窗体的MDI窗体。（有四个操 作步骤 ）
3. 子窗体的排列 完成子窗体的排列操作，要使用
MDIForml的Arrange方法，其语法格式为： MDIForml 名称 .Arrange 排列方式
3.4.3 复选框(CheckBox)
[例3-13]设计一程序，通过复选框来控制用户 界面上的文本框中文字的字体、字型、颜色和 大小。
3.4.4 框架（Frame）
[例3-14]重新设计例3-13的用户界面，用框架 控件将9个单选按钮分为3组，一组用来改变文 本框中文字的字体；一组用来改变字的大小； 一组用来改变字的颜色。
[对象.] Pset [Step] (x, y), [color]
[例3-20] 利用Pset方法或Line方法均可以画出 任意曲线。下面用Pset方法在图片框中绘制 阿基米德螺旋线，用Line方法画一正弦曲线。
3.8 公用对话框
“公共对话框”(Common Dialog)控件 为用户提供了一组标准的系统对话框，可以 使用它进行打开或保存文件、设置打印选项、 选择各种颜色以及选择字体等的操作。另外 还可以通过调用Windows帮助引擎来显示应 用程序的帮助。
VB.用户界面设
Do While Not EOF(1)
TextBox1.Text &= LineInput(1) & vbCrLf
Loop
FileClose(1)
3．附加题：理论教材p305第4题。
将此实验报告和代码文件一起打包压缩交上来。
OpenFileDialog1.Filter ="文本文件|*.txt|所有文件|*.*"
OpenFileDialog1.ShowDialog()
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
DoWhileNotEOF(1)
TextBox1.Text &= LineInput(1) & vbCrLf
三、实验步骤及结果：
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OKThen
EndSub
PrivateSub号ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles号ToolStripMenuItem1.Click, c12.Click, H12.Click
TextBox1.Font =NewFont(, 12)
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编写一个用户登录窗口
方法/步骤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
方法/步骤4
在右边右键点击 “窗体”，选中 “添加”，点击 “添加窗体”，如 图在出现的窗口里 双击“窗体”，添 加一个form2窗体； 用同样的方法再添 加一个form3窗体。
方法/步骤5
在form2窗体各添加一个标 签和按钮。在标签的 Caption属性值改为“登录 成功！”也可以通过Font 属性更改字体；按钮的 Caption属性值改为“返 回”。 在form3窗体各添加一个 标签和按钮。在标签的 Caption属性值改为“用户 名或密码错误，请重新登 录！”也可以通过Font属 性更改字体；按钮的 Caption属性值改为“重新 登录”。
方法/步骤9
在form3窗体里， 双击“重新输入” 按钮，弹出代码窗 口，写上代码，然 后关闭代码窗口。 Private Sub Command1_Clic k() Form3.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = ""先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框然后再从控件栏选择按钮控件在form1窗窗体的相应位置画两个大小适合的按钮
用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应用程序界面设计
【例7.9】设计一个滚动字幕，同时显示当前系统的时间
22
第7章
应用程序界面设计
7.2 通用对话框 通用对话框控件提供了一组标准的系统对话框，可以 用来进行打开或保存文件、选择字体、选择颜色、设置打 印选项等操作。 通用对话框仅用于应用程序与用户进行信息交互，是 输入输出的界面。不能真正实现文件打开、文件存储、设
第7章
应用程序界面设计
教学目标
掌握常用控件的使用
了解通用对话框的使用
重点
了解菜单设计
掌握键盘和鼠标的常用事件
4
第7章
应用程序界面设计
第7章 应用程序界面设计 应用程序界面又称为用户界面，用户直接通过界面与 应用程序进行交互。 7.1 常用控件 7.1.1 控件概述 1. 控件的分类
标准控件：又称内部控件，显示于工具箱中。
格式：列表框对象. RemoveItem 索引值 功能：从列表框删除指定索引值的项目。
1. 列表框
例如，List1.RemoveItem 0 删除列表中第一个项目
（3）Clear方法 格式：列表框对象.Clear
功能：清除列表框中所有项目的内容。
● 列表框的事件
列表框能够响应Click、DblClick等事件。
了解菜单设计
掌握键盘和鼠标的常用事件
14
第7章
应用程序界面设计
7.1.3 单选按钮和复选框
1. 单选按钮(OptionButton )
单选按钮以组的形式出现，允许选择一项。
重要属性 ：Caption属性 Value属性 设置按钮上显示的文本
表示单选按钮的状态： False（未选定）
True（被选定） Style属性
② 索引值：决定新增选项在列表框的位置，原来位置
VB用户界面设计
说明：窗体的坐标
X轴 屏幕原点 窗体原点 框架Top 框架Width 框架原点 窗体Height 框架Height 按钮Height 窗体Left 按钮Left 框架Left 按钮Top
窗体Top
窗体Width
按钮Width
Y轴
3.1.2 窗体的事件
窗体作为对象，能够对事件作出响应。
窗体事件过程的一般格式为：
文件列表框
实例：图片浏览器
自定义一个打开图片的对话框，并使该对话框具 有预览图片的功能。
实例：图片浏览器
程序运行界面
用来判断用户在驱动器列表框中选择驱动器名。
例如：Dir1.Path = Drive1.Drive
Dir1.Path = “c:\windows”
ListIndex=-4
常用事件是Change事件，当Drive属性改变时发生。
ListIndex=3 ListIndex=1 ListIndex= 1 ListIndex=4 ListIndex=2 ListIndex= 0
6.5.3文件列表框（FileListBox
文件列表框的作用是显示当前目录的文件名。文件列表框的 常用属性有：Path，Pattern，FileName
Path属性：被显示的目录；
Pattern属性：限定的文件类型；
FileName属性： 值是用户在列表框中选定的文件名。
文件列表框中的常用事件是： Click 和 DbClick。
第3章 用户界面设计
本章要求：
掌握窗体对象的常用属性、事件和方法
掌握窗体的添加、设置和启动方法 掌握基本控件（文本框、标签等）的常用属性、 事件和方法 掌握通用对话框控件的添加，以及打开、保存、 字体、颜色打印等对话框的使用
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
工程学院课程设计说明书课程名称: 计算机应用基础课程设计课程代码:题目: 用户登录界面程序设计年级/专业/班: 学生姓名:学号:开始时间: 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知识点：界面设计，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 程序设计教程。