实验室设备管理系统毕业论文-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 实验室设备管理系统 摘要 学校实验室设备管理系统是典型的设备信息管理系统 (EMIS),要求能为学校实验室管理提供信息化动态化的管理，方便学校实验室设备管理工作，提高学校设备管理质量和使用效率。而且系统应符合设备管理的有关规定，包括新设备的申请、购买确认、新设备信息录入、旧设备维修和报废及用 户管理等。能满足日常工作的基本需要，并达到操作过程中的直观、方便、实用、安全等有关要求。 经过分析综合 ,使用 Sybase公司的 delphi7.0作为前端开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能够方便而简洁操纵数据库的智能化对象（后端采用Sybase ASA 数据库） ,本系统采用结构化程序设计方法，严格按照结构化方法开发过程，从计划阶段到开发阶段再到维护阶段一步一步实现本系统的功能。 关键词 : 设备信息管理系统（ EMIS） delphi7.0 Sybase ASA 数据库 快 速原型法 面向对象 数据窗口 数据对象 设备购买申请 购买批准确认 新设备信息录入 设备维修 设备报废 用户登录 用户管理 一、引言 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识它已进入人类社会的各个领域并发挥着越来越重要的作用。 实验室设备管理系统是一个众多企业、事业单位不可缺少的部分。它的内容对于企事业的决策者和管理者来说都至关重要 ,所以实验室设备管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理设备，这种 管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间稍长 ,将产生大量的冗余 ,文件越来越多，使人工管理没有头绪，这对于查找、更新和维护都带来了很大的困难。 作为计算机应用的一部分 ,使用计算机对学校实验室设备管理 ,具有手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提设备管理的效率 ,也是正规化管理 ,与世界接轨的重要条件。 1.1 编写目的 本系统的开发正是为了完成这样的任务，使用计算机对实验室设备进行管理 ,具有手工管理所无法比拟的优 点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等 ,它在当今信息社会已成为必要。 1.2 背景 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 仪征 XX 学校是一所职业中学，拥有多个实验室，实验室的仪器设备比较齐全，也比较多，每种设备情况都不一样。这就给实验室管理人员的管理带来了诸多不便。如果管理跟不上，一旦造成错误，很可能给学校造成巨大的损失。在没有使用管理软件前，管理人员一直为此而苦恼。今年，该校决定采用计算机技术进行设备上面的管理。根据该校的具体情况，本系统在实施后，将帮助实验室管理人员提高工作效率。 本项目的任务提出者 : 学校实验室设备管理人员 . 开发 :是本人的实验设计 . 用户 :为学校实验室设备管理人员 . 使用该软件系统同时与其他 Windos 系统兼容 ,能方便实验室设备管理人员管理 . 1 3 功能介绍 系统主要功能有： （ 1）设备管理：添加设备、添加设备、修改设备、设备情况查询。 （ 2）系统管理：用户管理（添加用户、删除用户、更改密码）、换名登录、退出系统。 （ 3）系统帮助：关于。 二、系统框架设计 根据本系统的功能主框架设计如下所示： 三 、数据库设计 实验室设备管理系统 用户管理 修改密码 换名登录 退出系统 系统功能 设备管理 设备资料入库 设备资料管理 入库记录查询 设备资料出库 出库记录查询 设备情况浏览 帮助系统 关于 帮助系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 针对该校的具体情况，本系统采用了 Access2000 数据库，数据库路径为 人事管理系统。数据库共有 4 个数据库表：用户表、设备表、入库记录表、出库记录表。 下面主要介绍一些重要数据库表的结构。 1、用户表 该表主要用来存放系统用户资料。 其主要结构如下所示： 字段名称 数据类型 字段大小 说明 用户名 文本 10 用户的名称 口令 文本 10 用户的口令 2、设备表 设备表主要用来存放设备的相关信息。 表结构如下所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 单价 货币 设备的单价 总金额 货币 设备的总金额 3、入库记录表 入库记录表主要用于存放设备入库时的相关信息。 表结构如下图所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 总金额 货币 总金额 入库日期 日期 /时间 入库的日期 经办人 文本 10 经手办此事的人名 备注 备注 备注 4、出库记录表 出库记录表主要用于存 放设备出库时的相关信息。 表结构如下图所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 总金额 货币 总金额 出库日期 日期 /时间 入库的日期 经办人 文本 10 经手办此事的人名 备注 备注 备注 Delphi7.0 中数据库的连接方式。 Delphi 可以使用多种数据库。我们这里使用 ADO 开发数据库技术。使用 ADO 开发数据库程序，通常需要以下组件： Datasource。 Adoconnetion。 Adocommand。 adodataset。 adotable。 adoquery。 adostoredproc。 使用 ADO 开发数据库程序的步骤如下： （ 1）在窗体添加 TADOConnection 组件（名称为 ADOConnection1），可以双击该组件设计其数据库连接属性。如下图所示： 选择 User Connection String，然后单击 Build 按钮，进入下图所示的界面。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 使用 OLE DB 连接能够发挥更大的效率。现在我们使用的是 Access2000，则可以选 择Microsoft Jet4.0OLE DB Provider。选择好后，单击“下一步”按钮，进入下图所示界面。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 点右边的 按钮，则进入选择数据库页面。选择好数据库，点击测试连接按钮。 四、详细设计 1、系统登录界面设计 程序启动后，首先进入“系统登录”界面验证操作员密码。系统登录窗口主要实现如下功能： 以图标列表形式显示操作员，并凭口令进入系统。 操作员错误或密码错误提醒并返回错误点。 系统登录界面如下图所示： 具体实现如下： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 添加新窗体，设置窗体 caption 属性为登陆窗口，向窗体中添加相关控 件。 程序代码如下： procedure Tloginform.FormShow(Sender: TObject)；/让窗体在显示之后，框中有用户选择。 var list_a:TlistItem； begin adoquery1.Close； adoquery1.SQL.Clear； adoquery1.sql.add(select * from 用户表 )；/选择所有操作员 adoquery1.Open； listview1.Items.Clear；/清空列表 while not adoquery1.Eof do/将所有操作人员加入到列表 begin list_a:=listview1.Items.Add； list_a.Caption :=adoquery1.fieldbyname(用户名 ).AsString ； list_a.ImageIndex:=1； adoquery1.Next ； end； edit1.setfocus； end； procedure Tloginform.Button2Click(Sender: TObject)；/退出 begin close； end； procedure Tloginform.ListView1Click(Sender: Tobject)；/选择操作员 begin if listview1.Selected Nil then/如果选择不为空 adoquery1.Locate(用户名 ,listview1.Selected.Caption,loPartialkey)； end； procedure Tloginform.Button1Click(Sender: TObject)；/如果密码不正确 begin if edit1.Text adoquery1.FieldByName(口令 ).AsString then begin showmessage(密码不正确请重新输入 !)； edit1.Clear； edit1.SetFocus； end else begin mainform.showmodal； edit1.Clear； listview1.SetFocus ； end； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure Tloginform.Edit1KeyPress(Sender: TObject； var Key: Char)；/执行登录操作 begin if key=#13 then button1.Click； end； 2、主窗体界面设计 程序启动后，在登录操作员密码后，将进入主程序界面。主程序界面主要实现如下功能： 使用菜单操作、显示系统日期、单位信息。通过主界面，退出程序。 3、系统管理功能模块的设计 （ 1）用户管理 添加按钮的代码如下： procedure Tyhglform.Button1Click(Sender: TObject)； begin adotable1.Append； tjyhform.showmodal；/添加用户窗口显示 end； 删除按钮的程序如下： procedure Tyhglform.Button2Click(Sender: TObject)； begin if messagebox(yhglform.Handle, 确 定 要 删 除 本 条 记 录 吗 ？ , 请 确 认,mb_okcancel)=idok then begin adotable1.delete； end； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 添加用户窗口如下所示： （ 2）修改口令窗口如下所示： 4、设备管理模块的设计 （ 1）设备资料入库 输入用户名和密码，点击确定。 代码如下： procedure Ttjyhform.Button1Click(Sender: TObject)； begin yhglform.adotable1.post； dbedit1.Text :=； dbedit1.Clear ； dbedit2.Text :=； dbedit1.SetFocus ； end； 该界面之确定按钮代码如下： procedure Tfrm_xgmm.BitBtn1Click(Sender: TObject)； begin if edit3.Textedit2.Text then begin messagebox(frm_xgmm.Handle,请重新确认新密码！ ,提示 ,mb_iconerror)； edit3.Text:=； edit3.SetFocus； end else begin adotable1.Edit； adotable1.Fields1.Value:=edit3.Text； adotable1.Post； messagebox(frm_xgmm.Handle,您的密码修改成功！ ,信息 ,mb_iconasterisk)； close； end； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： “确定”按钮的程序如下： procedure Tsbrkform.Button1Click(Sender: TObject)； begin if edit6.Text= then begin showmessage(该记录不能为空 )； exit； edit6.Clear； edit6.SetFocus ； end； if length(trim(edit1.Text)6 then begin showmessage(请输入 6 位设备编号 )；/判断设备编号是否为 6 位 edit1.Clear； edit1.SetFocus ； exit； end； with adoquery1 do begin close； adoquery1.SQL.Clear； adoquery1.SQL.add(select * from 设备表 where 编号 =:id)； parameters.parambyname(id).Value:=edit1.text； adoquery1.Open； if recordcount0 then begin adoquery1.Edit； adoquery1.fieldbyname( 数量).Value :=strtoint(edit3.text)+strtoint(adoquery1.FieldByName(数量 ).asstring)； adoquery1.FieldByName( 总金 额 ).Value:=strtoint(adoquery1.fieldbyname( 单价无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： ).asstring)*strtoint(adoquery1.fieldbyname(数量 ).asstring)； adoquery1.FieldByName(编号 ).Value:=edit1.Text ； adoquery1.FieldByName(设备名称 ).Value:=edit2.Text ； adoquery1.FieldByName(单价 ).Value:=edit4.Text； post； end else begin adoquery1.Append； adoquery1.FieldByName(编号 ).Value:=edit1.Text ； adoquery1.FieldByName(设备名称 ).value:=edit2.Text ； adoquery1.FieldByName(数量 ).Value:=edit3.Text ； adoquery1.FieldByName(单价 ).Value:=edit4.Text ； adoquery1.FieldByName(总金额 ).Value:=strtoint(edit4.Text)*strtoint(edit3.Text) ； post； end； with adoquery2 do adoquery2.Close； adoquery2.SQL.Clear； adoquery2.SQL.Add(select * from 入库记录表 )； adoquery2.Open； adoquery2.Edit ； adoquery2.Append； adoquery2.Fields0.Value :=edit1.Text； adoquery2.Fields1.Value :=edit2.Text； adoquery2.Fields2.Value :=edit3.Text； adoquery2.Fields3.Value :=strtoint(edit3.Text)*strtoint(edit4.Text)； adoquery2.Fields4.Value :=date； adoquery2.Fields5.Value :=edit6.Text ； adoquery2.Fields6.Value :=memo1.Text ； adoquery2.Post； end； edit1.Clear； edit2.Clear； edit3.Clear； edit4.Clear； edit6.Clear； memo1.Clear； edit1.SetFocus； end； 该程序为判断该产品是否在设备库中有库存，如果有库存，则会 使原有的库存产生改变。 （ 2）设备资料管理 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 该程序模块的用法如下：先在左边选中某个数据，如果想修改，则点击修改按钮，则左边选中数据在右边显示出详细信息。用户修改之后，点击保存即可。 另外此界面中还实现了查询、打印功能。 具体该程序的代码如下所示： procedure Tsbglform.Button1Click(Sender: TObject)；/修改按钮的程序代码 begin edit1.Text :=adoquery1.Fields0.AsString ； edit2.Text :=adoquery1.Fields1.AsString ； edit3.Text :=adoquery1.Fields 2.AsString ； edit4.Text :=adoquery1.Fields 3.AsString ； edit5.Text :=adoquery1.Fields 4.AsString ； end； procedure Tsbglform.Edit4Exit(Sender: TObject)；/当修改过价格或数量之后，总金额会智能改变。 begin edit5.Text :=inttostr(strtoint(edit4.Text )*strtoint(edit3.Text )； end； procedure Tsbglform.Edit3Exit(Sender: TObject)； begin edit5.Text :=inttostr(strtoint(edit4.Text )*strtoint(edit3.Text )； end； procedure Tsbglform.Button2Click(Sender: TObject)；/保存按钮的程序代码如下 begin with adoquery1 do begin adoquery1.delete； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； with adoquery1 do begin close； with sql do begin clear； add(insert into 设备表 values(:p0,:p1,:P2,:p3,:p4)； end； parameters0.value:=edit1.text； parameters1.value:=edit2.text； parameters2.value:=edit3.text； parameters3.value:=edit4.text； parameters4.value:=edit5.text； execsql； end； with adoquery1 do begin close； with SQL do begin clear； add(select * from 设备表 )； end； execsql； open； end； end； procedure Tsbglform.Button3Click(Sender: TObject)；/删除记录 begin if application.MessageBox( 确 定 要 删 除 这 条 记 录 吗 , 提示,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete； end； procedure Tsbglform.Button5Click(Sender: TObject)； begin if combobox1.Text =编号 then 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin with adoquery1 do begin close； sql.Clear； sql.add(select * from 设备表 where 编号 =:id)； parameters.ParamByName (id).Value :=edit6.text； open； if recordcount=0 then begin application.MessageBox( 没 有 检 索 到 该 设 备 信 息 , 提示,mb_ok+mb_iconinformation)； end； end； end； if combobox1.Text =设备名称 then begin with adoquery1 do begin close； sql.Clear； sql.add(select * from 设备表 where 编号 =:d)； parameters.ParamByName (d).Value :=edit6.text； open； if recordcount=0 then begin application.MessageBox( 没 有 检 索 到 该 设 备 信 息 , 提示,mb_ok+mb_iconinformation)； end； end； end； end； procedure Tsbglform.Button6Click(Sender: TObject)；/打印窗口的代码如下 beginbbdyform.QuickRep1.Preview ； end； procedure Tsbglform.FormShow(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 设备表 )； adoquery1.Open； end； procedure Tsbglform.Button7Click(Sender: TObject)；/刷新 begin adoquery1.Refresh ； end； 打印窗口如下所示： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： （ 3）入库记录查询 功能为可查询历来设备入库的具体记录。界面如下所示： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 可按照入库时间来查询。 程序代码如下所示： procedure Trkcxform.Button1Click(Sender: TObject)； begin inherited； with adoquery1 do begin close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 入库记录表 where 入库日期 =:id )； adoquery1.Parameters .parambyname(id).value:=datetostr(datetimepicker1.Date )； adoquery1.open； adoquery1.first； end； end； （ 4）设备资料出库 功能为对设备库中的设备出库操作。 界面如下所示： 该模块具有智能化，会根据你输入的设备编号，自动得出设备名称。 程序代码具体如下： procedure Tsbckform.Button1Click(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if edit6.Text= then begin showmessage(该记录不能为空 )； exit； edit6.Clear； edit6.SetFocus ； end； if length(trim(edit1.Text)6 then begin showmessage(请输入 6 位设备编号 )； edit1.Clear； edit1.SetFocus ； exit； end； with adoquery1 do begin close； adoquery1.SQL.Clear； adoquery1.SQL.add(select * from 设备表 where 编号 =:id)； parameters.parambyname(id).Value:=edit1.text； adoquery1.Open； if recordcount0 then begin adoquery1.Edit； adoquery1.fieldbyname( 数量 ).Value :=strtoint(adoquery1.FieldByName( 数量).asstring)-strtoint(edit3.text)； adoquery1.FieldByName( 总金额 ).Value:=strtoint(adoquery1.fieldbyname( 单价).asstring)*strtoint(adoquery1.fieldbyname(数量 ).asstring)； adoquery1.FieldByName(编号 ).Value:=edit1.Text ； adoquery1.FieldByName(设备名称 ).Value:=edit2.Text ； adoquery1.FieldByName(单价 ).Value:=edit4.Text； post； end； with adoquery2 do adoquery2.Close； adoquery2.SQL.Clear； adoquery2.SQL.Add(select * from 出库记录表 )； adoquery2.Open； adoquery2.Edit ； adoquery2.Append； adoquery2.Fields0.Value :=edit1.Text； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： adoquery2.Fields1.Value :=edit2.Text； adoquery2.Fields2.Value :=edit3.Text； adoquery2.Fields3.Value :=strtoint(edit3.Text)*strtoint(edit4.Text)； adoquery2.Fields4.Value :=date； adoquery2.Fields5.Value :=edit6.Text ； adoquery2.Fields6.Value :=memo1.Text ； adoquery2.Post； end； edit1.Clear； edit2.Clear； edit3.Clear； edit4.Clear； edit6.Clear； memo1.Clear； button2.SetFocus； end； procedure Tsbckform.Button2Click(Sender: TObject)； begin close； end； procedure Tsbckform.Edit1Exit(Sender: TObject)； begin with adoquery1 do begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 设备表 wh