数据库应用、实验室设备管理系统资料(共24页)

1、 辽 宁 工 业 大 学数据库应用(yngyng)技术课 程 设 计 说 明 书题目(tm)： 实验室设备(shbi)管理系统 学院（系）： 软件学院 专业班级： 软件工程班 学 号： 学生姓名： 指导教师： 佟玉军 教师职称： 副教授 起止时间：2011.12.19-2011.12.31辽宁工业大学(dxu)课程设计（论文）任务书院（系）：软件(run jin)学院 教研室： 软件工程 学 号111301049学生姓名刘璐专业班级软件工程112班设计题目实验室设备管理系统设计技术参数题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。数据库：SQLSERVER2000。所使用

2、的语言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP。所采用的技术、系统结构:ADO数据库联接技术,系统结构为C/S结构。设计要求教师布置实习任务和要求时，不得缺席，并做好记录。上机前预先把所有的源程序编写好。上机时不得迟到，不得缺席，爱护设备，认真调试程序。仔细查阅相关资料，认真完成思考题。按要求书写设计任务书，并按要求按版打印，不得雷同。工作量二周工作计划周一听取教师布置设计的任务及要求。周二学生查阅相关资料，进行数据库设计。周三至周五：详细设计与界面设计。周一至周四程序设计与上机，调试源程序。周五书写课程设计任务书。参考资料数据库应用技术数据库应用技术实验指导书自编

3、数据库应用技术课程设计大纲自编等指导教师评语 教师： 学生：说明：此表一式四份，学生、指导(zhdo)教师、教研室、系部各一份。可加附页。2011年 12 月 31辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书 第 PAGE 27 页 共 24页 目录(ml) TOC o 1-3 h z HYPERLINK l _Toc313034019 第一章 概述(i sh)4 HYPERLINK l _Toc313034020 第二章 问题(wnt)定义5 HYPERLINK l _Toc313034021 第三章 需求分析6 HYPERLINK l _Toc313034022 第四章

4、 数据库设计 PAGEREF _Toc313034022 h 12 HYPERLINK l _Toc313034023 第五章 界面设计 PAGEREF _Toc313034023 h 17 HYPERLINK l _Toc313034024 第六章 代码与注释 PAGEREF _Toc313034024 h 19 HYPERLINK l _Toc313034025 参考文献 PAGEREF _Toc313034025 h 24第一章 概述(i sh)实验室设备(shbi)管理系统是一个典型(dinxng)的信息管理系统，它可以为实验室形成一个规范的管理体系。他的功能非常的强大，能够完成设备的

5、购置、使用、维修、赔偿、报废等多方面功能。系统采用VB（Visual Basic）和SQL Server 2000进行开发，VB是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。它的功能强大、开发出来的软件性能可靠。SQL Server 2000是微软公司开发的大型关系数据库管理系统，它不仅可以满足大型数据处理系统对数据存储量的需求，而且对于小型企业和个人来说，也可以作为管理数据的简易工具，数据库性能良好，数据可靠性高，易于使用。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成学校

6、部门管理、设备分类管理、设备的基本信息管理、设备使用管理、设备维护管理、设备报废管理、综合查询管理等功能。并通过设置权限管理来实现系统的安全性和可靠性的管理。目前国内学校教学设备自动化管理水平不是很高。大多数学校设备管理办法是设备采购进来以后，将设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如设备位置变迁、检修情况、设备当前运行状态等信息根本不会体现在设备台帐上，即设备跟踪信息不能及时体现在设备档案上。某些使用设备管理系统学校，对设备的跟踪信息即使能体现在设备档案上，但设备的缺陷处理及设备缺陷等功能没有实施，设备检修的备品备件情况和检修成本核算没有实现，整个学校设备

7、管理信息化仍处于较低水平。本系统满足学校设备管理的需要，将会提高学校的办公效率和设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高学校的现代化管理水平。实时报警功能对学校的安全生产更是不可忽视。第二章 问题(wnt)定义因为现在各个高校内教学设备众多但自动管理水平相比过低，很多高校管理设备都采用在设备购进以后将设备的基本情况和相关信息登记存档。存档以后档案基本就没人记录与维护，至于以后设备的变迁或损坏都不会记录在设备档案中，即不能体现设备的即时状态。而有些即使有设备管理系统的单位，就算是能把设备的即时信息体现在设备档案上，但设备的缺陷(quxin)处理及设备缺陷等功能没有实施，设备检修的备

