欢迎来到天天文库
浏览记录
ID:11245433
大小:138.00 KB
页数:10页
时间:2018-07-11
《设备管理系统_课程设计报告》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、数据库课程设计报告题目:设备管理系统班级:姓名:学号:完成日期:2008-1-15指导老师:10目录一、系统规划···············································3二、系统分析···············································4三、系统设计···············································5四、系统实施··············································
2、·8五、系统测试···············································8六、收获和体会············································810七、附录··················································9八、参考文献·············································9一、系统规划1、该系统可分为输入、修改、查询、汇总、输出五个子系统.设备管理系统功能模块图:1
3、01.3日程安排需求分析1.5-1.8概念结构设计1.9逻辑结构设计1.9物理结构设计1.9系统实施1.9-1.10系统测试1.11设计报告1.12二、系统分析2.1需求确定l2.11概念模型E-R图10部门使用设备档案折旧设备起始日期截止日期序号折旧率日期型号设备名设备编号部门名部门号附属金额金额102.2需求分析2.2.2数据字典2.2.2.1数据项部门号(整型,3,0-999)部门名(字符型,10)设备编号(整型,3,0-999)设备名(字符型,10)型号(字符型,10)金额(整型,3,0-999)序号(整型,3,0
4、-999)日期(日期类型)折旧率(字符型,10)起始日期(日期类型)截止日期(日期类型)2.2.2.2数据结构部门(部门号,部门名)设备档案(设备号,设备名,型号,金额)设备使用(部门号,设备号,起始日期,截止日期)折旧设备(序号,日期,折旧率,金额)三、系统设计3.4数据库设计3.4.1逻辑设计部门(部门号,部门名)设备档案(设备号,设备名,型号,金额)设备使用(部门号,设备号,起始日期,截止日期)折旧设备(序号,日期,折旧率,金额)3.4.2物理设计createtable部门(部门号int(10)primarykey,
5、部门名char(20)notnull)CreateView部门视图AsSELECT部门号,部门名FROM部门createtable设备档案(设备号int(10)primarykey,设备名char(20)notnull,型号char(20)notnull,金额int(10)notnull)10CreateView设备档案视图AsSELECT设备号,设备名,型号,金额FROM设备档案createtable设备使用(部门号int(10)primarykey,设备号int(10)notnull,起始日期int(10)notnul
6、l,截止日期int(10)notnull)CreateView设备使用视图AsSELECT部门号,设备号,起始日期,截止日期FROM折旧设备createtable折旧设备(序号int(10),日期int(10)notnull,折旧率char(20)notnull,金额int(10)notnull)CreateView折旧设备视图AsSELECT序号,日期,折旧率,金额FROM折旧设备3.1代码设计主要的VB语句:1、输入代码DimmydbAsDatabase,str1,str2AsStringstr1=text1.text
7、,str2=text2.textSetmydb=OpenDatabase("d:使用部门表.mdb")SQL="insertinto使用部门表(部门号,部门名)values('str1','str2')"mydb.ExecuteSQLData1.Refresh2、修改代码DimmydbAsDatabase,str1,str2AsStringstr1=text1.text,str2=text2.textSetmydb=OpenDatabase("d:使用部门表.mdb")SQL="update使用部门表set部门号=st
8、r1,部门名=str2"10mydb.ExecuteSQLData1.Refresh3、查询代码DimmydbAsDatabase,str1,str2AsStringstr1=text1.text,str2=text2.textSetmydb=OpenDatabase("d:使用部门表.mdb")SQ
此文档下载收益归作者所有