用户登陆界面程序VB设计说明书
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.2 任务与分析
任务：设计一用户的登录窗口界面，实现模拟用户登录系统时的各种情况 具体要求：遵循面向对象和结构化程序设计的编程思路，设计合理的界面，设置所需 控件及其属性，编写相应的事件过程，并上机调试程序，在基本要求达到后，进行一定创 新设计 预期功能：实现用户成功登录系统，当用户明不正确或者密码错误时，提醒用户重 新输入或者注册，当三次登录失败时，强制性退出操作界面。 涉及的 VB 知识点：界面设计，command 控件、text 控件及其属性，随机的读出于追 加。
创新（5）
时成绩（30） 能力（20）
报告）撰写质量（45） （100）
指导教师签名：
目录
年月日
摘要…………………………………………………………………………………………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
1.1 选题背景
通过一个学期对 Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件 的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对文件输入与输 出的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程 思想的理解，强化 Visual Basic 对程序流程控制、常用控件的属性、事件、方法的理解 和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的 这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“用户登录 界面程序设计”题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解 决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能 力
工程学院 课程设计说明书
课 程 名 称: 计算机应用基础课程设计
课 程 代 码:
题
目:
用户登录界面程序设计
年级/专业/班:
学 生 姓 名:
学
号:
开 始 时 间: 2011 年 4 月 25 日
完 成 时 间: 2011 年 5 月 8 日
课程设计成绩：
学习态度及平 技术水平与实际
说明书（计算书、图纸、分析 总 分
U.zh = z U.mima = m Put #2, , U MsgBox "注册成功" End If Close #2 End If End Sub
删除 command2 过程代码： Text1.Text = ""
- 10 -
计算机应用基础课程设计
Text2.Text = "" Text1.SetFocus End Sub
2.1.2 系统结构分析
根据上面对系统功能的描述，构建出系统的总体功能结构图，如图 1 所示
用户登录界面
删
登
除
录
项
选
目
项
选
按
择
钮
注
册
选
选
项
项
确
按
定
钮
图 1 系统的总体功能结构图
2.1.3 系统流程分析 本系统运行后直接进入主界面。程序的主要工作流程图如图 2 所示。
-5-
计算机应用基础课程设计
用户登录界面
-2-
计算机应用基础课程设计
1引 言
随着科学技术的发展，计算机已经应用到生活、工作的各个方面。VB 一种可视化的、 面向对象和采用事件驱动方式的高级程序设计语言，可用于开发 Windows 环境下的各类应 用程序。本次课程设计主要内容就是使用 VB 编制简单、实用的小程序，以巩固我们所学 的计算机 VB 语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力以及 综合创新能力。
图 3 工程内容
2.2.2 系统各界面设计及代码设计 根据功能不同，在本系统中设计了一个窗体。 用户操作界面 主要功能是提供用户登录系统的操作 界面如图 4 所示
-7-
计算机应用基础课程设计
、
图4
操作界面
操作界面主要代码如下： 通用部分的代码如下：
Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean
-3-
计算机应用基础课程设计
1.2.1 设计题目
用户登录界面程序设计
1.2.2 主要内容
设计一用户的登录窗口检验程序。
1.2.3 具体要求
设计合理的用户界面，编制程序，实现如下功能： 1、建立一随机文件,顺序文件或者数据库表文件,建立用户档案，预先存储一些用户 的基本信息(用户名, 密码，姓名等)； 2、当输入“用户名”和“密码”并选择“登录”后，单击“确定”按钮，则在数据 文件中去查找该用户名和密码是否均为正确。若用户名和密码正确，则在对话框中提示“合 法用户！”，否则提示“不是合法用户或密码错误！” ，给用户提供 3 次输入的机会，超过 3 次则程序退出或进入一死循环程序执行。 3、如果用户不存在，提示用户“是否需要注册？”，当输入“用户名”和“密码” 并选择”注册”后，单击“确定” 按钮，则向数据文件中添加新用户（包括用户名、密 码和姓名）。如已有相同用户名，则提示“该用户名已在使用！请重新选择”。 4. 单击“清除”按钮，则清除用户名和密码框中的内容，并将焦点设置在用户名框。
登录 Command1 过程代码如下： Dim z As String * 10, m As String * 10
z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then
F = False Open App.Path + "\user.dat" For Random As #1
删除
分别输入用 户名，密码
登录
用户选择
注册
系统检测用户合法性
合 法 用 户
注 册 成 功
接受注册提醒
非法用户
不接受注册提醒
超 过 三 次
登录成功
强制退出界面
图 2 系统主要工作流程图
-6-
2.2 程序界面和代码设计
计算机应用基础课程设计
2.2.1 系统工程设计框架
在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名为用户登 录界面．VBP，1 个窗体文件，如图 3 所示：
’’非法用户时运行
counter = counter + 1
If counter < 3 Then '''' jia ru
msg$ = "用户不存在或密码错误！是否注册？注册 单击<是>" + vbCrLf + "否则 单击<否>"
Title$ = "操作进程确认 "
x = MsgBox(msg$, vbYesNo + 32, Title$)
图 7 注册操作 （2）其二结果 见图 8 所示 3.1.2.2 单击“否”按钮，运行系列结果见图 8 示。
- 12 -
计算机应用基础课程设计
图 8 重新登录 3.1.2.3 重复 3.1.1 操作，结果如图 5 所示，再重复且非法用户不注册两次时，运行结果见图 9 示。
图 9 强制退出 3.2 直接单击“注册”选项，再单击“确定”结果如 图 3.1.2.1 所示
3 结果分析
3.1 单击“登录”选择，再单击“确定”按钮
3.1.1 用户合法时，运行结果见图 5 所示。
图 5 提示 3.1.2 用户不合法时，运行结果见图 6 示。
图 6 提示
- 11 -
计算机应用基础课程设计
3.1.2.1 （ 1 ） 单 击 “ 是 ” 按 钮 ， 运 行 其 一 结 果 见 图 7 示 。
- 14 -
计算机应用基础课程设计
致谢
在此，感谢这次课程设计的经验给我带来了不少收获。在本次课程设计中，我得 到了很多人的帮助。首先衷心感谢敬爱的滕艳琼老师上学期的悉心授课和指导，很多优秀 的学生，在本次设计中这些同学给了我很大的帮助，特别是我的亲爱的室友，不管是在资 料收集还是技术支持上，都尽量帮助我圆满地完成本次课程设计。
-9-
计算机应用基础课程设计
MsgBox "重试次数已到，即将退出本系统!"
End
Exit Sub
End If
End If ''''添加
End If
If Option2.Value = True Then
’’’’’’注册
Open App.Path + "\user.dat" For Random As #2
通过运行程序，本次课程设计（基本或/圆满）达到了预期要求，但也存在着一 些不足，比如 提示较多，确认提示时 操作并不是很方便，界面不够美观，没有使用 说明。
- 13 -
计算机应用基础课程设计
结论
本次课程设计合理使用 VB 中随机文件操作，设计一简易用户登录系统，能方便地实 用户登录，注册等功能。其中用到了 VB 中自定义数据类型，随机文件的读写，常用控件 的使用（文本框，单选按扭等） 等等。
通过本次课程设计，巩固了 VB 语言知识，提高了综合运用所学知识解决实际问题的 能力。虽然程序中存在诸多的问题，比如调试程序时的出错，程序没有运行，多余等问题。 希望在以后的学习中不断探索,不断创新，改进，实践。在这次课程设计中积累的这些宝 贵的经验对于以后的学习和工作一定会起着非常重要的作用。我很庆幸在我的大学生涯中 有这样一次课程设计，它鞭策着我不断进步。
i=0
G = False
While Not EOF(2)
i=i+1
Get #2, i, U
If z = U.zh Then
MsgBox "该用户名已存在！ 请重新选择！"
G = True
End If Wend Close #2 Open App.Path + "\user.dat" For Random As #2 If G = False Then
2 设计方案
根据系统需要，本软件共一个界面。
2.1 程序功能设计
-4-
2.1.1 系统功能描述
计算机应用基础课程设计
根据设计要求，程序要达到的功能如下：
（1）用户通源自文库界面登录系统，登录后提醒合法用户；
（2）用户名错误或者密码错误时提醒错误或者注册，并提醒用户共有三次操作机会；
（3）当选择注册时，通过随机文件追加用户信息，并提醒注册成功；
-1-
计算机应用基础课程设计
摘要
随着计算机的普及，计算机高级语言已经运用到生活中的各个方面，本次课程 设计使用 VB 语言作为开发工具，进行了用户登录系统的程序设计，该程序能实现用 户登录系统的模拟功能，进行用户的登录，提醒，注册，退出等操作，这些操作都 能模拟实际生活中的登录情况，最后分析所开发软件系统的优点和不足。该运行界 面清晰实用，操作方便。 关键词： 用户登录 模拟 操作 界面
-8-
i=0
计算机应用基础课程设计
Do While Not EOF(1)
i=i+1
Get #1, i, U
If z = U.zh And m = U.mima Then
MsgBox "你是合法用户"
F = True
Exit Do
End If ’’’' 登录成功
Loop
Close #1
If F = False Then
If x = 6 Then
Option2.Value = True
ElseIf x = 7 Then
MsgBox "请重新输入！" MsgBox "您总共有三次操作机会！" Text1.Text = "" Text2.Text = "" Text1.SetFocus
End If End If If counter = 3 Then
任务：设计一用户的登录窗口界面，实现模拟用户登录系统时的各种情况 具体要求：遵循面向对象和结构化程序设计的编程思路，设计合理的界面，设置所需 控件及其属性，编写相应的事件过程，并上机调试程序，在基本要求达到后，进行一定创 新设计 预期功能：实现用户成功登录系统，当用户明不正确或者密码错误时，提醒用户重 新输入或者注册，当三次登录失败时，强制性退出操作界面。 涉及的 VB 知识点：界面设计，command 控件、text 控件及其属性，随机的读出于追 加。
创新（5）
时成绩（30） 能力（20）
报告）撰写质量（45） （100）
指导教师签名：
目录
年月日
摘要…………………………………………………………………………………………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
1.1 选题背景
通过一个学期对 Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件 的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对文件输入与输 出的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程 思想的理解，强化 Visual Basic 对程序流程控制、常用控件的属性、事件、方法的理解 和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的 这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“用户登录 界面程序设计”题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解 决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能 力
工程学院 课程设计说明书
课 程 名 称: 计算机应用基础课程设计
课 程 代 码:
题
目:
用户登录界面程序设计
年级/专业/班:
学 生 姓 名:
学
号:
开 始 时 间: 2011 年 4 月 25 日
完 成 时 间: 2011 年 5 月 8 日
课程设计成绩：
学习态度及平 技术水平与实际
说明书（计算书、图纸、分析 总 分
U.zh = z U.mima = m Put #2, , U MsgBox "注册成功" End If Close #2 End If End Sub
删除 command2 过程代码： Text1.Text = ""
- 10 -
计算机应用基础课程设计
Text2.Text = "" Text1.SetFocus End Sub
2.1.2 系统结构分析
根据上面对系统功能的描述，构建出系统的总体功能结构图，如图 1 所示
用户登录界面
删
登
除
录
项
选
目
项
选
按
择
钮
注
册
选
选
项
项
确
按
定
钮
图 1 系统的总体功能结构图
2.1.3 系统流程分析 本系统运行后直接进入主界面。程序的主要工作流程图如图 2 所示。
-5-
计算机应用基础课程设计
用户登录界面
-2-
计算机应用基础课程设计
1引 言
随着科学技术的发展，计算机已经应用到生活、工作的各个方面。VB 一种可视化的、 面向对象和采用事件驱动方式的高级程序设计语言，可用于开发 Windows 环境下的各类应 用程序。本次课程设计主要内容就是使用 VB 编制简单、实用的小程序，以巩固我们所学 的计算机 VB 语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力以及 综合创新能力。
图 3 工程内容
2.2.2 系统各界面设计及代码设计 根据功能不同，在本系统中设计了一个窗体。 用户操作界面 主要功能是提供用户登录系统的操作 界面如图 4 所示
-7-
计算机应用基础课程设计
、
图4
操作界面
操作界面主要代码如下： 通用部分的代码如下：
Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean
-3-
计算机应用基础课程设计
1.2.1 设计题目
用户登录界面程序设计
1.2.2 主要内容
设计一用户的登录窗口检验程序。
1.2.3 具体要求
设计合理的用户界面，编制程序，实现如下功能： 1、建立一随机文件,顺序文件或者数据库表文件,建立用户档案，预先存储一些用户 的基本信息(用户名, 密码，姓名等)； 2、当输入“用户名”和“密码”并选择“登录”后，单击“确定”按钮，则在数据 文件中去查找该用户名和密码是否均为正确。若用户名和密码正确，则在对话框中提示“合 法用户！”，否则提示“不是合法用户或密码错误！” ，给用户提供 3 次输入的机会，超过 3 次则程序退出或进入一死循环程序执行。 3、如果用户不存在，提示用户“是否需要注册？”，当输入“用户名”和“密码” 并选择”注册”后，单击“确定” 按钮，则向数据文件中添加新用户（包括用户名、密 码和姓名）。如已有相同用户名，则提示“该用户名已在使用！请重新选择”。 4. 单击“清除”按钮，则清除用户名和密码框中的内容，并将焦点设置在用户名框。
登录 Command1 过程代码如下： Dim z As String * 10, m As String * 10
z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then
F = False Open App.Path + "\user.dat" For Random As #1
删除
分别输入用 户名，密码
登录
用户选择
注册
系统检测用户合法性
合 法 用 户
注 册 成 功
接受注册提醒
非法用户
不接受注册提醒
超 过 三 次
登录成功
强制退出界面
图 2 系统主要工作流程图
-6-
2.2 程序界面和代码设计
计算机应用基础课程设计
2.2.1 系统工程设计框架
在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名为用户登 录界面．VBP，1 个窗体文件，如图 3 所示：
’’非法用户时运行
counter = counter + 1
If counter < 3 Then '''' jia ru
msg$ = "用户不存在或密码错误！是否注册？注册 单击<是>" + vbCrLf + "否则 单击<否>"
Title$ = "操作进程确认 "
x = MsgBox(msg$, vbYesNo + 32, Title$)
图 7 注册操作 （2）其二结果 见图 8 所示 3.1.2.2 单击“否”按钮，运行系列结果见图 8 示。
- 12 -
计算机应用基础课程设计
图 8 重新登录 3.1.2.3 重复 3.1.1 操作，结果如图 5 所示，再重复且非法用户不注册两次时，运行结果见图 9 示。
图 9 强制退出 3.2 直接单击“注册”选项，再单击“确定”结果如 图 3.1.2.1 所示
3 结果分析
3.1 单击“登录”选择，再单击“确定”按钮
3.1.1 用户合法时，运行结果见图 5 所示。
图 5 提示 3.1.2 用户不合法时，运行结果见图 6 示。
图 6 提示
- 11 -
计算机应用基础课程设计
3.1.2.1 （ 1 ） 单 击 “ 是 ” 按 钮 ， 运 行 其 一 结 果 见 图 7 示 。
- 14 -
计算机应用基础课程设计
致谢
在此，感谢这次课程设计的经验给我带来了不少收获。在本次课程设计中，我得 到了很多人的帮助。首先衷心感谢敬爱的滕艳琼老师上学期的悉心授课和指导，很多优秀 的学生，在本次设计中这些同学给了我很大的帮助，特别是我的亲爱的室友，不管是在资 料收集还是技术支持上，都尽量帮助我圆满地完成本次课程设计。
-9-
计算机应用基础课程设计
MsgBox "重试次数已到，即将退出本系统!"
End
Exit Sub
End If
End If ''''添加
End If
If Option2.Value = True Then
’’’’’’注册
Open App.Path + "\user.dat" For Random As #2
通过运行程序，本次课程设计（基本或/圆满）达到了预期要求，但也存在着一 些不足，比如 提示较多，确认提示时 操作并不是很方便，界面不够美观，没有使用 说明。
- 13 -
计算机应用基础课程设计
结论
本次课程设计合理使用 VB 中随机文件操作，设计一简易用户登录系统，能方便地实 用户登录，注册等功能。其中用到了 VB 中自定义数据类型，随机文件的读写，常用控件 的使用（文本框，单选按扭等） 等等。
通过本次课程设计，巩固了 VB 语言知识，提高了综合运用所学知识解决实际问题的 能力。虽然程序中存在诸多的问题，比如调试程序时的出错，程序没有运行，多余等问题。 希望在以后的学习中不断探索,不断创新，改进，实践。在这次课程设计中积累的这些宝 贵的经验对于以后的学习和工作一定会起着非常重要的作用。我很庆幸在我的大学生涯中 有这样一次课程设计，它鞭策着我不断进步。
i=0
G = False
While Not EOF(2)
i=i+1
Get #2, i, U
If z = U.zh Then
MsgBox "该用户名已存在！ 请重新选择！"
G = True
End If Wend Close #2 Open App.Path + "\user.dat" For Random As #2 If G = False Then
2 设计方案
根据系统需要，本软件共一个界面。
2.1 程序功能设计
-4-
2.1.1 系统功能描述
计算机应用基础课程设计
根据设计要求，程序要达到的功能如下：
（1）用户通源自文库界面登录系统，登录后提醒合法用户；
（2）用户名错误或者密码错误时提醒错误或者注册，并提醒用户共有三次操作机会；
（3）当选择注册时，通过随机文件追加用户信息，并提醒注册成功；
-1-
计算机应用基础课程设计
摘要
随着计算机的普及，计算机高级语言已经运用到生活中的各个方面，本次课程 设计使用 VB 语言作为开发工具，进行了用户登录系统的程序设计，该程序能实现用 户登录系统的模拟功能，进行用户的登录，提醒，注册，退出等操作，这些操作都 能模拟实际生活中的登录情况，最后分析所开发软件系统的优点和不足。该运行界 面清晰实用，操作方便。 关键词： 用户登录 模拟 操作 界面
-8-
i=0
计算机应用基础课程设计
Do While Not EOF(1)
i=i+1
Get #1, i, U
If z = U.zh And m = U.mima Then
MsgBox "你是合法用户"
F = True
Exit Do
End If ’’’' 登录成功
Loop
Close #1
If F = False Then
If x = 6 Then
Option2.Value = True
ElseIf x = 7 Then
MsgBox "请重新输入！" MsgBox "您总共有三次操作机会！" Text1.Text = "" Text2.Text = "" Text1.SetFocus
End If End If If counter = 3 Then