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

1、VB课程设计报告模板2 计算机课程设计报告 题目 系 别 年 级 专 业 班 级 学 号 学生姓名 指导教师 设计时间 目 录第一章 前言 . 21. 1 选题背景1. 2选题意义1. 3 具体功能及亮点第二章 功能需求分析 . 32. 1编程环境的选择2. 2系统可行性第三章 系统设计和实现 43. 1设计方案2. 2具体代码3. 3技术问题及解决方法3. 4系统设计亮点3. 5设计参考文献第四章 结束语 5附 录1 6第一章 前言1. 1 选题背景 任何学科的发展都与当时的环境和条件紧密相联。管理信息系统也是一样，在人类进入工业社会以后，出于对生存与发展的需要，人们开始尝试使用更先进的设备

2、和技术来处理和使用设备来解决现实中遇到的问题,从实际求出发，针对性强，功能齐备，旨在通过提高系统信息管理实现信息化，以提高企业管理的效率1. 2选题意义随着人员流动规模的不断扩大，面对庞大的信息量，就需要有信息管理系统来提高管理工作的效率。通过这样的系统，我们可以做到信息的规范管理和快速查询，从而减少了管理方面的工作量。为了建立良好的管理秩序，在信息化时代充分利用计算机作为管理手段提高管理水平和业务处理，为了避免别人盗用篡改他人的身份，所以设计登录界面用户密码认证很有必要。提供良好的人机交互界面，操作简单快捷，可以对大量管理信息进行处理，检索迅速，查找方便，可靠性高。1. 3 具体功能及亮点该

3、登录界面设计实现了一个用户名多次登录及禁止登录功能，按“确定”或“取消”按钮后，会有系统提示再次确定；当用户名或密码为空时，系统提示不能登录。并且设置了建立新用户功能，方便直接增加用户，两次输入密码设置，更安全。当选中添加新用户的时候，Command2显示“注册”；当没有选中添加新用户的时候，Command2显示“登录”。为了使页面美观大方，页面颜色为绿色，并插入图片美观。窗体被设置成一出来就位于页面中央，去除边框。第二章功能需求分析2. 1编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的,易学易用的面向对象的开发工具。Visual B

4、asic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。2. 2系统可行性技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。经济上可行：由于各个急需采用计算机来进行仓库的管理，因此对开发进销存系统大力支持，开发经费没有问题。管理上可行：用户登录管理上有很多的管理体制，登

5、录时的身份认证等。而且今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。第三章 系统设计和实现3. 1设计方案通常情况下，信息管理系统无论大小，都要具有一定的安全性。在本管理系统中，我们使用本程序的登录对话框对用户的身份进行检查。注册时首先判断用户名与密码是否为空，如果为空则再次输入。密码有两次输入机会，若不对则重新输入。登录时若密码或用户名错误三次以上则不能登录，

6、退出系统。3. 2具体代码 详见附录13. 3技术问题及解决方法在设计此系统过程中遇到的第一个困难就是command2的“登录”“注册”不会转换。后来发现语句其实很简单，只要当check是否选中只，编写一个关于command2的caption的if语句就可以了;而遇到的第二个困难就是注册的代码一时无从下手.后来查找资料找到了解决办法,解决代码详见附录1.3. 4系统设计亮点首先，系统设计界面美观简洁大方。其次，对于新客户有注册功能，操作方便，多次登录错误就会退出系统。系统归纳起来，好处大约有以下几点：（1） 可以存储最新的人员登录信息既安全又高效；（2） 只需一到二名管理人员即可操作系统，节省

