数据库应用实验室设备管理系统

1、数据库应用实验室设备管理系统辽宁工业大学数据库应用技术课 程设计 说明书题目实验室设备管理系统学院（系）：软件学院专业班级：软件工程班学号：学生姓名：指导教师：佟玉军教师职称：副教授1 /24数据库应用实验室设备管理系统起止时间：201L12.19201L12.31辽宁工业大学课程设计（论文）任务书院（系）：软件学院教研室：软件工程学号111301049学生姓名刘璐专业班级软件工程112班设计题目实验室设备管理系统设计技术参 数1 .题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。2 .数据库：SQLSERVER20003 .所使用的语言、工具：VB6.0+ SQLSERV

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

3、应用技术课程设计大纲自编等指导教师 评语教师： 学生：说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2011 年 12 月 31目录第一章概述4第二章问题定义5第三章需求分析6第四章数据库设计12第五章界面设计17第六章代码与注释19参考文献2411/24第一章概述实验室设备管理系统是一个典型的信息管理系统，它可以为实验室形成一个规范的 管理体 系。他的功能非常的强大，能够完成设备的购置、使用、维修、赔偿、报废等多方面功能。系统采用VB( Visual Basic )和SQL Server 2000进行开发，VB是Microsoft公 司推出 的一种Windows应用程序开

4、发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为 是编程效率最高的一种编程方法。它的功能强大、开发出来的软件性能可靠。SQL Server 2000是微软公司开发的大型关系数据库管理系统，它不仅可以满足大型数据处 理系统对数据存储量的需求，而且对于小型企业和个人来说，也可以作为管理数据的简易工 具，数据库性能良好，数据可靠性高，易于使用。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成学校部门管理、 设备分类管理、设备的基本信息管理、设备使用管理、设备维护管理、设备报废管理、综合查询 管理等功能。并通过设置权限管理来实现系统的安全性和可靠性的管理。目前国内学校教学设

5、备自动化管理水平不是很高。大多数学校设备管理办法是设备采购进来以后，将设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如设备位置变迁、检修情况、设备当前运行状态等信息根本不会体现在设备台帐上，即设备跟踪信息不能及时体现在设备档案上。某些使用设备管理系统学校，对设 备的跟踪信息即使能体现在设备档案上，但设备的缺陷处理及设备缺陷等功能没有实施，设备检修的备品备件情况和检修成本核算没有实现，整个学校设备管理信息化仍处于较低 水平。本系统满足学校设备管理的需要，将会提高学校的办公效率和设备可靠性，减少工作人员 的劳动强度，减少办公耗材，提高学校的现代化管理水平。实时报警功能对

6、学校的安全生产更 是不可忽视。第二章问题定义因为现在各个高校内教学设备众多但自动管理水平相比过低，很多高校管理设备都采用在设备购进以后将设备的基本情况和相关信息登记存档。存档以后档案基本就没人记录与维护，至于以后设备的变迁或损坏都不会记录在设备档案中，即不能体现设备的即时状态。而有些即使有设备管理系统的单位，就算是能把设备的即时信息体现在设备档案 上，但设备的缺陷处理及设备缺陷等功能没有实施，设备检修的备品备件情况和检修成本核算 没有实现，整个学校教学设备管理信息化仍处于较低水平。将管理任务分成小块，落实到个人并 能随时查询设备当前情况和历史情况，对设备的可靠性分析有直接作用，使管理人员从手工

7、计算、统计工作中解脱出来。现在，科学技术的飞速发展把人类社会推向了一个崭新的时代一一信息时代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物质能源一起并列为现代社会 的三大支柱，这已在全社会达到共识。随着对信息作为一种资源来管理的需求日益加强，信息研 究领域出现了一种新的管理思想和模式一一信息管理。因此，就诞生了 “信息管理”这样一个概 念。由于信息是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信息工 作的一部分，而且已被认为是现代管理的重要组成 部分。信息管理的概念源于西方，也是在世 界信息量迅速增长、信息技术日新月异、信息产业强劲发展的六七十年代出现的

8、。时至今日，信 息管理已不仅仅是一个概念，而是信息学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理就是对信息的管理。第三章需求分析一、数据库需求分析1）设备信息管理部分管理员可对设备信息库进行维护，可添加新设备信息。管理员可对 设备类别进行维护，可添加新设备类别。管理员可对设备信息进行查询。管理员可查看设备类别。设备是否已经借出应存储在设备信息中，因此设备必须有一个字段 来记录。2）设备使用者部分管理员可对使用者信息进行维护，如添加，删除，修改读者信息等。 管理员可通过ID查询使用者信息，因此使用者ID必须唯一，且为必填字段。使用者可以 注销，即删除使用者。3 ）设备借还部分管

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