8、品备件情况和检修成本核算没有实现，整个学校教学设备管理信息化仍处于较低水平。将管理任务分成小块，落实到个人并能随时查询设备当前情况和历史情况，对设备的可靠性分析有直接作用，使管理人员从手工计算、统计工作中解脱出来。 现在，科学技术的飞速发展把人类社会推向了一个崭新的时代信息时代。这已是无可争议的事实(shsh)；信息对社会经济发展的巨大推动作用，使其与物质能源一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息作为一种资源来管理的需求日益加强，信息研究领域出现了一种新的管理思想和模式信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息是普遍存在的，人类信息管理活动的范围也是十分

9、广泛的，信息管理不仅是信息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发展的六七十年代出现的。时至今日，信息管理已不仅仅是一个概念，而是信息学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理就是对信息的管理。第三章 需求(xqi)分析一、数据库需求(xqi)分析1）设备(shbi)信息管理部分管理员可对设备信息库进行维护，可添加新设备信息。管理员可对设备类别进行维护，可添加新设备类别。管理员可对设备信息进行查询。管理员可查看设备类别。设备是否已经借出应存储在设备信息中，因此设备必须有一个字段来

10、记录。2）设备使用者部分管理员可对使用者信息进行维护，如添加，删除，修改读者信息等。管理员可通过ID查询使用者信息，因此使用者ID必须唯一，且为必填字段。使用者可以注销，即删除使用者。3）设备借还部分管理员可对借用设备和归还设备信息进行维护，如添加，删除，修改等。因设备不经常外借，所以管理员应能一次性查阅所有借用记录。外借设备和归还记录中应包含借用者信息，如单位，姓名等。4）设备维修部分管理员可以对维修信息进行维护，如添加，删除，修改等。管理员可通过ID或类别查询设备维修信息，因此设备ID必须唯一，且要有分类查询功能。5）设备报废部分管理员可以对报废信息进行维护，如添加，删除，修改等。管理员可

11、通过ID或类别查询设备报废信息，因此设备ID必须唯一，且要有分类查询功能。6）设备赔偿部分管理员可以对赔偿信息进行维护，如添加，删除，修改等。管理员可通过ID或类别(libi)查询设备赔偿信息，因此设备ID必须唯一，且要有分类查询功能。7）实验室管理员信息管理部分(b fen)管理员可对实验室管理员信息进行(jnxng)维护，如添加，删除设备管理员信息等。管理员可通过ID查询实验室管理员信息，因此设备管理员ID必须唯一，且为必填字段。8）管理员信息管理部分管理员有权限划分，每个管理员ID必须对应一个管理员权限类型（系统管理员，高级管理员，普通管理员）。管理员ID必须唯一。系统管理员可以维护管理

12、员信息，如添加，删除管理员。系统管理员可以查询管理员信息，因此可查询字段（ID）必须设置为必填。二、数据流图数据流程图是软件工程学和管理信息系统科学中的概念,它描述的是一个具体的业务处理系统的信息来源,存储,处理和信息将要流到何处去的全面情况,它可以辅助计算机专业人员更好的了解现有系统的一些状况,但还需要一些工具来补充系统的流程细节。是以图形的方式表达在问题中信息的变换和传递过程。它把系统看成是由数据流联系的各种概念的组合，用分解及抽象手段来控制需求分析的复杂性，采用分层的数据流程图来表示一个复杂的系统。需要注意的是数据流图和程序设计中的程序流程图是不同的，数据流图关心的是企业业务系统中的数据

13、处理加工的客观过程，并不关心未来电子化处理的加工过程；数据流图中流动的只是数据，并没有控制过程，但在程序流程图当中，必须有控制逻辑。结构化分析是面向数据流开展需求分析工作的一种有效方法。一般采用自顶向下，逐层分解的演义分析法来定义系统的需求，即先把分析对象抽象成一个系统，然后自顶向下的逐层分解，将复杂的系统分解成简单的、能够清楚地被理解和表达的若干个子系统。这样就可以分别理解系统的每个细节、前后顺序和相互关系，找出各部分之间的数据接口。在结构化分析方法所采用的工具有数据流程图（DFD）、数据字典（DD）、结构化语言、判定树、判定表等。数据流图就是采用图形方式来表达系统的逻辑功能、数据在系统内部

