数据库课程设计报告 1.docx
- 文档编号:3761972
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:40
- 大小:293.25KB
数据库课程设计报告 1.docx
《数据库课程设计报告 1.docx》由会员分享,可在线阅读,更多相关《数据库课程设计报告 1.docx(40页珍藏版)》请在冰豆网上搜索。
数据库课程设计报告1
数据库课程设计
——物料管理系统
1.设计目的
2.系统需求分析与功能设计
3.总体设计
4.数据库设计
5.程序模块设计
6.程序调试
正文
1.设计目的
通过本次数据库课程设计掌握VFP程序语言设计过程及设计思路。
培养用VFP设计面向对象的应用软件的能力。
2.系统需求分析与功能设计
本次设计我们的选题是“物料管理系统”。
功能模块包括数据查询、数据输入、数据编辑、系统维护、数据报表、退出系统、帮助说明。
3.总体设计
主操作界面:
主操作界面菜单介绍:
数据查询:
1.单项查询
2.复合查询
数据输入:
1.部门信息
2.产品信息
3.物料信息
数据编辑:
1.数据修改(a.传统数据修改;b.复合数据修改)
2.数据删除(a.传统数据删除;b.复合数据删除)
系统维护:
1.数据备份
2.数据还原
3.新建用户
4.删除用户
5.修改密码
数据报表:
1.预览(按部门、产品、物料、全部信息)
2.打印(按部门、产品、物料、全部信息)
退出系统
帮助说明
部分界面介绍:
登入窗口界面:
单项查询界面:
复合查询:
部门信息:
产品信息:
物料信息:
数据修改:
数据删除:
数据还原:
新建用户:
删除用户:
修改密码:
4.数据库设计
5.程序模块设计
单项查询:
Form1.load:
publica,b,c
a=""
b=""
c=""
Command1.click:
opendatabase物料
a=alltri(bo1.value)
b=alltri(bo2.value)
c=alltri(thisform.text1.value)
privaw
w="createsqlviewtempasselect*fromview1whereview1."+a+b+'"'+c+'"'
&w
thisform.grid1.recordsource="temp"
Command2.click:
Thisform.release
复合查询:
Command1.click:
opendatabase物料
privatea,b,c,d,e,f,relationship
a=""
b=""
c=""
d=""
e=""
f=""
relationship=""
a=alltri(bo1.value)
b=alltri(bo2.value)
c=alltri(thisform.text1.value)
docase
casethisform.optiongroup1.value=1
relationship="and"
d=alltri(bo3.value)
e=alltri(bo4.value)
f=alltri(thisform.text2.value)
privaw
w="createsqlviewtempasselect*fromview1whereview1."+a+b+'"'+c+'"'+""+relationship+""+d+e+'"'+f+'"'
&w
thisform.grid1.recordsource="temp"
casethisform.optiongroup1.value=2
relationship="or"
d=alltri(bo3.value)
e=alltri(bo4.value)
f=alltri(thisform.text2.value)
privaw
w="createsqlviewtempasselect*fromview1whereview1."+a+b+'"'+c+'"'+""+relationship+""+d+e+'"'+f+'"'
&w
thisform.grid1.recordsource="temp"
endcase
Command2.click:
thisform.release
cancel
数据输入.部门信息:
Command1.click:
appendblank
scattermemvar
m.部门代码=alltrim(thisform.edit1.value)
m.部门名称=alltrim(thisform.edit2.value)
m.部门经理=alltrim(thisform.edit3.value)
m.部门地址=alltrim(thisform.edit4.value)
gathermemvar
thisform.release
Command2.click:
appendblank
m.部门代码=alltrim(thisform.edit1.value)
m.部门名称=alltrim(thisform.edit2.value)
m.部门经理=alltrim(thisform.edit3.value)
m.部门地址=alltrim(thisform.edit4.value)
gathermemvar
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
Command3.click:
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
Command4.click:
thisform.release
数据输入.产品信息:
Command1.click:
appendblank
scattermemvarmemo
m.产品编号=alltrim(thisform.edit1.value)
m.产品名称=alltrim(thisform.edit2.value)
m.产品单价=alltrim(thisform.edit3.value)
m.质保期=alltrim(thisform.edit4.value)
m.生产日期=alltrim(thisform.edit5.value)
m.生产厂商=alltrim(thisform.edit6.value)
m.产品简介=alltrim(thisform.edit7.value)
gathermemvarmemo
thisform.release
Command2.click:
appendblank
scattermemvarmemo
m.产品编号=alltrim(thisform.edit1.value)
m.产品名称=alltrim(thisform.edit2.value)
m.产品单价=alltrim(thisform.edit3.value)
m.质保期=alltrim(thisform.edit4.value)
m.生产日期=alltrim(thisform.edit5.value)
m.生产厂商=alltrim(thisform.edit6.value)
m.产品简介=alltrim(thisform.edit7.value)
gathermemvarmemo
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
Command3.click:
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
Command4.click:
thisform.release
数据输入.物料信息:
Command1.click:
appendblank
scattermemvar
m.产品编号=alltrim(thisform.edit1.value)
m.部门代码=alltrim(thisform.edit2.value)
m.当日汽车量=alltrim(thisform.edit3.value)
m.当日火车量=alltrim(thisform.edit4.value)
m.进货日期=alltrim(thisform.edit5.value)
m.进货量=alltrim(thisform.edit6.value)
m.销售量=alltrim(thisform.edit7.value)
gathermemvar
thisform.release
Command2.click:
appendblank
scattermemvar
m.产品编号=alltrim(thisform.edit1.value)
m.部门代码=alltrim(thisform.edit2.value)
m.当日汽车量=alltrim(thisform.edit3.value)
m.当日火车量=alltrim(thisform.edit4.value)
m.进货日期=alltrim(thisform.edit5.value)
m.进货量=alltrim(thisform.edit6.value)
m.销售量=alltrim(thisform.edit7.value)
gathermemvar
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
Command3.click:
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
Command4.click:
thisform.release
数据修改:
Timer1.timer:
ifthisform.optiongroup1.option1.value=1
thisform.label1.caption="部门代码"
thisform.label2.caption="部门名称"
thisform.label3.caption="部门经理"
thisform.label4.caption="部门地址"
thisform.label5.caption=""
thisform.label6.caption=""
thisform.label7.caption=""
thisform.text5.enabled=.f.
thisform.text6.enabled=.f.
thisform.text7.enabled=.f.
endif
Timer2.timer:
ifthisform.optiongroup1.option2.value=1
thisform.label1.caption="产品编号"
thisform.label2.caption="产品名称"
thisform.label3.caption="产品单价"
thisform.label4.caption="质保期"
thisform.label5.caption="生产日期"
thisform.label6.caption="生产厂商"
thisform.label7.caption="产品简介"
thisform.text5.enabled=.t.
thisform.text6.enabled=.t.
thisform.text7.enabled=.t.
endif
Timer3.timer:
ifthisform.optiongroup1.option3.value=1
thisform.label1.caption="产品编号"
thisform.label2.caption="部门代码"
thisform.label3.caption="当日汽车量"
thisform.label4.caption="当日火车量"
thisform.label5.caption="进货日期"
thisform.label6.caption="进货量"
thisform.label7.caption="销售量"
thisform.text5.enabled=.t.
thisform.text6.enabled=.t.
thisform.text7.enabled=.t.
endif
Timer4.timer:
ifrecno()=1
mand1.enabled=.f.
mand2.enabled=.f.
else
mand1.enabled=.t.
mand2.enabled=.t.
endif
ifrecno()=reccount()
mand3.enabled=.f.
mand4.enabled=.f.
else
mand3.enabled=.t.
mand4.enabled=.t.
endif
Command1.click:
gotop
ifbumen=.t.
scattermemvar
thisform.text1.value=m.部门代码
thisform.text2.value=m.部门名称
thisform.text3.value=m.部门经理
thisform.text4.value=m.部门地址
thisform.refresh
endif
ifchanpin=.t.
scattermemvarmemo
thisform.text1.value=m.产品编号
thisform.text2.value=m.产品名称
thisform.text3.value=m.产品单价
thisform.text4.value=m.质保期
thisform.text5.value=m.生产日期
thisform.text6.value=m.生产厂商
thisform.text7.value=m.产品简介
thisform.refresh
endif
ifwuliao=.t.
scattermemvar
thisform.text1.value=m.产品编号
thisform.text2.value=m.部门代码
thisform.text3.value=m.当日汽车量
thisform.text4.value=m.当日火车量
thisform.text5.value=m.进货日期
thisform.text6.value=m.进货量
thisform.text7.value=m.销售量
thisform.refresh
endif
Command2.click:
skip-1
ifbumen=.t.
scattermemvar
thisform.text1.value=m.部门代码
thisform.text2.value=m.部门名称
thisform.text3.value=m.部门经理
thisform.text4.value=m.部门地址
thisform.refresh
endif
ifchanpin=.t.
scattermemvarmemo
thisform.text1.value=m.产品编号
thisform.text2.value=m.产品名称
thisform.text3.value=m.产品单价
thisform.text4.value=m.质保期
thisform.text5.value=m.生产日期
thisform.text6.value=m.生产厂商
thisform.text7.value=m.产品简介
thisform.refresh
endif
ifwuliao=.t.
scattermemvar
thisform.text1.value=m.产品编号
thisform.text2.value=m.部门代码
thisform.text3.value=m.当日汽车量
thisform.text4.value=m.当日火车量
thisform.text5.value=m.进货日期
thisform.text6.value=m.进货量
thisform.text7.value=m.销售量
thisform.refresh
endif
Command3.click:
skip1
ifbumen=.t.
scattermemvar
thisform.text1.value=m.部门代码
thisform.text2.value=m.部门名称
thisform.text3.value=m.部门经理
thisform.text4.value=m.部门地址
thisform.refresh
endif
ifchanpin=.t.
scattermemvarmemo
thisform.text1.value=m.产品编号
thisform.text2.value=m.产品名称
thisform.text3.value=m.产品单价
thisform.text4.value=m.质保期
thisform.text5.value=m.生产日期
thisform.text6.value=m.生产厂商
thisform.text7.value=m.产品简介
thisform.refresh
endif
ifwuliao=.t.
scattermemvar
thisform.text1.value=m.产品编号
thisform.text2.value=m.部门代码
thisform.text3.value=m.当日汽车量
thisform.text4.value=m.当日火车量
thisform.text5.value=m.进货日期
thisform.text6.value=m.进货量
thisform.text7.value=m.销售量
thisform.refresh
endif
Command4.click:
gobottom
ifbumen=.t.
scattermemvar
thisform.text1.value=m.部门代码
thisform.text2.value=m.部门名称
thisform.text3.value=m.部门经理
thisform.text4.value=m.部门地址
thisform.refresh
endif
ifchanpin=.t.
scattermemvarmemo
thisform.text1.value=m.产品编号
thisform.text2.value=m.产品名称
thisform.text3.value=m.产品单价
thisform.text4.value=m.质保期
thisform.text5.value=m.生产日期
thisform.text6.value=m.生产厂商
thisform.text7.value=m.产品简介
thisform.refresh
endif
ifwuliao=.t.
scattermemvar
thisform.text1.value=m.产品编号
thisform.text2.value=m.部门代码
thisform.text3.value=m.当日汽车量
thisform.text4.value=m.当日火车量
thisform.text5.value=m.进货日期
thisform.text6.value=m.进货量
thisform.text7.value=m.销售量
thisform.refresh
endif
Command5.click:
ifbumen=.t.
scattermemvar
m.部门代码=alltrim(thisform.text1.text)
m.部门名称=alltrim(thisform.text2.text)
m.部门经理=alltrim(thisform.text3.text)
m.部门地址=alltrim(thisform.text4.text)
gathermemvar
endif
ifchanpin=.t.
scattermemvarmemo
m.产品编号=alltrim(thisform.text1.text)
m.产品名称=alltrim(thisform.text2.text)
m.产品单价=alltrim(thisform.text3.text)
m.质保期=alltrim(thisform.text4.text)
m.生产日期=alltrim(thisform.text5.text)
m.生产厂商=alltrim(thisform.text6.text)
m.产品简介=alltrim(thisform.text7.text)
gathermemvarmemo
endif
ifwuliao=.t.
scattermemvar
m.产品编号=alltrim(thisform.text1.text)
m.部门代码=alltrim(thisform.text2.text)
m.当日汽车量=alltrim(thisform.text3.text)
m.当日火车量=alltrim(thisform.text4.text)
m.进货日期=alltrim(thisfo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库课程设计报告 数据库 课程设计 报告