计算机专业应用ppt课件

.,1,计算机专业应用,.,2,本学期的上课安排,17周，每周4节。共28个学时。第10周提交系统及说明文档。,.,3,上机内容1,主要内容作业存在的问题讲评1、数据库中表字段的设置问题销售日记表（数量，单价，折扣）系统用户表（权限）2、数据表和自由表问题数据表（员工，销售日记，商品，供应商）自由表（访问登记，系统用户）3、顶层表单的设置问题。,.,4,本学期的主要内容完成系统的后面三部分1）查询2）统计3）系统服务（数据备份，数据恢复，数据的初始化）,.,5,.,6,知识点回顾。1、SQL中select语句的使用。select目标子句from范围子句where条件子句groupby分组子句having分组筛选orderby排序子句intodbf/cursor(结果去向）,.,7,查询内容设置。1、按名称查询功能要求：出现一个表单,按员工姓名查询结果的清单/汇总,在表格grid显示查询结果,.,8,n=bo1.valuedocasecasethisform.optiongroup1.value=1thisform.grid1.recordsource=select姓名,销售日记.*from员工,销售日记where员工.员工编号=销售日记.员工编号and员工.姓名=nintocursord1casethisform.optiongroup1.value=2thisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from员工,销售日记where员工.姓名=nand员工.员工编号=销售日记.员工编号intocursord1endcasethisform.refresh,查询按钮的参考代码：,.,9,2、按日期查询功能要求：出现一个表单,按日期(年/月/日)查询结果的清单/汇总,在表格grid显示查询结果,.,10,.,11,查询按钮的参考代码：docasecasethisform.optiongroup1.value=1ifthisform.check1.value=1y=thisform.spinner1.valueifthisform.check2.value=1m=thisform.spinner2.valueifthisform.check3.value=1d=thisform.spinner3.valuethisform.grid1.recordsource=select*from销售日记whereyear(销售日期)=yandmonth(销售日期)=mandday(销售日期)=dintocursord1elsethisform.grid1.recordsource=select*from销售日记whereyear(销售日期)=yandmonth(销售日期)=mintocursord1endifelsethisform.grid1.recordsource=select*from销售日记whereyear(销售日期)=yintocursord1endifendifcasethisform.optiongroup1.value=2ifthisform.check1.value=1y=thisform.spinner1.valueifthisform.check2.value=1m=thisform.spinner2.valueifthisform.check3.value=1d=thisform.spinner3.valuethisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from销售日记whereyear(销售日期)=yandmonth(销售日期)=mandday(销售日期)=dintocursord1elsethisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from销售日记whereyear(销售日期)=yandmonth(销售日期)=mintocursord1endifelsethisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from销售日记whereyear(销售日期)=yintocursord1endifendifendcasethisform.refresh,.,12,3、按商品查询,功能要求：出现一个表单,按商品名称查询结果的清单/汇总,在表格grid显示查询结果),.,13,.,14,n=bo1.valueselect编码asn1from商品where名称=nintocursorden1=alltrim(n1)docasecasethisform.optiongroup1.value=2thisform.grid1.recordsource=select*from销售日记wherealltrim(商品)=n1intocursord1casethisform.optiongroup1.value=1thisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from销售日记where商品=n1intocursord1endcasethisform.refresh,.,15,4、按经销商查询,出现一个表单,按经销商查询结果的清单/汇总,在表格grid显示查询结果),.,16,5、按钞卡分类查询,出现一个表单,按钞或卡查询,在表格grid显示查询结果),.,17,.,18,查询按钮的参考代码,n1=bo1.valuedocasecasethisform.optiongroup1.value=1thisform.grid1.recordsource=select*from销售日记where钞卡=n1intocursord1casethisform.optiongroup1.value=2thisform.grid1.recordsource=selectsum(数量*单价*折扣)as总销售额from销售日记where钞卡=n1intocursord1endcasethisform.refresh,.,19,本查询子系统的设计要求,1、至少完成题目要求的5个查询表单2、每个表单的设计界面由设计者自由决定，只要完成要求的特定功能即可。3、该子菜单完成后，能够挂在系统菜单上运行。本周完成查询子菜单的设计。,.,20,统计子菜单的设计,.,21,知识点回顾:报表的设计1、报表的组成：数据源和报表布局数据源：数据的来源查询结果产生的表作为报表的数据源,.,22,员工销售额统计,功能要求：出现一个表单,按员工姓名查询结果的清单/汇总,在表格grid显示查询结果，查询结果并能用报表形式打印、预览),.,23,.,24,设计的基本思路：1）完成“统计”按钮的功能2）根据查询结果所产生的表，建立报表。3）根据所建立的报表设计预览按钮的实现代码。Grid1表格控件的设计Recordsourcetype=0表,.,25,publicjjn=alltrim(bo1.value)docasecasethisform.optiongroup1.value=1select员工编号asnbfrom员工where姓名=nintocursorbjj=nbselect销售日记locatefor员工编号=jjiffound()select姓名,销售日记.*from员工,销售日记where员工.员工编号=销售日记.员工编号and员工.姓名=nintodbfd1thisform.grid1.recordsource=d1elsemessagebox(没有该员工的销售记录)endifcasethisform.optiongroup1.value=2select姓名,sum(数量*单价*折扣)as总销售额from员工,销售日记where员工.员工编号=销售日记.员工编号and员工.姓名=nintodbfd2thisform.grid1.recordsource=d2endcasethisform.refresh,统计按钮的关键代码：,.,26,“预览”按钮代码设计,ifthisform.optiongroup1.value=1（清单)reportform员工销售额.frxpreviewElse(统计)reportform员工销售额总计.frxpreviewendifreturn,.,27,.,28,报表的输出,一般格式：reportform1、输出到打印机：reportform报表文件名toprinternoconsolenoconsole：在向打印机输出时，不同时向VFP主窗口输出。2、预览报表：reportform报表文件名preview,.,29,3、输出报表到文件中。reportform报表文件名tofile文件名ASCIInoconsolenodialog,.,30,商品销售额统计,功能要求：出现一个表单,按商品名称查询结果的清单/汇总,在表格grid显示查询结果，查询结果并能用报表形式打印),.,31,月销售额统计,出现一个表单,按销售的月份查询结果的清单/汇总,在表格grid显示查询结果，查询结果并能用报表形式打印,.,32,经销商销售额统计,出现一个表单,按经销商查询结果的清单/汇总,在表格grid显示查询结果，查询结果并能用报表形式打印,.,33,.,34,name=bo1.valuedocasecasethisform.optiongroup1.value=1select经销商.编号as经销商编号,经销商.名称as经销商名,商品.编码as商品编码,商品.名称as商品名,销售日期,单价,折扣;from经销商,商品,销售日记;where经销商.编号=销售日记.经销商and商品.编码=销售日记.商品and经销商.名称=name;intodbfj1thisform.grid1.recordsource=j1thisform.refreshcasethisform.optiongroup1.value=2select经销商.编号as经销商编号,经销商.名称as经销商名,sum(单价*折扣*数量)as总销售额;from经销商,商品,销售日记;where经销商.编号=销售日记.经销商and商品.编码=销售日记.商品and经销商.名称=name;intodbfj2thisform.grid1.recordsource=j2endcasethisform.refresh,查询按钮、统计按钮的关键代码,.,35,本统计子系统的设计要求,1、至少完成题目要求的4个统计表单2、每个表单的设计界面由设计者自由决定，只要完成要求的特定功能即可。3、该子菜单完成后，能够挂在系统菜单上运行。（注意每个表单的showwindows属性设置）本周完成统计子菜单的设计。,.,36,系统服务子菜单的设计,.,37,知识点回顾：文件的复制：Copytofieldsforxls功能：将当前表中的数据与结构同时复制到指定的表中。即复制一个新的表。,.,38,各种类型文件的复制Copyfileto从其它文件向表添加数据Appendfrom,.,39,某些函数的使用1）getdir():显示“选择目录”对话框2）empty()：测试一个表达式的值是否为空3）getfile():显示“打开”对话框，返回选定文件的名称。4）SYS（5）:默认驱动器。5)SYS（2003）：当前目录或文件夹。6）directory():若在磁盘上存在指定的目录，返回为“真”,否则为“假”7.Md创建一个新目录,.,40,数据表的备份,单表备份设计的基本思路：表单的数据环境：加载要进行数据备份的表1）选择要进行备份的数据表2）设置要备份的目的地及备份所产生的新表文件名3）发出备份命令,.,41,Rowsourcetype=1值,.,42,关键代码及主要功能：“浏览”按钮：fpath=alltrim(getdir(sys(5)+sys(2003)h=str(year(date(),4)+alltrim(str(month(date(),2)+alltrim(str(day(date(),2)thisform.text1.value=fpath+fname+hfilename=fpath+fname+h代码说明：filename,fname变量为全局变量publicfilename,fnamefname为列表框中所选择的表名fname=thisform.list1.valuefilename为备份后所产生的新表名，其名字为原来的表名+备份的日期,.,43,“备份”按钮的关键代码：ifempty(thisform.list1.value)orempty(thisform.text1.value)orempty(thisform.list2.value)y=messagebox(请选择备份文件夹的保存路径、文件名、文件类型！)return.f.elsedocasecasethisform.list1.value=员工select员工casethisform.list1.value=商品select商品casethisform.list1.value=经销商select经销商casethisform.list1.value=销售日记select销售日记endcaseifthisform.list2.value=DBFcopyto&filenamemessagebox(备份成功)elsecopyto&filenamexlsmessagebox(备份成功)endifendif,.,44,所有表的备份设计的基本思路：同类型的文件一次性备份基本过程1）设置源文件的位置2）设置目标文件的位置3）发出备份命令,.,45,.,46,第一个按钮的主要作用及代码：该按钮主要是调出系统对话框，设置要备份文件的所在路径publicmypathmypath=alltrim(getdir()thisform.text1.value=mypath,.,47,第二按钮的主要作用及代码：该按钮主要是设置备份后文件的存放目录publicoutpathoutpath=alltrim(getdir(sys(5)+sys(2003)+BAK,备份路径)this.parent.text2.value=outpath,.,48,dirs=sys(5)+sys(2003)setdefato&dirsmypath=alltrim(thisform.text1.value)ifempty(thisform.text1.value)=.t.orempty(thisform.text2.value)messagebox(备份数据库名和路径不能为空!,16,系统提示)return.f.endifoutpath=alltrim(thisform.text2.value)ifdirectory(outpath)=.f.ifmessagebox(要创建新目录,4+32,系统提示)=6md&outpathelsemessagebox(请选择备份的目录,系统提示)return.f.endifendifmypath1=mypath+*.fptoutpath1=outpath+*.fptmypath=mypath+*.dbfoutpath=outpath+*.dbfcopyfile&mypath.to&outpath.&文件拷贝命令,其中,mypath要复制的源文件名,outpath要复制的目的文件名copyfile&mypath1.to&outpath1.messagebox(备份成功,系统提示)thisform.refresh,备份按钮的关键代码,.,49,数据表的恢复,.,50,表单的load事件publicfname1publicfname2dirs=sys(5)+sys(2003)setdefato&dirs,.,51,列表框的主要属性及事件代码Rowsourcetype1-值Click代码：docasecasethis.value=员工select员工casethis.value=销售日记select销售日记casethis.value=商品select商品casethis.value=经销商select经销商endcase,.,52,第一个“浏览”按钮的代码：fname2=alltrim(getfile(sys(5)+sys(2003)thisform.text2.value=fname2thisform.refresh,.,53,第2个浏览按钮的关键代码：fname1=alltrim(getfile()thisform.text1.value=fname1thisform.refresh,.,54,“恢复”按钮的关键代码：y=messagebox(你确定要恢复文