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

设施管理系统课程设计报告设施管理系统课程设计报告PAGEPAGE9设施管理系统课程设计报告PAGE

数据库

课程设计报告

题目：设施管理系统

班级：

姓名：

学号：

完成日期：2008-1-15

指导老师：目录

一、系统规划···············································3二、系统剖析···············································4三、系统设计···············································5四、系统推行···············································8五、系统测试···············································8六、收获和领悟············································8

七、附录··················································9

八、参照文件·············································9

2

一、系统规划

1、该系统可分为输入、修正、盘问、汇总、输出五个子系统.

设施管理系统功能模块图：

设施管理系统

部设设折门备备旧档使设案用备部部设设设金部设序日折金门门备备备额门备号期旧额号名编名型号编率号号号输修查汇输

入改询总出

1.3日程安排

需要剖析见解结构设计1.9逻辑结构设计1.9物理结构设计1.9系统推行系统测试1.11设计报告1.123

二、系统剖析

2.1需要判断

2.11见解模型E-R图

部部

门门

号名

部门初步日期

使用

逗留日期

设施档案隶属折旧设施

设设金序日型金折号备备额期号额旧名编率号4

2.2需要剖析

数据字典

数据项

部门号〔整型，3，0-999〕

部门名〔字符型，10〕

设施编号〔整型，3，0-999〕

设施名〔字符型，10〕

型号〔字符型，10〕

金额〔整型，3，0-999〕

序号〔整型，3，0-999〕

日期〔日期种类〕

折旧率〔字符型，10〕

初步日期〔日期种类〕

逗留日期〔日期种类〕

数据结构

部门〔部门号，部门名〕

设施档案〔设施号，设施名，型号，金额〕

设施使用〔部门号，设施号，初步日期，逗留日期〕

折旧设施〔序号，日期，折旧率，金额〕

三、系统设计

3.4数据库设计

逻辑设计

部门〔部门号，部门名〕

设施档案〔设施号，设施名，型号，金额〕

设施使用〔部门号，设施号，初步日期，逗留日期〕

折旧设施〔序号，日期，折旧率，金额〕

物理设计

createtable部门

(

部门号int(10)primarykey,

部门名char(20)notnull

)

CreateView部门视图As

SELECT部门号，部门名

FROM部门

createtable设施档案

(

设施号int(10)primarykey,

设施名char(20)notnull,

型号char(20)notnull，

金额int(10)notnull

)

5

CreateView设施档案视图As

SELECT设施号，设施名，型号，金额

FROM设施档案

createtable设施使用

(

部门号int(10)primarykey,

设施号int(10)notnull,

初步日期int(10)notnull，

逗留日期int(10)notnull

)

CreateView设施使用视图As

SELECT部门号，设施号，初步日期，逗留日期

FROM折旧设施

createtable折旧设施(int(10),序号日期int(10)notnull,折旧率char(20)notnull，金额int(10)notnull)CreateView折旧设施视图As

SELECT序号，日期，折旧率，金额

FROM折旧设施

3.1代码设计

主要的VB语句：

1、输入代码

DimmydbAsDatabase,str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部门表.mdb")

SQL="insertinto使用部门表(部门号,部门名)values('str1','str2')"

mydb.ExecuteSQL

Data1.Refresh

2、修正代码

DimmydbAsDatabase,str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部门表.mdb")

SQL="update使用部门表set部门号=str1,部门名=str2"

6

mydb.ExecuteSQL

Data1.Refresh

3、盘问代码

DimmydbAsDatabase，str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部门表.mdb")

SQL="slect*from使用部门表where部门号=str1，部门名=str2"

mydb.ExecuteSQL

Data1.Refresh

4、汇总代码

Dimmydb1，mydb2，mydb3AsDatabase

Setmydb1=OpenDatabase("d:\使用部门表.mdb")

Setmydb2=OpenDatabase("d:\折旧表.mdb")

Setmydb3=OpenDatabase("d:\设施档案表.mdb")

Data1.Refresh

5、输出代码

Dimmydb1，mydb2，mydb3AsDatabase

Setmydb1=OpenDatabase("d:\使用部门表.mdb")

Setmydb2=OpenDatabase("d:\折旧表.mdb")

Setmydb3=OpenDatabase("d:\设施档案表.mdb")

Data1.Refresh7

四、系统推行

五、系统测试

系统测试时，汇总子系统和输出子系统发生一些小过失，还没有解决。

输入、修正、盘问子系统运行正常。

六、收获和领悟

经过此次课程设计，我完成了第一个自己开发的系统，学习了基于数据库的VB程序开发，其中的过程充满了曲折，但结果仍是能够令我自己满意的。

我设计开发了汇总子系统，该子系统主要功能是知足客户对某些信息的整体情况认识，比方某个型号的电脑的使用情况，某个型号的打印机的数量等等。该子系统的功能比较少，需要更多的时间和努力去完满，以达到客户日益增添的需要。

最令我感想的是此次设计中系统程序完满的过程，由于经验不足、设计不周祥，看

8

似完成的系统总有这样或那样的问题，而维修这些问题让我感觉很烦杂，错乱。

此次设计我获得更多的是开发程序的经验，这令我受益非浅

系统的各个子系统功能太简单，无法知足现代社会的需要，需要多增添一些功能使系统更加完满。

七、附录

窗体：

Form1.f