计算机专业应用ppt课件.ppt

计算机专业应用 本学期的上课安排 1 7周 每周4节 共28个学时 第10周提交系统及说明文档 上机内容1 主要内容作业存在的问题讲评1 数据库中表字段的设置问题销售日记表 数量 单价 折扣 系统用户表 权限 2 数据表和自由表问题数据表 员工 销售日记 商品 供应商 自由表 访问登记 系统用户 3 顶层表单的设置问题 本学期的主要内容完成系统的后面三部分1 查询2 统计3 系统服务 数据备份 数据恢复 数据的初始化 知识点回顾 1 SQL中select语句的使用 select目标子句from范围子句where条件子句groupby分组子句having分组筛选orderby排序子句intodbf cursor 结果去向 查询内容设置 1 按名称查询功能要求 出现一个表单 按员工姓名查询结果的清单 汇总 在表格grid显示查询结果 n bo1 valuedocasecasethisform optiongroup1 value 1thisform grid1 recordsource select姓名 销售日记 from员工 销售日记where员工 员工编号 销售日记 员工编号and员工 姓名 nintocursord1 casethisform optiongroup1 value 2thisform grid1 recordsource selectsum 数量 单价 折扣 as总销售额from员工 销售日记where员工 姓名 nand员工 员工编号 销售日记 员工编号intocursord1 endcasethisform refresh 查询按钮的参考代码 2 按日期查询功能要求 出现一个表单 按日期 年 月 日 查询结果的清单 汇总 在表格grid显示查询结果 查询按钮的参考代码 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 销售日期 dintocursord1 elsethisform grid1 recordsource select from销售日记whereyear 销售日期 yandmonth 销售日期 mintocursord1 endifelsethisform grid1 recordsource select from销售日记whereyear 销售日期 yintocursord1 endifendifcasethisform 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 销售日期 dintocursord1 elsethisform grid1 recordsource selectsum 数量 单价 折扣 as总销售额from销售日记whereyear 销售日期 yandmonth 销售日期 mintocursord1 endifelsethisform grid1 recordsource selectsum 数量 单价 折扣 as总销售额from销售日记whereyear 销售日期 yintocursord1 endifendifendcasethisform refresh 3 按商品查询 功能要求 出现一个表单 按商品名称查询结果的清单 汇总 在表格grid显示查询结果 n bo1 valueselect编码asn1from商品where名称 nintocursorden1 alltrim n1 docasecasethisform optiongroup1 value 2thisform grid1 recordsource select from销售日记wherealltrim 商品 n1intocursord1 casethisform optiongroup1 value 1thisform grid1 recordsource selectsum 数量 单价 折扣 as总销售额from销售日记where商品 n1intocursord1 endcasethisform refresh 4 按经销商查询 出现一个表单 按经销商查询结果的清单 汇总 在表格grid显示查询结果 5 按钞卡分类查询 出现一个表单 按钞或卡查询 在表格grid显示查询结果 查询按钮的参考代码 n1 bo1 valuedocasecasethisform optiongroup1 value 1thisform grid1 recordsource select from销售日记where钞卡 n1intocursord1 casethisform optiongroup1 value 2thisform grid1 recordsource selectsum 数量 单价 折扣 as总销售额from销售日记where钞卡 n1intocursord1 endcasethisform refresh 本查询子系统的设计要求 1 至少完成题目要求的5个查询表单2 每个表单的设计界面由设计者自由决定 只要完成要求的特定功能即可 3 该子菜单完成后 能够挂在系统菜单上运行 本周完成查询子菜单的设计 统计子菜单的设计 知识点回顾 报表的设计1 报表的组成 数据源和报表布局数据源 数据的来源查询结果产生的表作为报表的数据源 员工销售额统计 功能要求 出现一个表单 按员工姓名查询结果的清单 汇总 在表格grid显示查询结果 查询结果并能用报表形式打印 预览 设计的基本思路 1 完成 统计 按钮的功能2 根据查询结果所产生的表 建立报表 3 根据所建立的报表设计预览按钮的实现代码 Grid1表格控件的设计Recordsourcetype 0 表 publicjjn alltrim bo1 value docasecasethisform optiongroup1 value 1select员工编号asnbfrom员工where姓名 nintocursorbjj nbselect销售日记locatefor员工编号 jjiffound select姓名 销售日记 from员工 销售日记where员工 员工编号 销售日记 员工编号and员工 姓名 nintodbfd1thisform grid1 recordsource d1 elsemessagebox 没有该员工的销售记录 endifcasethisform optiongroup1 value 2select姓名 sum 数量 单价 折扣 as总销售额from员工 销售日记where员工 员工编号 销售日记 员工编号and员工 姓名 nintodbfd2thisform grid1 recordsource d2 endcasethisform refresh 统计按钮的关键代码 预览 按钮代码设计 ifthisform optiongroup1 value 1 清单 reportform员工销售额 frxpreviewElse 统计 reportform员工销售额总计 frxpreviewendifreturn 报表的输出 一般格式 reportform1 输出到打印机 reportform报表文件名toprinternoconsole noconsole 在向打印机输出时 不同时向VFP主窗口输出 2 预览报表 reportform报表文件名preview 3 输出报表到文件中 reportform报表文件名tofile文件名ASCIInoconsolenodialog 商品销售额统计 功能要求 出现一个表单 按商品名称查询结果的清单 汇总 在表格grid显示查询结果 查询结果并能用报表形式打印 月销售额统计 出现一个表单 按销售的月份查询结果的清单 汇总 在表格grid显示查询结果 查询结果并能用报表形式打印 经销商销售额统计 出现一个表单 按经销商查询结果的清单 汇总 在表格grid显示查询结果 查询结果并能用报表形式打印 name bo1 valuedocasecasethisform optiongroup1 value 1select经销商 编号as经销商编号 经销商 名称as经销商名 商品 编码as商品编码 商品 名称as商品名 销售日期 单价 折扣 from经销商 商品 销售日记 where经销商 编号 销售日记 经销商and商品 编码 销售日记 商品and经销商 名称 name intodbfj1thisform grid1 recordsource j1 thisform refreshcasethisform optiongroup1 value 2select经销商 编号as经销商编号 经销商 名称as经销商名 sum 单价 折扣 数量 as总销售额 from经销商 商品 销售日记 where经销商 编号 销售日记 经销商and商品 编码 销售日记 商品and经销商 名称 name intodbfj2thisform grid1 recordsource j2 endcasethisform refresh 查询按钮 统计按钮的关键代码 本统计子系统的设计要求 1 至少完成题目要求的4个统计表单2 每个表单的设计界面由设计者自由决定 只要完成要求的特定功能即可 3 该子菜单完成后 能够挂在系统菜单上运行 注意每个表单的showwindows属性设置 本周完成统计子菜单的设计 系统服务子菜单的设计 知识点回顾 文件的复制 Copyto fields for xls 功能 将当前表中的数据与结构同时复制到指定的表中 即复制一个新的表 各种类型文件的复制Copyfileto从其它文件向表添加数据Appendfrom 某些函数的使用1 getdir 显示 选择目录 对话框2 empty 测试一个表达式的值是否为空3 getfile 显示 打开 对话框 返回选定文件的名称 4 SYS 5 默认驱动器 5 SYS 2003 当前目录或文件夹 6 directory 若在磁盘上存在指定的目录 返回为 真 否则为 假 7 Md创建一个新目录 数据表的备份 单表备份设计的基本思路 表单的数据环境 加载要进行数据备份的表1 选择要进行备份的数据表2 设置要备份的目的地及备份所产生的新表文件名3 发出备份命令 Rowsourcetype 1 值 关键代码及主要功能 浏览 按钮 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 hfpath fname h代码说明 fname变量为全局变量public fnamefname为列表框中所选择的表名fname thisform list1 value为备份后所产生的新表名 其名字为原来的表名 备份的日期 备份 按钮的关键代码 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 DBF copyto messagebox 备份成功 elsecopyto xlsmessagebox 备份成功 endifendif 所有表的备份设计的基本思路 同类型的文件一次性备份基本过程1 设置源文件的位置2 设置目标文件的位置3 发出备份命令 第一个按钮的主要作用及代码 该按钮主要是调出系统对话框 设置要备份文件的所在路径publicmypathmypath alltrim getdir thisform text1 value mypath 第二按钮的主要作用及代码 该按钮主要是设置备份后文件的存放目录publicoutpathoutpath alltrim getdir sys 5 sys 2003 BAK 备份路径 this parent text2 value outpath 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 fpt outpath1 outpath fpt mypath mypath dbf outpath outpath dbf copyfile mypath to outpath 文件拷贝命令 其中 mypath要复制的源文件名 outpath要复制的目的文件名copy to outpath1 messagebox 备份成功 系统提示 thisform refresh 备份按钮的关键代码 数据表的恢复 表单的load事件publicfname1publicfname2dirs sys 5 sys 2003 setdefato dirs 列表框的主要属性及事件代码Rowsourcetype1 值Click代码 docasecasethis value 员工 select员工casethis value 销售日记 select销售日记casethis value 商品 select商品casethis value 经销商 select经销商endcase 第一个 浏览 按钮的代码 fname2 alltrim getfile sys 5 sys 2003 thisform text2 value fname2thisform refresh 第2个浏览按钮的关键代码 fname1 alltrim getfile thisform text1 value fname1thisform refresh 恢复 按钮的关键代码 y messagebox 你确定要恢复文件吗 4 32 256 信息警告 ify 6z