14、的逻辑流向和逻辑变换过程，是结构化系统分析方法的主要表达工具及用于表示软件模型(mxng)的一种图示方法。本系统(xtng)流图如图3.1所示。管理员管理员设置设备类型设置实验室信息设置供应商信息设置用户权限设置管理员信息设备信息实验室信息权限信息供应商信息设备添加实验室管理员设置使用者信息设置设备信息使用者信息实验室管理员信息设备赔偿设备赔偿信息产生报表管理员产生报表管理员设备报废设备报废信息产生报表管理员设备借还设备借还信息产生报表管理员设备维修设备维修信息产生报表管理员图3.1数据(shj)流图三、数据(shj)字典（DD）:数据字典是一种用户可以访问的记录数据库和应用程序元数据的目录。

15、主动数据字典是指在对数据库或应用程序结构进行(jnxng)修改时，其内容可以由DBMS自动更新的数据字典。数据字典中存放着系统中所有数据的定义，即对所有数据库结构的描述。数据字典提供了对数据库描述的集中管理手段。数据字典是一个定义应用程序中使用的所有数据元素和结构的含义、类型(lixng)、数据大小、格式、度量单位、精度以及允许聚值范围的共享仓库。作用是确保开发人员使用统一的数据定义，数据字典中有关系统的详细信息是系统设计、系统实施与维护的重要依据。是关于数据信息的集合，也就是对数据流图中包含的所有元素定义的集合。任何字典最主要的用途都是供人查阅不了解的条目的解释，数据字典的作用也正是在软件分

16、析和设计过程中给人提供关于数据的描述信息。数据流图和数据字典共同构成系统的逻辑模型，没有数据字典数据流图就不严格，然而没有数据流图数据字典也难于发挥作用。只有数据流图和对数据流图精确的定义放在一起，才能共同构成系统的规格说明。 以下是数据流图中主要元素的数据字典卡片:名字：LabAd_ID别名：实验室管理员编号描述：唯一标志实验室管理员的关键域位置：实验室信息表(Lab_Info)实验室管理员信息表(LabAd_Info)名字：Lab_ID别名：实验室编号描述：唯一标志实验室的关键域位置：实验室信息表(Lab_Info) 设备信息表(Equip_Info) 维修信息表(Mend_Info) 报

17、废信息表(Broke_Info) 赔偿信息表(Pey_Info)名字：Equip_ID别名：设备编号描述：唯一标志一个特定设备的关键域位置：实验室信息表(Lab_Info) 设备信息表(Equip_Info) 维修信息表(Mend_Info) 报废信息表(Broke_Info) 赔偿信息表(Pey_Info)名称：SysAd_ID别名：描述：记录各部门的基本信息 位置：系统管理员信息表（SysAd_Info）供应商信息表（Orter_Info）用户权限表（Limit_Info）日志信息表（Log_Info）注册控制表（Reg_Info）四、程序流程图： 实验室设备(shbi)管理系统操作流程如

18、图3.2所示，系统提供两种登录方式，使用者可以先注册一个使用编号，然后根据注册信息登录系统。开 始选择登录方式否使用者管理员否否选择操作类型成功登录注册选择操作方式否是成功成功否综合查询综合查询系统管理基本信息管理设备查询与统计日常事务管理得到返回结果得到返回结果退出退出是是结 束结 束图3.2程序(chngx)流程图五、功能(gngnng)结构图：系统功能结构图主要从功能的角度描述了系统的结构，但并未表达各功能之间的数据传送关系。事实上，系统中许多业务或功能都是通过数据文件联系起来的。例如(lr)，某一功能模块向某一数据文件中存入数据，而另一个功能模块则从该数据文件中取出数据。再比如，虽然在

19、数据流程图中的某两个功能模块之间原来并没有通过数据文件发生联系，但为了处理方便，在具体实现中有可能在两个处理功能之间设立一个临时的中间文件以便把它们联系起来。上述这些关系在设计中是通过绘制信息系统流程图来从整体上表达的。系统(xtng)功能图如图3.3所示。实验室设备管理系统日常事务管理设备的查询与统计基本信息管理系统管理综合管理设备购置管理设备使用管理设备维修管理入库查询与统计维修查询与统计赔偿查询与统计设备类型管理实验室管理员管理设备供应商管理设备使用者管理用户管理修改密码权限管理综合信息查询 图3.3系统(xtng)功能图第四章 数据库设计(shj)一、概念设计： 实验室管理员姓名ID电

