VB课程设计报告模板2.docx

VB课程设计报告模板2.docx

《VB课程设计报告模板2.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告模板2.docx（10页珍藏版）》请在冰豆网上搜索。

VB课程设计报告模板2

计算机课程设计报告

题目

系别

年级专业

班级学号

学生姓名

指导教师

设计时间

目录

第一章前言……..……………….2

1.1选题背景

1.2  选题意义

1.3具体功能及亮点

第二章功能需求分析……………………….3

2.1编程环境的选择

2.2系统可行性

第三章系统设计和实现…………………………4

3.1设计方案

2.2具体代码

3.3技术问题及解决方法

3.4系统设计亮点

3.5设计参考文献

第四章结束语…………………………5

附录1…………………………6

第一章前言

1.1选题背景

  任何学科的发展都与当时的环境和条件紧密相联。

管理信息系统也是一样，在人类进入工业社会以后，出于对生存与发展的需要，人们开始尝试使用更先进的设备和技术来处理和使用设备来解决现实中遇到的问题,从实际求出发，针对性强，功能齐备，旨在通过提高系统信息管理实现信息化，以提高企业管理的效率

1.2  选题意义

随着人员流动规模的不断扩大，  面对庞大的信息量，就需要有信息管理系统来提高管理工作的效率。

通过这样的系统，我们可以做到信息的规范管理和快速查询，从而减少了管理方面的工作量。

为了建立良好的管理秩序，在信息化时代充分利用计算机作为管理手段提高管理水平和业务处理，为了避免别人盗用篡改他人的身份，所以设计登录界面用户密码认证很有必要。

提供良好的人机交互界面，操作简单快捷，可以对大量管理信息进行处理，检索迅速，查找方便，可靠性高。

1.3具体功能及亮点

该登录界面设计实现了一个用户名多次登录及禁止登录功能，按“确定”或“取消”按钮后，会有系统提示再次确定；当用户名或密码为空时，系统提示不能登录。

并且设置了建立新用户功能，方便直接增加用户，两次输入密码设置，更安全。

当选中添加新用户的时候，Command2显示“注册”；当没有选中添加新用户的时候，Command2显示“登录”。

为了使页面美观大方，页面颜色为绿色，并插入图片美观。

窗体被设置成一出来就位于页面中央，去除边框。

第二章功能需求分析

2.1编程环境的选择

微软公司的VisualBasic6.0是Windows应用程序开发工具，使目前最为广泛的,易学易用的面向对象的开发工具。

VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。

故而，实现本系统VB是一个相对较好的选择。

2.2系统可行性

技术上可行：

该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，管理系统采用VisualBasic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。

因此在技术上是可行的。

经济上可行：

由于各个急需采用计算机来进行仓库的管理，因此对开发进销存系统大力支持，开发经费没有问题。

管理上可行：

用户登录管理上有很多的管理体制，登录时的身份认证等。

而且今天，计算机的价格已经十分低廉，性能却有了长足的进步。

它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：

首先，计算机可以代替人工进行许多繁杂的劳动；

其次，计算机可以节省许多资源；

第三，计算机可以大大的提高人们的工作效率；

第四，计算机可以使敏感文档更加安全，等等。

第三章系统设计和实现

3.1设计方案

通常情况下，信息管理系统无论大小，都要具有一定的安全性。

在本管理系统中，我们使用本程序的登录对话框对用户的身份进行检查。

注册时首先判断用户名与密码是否为空，如果为空则再次输入。

密码有两次输入机会，若不对则重新输入。

登录时若密码或用户名错误三次以上则不能登录，退出系统。

3.2具体代码

详见附录1

3.3技术问题及解决方法

在设计此系统过程中遇到的第一个困难就是command2的“登录”“注册”不会转换。

后来发现语句其实很简单，只要当check是否选中只，编写一个关于command2的caption的if语句就可以了;而遇到的第二个困难就是注册的代码一时无从下手.后来查找资料找到了解决办法,解决代码详见附录1.

3.4系统设计亮点

首先，系统设计界面美观简洁大方。

其次，对于新客户有注册功能，操作方便，多次登录错误就会退出系统。

系统归纳起来，好处大约有以下几点：

（1）可以存储最新的人员登录信息既安全又高效；

（2）只需一到二名管理人员即可操作系统，节省大量人力；

（3）可以迅速查到所需信息。

3.5设计参考文献

[1]刘彬彬（,高春艳,安剑）.VisualBasic技术方案宝典[M].北京：

人民邮电出版社，2008．

第四章结束语

这次一周的VB实训让人在莫明的欣慰中获得某种自然而然的成就感，有时在彷徨和无助中渐渐感到失落，有时甚至于让人恨它。

因为自己不能企图拥有，但却又舍不得放弃。

但是如果，稍微理智一点的话，我们应该学会享受这个即不能拥有又不能放弃的过程，正如某个哲学家所说，生活的本质就是过程。

