实验室设备管理信息系统设计

实验室设备管理信息系统设计内容摘要：

型20位NOT NULL损坏日期Ddate字符型 20位损坏原因Dreason字符型 20位损坏类别Dkind字符型 20位维修：数据项中文名属性英文名属性类型、长度、精度属性的值域维修设备号Rno字符型20位NOT NULL设备号Eno字符型20位NOT NULL故障原因Breason字符型 20位故障类别Bkind字符型 20位系统设计：系统总体ER图如下所示：：部分局部ER如下所示：ER图转换为关系模式：用户（用户编号，用户名，用户电话）设备（设备型号，设备号，设备类别，设备名称，设备规格，设备状况）查询（用户编号，设备编号，查询日期）用户（用户编号，用户名，用户电话）设备（设备型号，设备号，设备类别，设备名称，设备规格，设备状况）申请（用户编号，设备编号，使用日期） ：把得到的满足第三范式的关系转化为特定的数据库管理系统下的数据表，根据前面得到的各个关系，现把它们转化为数据表。 表一 基本设备信息表中文字段名英文字段名字段类型长度主键/外键字段值约束设备类别sortchar20NOT NULL设备编号enochar8PNOT NULL设备名称enamechar20NOT NULL设备型号etypechar15NULL设备规格especchar15 NULL设备状况stateChar6NULL说明：此表存放实验室基本设备信息，显示结果如下：表二 维修设备信息登记表中文字段名英文字段名字段类型长度主键/外键字段值约束维修编号fnochar10NOT NULL设备编号enochar8PNOT NULL设备名称enamechar20NOT NULL设备型号etypechar15NULL维修日期fixdatedatetime8 NULL维修费用moneyFloat8NULL维修人员princichar20NULL说明：此表存放实验室维修设备信息，显示结果如下： 表三报废设备信息登记表中文字段名英文字段名字段类型长度主键/外键字段值约束报废编号snochar10NOT NULL设备编号enochar8PNOT NULL报废日期scrdatedatetime8NULL领导审核agreechar10NULL 说明：此表存放实验室报废设备信息，显示结果如下： 表四 用户信息登记表中文字段名英文字段名字段类型长度主键/外键字段值约束用户编号tnochar10PNUT NULL使用日期trydatedatetime8NULL设备类别ttypechar10NOT NULL设备编号enochar8PNOT NULL数量countchar10 NULL用户姓名passchar8NULL说明：此表存放实验室设备使用者的信息，显示结果如下： 表五 管理员信息表中文字段名英文字段名字段类型长度主键/外键字段值约束管理员编号idchar10PNOT NULL管理员姓名mnamechar20NOT NULL电话mphonechar15NULL密码mpwdchar6NOT NULL说明：此表存放实验室设备管理员信息显示结果如下：表六 领导信息表中文字段名英文字段名字段类型长度主键/外键字段值约束领导编号pnochar10PNOT NULL领导姓名pnamechar20NOT NULL电话pphonechar15NULL地址paddrchar30NOT NULL设备编号enochar8PNOT NULL说明：此表存放领导信息显示结果如下：：如：创建存储过程，客户可以查询所有的供应商信息创建存储过程如下：CREATE PROC proc_查询设备基本信息ASSELECT *FROM 基本设备信息表GO显示结果： 触发器是一种特殊的存储过程。 触发器可以用来维护数据表中数据的一致性，当对数据表进行更新操作时，触发器可以自动执行。 如：创建添加基本设备信息的触发器，再对基本设备信息表进行插入，修改和删除记录时，都会自动显示表中的内容。 代码设计如下： CREATE TRIGGER TRIGGER 2 ON [dbo].[基本设备信息表] FOR INSERT, UPDATE, DELETE ASSELECT * FROM 基本设备信息表 VB代码和界面如下所示：系统的登陆界面如下图所示 Public Class Form1 Inherits Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = 张创凯 And = 123456 Then Dim frm As New Form2 () () Else : MsgBox(error!) If = Or = Then MsgBox(error!) () End If End Sub End If Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles MsgBox(确定退出吗?, vbYesNoCancel + vbQuestion + , 提示) End End Sub Private Sub Form1_Load(ByVa。