实验室设备管理系统—计算机毕业设计

实验室设备管理系统—计算机毕业设计内容摘要：

使用传统人工的方式管理设备， 这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间稍长 ,将产生大量的冗余 ,文件越来越多，使人工管理没有头绪，这对于查找、更新和维护都带来了很大的困难。 作为计算机应用的一部分 ,使用计算机对学校实验室设备管理 ,具有手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。 这些优点能够极大地提设备管理的效率 ,也是正规化管理 ,与世界接轨的重要条件。 编写目的 本系统的开发正是为了完成这样的任务，使用计算机对实验室设备进行管理 ,具有手工管理所无法比拟 的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等 ,它在当今信息社会已成为必要。 背景 仪征 XX学校是一所职业中学，拥有多个实验室，实验室的仪器设备比较齐全，也比较多，每种设备情况都不一样。 这就给实验室管理人员的管理带来了诸多不便。 如果管理跟不上，一旦造成错误，很可能给学校造成巨大的损失。 在没有使用管理软件前，管理人员一直为此而苦恼。 今年，该校决定采用计算机技术进行设备上面的管理。 根据该校的具体情况，本系统在实施后，将帮助实验室管理人员提高工作效率。 本项目的任务提 出者 : 学校实验室设备管理人员 . 开发 :是本人的实验设计 . 用户 :为学校实验室设备管理人员 . 使用该软件系统同时与其他 Windos 系统兼容 ,能方便实验室设备管理人员管理 . 1． 3 功能介绍 系统主要功能有： （ 1）设备管理：添加设备、添加设备、修改设备、设备情况查询。 （ 2）系统管理：用户管理（添加用户、删除用户、更改密码）、换名登录、退出系统。 （ 3）系统帮助：关于。 二、系统框架设计 根据本系统的功能主框架设计如下所示： 三、数据库设计 针对该校的具体情况，本系统采用了 Access2020 数据库，数据库路径为 \人事管理系统。 数据库共有 4 个数据库表：用户表、设备表、入库记录表、出库记录表。 下面主要介绍一些重要数据库表的结构。 用户表 该表主要用来存放系统用户资料。 其主要结构如下所示： 实验室设备管理系统 用户管理 修改密码 换名登录 退出系统 系统功能 设备管理 设备资料入库 设备资料管理 入库记录查询 设备资料出库 出库记录查询 设备情况浏览 帮助系统 关于 帮助系统 字段名称 数据类型 字段大小 说明 用户名 文本 10 用户的名称 口令 文本 10 用户的口令 设备表 设备表主要用来存放设备的相关信息。 表结构如下所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的 编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 单价 货币 设备的单价 总金额 货币 设备的总金额 入库记录表 入库记录表主要用于存放设备入库时的相关信息。 表结构如下图所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 总金额 货币 总金额 入库日期 日期 /时间 入库的日期 经办人 文本 10 经手办此事的人名 备注 备注 备注 出库记录表 出库记录表主要用 于存放设备出库时的相关信息。 表结构如下图所示： 字段名称 数据类型 字段大小 说明 编号 文本 6 设备的编号 设备名称 文本 20 设备的名称 数量 文本 4 设备的数量 总金额 货币 总金额 出库日期 日期 /时间 入库的日期 经办人 文本 10 经手办此事的人名 备注 备注 备注 中数据库的连接方式。 Delphi 可以使用多种数据库。 我们这里使用 ADO 开发数据库技术。 使用 ADO 开发数据库程序，通常需要以下组件： Datasource。 Adoconion。 Adomand。 adodataset。 adotable。 adoquery。 adostoredproc。 使用 ADO 开发数据库程序的步骤如下： （ 1）在窗体添加 TADOConnection 组件（名称为 ADOConnection1），可以双击该组件设计其数据库连接属性。 如下图所示： 选择 User Connection String，然后单击 Build… 按钮，进入下图所示的界面。 使用 OLE DB 连接能够发挥更大的效率。 现在我们使用的是 Access2020，则可 以选择Microsoft DB Provider。 选择好后，单击“下一步”按钮，进入下图所示界面。 点右边的 … 按钮，则进入选择数据库页面。 选择好数据库，点击测试连接按钮。 四、详细设计 系统登录界面设计 程序启动后，首先进入“系统登录”界面验证操作员密码。 系统登录窗口主要实现如下功能： 以图标列表形式显示操作员，并凭口令进入系统。 操作员错误或密码错误提醒并返回错误点。 系统登录界面如下图所示： 具体实现如下： 添加新窗体，设置窗体 caption 属性为登陆窗口，向窗体中添加相 关控件。 程序代码如下： procedure (Sender: TObject)。 //让窗体在显示之后，框中有用户选择。 var list_a:TlistItem。 begin。 (39。 select * from 用户表 39。 )。 //选择所有操作员。 //清空列表 while not do//将所有操作人员加入到列表 begin list_a:=。 :=(39。 用户名 39。 ).AsString。 :=1。 end。 end。 procedure (Sender: TObject)。 //退出 begin close。 end。 procedure (Sender: Tobject)。 //选择操作员 begin if Nil then//如果选择不为空 (39。 用户名 39。 ,[loPartialkey])。 end。 procedure (Sender: TObject)。 //如果密码不正确 begin if (39。 口令 39。 ).AsString then begin showmessage(39。 密码不正确请重新输入 !39。 )。 end else begin。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 //执行登录操作 begin if key=13 then。 end。 主窗体界面设计 程序启动后，在登录操作员密码后，将进入主程序界面。 主程序界面主要实现如下功能： 使用菜单操作、显示系统日期、单位信息。 通过主界面，退出程序。 系统管理功能模块的设计 （ 1）用户管理 添加按钮的代码如下： procedure (Sender: TObject)。 begin。 //添加用户窗口显示 end。 删除按钮的程序如 下： procedure (Sender: TObject)。 begin if messagebox(,39。 确 定 要 删 除 本 条 记 录 吗。 39。 ,39。 请 确 认39。 ,mb_okcancel)=idok then begin。 end。 end。 添加用户窗口如下所示： （ 2）修改口令窗口如下所示： 设备管理模块的设计 （ 1）设备资料入库 输入用户名和密码，点击确定。 代码如下： procedure (Sender: TObject)。 begin。 :=39。 39。 :=39。 39。 end。 该界面之确定按钮代码如下： procedure (Sender: TObject)。 begin if then begin messagebox(,39。 请重新确认新密码。 39。 ,39。 提示 39。 ,mb_iconerror)。 :=39。 39。 end else begin。 [1].Value:=。 messagebox(,39。 您的密码修改成功。 39。 ,39。 信息 39。 ,mb_iconasterisk)。 close。 end。 end。 “确定”按钮的程序如下： procedure (Sender: TObject)。 begin if =39。 39。 then begin showmessage(39。 该记录不能为空 39。 )。 exit。 end。 if length(trim())6 then begin showmessage(39。 请输入 6 位设备编号 39。 )。 //判断设备编号是否为 6 位。 exit。 end。 with adoquery1 do begin close。 (39。 select * from 设备表 where 编号 =:id39。 )。 (39。 id39。 ).Value:=。 if recordcount0 then begin。 (39。 数量39。 ).Value :=strtoint()+strtoint((39。 数量 39。 ).asstring)。 (39。 总金额 39。 ).Value:=strtoint((39。 单价39。 ).asstring)*strtoint((39。 数量 39。 ).asstring)。 (39。 编号 39。 ).Value:=。 (39。 设备名称 39。 ).Value:=。 (39。 单价 39。 ).Value:=。 post。 end else begin。 (39。 编号 39。 ).Value:=。 (39。 设备名称 39。 ).value:=。 (39。 数量 39。 ).Value:=。 (39。 单价 39。 ).Value:=。 (39。 总金额 39。 ).Value:=strtoint()*strtoint()。 post。 end。 with adoquery2 do。 (39。 select * from 入库记录表 39。 )。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value :=。 [6].Value :=。 end。 end。 该程序为判断该产品是否在设备库中有库存，如果有库存，则会使原有的库存产生改变。 （ 2）设备资料管理 该程序模块的用法如下：先在左边选中某个数据，如果想修改，则点击修改按钮，则左边选中数据在右边显示出详细信息。 用户修改之后，点击保存即可。 另外此界面中还实现了查询、打印功能。 具体该程序的代码如下所示： procedure (Sender: TObject)。 //修改按钮的程序代码 begin :=[0].AsString。 :=[1].AsString。 := [2].AsString。 := [3].AsString。 := [4].AsString。 end。 procedure (Sender: TObject)。 //当修改过价格或数量之后，总 金额会智能改变。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Se。