用户登陆界面程序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编程基础，介绍控件应用，分析登录界面设计原则；第二课时：讲解并演示登录界面功能实现，引导学生动手实践；第三课时：分组讨论和协作，进行登录界面项目实践，教师巡回指导；第四课时：展示学生作品，进行评价和总结，巩固所学知识。
教学内容与教材紧密关联，确保学生在掌握基本知识的基础上，逐步提高编程能力和实践操作技能。
- 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 程序设计教程。