10、必须唯一，且要有分类查询功 能。7）实验室管理员信息管理部分管理员可对实验室管理员信息进行维护，如添加，删除设备管理员信息等。管理员可通过ID查询实验室管理员信息，因此设备管理员ID必须唯一，且为必填字段。8）管理员信息管理部分管理员有权限划分，每个管理员ID必须对应一个管理员权限类型（系统管理员， 高级管理员，普通管理员）。管理员ID必须唯一。系统管理员可以维护管理员信息，如添加，删除管理员。系统管理员可以查询管理员信息，因此可查询字段（ID）必须设置为必填。二、数据流图数据流程图是软件工程学和管理信息系统科学中的概念，它描述的是一个具体的业务处理 系统的信息来源，存储,处理和信息将要流到何

11、处去的全面情况，它可以辅助计算机专业人员更 好的了解现有系统的一些状况，但还需要一些工具来补充系统的流程细节。是以图形的方式表 达在问题中信息的变换和传递过程。它把系统看成是由数据流联系的各种概念的组合，用分解及抽象手段来控制需求分析的复杂性，采用分层的数据流程图来 表示一个复杂的系统。需要注意的是数据流图和程序设计中的程序流程图是不同的，数据流图关心的是企业业务 系统中的数据处理加工的客观过程，并不关心未来电子化处理的加工过程；数据 流图中流动的 只是数据，并没有控制过程，但在程序流程图当中，必须有控制逻辑。结构化分析是面向数据流开展需求分析工作的一种有效方法。一般采用自顶向下， 逐层分解的

12、演义分析法来定义系统的需求，即先把分析对象抽象成一个系统，然后自顶向下的 逐层分解，将复杂的系统分解成简单的、能够清楚地被理解和表达的若干个子系统。这样就可以 分别理解系统的每个细节、前后顺序和相互关系，找出各部分之间的数据接口。在结构化分析方法所采用的工具有数据流程图（DFD、数据字典（DD、结构化语言、判定树、判定表等。数据流图就是采用图形方式来表达系统的逻辑功能、数据在系统内部的逻辑流向和逻辑变换 过程，是结构化系统分析方法的主要表达工具及用于表示软件模型的一种图示方法。本系统流图 如图3.1所示。管理员管理员设笆设备类型设置实验室信息设1v川户权限设置供应商信息设置设备添加实验室管理员

13、设置使用者信息设置管理员信息实验室信息供应商信息.使用者信息权限储息产生报表管理员设备信息管理员产生报去实验室管理员信息设备赔偿信息设备信息设备报废信息设备借还信息设备维修设备维修信息图3.1数据流图三、数据字典(DD):数据字典是一种用户可以访问的记录数据库和应用程序元数据的目录。主动数据库应用实验室设备管理系统数据字典是指在对数据库或应用程序结构进行修改时，其内容可以由DBMS自动更新的数据字典。数据字典中存放着系统中所有数据的定义，即对所有数据库结构的描述。数据 字典提供了对数据库描述的集中管理手段。数据字典是一个定义应用程序中使用的所有数据元 素和结构的含义、类型、数据大小、格式、度量

14、单位、精度以及允许聚值范围的共享仓库。作用 是确保开发人员使用统一的数据定义，数据字典中有关系统的详细信息是系统设计、系统实施与 维护的重要依据。是关于数据信息的集合，也就是对数据流图中包含的所有元素定义的集合。 任何字典最主要的用途都是供人查阅不了解的条目的解释，数据字典的作用也正是在软件分析和 设计过程中给人提供关于数据的描述信息。数据流图和数据字典共同构成系统的逻辑模型，没有 数据字典数据流图就不严格，然而没有数据流图数据字典也难于发挥作用。只有数据流图和对数 据流图精确的定义放在一起，才能共同构成系统的规格说明。以下是数据流图中主要元素的数据字典卡片：名字：LabAd_ID别名：实验室