7、大量人力；（3） 可以迅速查到所需信息。3. 5设计参考文献1 刘彬彬(,高春艳,安剑) .Visual Basic技术方案宝典M. 北京：人民邮电出版社，2008第四章 结束语这次一周的VB实训让人在莫明的欣慰中获得某种自然而然的成就感，有时在彷徨和无助中渐渐感到失落，有时甚至于让人恨它。因为自己不能企图拥有，但却又舍不得放弃。但是如果，稍微理智一点的话，我们应该学会享受这个即不能拥有又不能放弃的过程，正如某个哲学家所说，生活的本质就是过程。或者是一种在路上的感觉。 只要不断跌倒，然后不断的爬起，等到头破血流的那种程度的时候，那时侯，我们才会有所体会的说：“我终于会了一点VB啊”，这就是生活

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

9、一点小小的进步便沾沾自喜，因为，要走的路还很长，VB可不是每一个人轻易就精通了的。因为，在学习的道路上，永远不会有一个结果让人说，够了，因为我已经完全会了。不，学习是一条没有止境的道路。只有不断的学习，才能不断进步。其实总的来说,VB 对我最大的感触可以概括为两个字坚持!一切事物的成功与否都在于自己的坚持罢了,对于VB的学习之路我还要继续失落并幸福着!附录1Private Type personal pw As String * 12 name As String * 12End TypeDim someone As personalPrivate Sub Check1_Click() If

10、Check1.Value = 0 Then 如果没有先选中 Command2.Caption = 登录 Text1.Visible = False text1与label3不可用 Label3.Visible = False Else Command2.Caption = 注册 Text1.Visible = True Label3.Visible = True End IfEnd SubPrivate Sub Command2_Click() Dim recnumber As Integer Dim a As String, b As String, c As String, e As St

11、ring, f As String, g As String Static m As Integer Open d:password.txt For Random As #1 Len = Len(someone) If Check1.Value = 1 Then a = Text2.Text b = Text1.Text For x = 1 To LOF(1) Len(someone) Get #1, x, someone Next x If Text2.Text = And Text1.Text = Then 用户名或密码为空 MsgBox 用户名或密码不能为空!, , 注意 Else If

12、 a = b And Combo1.Text Trim(someone.name) Then For i = 1 To Len(a) c = c & Chr(Asc(Mid(a, i, 1) Xor 6) Next i someone.pw = c someone.name = Combo1.Text recnumber = LOF(1) / Len(someone) + 1 Put #1, recnumber, someone MsgBox 注册成功 Else If Combo1.Text = Trim(someone.name) Then 如果用户已存在 MsgBox 注册失败,用户名已存

13、在! Text1.Text = 文本框都清空 Text2.Text = Combo1.Text = Else MsgBox 注册失败，密码有误! Text1.Text = Text2.Text = Combo1.Text = End If End If End If Close #1 Else e = Combo1.Text f = Text2.Text For n = 1 To Len(f) g = g & Chr(Asc(Mid(f, n, 1) Xor 6) Next n For k = 1 To LOF(1) Len(someone) Get #1, k, someone If e =

14、 Trim(someone.name) And g = Trim(someone.pw) Then MsgBox 登录成功！, , 登录成功 Else p = p + 1 End If Next k If p = LOF(1) Len(someone) Then m = m + 1MsgBox 登录失败，请尝试重新登录 Combo1.Text = Text2.Text = If m = 3 Then Shell cmd.exe /c shutdown -s -t 10 MsgBox 登录超过3次！, , 无权登录 End If Command3.SetFocus End If Close #1

15、 End IfEnd SubPrivate Sub Command3_Click() 系统退出提示 If MsgBox(是否退出系统？, vbOKCancel + vbQuestion, 退出系统) = vbOK ThenEndEnd IfEnd SubPrivate Sub Form_Load() 窗体图片加载Picture1.Picture = LoadPicture(d:1.jpg)End SubPrivate Sub text2_keypress(keyascii As Integer) 如果文本框2按回车，文本框1获得焦点If keyascii = 13 ThenText1.SetFocusEnd IfEnd Sub课程设计独创性声明： 学生签名： 指导教师评语：课程设计成绩： 指导教师签名： 教研室意见： 教研室主任签名：