《可视化编程技术课程设计论文设备管理系统》由会员分享，可在线阅读，更多相关《可视化编程技术课程设计论文设备管理系统（22页珍藏版）》请在金锄头文库上搜索。
1、辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 设备管理系统 院（系）： 专业班级： 学 号： 学生姓名： 指导教师： 教师职称： 助 教 起止时间：2010.11.22至2010.12.5 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研窒学 号学生姓名专业班级课程设计（论文）题目设备管理系统课程设计（论文）任务课程设计任务及要求：1、掌握VB程序设计语言的基础知识。2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。3、编写代码，实现系统的功能。4、通过调试程序，加深对VB编程的基本技巧及方法的理解。5、了解VB与数
2、据库的连接方法。课程设计过程中，要严格遵守实践环节的时间安排，听从指导教师的指导。正确地完成上述内容，记录实习日记，规范完整地撰写出课程设计论文。指导教师评语及成绩成绩： 指导教师签字： 2010 年 12 月 6 日目 录第1章 课程设计目的与要求11.1 课程设计目的11.2 课程设计的实验环境11.3 课程设计的预备知识11.4 课程设计要求1第2章 课程设计内容22.1 系统功能设计22.2 系统详细设计32.3 系统运行与测试13第3章 课程设计总结18参考文献19第1章 课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合
3、训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。软件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立
4、完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计内容2.1系统功能设计2.1.1 系统功能分析系统详细功能阐述。本系统中的应用程序使用的是Visual Basic，它是Mricrosoft公司开发的一个套件部分，是一个功能丰富，方便实用的程序开发环境，它的一个很大的特点就是功能强大，编程简单的数据库操作能力。可视化的开发环境，丰富的数据库访问控件的支持，使它成为数据库应用程序项目中重要的开发工具。一
5、个完备的企业设备管理信息系统具有以下优越性：方便领导查询企业设备的使用情况，节省时间，可以提高系统的工作效率和准确性。为了适应新形势的发展，我进行了这一系统的初步设计工作，也可以说是做一个初步的探索，希望它能够在查询企业设备信息时发挥高效、便捷的作用,把系统管理员从繁重的工作中解脱出来！该企业设备管理信息系统是以ACCESS数据库为后台核心应用、以服务为目的信息平台，对资源进行科学的加工整序和管理维护，为企业设备信息提供管理。该系统的目标是以最低的成本，在最短的期限内开发出企业设备管理信息系统。系统能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大大节省了学校能源。并且计算机的存储
6、与快速查询功能大大提高了企业设备信息管理的效率，并且还提高了企业设备信息管理的精确度。方便快速的操作，可减少企业设备信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为企业节约了开支。为企业增加了财富。 目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上比较低。而且，目标系统并不是十分的复杂。当系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时，也为系统的进一步推广创造了条件。2.1.2 系统功能模块设计企业设备管理系统系统管理设备管理配件管理维修管理配件删除管理员登陆设备
7、添加设备报废设备信息配件添加配件修改维修添加维修查询退出密码修改用户管理综合查询管理设备使用设备调拨图2.1系统功能模块图2.2系统详细设计2.2.1 用户登入模块设计1. 界面设计用户拥有自己的用户名、密码和使用权限。当输入用户名和密码以后，点击“确定”键，如果用户名和密码都正确就可以顺利进入主窗体，如果输入错误，那么就有相应的提示信息。如图2.2所示。图2.2用户登入界面窗体对 象属属 性 值说 明Form1NamefrmLogin 身份验证Caption身份验证 Command1Name cmdOKCaption 确定Command2Name cmdOK 将输入的信息清空Caption
8、取消Text1Name txtPassword 清空Text NoveText2Name txtPassword 清空Text Nove表 2.1 属性值表用户管理界面设计可以添加、删除用户，此界面普通用户不能进入。图2.3用户管理界面 对 象属 属 性 值 说 明Form1Name frmLogin 用户管理Caption 用户管理DataGrid1 Name用户各项信息Command1NamecmdOK添加按钮 Caption添加Command2NamecmdOK删除按钮 Caption删除Command3NamecmdOK Caption修改Command4NamecmdOK Capti
9、on返回表 2.2 属性值表如果两次输入的新密码不一样，将出现提示信息。图2.4修改密码界面Text1Name txtPassword 清空Text NoveText2Name txtPassword 清空Text NoveText3NametxtPassword清空TextNove Text4NametxtPassword清空TextNove表 2.1 属性值表图2.4部门分类管理界面 对 象属 属 性 值 说 明Form1NamefrmLogin 部门分类管理Caption 部门分类管理DataGrid1 Name部门各项信息Command1NamecmdOK添加按钮 Caption添加C
10、ommand2NamecmdOK删除按钮 Caption删除Command3NamecmdOK更新按钮Caption更新Command4NamecmdOK返回按钮Caption返回Text1Name部门编号TexttxtPasswordText2Name部门名称TexttxtPassword表 2.2 属性值表2.代码设计身份验证界面代码：Dim strPwd As String Dim rsPwd As ADODB.Recordset Dim strLogin As String Dim sql As String Dim pwdCount As Integer Set con = New
11、ADODB.Connection con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=企业设备 strLogin = Trim(Text1.Text) strPwd = Trim(Text2.Text) If Len(strLogin) = 0 Then MsgBox 用户名不能为空,请输入用户名, 68, 提示 Text1.SetFocus Exit Sub End If If Len(strPwd) = 0 Then MsgBox 密码不能为空,请
12、输入正确的密码, 68, 提示 Text2.SetFocus Exit Sub End Ifsql = SELECT UserPwd,UserType FROM Users WHERE UserName= + strLogin + Set rsPwd = con.Execute(sql)If rsPwd.EOF Then MsgBox 用户名不正确,请重新输入!, 68, 提示 Text1.SetFocus Exit SubElseIf strPwd = rsPwd(UserPwd).Value Then LoginSucceeded = True Else MsgBox 密码不正确,请重新输入!, 68, 提示 Text2.SetFocus Text2.Text = Exit Sub End If If rsPwd(UserType).Value = 0 Then FrmMain.mn_Users.Enabled = False FrmDeviceEdit.Cmd_Add.Enabled = False Frm