15、管理员编号描述：唯一标志实验室管理员的关键 域位置：实验室信息表（LabJ nfo） 实验室管理员信息表（LabAdnf。）名字：Lab_ID别名：实验室编号描述：唯一标志 实验室的关键域位置：实验室信息 表（LabJ nfo）设备信息表（Equipjnfo）维修信息表（Mendjnfo）报废信息表（Brokenfo）赔偿信名字：EquipJD别名：设备编号描述：唯一标志一个特定设备的关 键域位置：实验室信息表（LabJ nfo） 设备信息表（Equipnfo） 维修信息表（Mend_lnf。） 报废信息表（Brokenfo） 赔偿信息表（Peylnfo） 四、程序流程图：名称：SysAd_I

16、D别名：描述：记录各部门的基本信息位置：系统 管理员信息表（SysAdnf。）供应商信息表（Orterjnfo ）用户权限表（Limitjnfo ）日志信息表（Lognfo）注册控制表（Regnfo）实验室设备管理系统操作流程如图3.2所示，系统提供两种登录方式，使用者可以先注册 一个使用编号，然后根据注册信息登录系统。图3.2程序流程图五、功能结构图：系统功能结构图主要从功能的角度描述了系统的结构，但并未表达各功能之间的数据传送关 系。事实上，系统中许多业务或功能都是通过数据文件联系起来的。例如，某一功能模块向某一 数据文件中存入数据，而另一个功能模块则从该数据文件中取出数据。再比如，虽然在

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

18、理员图4.1实验室管理员实体E-R图实验室使用者供应商图4.5系统总体E-R图二、逻辑设计：本系统采用Microsoft SQL Server 2000建立数据库，包括14张表：“设备信息表”“设备维修信息表”、“设备报废信息表”、“设备借还信息表”、“赔偿记录信息表”、“实验室信息表”、“设备类型信息表”、“设备使用者信息表”、“实验室管理员信息表”、“系统管理员信息表” “供应商信息表”、“用户权限表” “日志信息表” “注册控制表”F面列出几个主要的数据库表设计：表4.1实验室管理员信息表列名数据类型字段大小必填字段默认值说明LabAd IDvarchar50是递增，主键LabAd Na

19、mevarchar50是实验室管理员姓名LabAd Sexchar4是男实验室管理员性别LabAd Addrvarchar200是实验室管理员住址LabAd Teltext16是实验室管理员电话表4.2设备信息表列名数据类型字段大小必填字段默认俏说明Equip IDchar15是主键，设备编号Type IDint4是设备类型Orter IDint4是设备供应商Equip Datedatetime8是购置日期Equip Pricemoney8是设备金额Equip Yearint4是保修年限Usr IDchar16null设备使用者Lab IDint4是null所属实验室Equip Elsevar

20、char200null备注Equip Le ndchar4是否是否已外借报废状态char4是是否报废表4.3实验室信息表列名数据类型字段大小必填字段默认值说明Lab IDint4是递增，主键Lab Namechar16是实验室名称LabAd IDvarchar50实验室管理员编号表4.4系统管理员信息表列名数据类型字段大小必填字段默认值说明Admin Namechar16是主键，管理员名称Admin SecNumchar16是管理员密码Admin Typechar10是权限类型Admin Elsetext16管理员备注Timesint40记录用户进入系统 前，密码错误次数三、物理设计1.数据库

21、的物理设计的内容和方法数据库最终是要存储在物理设备上的。为一个给定的逻辑数据模型选取一个最适合应用环 境的物理结构的过程，就是数据库的物理设计。物理结构依赖于给定的DBM舔和硬件系统，因此设计人员必须充分了解所用DBMS勺内部特征，特别是存储结构和存取方法；充分了解应用环境，特别是应用的处理频率和响应时间要求；以及充分了解外存设备的特性。数据库的物理设计通常分为两步：(1) .确定数据库的物理结构(2) .对物理结构进行评价，评价的重点是时间和空间效率(3) 据库表的创建打开SQL数据库，单击“创建数据库表”菜单的“新建数据库表结构”菜单项。在弹出的“创建数据库表结构”界面中，单击“新建模板”

22、按钮。在弹出的对话中，输入数据库表 名，然后，单击确定。部分所建表如下所示:图4.6实验室管理员信息图4.7设备信息图4.8实验室信息图4.9系统管理员信息第五章界面设计一、登陆窗口如下所示：用户拥有自己的用户名、密码和使用权限。当输入用户名和密码以后，点击“确定”键， 如果用户名和密码都正确就可以顺利进入主窗体，如果输入错误，那么就有相应的提示信息。如图5.1所示。图5.1登录界面、主界面输入正确的用户名和密码后会进入主界面，如图 5.2所示图5.2系统主界面图三、密码管理用户可以修改自己的密码，选择菜单“系统管理修改密码”，如图5.3所示图5.3修改密码界面四、设备基本信息管理界面设计此界

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

