设备管理系统_课程设计报告.doc

数 据 库课程设计报告题 目： 设备管理系统 班 级： 姓 名： 学 号： 完成日期： 2008-1-15 指导老师： 目录一、系统规划3 二、系统分析4三、系统设计5四、系统实施8五、系统测试8六、收获和体会 8七、附录9八、参考文献9一、系统规划1、该系统可分为输入、修改、查询、汇总、输出五个子系统.设备管理系统功能模块图：1.3 日程安排需求分析 1.5-1.8概念结构设计 1.9逻辑结构设计 1.9物理结构设计 1.9系统实施 1.9-1.10系统测试 1.11设计报告 1.12二、系统分析2.1需求确定l 2.11概念模型E-R图部门使用设备档案折旧设备起始日期截止日期序号折旧率日期型号设备名设备编号部门名部门号附属金额金额2.2 需求分析 2.2.2数据字典 2.2.2.1数据项部门号（整型，3，0-999）部门名（字符型，10）设备编号（整型，3，0-999）设备名（字符型，10）型号（字符型，10）金额（整型，3，0-999）序号（整型，3，0-999）日期（日期类型）折旧率（字符型，10）起始日期（日期类型）截止日期（日期类型）2.2.2.2数据结构部门（部门号，部门名）设备档案（设备号，设备名，型号，金额）设备使用（部门号，设备号，起始日期，截止日期）折旧设备（序号，日期，折旧率，金额）三、系统设计3.4 数据库设计3.4.1 逻辑设计部门（部门号，部门名）设备档案（设备号，设备名，型号，金额）设备使用（部门号，设备号，起始日期，截止日期）折旧设备（序号，日期，折旧率，金额）3.4.2物理设计create table部门(部门号int(10) primary key,部门名char(20)not null) Create View 部门视图 AsSELECT部门号，部门名FROM 部门create table设备档案(设备号int(10) primary key,设备名char(20)not null,型号char(20)not null，金额 int(10) not null) Create View 设备档案视图 AsSELECT设备号，设备名，型号，金额FROM 设备档案create table设备使用(部门号int(10) primary key,设备号int(10) not null,起始日期int(10) not null，截止日期int(10) not null) Create View 设备使用视图 AsSELECT部门号，设备号，起始日期，截止日期FROM 折旧设备create table折旧设备(序号int(10),日期int(10) not null,折旧率char(20)not null，金额 int(10) not null) Create View 折旧设备视图 AsSELECT序号，日期，折旧率，金额FROM 折旧设备3.1代码设计主要的VB语句：1、 输入代码Dim mydb As Database, str1，str2 As Stringstr1=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 Stringstr1=text1.text，str2=text2.textSet mydb = OpenDatabase(d: 使用部门表.mdb)SQL = update使用部门表 set部门号= str1,部门名= str2mydb.Execute SQLData1.Refresh3、查询代码Dim mydb As Database，str1，str2 As Stringstr1=text1.text，str2=text2.textSet mydb = OpenDatabase(d: 使用部门表.mdb)SQL = slect * from使用部门表 where 部门号=str1，部门名=str2mydb.Execute SQLData1.Refresh4、汇总代码Dim mydb1，mydb2，mydb3 As DatabaseSet mydb1 = OpenDatabase(d: 使用部门表.mdb)Set mydb2 = OpenDatabase(d: 折旧表.mdb)Set mydb3 = OpenDatabase(d: 设备档案表.mdb)Data1.Refresh5、输出代码Dim mydb1，mydb2，mydb3 As DatabaseSet mydb1 = OpenDatabase(d: 使用部门表.mdb)Set mydb2 = OpenDatabase(d: 折旧表.mdb)Set mydb3 = OpenDatabase(d: 设备档案表.mdb)Data1.Refresh四、系统实施五、系统测试系统测试时，汇总子系统和输出子系统发生一些小错误，尚未解决。输入、修改、查询子系统运行正常。六、收获和体会通过这次课程设计，我完成了第一个自己开发的系统，学习了基于数据库的VB程序开发，其中的过程充满了曲折，但结果还是能够令我自己满意的。我设计开发了汇总子系统，该子系统主要功能是满足客户对某些信息的整体情况了解，比如某个型号的电脑的使用情况，某个型号的打印机的数量等等。该子系统的功能比较少，需要更多的时间和努力去完善，以达到客户日益增长的需求。最令我感触的是这次设计中系统程序完善的过程，因为经验不足、设计不周全，看似完成的系统总有这样或那样的问题，而修补这些问题让我感觉很烦琐，复杂。这次设计我获得更多的是开发程序的经验，这令我受益非浅系统的各个子系统功能太简单，无法满足现代社会的需求，需要多添加一些功能使系统更加完善。七、附录窗体：Form1.frm 部门Form2.frm 设备使用Form3.frm 设备档案Fo