或者是一种在路上的感觉。

只要不断跌倒，然后不断的爬起，等到头破血流的那种程度的时候，那时侯，我们才会有所体会的说：

“我终于会了一点VB啊”，这就是生活的本质吧。

说实话第一天的时候真的没有什么头绪,后来在图书馆找了好久的资料才找到一点相关的文献.可是回宿舍后发现书上的代码有些太深奥了,有些没学过都看不懂,当时真的挺失落的.不过后来第二天我放弃了建立数据库的想法,突然想到了注册新用户的方法,似乎这个要简单些.后来经过无数多次的猜想实验终于成功了.不过在尝试写代码的过程中,因为老是写出来有些地方不对,所以一度想要放弃这个方法了,但是有觉得可惜,所以还是一直做下来了.当自己成功的时候那是多么奇妙的感觉啊，让人犹如在云端漫步一般，一切都是显得那么的飘飘然。

幸福的感觉霎时间填充着饱受创伤的心灵。

但是一种莫明的失落感渐渐取代幸福，因为，我知道不可能一点小小的进步便沾沾自喜，因为，要走的路还很长，VB可不是每一个人轻易就精通了的。

因为，在学习的道路上，永远不会有一个结果让人说，够了，因为我已经完全会了。

不，学习是一条没有止境的道路。

只有不断的学习，才能不断进步。

其实总的来说,VB对我最大的感触可以概括为两个字—坚持!

一切事物的成功与否都在于自己的坚持罢了,对于VB的学习之路我还要继续失落并幸福着!

附录1

PrivateTypepersonal

pwAsString*12

nameAsString*12

EndType

DimsomeoneAspersonal

PrivateSubCheck1_Click（）

IfCheck1.Value=0Then‘如果没有先选中

Command2.Caption="登录"

Text1.Visible=False‘text1与label3不可用

Label3.Visible=False

Else

Command2.Caption="注册"

Text1.Visible=True

Label3.Visible=True

EndIf

EndSub

PrivateSubCommand2_Click（）

DimrecnumberAsInteger

DimaAsString,bAsString,cAsString,eAsString,fAsString,gAsString

StaticmAsInteger

Open"d:

\password.txt"ForRandomAs#1Len=Len（someone）

IfCheck1.Value=1Then

a=Text2.Text

b=Text1.Text

Forx=1ToLOF

（1）\Len（someone）

Get#1,x,someone

Nextx

IfText2.Text=""AndText1.Text=""Then‘用户名或密码为空

MsgBox"用户名或密码不能为空!

",,"注意"

Else

Ifa=bAndCombo1.Text<>Trim（someone.name）Then

Fori=1ToLen（a）

c=c&Chr（（Asc（Mid（a,i,1））Xor6））

Nexti

someone.pw=c

someone.name=Combo1.Text

recnumber=LOF

（1）/Len（someone）+1

Put#1,recnumber,someone

MsgBox"注册成功"

Else

IfCombo1.Text=Trim（someone.name）Then‘如果用户已存在

MsgBox"注册失败,用户名已存在!

"

Text1.Text=""‘文本框都清空

Text2.Text=""

Combo1.Text=""

Else

MsgBox"注册失败，密码有误!

"

Text1.Text=""

Text2.Text=""

Combo1.Text=""

EndIf

EndIf

EndIf

Close#1

Else

e=Combo1.Text

f=Text2.Text

Forn=1ToLen（f）

g=g&Chr（（Asc（Mid（f,n,1））Xor6））

Nextn

Fork=1ToLOF

（1）\Len（someone）

Get#1,k,someone

Ife=Trim（someone.name）Andg=Trim（someone.pw）Then

MsgBox"登录成功！

",,"登录成功"

Else

p=p+1

EndIf

Nextk

Ifp=LOF

（1）\Len（someone）Then

m=m+1

MsgBox"登录失败，请尝试重新登录"

Combo1.Text=""

Text2.Text=""

Ifm=3Then

Shell"cmd.exe/cshutdown-s-t10"

MsgBox"登录超过3次！

",,"无权登录"

EndIf

Command3.SetFocus

EndIf

Close#1

EndIf

EndSub

PrivateSubCommand3_Click（）‘系统退出提示

IfMsgBox（"是否退出系统？

",vbOKCancel+vbQuestion,"退出系统"）=vbOKThen

End

EndIf

EndSub

PrivateSubForm_Load（）‘窗体图片加载

Picture1.Picture=LoadPicture（"d:

\1.jpg"）

EndSub

PrivateSubtext2_keypress（keyasciiAsInteger）‘如果文本框2按回车，文本框1获得焦点

Ifkeyascii=13Then

Text1.SetFocus

EndIf

EndSub

课程设计独创性声明：

学生签名：

指导教师评语：

课程设计成绩：

指导教师签名：

教研室意见：

教研室主任签名：