1、实验室管理系统信息系统开发与实践课程结课实践作业项目名称：实验室管理系统完成人： 二零一二年十一月十日一、需求分析1.1 现行数据分析从实验室管理系统来说，主要是实现实验室的管理人员使用。该系统的项目主要包括：实验室管理，设备管理，系统管理，以及课程管理。实验室管理主要是是实现实验室申请、实验室的开放时间管理、实验室的查询；设备管理主要是实现设备的借出、归还、报废、维修、添加等的管理；系统管理主要是设置用户权限，系统初始化，以及密码的修改等；课程管理包括添加、删除、更新上课班级。为了系统的安全性，要设置密码和用户权限。用户凭密码登录，系统查找用户登录表根据设定的相应权限规定用户的操作。普通用户
2、只可以对现有数据进行查询，管理员可以对系统中的数据进行增、删、查、改操作，从而实现管理流程的电子化。1.2功能模块设计根据以上分析可知应设置如下应用管理模块图1-1 功能模块图二、数据库设计概念模型设计实验数据最终需要持久化，记录到数据库系统中，为此，需要专门对数据库进行分析设计。通过对上述的数据分析结果进一步分析。首先，给出系统数据库的概念模型，即绘制实体关系图（E-R模型）：图2-1 用户实体E-R图图2-1 课程实体E-R图图2-3 实验室设备实体E-R图图2-4 实验室实体E-R图图2-5 总体E-R模型图依据以上E-R模型图，可转换为以下关系模式（主键用下划线标出）用户表（用户名，密
3、码，权限）课程表（课程号，课程名，实验室，班级，教师，时间）实验室表（实验室编号，实验室名称，负责人，开放时间）实验设备表（设备编号，设备名称，设备状态，所属实验室）2.4逻辑模型设计 实验室管理系统采用的是access数据库，建立数据库表，本系统共使用了四张表，分别是用户信息表、课程安排表、实验室开放表和设备表，具体如下：表2-1 用户信息表字段数据类型长度主键描述用户名文本8密码文本20权限文本4表2-2 课程安排表字段数据类型长度主键描述课程号文本10课程名文本20实验室文本20班级文本20时间文本20教师文本20表2-3 实验室表字段数据类型长度主键描述实验室编号文本10实验室名文本2
4、0负责人文本20开放时间文本20表2-8设备表字段数据类型长度主键描述设备编号文本10设备名称文本20设备状态文本4所属实验室文本20二、系统设计、关键代码分析系统页面分析系统的登录界面如图所示，用户可以凭用户名和密码登陆（数据库中的测试数据位：用户名123，密码123），若输入的用户名或密码不正确，则不能登录。登录后，根据数据库表设置的权限，用户做相应的操作。图3-1 登录图下图为系统的主页面，展示了实验室管理系统所包含的模块和实现的基本功能，用户通过点击不同的功能按钮进入下一级功能，在下一级功能中用户实现基本操作图3-2 主页面功能图另外系统还设计了系统管理功能页面，实验室管理功能，课程管
5、理功能、设备管理功能等页面。用户在实验室管理功能界面可实现按实验室名称的查询和按开放时间的查询图3-2实验室管理功能页面在设备管界面主要使用户可实现设备的借出、归还、维修（即修改设备状态），设备的报废（即删除此设备的数据），设备添加（及插入设备数据）图3-2设备管理功能图3.2 相关代码登录页面代码设计procedure TForm1.Button1Click(Sender: TObject);begin if ADOTable1.Locate(用户名;密码,VarArrayOf(edit2.Text,edit3.Text),) then begin form1.Visible:=false;
6、 messagedlg(登录成功,mtinformation,mbOK,0); form2.Show; form2.Label1.Caption:=edit2.Text+,欢迎登录实验室管理系统 end else begin if logcs2 then begin messagedlg(登录失败,mtError,mbOK,0); close; end else begin messagedlg(用户名或密码错误,mtError,mbOK,0); logcs:=logcs+1; end; end;end;procedure TForm1.FormClick(Sender: TObject);b
7、egin logcs:=1; edit2.Clear; edit3.Clear;end;procedure TForm1.Button2Click(Sender: TObject);begin edit2.Clear; edit3.Clear;end;procedure TForm1.FormCreate(Sender: TObject);begin edit2.Clear; edit3.Clear;end;主窗体设计代码procedure TForm2.Button5Click(Sender: TObject);begin form2.Close; form1.Visible:=true;e
8、nd;procedure TForm2.Timer1Timer(Sender: TObject);begin StatusBar1.Panels0.Text:=当前用户:+form1.Edit2.Text; StatusBar1.Panels1.Text:=当前日期:+Formatdatetime(YYYY年MM月DD日,Now(); StatusBar1.Panels2.Text:=当前时间:+Formatdatetime(HH:MM:SS,Now();end;procedure TForm2.N7Click(Sender: TObject);begin form1.Close; form2
9、.Close;end;procedure TForm2.N5Click(Sender: TObject);begin form7.Show;end;procedure TForm2.ToolButton5Click(Sender: TObject);begin form1.Close; form2.Close;end;procedure TForm2.ToolButton4Click(Sender: TObject);begin form7.Show;end;procedure TForm2.ToolButton3Click(Sender: TObject);begin form4.Show;
10、end;procedure TForm2.ToolButton1Click(Sender: TObject);begin form3.Show;end;procedure TForm2.ToolButton2Click(Sender: TObject);begin form5.Show;end;总结转眼之间大学生活已经过了两年多，这两年我们学习了很多计算机方面的理论知识，这学期，学习了Delphi为我提供了一次实践的机会，使得我们把所学的理论知识和实践结合起来。在实验室管理系统的开发过程中，我对本系统的整体进行了设计，确定了系统应该具备的主要特性和基本功能，明确了系统总体的设计思路。之后就是对
11、系统进行有效的可行性分析。在确定了本系统具有较高的可行性后，通过对系统数据库的分析和总体的功能模块的设计，基本明确了本系统要做什么，怎么做。然后着手于软件代码的实现。本系统的开发环境主要选择了Delphi。最后，经测试后本系统具有相对较高的稳定性和实用性，可以满足系上日常实验室管理的基本需求。对于我一个初学者来说已经是比较的困难了，我几乎每天都带着电脑在自习室边学边做，但由于自己理论知识水平有限，实践知识和设计经验不足，在设计过程中，也存在很多问题。由于之前的知识掌握的不扎实，虽然很用心的去听同学的讲解，但是还是有很多代码看不懂，在编写过程中也存在许多不细心的地方，犯了一些语言上的小错误。在模
12、块实现中，课程表的查询是比较简单的一个模块，通过学习相关资料和同学们的指导我很快就能做出来，但在最后实现的时候，程序代码中还是存在一些错误，不过在同学们的帮助下很快就能解决。在程序设计过程中，也存在比较复杂的模块，例如添加课表模块，更新课表等。但最后都顺利的完成了。通过此次课程设计，我分析问题跟解决问题的能力都得到了提高。对我而言，知识上的收获固然重要，精神上的丰收更加可喜。相信这必将会给我平淡的人生添上精彩的一笔。不管辛苦也好，无助也好，这个系统已经完成了，不仅巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。很感谢这次带领我的老师和帮助我的同学们，这两周收获的东西真的很多很多。相信这些知识在以后的学习和工作中对我都有很大的帮助。