20、话性别住址图4.1实验室管理员实体(sht)E-R图设备ID名称类别金额保修年限生产厂商购置日期图4.2设备(shbi)实体E-R图实验室ID名称图4.3实验室实体E-R图系统管理员名称ID密码备注权限类型图4.4系统管理员实体E-R图实验室管理员管理管理员管理实验室设 备使用者供应商设备类别维修属于借还赔偿报废分类供货使用11n11nnn1n1n1图4.5系统(xtng)总体E-R图二、逻辑设计：本系统(xtng)采用Microsoft SQL Server 2000 建立(jinl)数据库，包括14张表：“设备信息表”、“设备维修信息表”、“设备报废信息表”、“设备借还信息表”、“赔偿记录

21、信息表”、“实验室信息表”、“设备类型信息表”、“设备使用者信息表”、“实验室管理员信息表”、“系统管理员信息表”、“供应商信息表”、“用户权限表”、“日志信息表”、“注册控制表”。下面(xi mian)列出几个主要的数据库表设计：表4.1 实验室管理员信息(xnx)表列名数据类型字段大小必填字段默认值说明LabAd_IDvarchar50是递增，主键LabAd_Namevarchar50是实验室管理员姓名LabAd _Sexchar4是男实验室管理员性别LabAd _Addrvarchar200是实验室管理员住址LabAd _Teltext16是实验室管理员电话表4.2设备(shbi)信息表

22、列名数据类型字段大小必填字段默认值说明Equip_IDchar15是主键，设备编号Type_IDint4是设备类型Orter_IDint4是设备供应商Equip_Datedatetime8是购置日期Equip_Pricemoney8是设备金额Equip_Yearint4是保修年限Usr_IDchar16null设备使用者Lab_IDint4是null所属实验室Equip_Elsevarchar200null备注Equip_Lendchar4是否是否已外借报废状态char4是否是否报废表4.3实验室信息表列名数据类型字段大小必填字段默认值说明Lab_IDint4是递增，主键Lab_Namecha

23、r16是实验室名称LabAd_IDvarchar50实验室管理员编号表4.4 系统管理员信息表列名数据类型字段大小必填字段默认值说明Admin _Namechar16是主键，管理员名称Admin_SecNumchar16是管理员密码Admin_Typechar10是权限类型Admin_Elsetext16管理员备注Timesint40记录用户进入系统前，密码错误次数三、物理设计 1. 数据库的物理设计的内容和方法数据库最终是要存储在物理设备上的。为一个给定的逻辑数据模型选取一个最适合应用环境的物理结构的过程，就是数据库的物理设计。物理结构依赖于给定的DBMS和和硬件系统，因此设计人员必须充分了

24、解所用(su yn)DBMS的内部特征，特别是存储结构和存取方法；充分了解应用环境，特别是应用的处理频率和响应时间要求；以及充分了解外存设备的特性。 数据库的物理设计通常(tngchng)分为两步： (1).确定(qudng)数据库的物理结构 (2).对物理结构进行评价，评价的重点是时间和空间效率 2. 数据库表的创建打开SQL数据库，单击“创建数据库表”菜单的“新建数据库表结构”菜单项。在弹出的“创建数据库表结构”界面中，单击“新建模板”按钮。在弹出的对话中，输入数据库表名，然后，单击确定。部分所建表如下所示：图4.6实验室管理员信息图4.7设备信息图4.8实验室信息(xnx)图4.9系统管

25、理员信息(xnx)第五章 界面设计一、登陆窗口(chungku)如下所示：用户拥有自己的用户名、密码和使用权限(qunxin)。当输入用户名和密码以后，点击“确定(qudng)”键，如果用户名和密码都正确就可以顺利进入主窗体，如果输入错误，那么就有相应的提示信息。如图5.1所示。图5.1 登录界面二、主界面输入正确的用户名和密码后会进入主界面，如图5.2所示。图5.2系统主界面图三、密码管理用户可以修改自己的密码，选择菜单“系统管理修改密码”，如图5.3所示图5.3修改(xigi)密码界面四、设备(shbi)基本信息管理界面设计此界面可以(ky)实现对设备类型的查询等功能。有按设备编号和实验室