24、lick()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.RecordsetDim rs3 As New ADODB.RecordsetDim n, X, M As In teger If txtuser.Text = 'H, The nMsgBox n请输入用户名！ ”Exit SubEnd IfIf txtid.Text = nn ThenMsgBox n请输入密码”Exit SubEnd IfIf txtuser.Text = "Admin” Or txtu

25、ser.Text = Hadminn Thenrs3.Ope n "select * fromSysAdnfo where Admin_Name=" &Trim(txtuser.Text) & and Admin_SecNum=H, & Trim(txtid.Text) & ,n, DBCnn, adOpenStatic, adLockOptimisticIf rs3.RecordCou nt > 0 The n frmmain .Show frmlog.HideElseMsgBox ”密码有误，请重新输入！ ”End IfElsers

26、.Open "select * from SysAd_lnfo where Admin_Name=H, & Trim(txtuser.Text)& "n, DBCnn, adOpenStatic, adLockOptimisticIf rs.RecordCount <= 0 ThenMsgBox ”该用户名不存在！请重新输入正确信息！“ ElseIf Val(rs.Fields(nTimes") >= 5 ThenMsgBox ”该用户已被锁定，请与超级管理员联系！ ”曰sers2.Open "select * from Sy

27、sAd_lnfo where Admin_SecNum=" & Trim(txtid.Text) & ,H", DBCnn, adOpenStatic, adLockOptimisticIf rs2.RecordCount > 0 Then rs.Fields(HTimesn) = 0 rs.Update frmmain.Show frmlog.HideElsers. UpdateMsgBox ”密码输入有误，请重新输入！ ”End IfEnd IfEnd IfEnd If二、主界面代码Private Sub menu4_Click(lndex As

28、Integer)Select Case IndexCase 1frmadmin.ShowCase 2 frmser.ShowCase 3 frmlim.ShowCase 4For Each Form In FormsIf frmmain.Caption = " 实验室设备管理系统 M Then frmmain.Show ElseUnload FormEnd IfNext Formfrmbf.ShowCase 5frmloginfo.ShowEnd SelectEnd SubPrivate Sub menu5_Click(lndex As Integer)Select Case Ind

29、exCase 1ShellExecute Me.hwnd, vbNullString,"帮助文件vbNullString, SW_SHOWNORMALCase 2frmabout.ShowEnd SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctILib.Button)Select Case Button.lndexCase 1frmmain.Hidefrmlog.Showfrmlog.txtuser.Text = frmlog.TxtID.Text =Case 2frmser.ShowCase

30、3frmstuinfo.ShowCase 4Case 5frmabout.ShowCase 6ShellExecute Me.hwnd, vbNullString, ” 帮 助文件vbNullString, SW_SHOWNORMALEnd SelectEnd SubPrivate Sub TX_Click()X = Shell(nC:Program FilesOutlook Expresswab.exeM, 1)End SubPrivate Sub 退出 _Click()Dim rs As New ADODB.RecordsetIf MsgBox(n确实要退出实验室设备管理系统吗？ ”, v

31、bYesNo + vbQuestion + vbDefaultButtonl, ” 确认窗口 ")= vbYes Thenrs.Open "select * from SysAd lnfo where Admin_Name=" & Trim(frmlog.txtuser.Text) & "n, DBCnn, adOpenStatic, adLockOptimisticrs.Fields(叮imes")= 0rs. Updaters.CloseEndEnd IfEnd Sub三、修改密码代码Private Sub Command1

32、_Click()Dim rs As New ADODB.Recordsetrs.Open “select * from SysAd_lnfo where Admin_Name=M, & Trim(frmlog.txtuser.Text) & and Admin_SecNum=" & Trim(Txtsec.Text) & DBCnn, adOpenStatic, adLockOptimisticIf rs.RecordCount < 1 ThenMsgBox ”密码有误，请输入正确信息！”Exit SubElself Txtnew.Text &l

33、t;> Txtnewd ThenMsgBox ”新口令重复输入时不正确！ ”Txtnew.Text =Txtnewd.Text =Exit SubElse rs.Fields("Admin_SecNumn) = Txtnew.Text MsgBox "密码修改成功 " frmser.Hide rslog.Open "select * from Log_lnfo where 操作员=H", DBCnn, adOpenStatic, adLockOptimisticrslog.AddNew rslog.Fields(" rslog.Fields(" rslog.Fields(" rslog.Field