数据库课程设计报告 ——物料管理系统.doc

数据库课程设计物料管理系统目录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：public a,b,ca=b=c=Command1.click：open database 物料a=alltri(bo1.value)b=alltri(bo2.value)c=alltri(thisform.text1.value)priva ww=create sql view temp as select * from view1 where view1.+a+b+c+&wthisform.grid1.recordsource=tempCommand2. click：Thisform.release复合查询：Command1.click：open database 物料private a,b,c,d,e,f,relationshipa=b=c=d=e=f=relationship=a=alltri(bo1.value)b=alltri(bo2.value)c=alltri(thisform.text1.value)do case case thisform.optiongroup1.value=1 relationship=and d=alltri(bo3.value) e=alltri(bo4.value) f=alltri(thisform.text2.value) priva w w=create sql view temp as select * from view1 where view1.+a+b+c+ +relationship+ +d+e+f+ &w thisform.grid1.recordsource=temp case thisform.optiongroup1.value=2 relationship=or d=alltri(bo3.value) e=alltri(bo4.value) f=alltri(thisform.text2.value) priva w w=create sql view temp as select * from view1 where view1.+a+b+c+ +relationship+ +d+e+f+ &w thisform.grid1.recordsource=temp endcaseCommand2. click：thisform.releasecancel数据输入.部门信息：Command1.click：append blankscatter memvarm.部门代码=alltrim(thisform.edit1.value)m.部门名称=alltrim(thisform.edit2.value)m.部门经理=alltrim(thisform.edit3.value)m.部门地址=alltrim(thisform.edit4.value)gather memvarthisform.releaseCommand2.click：append blankm.部门代码=alltrim(thisform.edit1.value)m.部门名称=alltrim(thisform.edit2.value)m.部门经理=alltrim(thisform.edit3.value)m.部门地址=alltrim(thisform.edit4.value)gather memvarthisform.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：append blankscatter memvar memom.产品编号=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)gather memvar memothisform.releaseCommand2.click：append blankscatter memvar memom.产品编号=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)gather memvar memothisform.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：append blankscatter memvarm.产品编号=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) gather memvarthisform.releaseCommand2.click：append blankscatter memvarm.产品编号=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) gather memvarthisform.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：if thisform.optiongroup1.option1.value=1thisform.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.endifTimer2.timer：if thisform.optiongroup1.option2.value=1thisform.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.endifTimer3.timer：if thisform.optiongroup1.option3.value=1thisform.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.endifTimer4.timer：if recno()=1 mand1.enabled=.f. mand2.enabled=.f. else mand1.enabled=.t. mand2.enabled=.t.endifif recno()=reccount() mand3.enabled=.f. mand4.enabled=.f.else mand3.enabled=.t. mand4.enabled=.t.endifCommand1.click：go top if bumen=.t.scatter memvarthisform.text1.value=m.部门代码thisform.text2.value=m.部门名称thisform.text3.value=m.部门经理thisform.text4.value=m.部门地址thisform.refreshendifif chanpin=.t.scatter memvar memothisform.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.refreshendifif wuliao=.t.scatter memvarthisform.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.refreshendifCommand2.click：skip -1if bumen=.t.scatter memvarthisform.text1.value=m.部门代码thisform.text2.value=m.部门名称thisform.text3.value=m.部门经理thisform.text4.value=m.部门地址thisform.refreshendifif chanpin=.t.scatter memvar memothisform.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.refreshendifif wuliao=.t.scatter memvarthisform.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.refreshendifCommand3.click：skip 1if bumen=.t.scatter memvarthisform.text1.value=m.部门代码thisform.text2.value=m.部门名称thisform.text3.value=m.部门经理thisform.text4.value=m.部门地址thisform.refreshendifif chanpin=.t.scatter memvar memothisform.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.refreshendifif wuliao=.t.scatter memvarthisform.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.refreshendifCommand4.click：go bottomif bumen=.t.scatter memvarthisform.text1.value=m.部门代码thisform.text2.value=m.部门名称thisform.text3.value=m.部门经理thisform.text4.value=m.部门地址thisform.refreshendifif chanpin=.t.scatter memvar memothisform.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.refreshendifif wuliao=.t.scatter memvarthisform.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.refreshendifCommand5.click：if bumen=.t.scatter memvarm.部门代码=alltrim(thisform.text1.text)m.部门名称=alltrim(thisform.text2.text)m.部门经理=alltrim(thisform.text3.text)m.部门地址=alltrim(thisform.text4.text)gather memvarendifif chanpin=.t.scatter memvar memom.产品编号=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)gather memvar memoendifif wuliao=.t.scatter memvarm.产品编号=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)gather memvarendif数据删除：open database 物料w1=alltrim(bo1.value)w2=alltrim(bo2.value)w3=alltrim(bo4.value)w4=alltrim(bo4.value)w5=alltrim(bo5.value)w6=alltrim(bo6.value)do case case thisform.check1.value=1 and thisform.check2.value=0 and thisform.check3.value=0 if thisform.optiongroup1.option1.value=1 then w7=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ or +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ else w7=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ and +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ endif case thisform.check2.value=1 and thisform.check1.value=0 and thisform.check3.value=0 if thisform.optiongroup2.option1.value=1 then w7=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ or +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ else w7=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ and +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ endif case thisform.check3.value=1 and thisform.check1.value=0 and thisform.check2.value=0 if thisform.optiongroup3.option1.value=1 then w7=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ or +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ else w7=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ and +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ endif case thisform.check1.value=1 and thisform.check2.value=1 and thisform.check3.value=0 if thisform.optiongroup1.option1.value=1 then a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ or +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ else a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ and +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ endif if thisform.optiongroup2.option1.value=1 then b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ or +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ else b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ and +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ endif w7=a+ +alltrim(bo13.value)+ +b case thisform.check2.value=1 and thisform.check3.value=1 and thisform.check1.value=0 if thisform.optiongroup2.option1.value=1 then b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ or +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ else b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ and +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ endif if thisform.optiongroup3.option1.value=1 then c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ or +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ else c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ and +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ endif w7=b+ +alltrim(bo14.value)+ +c case thisform.check1.value=1 and thisform.check3.value=1 and thisform.check2.value=0 if thisform.optiongroup1.option1.value=1 then a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ or +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ else a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ and +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ endif if thisform.optiongroup3.option1.value=1 then c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ or +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ else c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ and +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ endif w7=a+ +alltrim(bo13.value)+ +c case thisform.check1.value=1 and thisform.check2.value=1 and thisform.check3.value=1 if thisform.optiongroup1.option1.value=1 then a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ or +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ else a=alltrim(bo1.value)+alltrim(bo7.value)+alltrim(thisform.text1.text)+ and +alltrim(bo2.value)+alltrim(bo8.value)+alltrim(thisform.text2.text)+ endif if thisform.optiongroup2.option1.value=1 then b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ or +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ else b=alltrim(bo3.value)+alltrim(bo9.value)+alltrim(thisform.text3.text)+ and +alltrim(bo4.value)+alltrim(bo10.value)+alltrim(thisform.text4.text)+ endif if thisform.optiongroup3.option1.value=1 then c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ or +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ else c=alltrim(bo5.value)+alltrim(bo11.value)+alltrim(thisform.text5.text)+ and +alltrim(bo6.value)+alltrim(bo12.value)+alltrim(thisform.text6.text)+ endif w7=a+ +alltrim(bo13.value)+ +b+ +alltrim(bo14.value)+ +cen