设备管理系统课程设计报告

1、数据库课程设计报告题 目 设备管理系统班 级：姓 名：学 号：完成日期： 2008-1-15指导老师：目录一、系统规划 3二、系统分析 4三、系统设计5四、系统实施8五、系统测试8六、收获和体会 8七、附录9八、参考文献910、系统规划1、该系统可分为输入、修改、查询、汇总、输出五个子系统设备管理系统功能模块图：1.3日程安排需求分析1.5-1.8概念结构设计1.9逻辑结构设计1.9物理结构设计1.9系统实施1.9-1.10系统测试1.11设计报告1.12系统分析2.1需求确定2.11概念模型E-R图2.2 需求分析2.2.2 数据字典2.2.2.1 数据项 部门号（整型， 3，0-999 ）

2、 部门名（字符型， 10） 设备编号（整型， 3， 0-999 ） 设备名（字符型， 10） 型号（字符型， 10） 金额（整型， 3，0-999 ） 序号（整型， 3，0-999 ） 日期（日期类型） 折旧率（字符型， 10） 起始日期（日期类型） 截止日期（日期类型）2.2.2.2 数据结构 部门（部门号，部门名） 设备档案（设备号，设备名，型号，金额） 设备使用（部门号，设备号，起始日期，截止日期） 折旧设备（序号，日期，折旧率，金额）三、系统设计3.4 数据库设计3.4.1 逻辑设计 部门（部门号，部门名） 设备档案（设备号，设备名，型号，金额） 设备使用（部门号，设备号，起始日期，截

3、止日期） 折旧设备（序号，日期，折旧率，金额）3.4.2 物理设计 create table 部门 （部门号 int（10） primary key,部门名 char（20） not null）Create View 部门视图 AsSELEC部门号，部门名FROM部门 create table 设备档案(设备号 int(10) primary key, 设备名 char(20)not null,型号 char(20)not null金额 int(10) not nullCreate View 设备档案视图 AsSELEC设备号，设备名，型号，金额FROM设备档案 create table 设备

4、使用(部门号 int(10) primary key, 设备号 int(10) not null, 起始日期 int(10) not null，截止日期 int(10) not null)Create View 设备使用视图 AsSELEC部门号，设备号，起始日期，截止日期FROM折旧设备 create table 折旧设备(序号 int(10) , 日期 int(10) not null, 折旧率 char(20) not null 金额 int(10) not null )Create View 折旧设备视图 AsSELECT序号，日期，折旧率，金额FROM折旧设备3.1 代码设计主要的V

5、B语句:1、输入代码Dim mydb As Database, str1 ， str2 As String str1=text1.text ， str2=text2.textSet mydb = OpenDatabase("d: 使用部门表 .mdb")SQL = "insert into 使用部门表 (部门号,部门名) values('str1','str2')" mydb.Execute SQLData1.Refresh2、修改代码Dim mydb As Database, str1 ， str2 As String

6、str1=text1.text ， str2=text2.textSet mydb = OpenDatabase("d: 使用部门表 .mdb")SQL = "update 使用部门表 set 部门号= str1, 部门名= str2mydb.Execute SQLData1.Refresh3、查询代码Dim mydb As Database ， str1 ， str2 As String str1=text1.text ，str2=text2.textSet mydb = OpenDatabase("d: 使用部门表 .mdb")SQL =

7、"slect * from 使用部门表 where 部门号 =str1 ，部门名 =str2" mydb.Execute SQLData1.Refresh 4、汇总代码Dim mydb1，mydb2，mydb3 As Database使用部门表 .mdb") 折旧表 .mdb") 设备档案表 .mdb")Set mydb1 = OpenDatabase("d:Set mydb2 = OpenDatabase("d:Set mydb3 = OpenDatabase("d:Data1.Refresh 5、输出代码使用部

8、门表 .mdb") 折旧表 .mdb") 设备档案表 .mdb")Dim mydb1，mydb2，mydb3 As DatabaseSet mydb1 = OpenDatabase("d:Set mydb2 = OpenDatabase("d:Set mydb3 = OpenDatabase("d:Data1.Refresh四、系统实施五、系统测试系统测试时，汇总子系统和输出子系统发生一些小错误，尚未解决 输入、修改、查询子系统运行正常。六、收获和体会通过这次课程设计，我完成了第一个自己开发的系统，学习了基于数据库的VB程序开发，其中

9、的过程充满了曲折，但结果还是能够令我自己满意的。我设计开发了汇总子系统，该子系统主要功能是满足客户对某些信息的整体情况了 解，比如某个型号的电脑的使用情况，某个型号的打印机的数量等等。该子系统的功能 比较少，需要更多的时间和努力去完善，以达到客户日益增长的需求。最令我感触的是这次设计中系统程序完善的过程，因为经验不足、设计不周全，看似完成的系统总有这样或那样的问题，而修补这些问题让我感觉很烦琐，复杂这次设计我获得更多的是开发程序的经验，这令我受益非浅系统的各个子系统功能太简单，无法满足现代社会的需求，需要多添加一些功能 使系统更加完善。七、附录窗体：Form1.frm 部门Form2.frm 设备使用Form3.frm 设备档