VFP下的SQL和EXCEL技术
来源:优易学  2011-12-9 18:48:04   【优易学:中国教育考试门户网】   资料下载   IT书店

  我们都知道在 EXCEL 中有很多很多的计算公式、灵活多变的计算方式、方便快捷的图表处理、和功能强大的 VBA 语言,可以说 EXCEL 可能是最好用的表格处理软件。我敢说:微软的产品中大概就 EXCEL 最好!
  但是,怎样用 Foxpro 快速产生统计表,并将数据送到 Excel表格中,从而代替 Foxpro 的报表工具呢?
  我们大家都知道,在 Visual Foxpro 3.0及以后版本中提供了一个调用Ole Automation 的函数 CREATEOBJECT,用该函数可以让 Visual Foxpro 很方便的和其它可以提供 Ole Automation 服务的程序进行通讯。而 Excel 更是一个标准的 Ole Automation 服务器程序,我们可以在前端将数据传送到后端的 Excel 服务程序,用后端服务程序进行表格处理,从而弥补 Visual Foxpro的不足。
  由于历史原因,我们作报表都习惯用 Total、Count、Sum 或者直接在报表中工具中计算,速度最快的大概也就是 Total 了,但不知道还有多少人还在坚持使用 Total 命令进行计算,有没有更好的计算方法呢?当然有啦!我在实际使用中积累有一定的经验但愿能给各位起到小小的启发。

  假设有一表:Table1 是一个人员档案,里面的表结构如下:

  ----- 字段名 -- 类型及长度---------
  编号 C,2
  部门 C,10
  姓名 C,10
  性别 C,2
  出生日期 D
  职务 C,10
  文化程度 C,10

  内容大概如下

  TABLE1.DBF

  编号 部门 姓名 性别 出生日期 职务 文化程度 

  1 工程部 张三 男 1971-01-11 工程师 大学本科 
  2 销售部 李四 男 1967-02-23 经理 大学本科 
  3 工程部 王武 1954-03-14 技术员 大学专科 
  4 总经理室 赵洁雅 女 1975-04-05 秘书 硕士研究生
  5 销售部 .. 1977-05-09 销售经理 高中 
  6 工程部 大文 1969-03-30 总工程师 大学专科 
  7 销售部 .. 1961-10-10 销售经理 大学专科 
  8 总经理室 庄稼 1961-10-10 总经理 大学专科 

  当然实际的数据应该比这里多很多,要不还用统计干吗,我不过是举例说明而已。我不知道你们在使用 SQL 语句时有没有用使用函数的习惯,反正我是相当愿意在 SQL 中使用函数,我认为使用函数的 SQL 语句虽然语句长一点,但是可以让你的程序看起来更清晰、简洁。
  说道这里我要感谢当初发明出 IIF 函数那位高人,要没有他(她)我也没有机会在这里罗嗦这么久,在后面提到的快速产生统计表中将大量的运用 IIF 函数。也许你会觉得奇怪,你统计的时候用那么多 IIF 干吗?别急,下面就让我慢慢的告诉你。
  看看我们前面描述的表,我们可能要统计各个部门的“性别|职务|文化程度”等的分布情况,简单一点我给画了一个表个出来,可能表格更能说明白:

  各部门人员分布情况表
  单位:人
  ---------------------------------
  部门 | 男| 女| 本科 | 专科|技术人员|管理人员|秘书 
  ---------------------------------
  工程部 | | | | | | | 
  销售部 | | | | | | | 
  总经理室| | | | | | | 
  | | | | | | | 
  | | | | | | | 
  ---------------------------------

  上面这张表说复杂也不复杂,但是用常给的处理方法可能也要耗掉我们不少的时间,因为你不得不针对不同的项目进行单独反复的计算,可能还要生成一大堆的临时表真烦!下面的计算公司可让你轻松完成上面的表格,当然程序还是要写的不可能什么也不动不想就能达到的,立即输入下列程序:

  第一步:转换
  Select 部门,;
  iif(性别='男',1,0) as 男,;
  iif(性别='女',1,0) as 女,;
  iif(文化程度='大学本科',1,0) as 大学本科,;
  iif(文化程度='大学专科',1,0) as 大学专科,;
  iif(inlist(职务,'工程师','技术员','总工程师'),1,0) as 技术人员,;
  iif(inlist(职务,'总经理','经理','销售经理'),1,0) as 管理人员,;
  iif(inlist(职务,'总经理','经理','销售经理'),1,0) as 管理人员,;
  iif(inlist(职务,'秘书'),1,0) as 秘书;
  from table into cursor query1

[1] [2] 下一页

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训