26、名称查询两种方式。每个设备都有自己的编号，输入标号就可以查询每个设备的详细信息；如果不知道编号，输入设备所在的实验室名称也可查询到要找设备的详细信息。如图5.4所示。图5.4设备基本信息管理界面五、设备购置管理界面设计本界面实现新购置设备的录入功能，其中包括设备编号，设备名称，设备类型，生产厂商，购置日期，金额，保修年限，所属实验室，等，购入新设备时，应该完成对设备的完整添加，添加时使用人可不填，也就是将设备添加到数据库中。如图5.5所示。图5.5设备购置管理界面第六章 代码(di m)与注释一、登录(dn l)代码Private Sub Command1_Click() Dim rs As

27、New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim n, X, M As Integer If txtuser.Text = Then MsgBox 请输入(shr)用户名！ Exit Sub End If If txtid.Text = Then MsgBox 请输入密码 Exit Sub End If If txtuser.Text = Admin Or txtuser.Text = admin Then rs

28、3.Open select * from SysAd_Info where Admin_Name= & Trim(txtuser.Text) & and Admin_SecNum= & Trim(txtid.Text) & , DBCnn, adOpenStatic, adLockOptimistic If rs3.RecordCount 0 Then frmmain.Show frmlog.Hide Else MsgBox 密码有误，请重新输入！ End If Else rs.Open select * from SysAd_Info where Admin_Name= & Trim(txt

29、user.Text) & , DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount = 5 Then MsgBox 该用户已被锁定，请与超级(choj)管理员联系！ Else rs2.Open select * from SysAd_Info where Admin_SecNum= & Trim(txtid.Text) & , DBCnn, adOpenStatic, adLockOptimistic If rs2.RecordCount 0 Then rs.Fields(Times) = 0 rs.Update frmmain.Sho

30、w frmlog.Hide Else rs.Update MsgBox 密码输入(shr)有误，请重新输入！ End If End If End If End If二、主界面(jimin)代码Private Sub menu4_Click(Index As Integer) Select Case Index Case 1 frmadmin.Show Case 2 frmser.Show Case 3 frmlim.Show Case 4 For Each Form In Forms If frmmain.Caption = 实验室设备管理系统 Then frmmain.Show Else U

31、nload Form End If Next Form frmbf.Show Case 5 frmloginfo.Show End SelectEnd SubPrivate Sub menu5_Click(Index As Integer) Select Case Index Case 1 ShellExecute Me.hwnd, vbNullString, 帮助文件.CHM, vbNullString, , SW_SHOWNORMAL Case 2 frmabout.Show End SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal B

32、utton As MSComctlLib.Button) Select Case Button.Index Case 1 frmmain.Hide frmlog.Show frmlog.txtuser.Text = frmlog.TxtID.Text = Case 2 frmser.Show Case 3 frmstuinfo.Show Case 4 Case 5 frmabout.Show Case 6 ShellExecute Me.hwnd, vbNullString, 帮助文件.CHM, vbNullString, , SW_SHOWNORMAL End SelectEnd SubPr

33、ivate Sub TX_Click() X = Shell(C:Program FilesOutlook Expresswab.exe, 1)End SubPrivate Sub 退出(tuch)_Click() Dim rs As New ADODB.Recordset If MsgBox(确实(qush)要退出实验室设备管理系统吗？, vbYesNo + vbQuestion + vbDefaultButton1, 确认窗口) = vbYes Then rs.Open select * from SysAd_Info where Admin_Name= & Trim(frmlog.txt

34、user.Text) & , DBCnn, adOpenStatic, adLockOptimistic rs.Fields(Times) = 0 rs.Update rs.Close End End IfEnd Sub三、修改(xigi)密码代码Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open select * from SysAd_Info where Admin_Name= & Trim(frmlog.txtuser.Text) & and Admin_SecNum= & Trim(Txtsec.Text

35、) & , DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount 1 Then MsgBox 密码有误，请输入正确信息！ Exit Sub ElseIf Txtnew.Text Txtnewd Then MsgBox 新口令重复输入时不正确！ Txtnew.Text = Txtnewd.Text = Exit Sub Else rs.Fields(Admin_SecNum) = Txtnew.Text MsgBox 密码修改成功 frmser.Hide rslog.Open select * from Log_Info where 操作员=, DBCnn, adOpenStatic, adLockOptimistic rslog.AddNew