- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
南京工程学院
课程设计说明书(论文)
题 目 密码登录
课 程 名 称 VB课程设计报告
院(系、部、中心) 能源与动力工程
专 业 建筑环境与设备工程
班 级 暖通091
学 生 姓 名 刘江淮
学 号 207090822
设 计 地 点 图书馆
指 导 教 师 于雷
1
设计起止时间:2010 年6 月28 日至 2010 年7 月 3
一、设计任务
补全代码,并按要求完成课程设计报告
二、系统总体设计方案
密码登录是每一个数据库应用程序所必备的一个功能模块,觅得是为了保证系统及数据的安全。在用户进入某个系统时会弹出如同的对话框。。。。。。。
确认用户输入的权限师傅正确,级点击“确认”的按钮。当用户输入的密码不正确时,系统将给出提示,如下图所示。。。。。。。
该模块的实现比较通用,在类似数据库应用中都需要用到。有的系统还根据用户的需要提供了密码更改的功能。当你需要更改密码的时候会出现如下的对话框。首先输入原始密码,在输入新密码,确认新密码,然后点击“确认”键即可。
三、程序总体框架图
四、系统的调试
源代码写完后,对系统进行调试运行,要求变量声明,对可能出现的几种错误,如:编辑时错误、编译时错误、运行时错误、逻辑错误,进行修改,调试,运行,直至系统能正常运行。
五、收获体会
Visual basic 语言是以结构化basic语言为基础,以事件驱动为运行机制。他的诞生标志着元件设计和开发的新时代的开始。VB具有面向对象可视化设计工具,是事件驱动的编程机制,同时也提供了易学易用的应用程序集成开发环境。
从Basic 语言、Visual basic 语言的学习开始接触到编程,以前有过一段Basic 语言的学习,觉得比较简单。当时很想自己能够熟练的进行程序编辑,工程上的软件编辑。随着大一的Visual basic 语言的学习才逐渐发现这理想想要实现的难度。对我而言学习编程,不仅能够帮自己解决在生活中可能遇到的一些问题;自己设计一些小游戏还可以给自己带来一些乐趣。同时也为自己在寻找理想工作添加重要的砝码。所以,我觉得在学习VB是我们要明确学习的目的。另外我觉得个人的数学基础,思维逻辑能力对VB的学习有着至关重要的影响。而在学习的过程中最重要的就是理解,正如老师在课上经常对我们所讲的,不要始终照搬书上已有的代码,要学会理解、掌握编程的思想与方法,这样才能融会贯通,只有在理解方法的基础上学习才是最有效的学习。Visual basic 语言的学习要多实践,多交流。掌握编程方法必须在编程实际工作中去实践和体会。在学习初期要经常自己动手设计程序,集团设计师不要拘泥于固定的思维方式,遇到问题要多想几种解决方案。而这也要求与同学多多的交流,毕竟每个人的思维方法不同,角度各异。通过交流可以不断的吸收他人的长处,丰富编程实践,从而提高自己的水平。亲自动手实践试创造性思维应用的体现,也是培养逻辑思维的好方法。
六、源代码
代码1
Option Explicit
Public Password As String 密码
Public FilePassword As String 保存在文件中的密码(经过加密处理)
将你输入的每个字符转换成密码数字
Public Function Fun_NumericPassword(ByVal Password As String) As Long
Dim nValue As Long
Dim ch As Long
Dim Shift1 As Long
Dim Shift2 As Long
Dim i As Integer
Dim Str_Len As Integer
得到字符串内字符的数目
Str_Len = Len(Password)
将每个字符转换成数字
For i = 1 To Str_Len
ch = Asc(Mid$(Password, i, 1)) 返回各字符的ASCII码
nVa
文档评论(0)