统计图在vfp中的实现.txt

Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

实用技巧 

谈 动 态 统 计 图 在VFP 中 的 实 现 
河 南 万 宝 股 份 有 限 公 司 电 算 中 心 
梁 宏 
( 请 作 者 和 我 们 联 系) 
---- 计 算 机 世 界 报1998 年 第7 期I3 版 刊 出 了《 动 态 统 计 图 在VFP 中 的 实 现》 一 文。 文 中 作 者 给 出 了 通 过 调 用 以 下 方 法 实 现 动 态 出 图： 

	   DO (_GENGRAPH) WITH (PARM1),(PARM2),...(PARM9)
---- 由 于_GENGRAPH 是VFP 的 系 统 变 量， 它 其 实 就 是 指 向WZGRAPH.APP， 也 就 是 说 该 方 法 实 质 上 就 是 通 过 调 用VFP 附 带 的 向 导 例 程 来 工 作。 
---- 利 用 该 方 法 确 实 能 够 实 现 统 计 图 的 生 成， 但 非 常 遗 憾 的 是 该 方 法 只 能 运 行 在VFP 的" 怀 抱" 中， 一 旦 脱 离 了VFP 的 开 发 环 境， 你 得 到 的 不 再 是 统 计 图 形 而 是 一 条 错 误： 只 有 在 开 发 环 境 中 才 能 使 用 本 功 能 ！ 很 显 然， 这 种 方 法 极 不 实 用， 我 们 总 不 能 把 自 己 开 发 的 软 件 和VFP.EXE 一 块 发 行 给 我 们 的 用 户 吧 ？ 

---- 统 计 图 以 其 形 象 直 观， 界 面 友 好 而 让 我 们 的 用 户 深 爱 不 已， 但 如 何 在 我 们 的 程 序 中 实 现 自 由 的 动 态 图 形 生 成 呢 ？ 下 面 笔 者 给 出 本 人 精 心" 制 造" 的" 零 件"----- 自 动 统 计 图 生 成 类： h3> 一、" 零 件" 加 工： 

---- 自 定 义 一 个 基 类 为"CUSTOM " 的 自 定 义 类: "LHGENGRAPH"， 为 其 添 加 下 列 属 性： 
---- AutoRefresh : 值 为 .T., 作 用: 控 制 新 生 成 图 形 是 否 刷 新 原 图 形 格 式. 
---- HasLegend : 值 为 .T., 作 用: 控 制 图 形 是 否 有" 图 例". 
---- MainType : 值 为 0, 作 用: 选 定 生 成 图 形 的 主 类 型 号 
---- SaveTable : 值 为 空 , 作 用: 用 来 指 定 生 成 图 形 的 存 放 表, 要 求 该 表 须 有GEN 类 型 字 段. 
---- SubType : 值 为 0, 作 用: 选 定 生 成 图 形 的 次 类 型 号( 值 为 零 为 自 动 选 择). 
---- Title : 值 为" 梁 先 生", 作 用: 生 成 图 形 的 标 题.( 如 为 空 则 无 标 题). 
---- WorkTable : 值 为 空, 作 用: 指 定 统 计 数 据 的 来 源. 要 求 该 表 的 第 一 列( 最 左 列) 为 统 计 的X 轴( 中 时 间, 部 门 等). 

---- 为 该 类 添 加 以 下 方 法: 
---- LhGenGraph 作 用: 调 用 该 方 法 即 可 自 动 生 成 统 计 图 形. 
---- GetRecVAl 作 用: 由LhGenGraph 方 法 调 用. 取 得 记 录 值. 
---- 以 下 为LhGenGraph 方 法 的 具 体 内 容: 

*--         动态统计图生成
*--         单位:河南万宝股份有限公司 电算中心
*--         作者:梁宏  

LOCAL lcWorktable,lcSavetable,lcTitle,
     llAutogen,llLegend,lnMtype  , lnStype
*--        工作表,保存表,图表标题,自动刷新 ,
           图例 ,图形主格式，图形子格式
lcWorktable=THIS.WorkTable
lcSavetable=THIS.SaveTable
lcTitle    =THIS.Title
llAutogen  =THIS.AutoRefresh
llLegend   =THIS.HasLegend
lnMtype    =THIS.MainType
lnStype    =THIS.Subtype
IF ISBL(lcWorktable) .OR. ISBL(lcSavetable)
   =MESSAGEBOX("请先指定工作表和产生图形回存表!",
    64,"梁宏提示:")
   RETU
ENDIF
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL lnCursele,lcData,lnFnumber,lLoop,llOpenwTable,
      llOpensTable,;
      lnWcurrec,loForm,LHole,lcFieldval,lcFname
lnCursele=SELE()
llOpenwTable=.T.
llOpensTable=.T.
IF USED("&lcWorktable")
   SELE &lcWorktable
   llOpenwTable=.F.
ELSE
   SELE 0
   USE &lcWorktable
ENDIF    
lnWcurrec=RECN()
lnFnumber=FCOUNT()
IF lnFnumber< 2
   =MESSAGEBOX("工作表最少应包含两个字段!",
    64,"梁宏提示:")
   RETU
ENDIF   
lcData=" "+TAB
FOR lLoop=2 TO lnFnumber   && 取字段名
    lcData=lcData+FIELD(lLoop)
    IF !EMPTY(FIELD(lLoop+1))
       lcData=lcData+TAB
    ENDIF
ENDFOR
lcData=lcData+CRLF
GO TOP
SCAN
     FOR lLoop=1 to lnFnumber
         lcFieldval=THIS.GetRecVal(FIELD(lLoop))
         IF lLoop<  >lnFnumber
            lcData=lcData+lcFieldval+TAB
         ELSE
            lcData=lcData+lcFieldval+CRLF
         ENDIF   
     ENDFOR     
ENDSCAN
IF llOpenwTable
   USE
ELSE
   GO lnWcurrec
ENDIF      
IF USED("&lcSavetable")
   SELE &lcSavetable
   llOpensTable=.F.
ELSE
   SELE 0
   USE &lcSavetable
ENDIF    
IF RECC()=0
   APPE BLANK
ENDIF   
lnFnumber=FCOUNT()
FOR lLoop=1 TO lnFnumber+1
    IF TYPE(FIELD(lLoop))="G"
       EXIT
    ENDIF
ENDFOR       
IF lLoop >lnFnumber
   =MESSAGEBOX("指定的保存表中不含有<  通用  >字段,
    因此无法生成图表",64,"梁宏提示:")
   RETU
ENDIF
lcFname=FIELD(lLoop)   
IF llAutogen
   APPEND GENERAL &lcFname DATA lcData  
    CLASS "MSGRAPH.CHART"
ELSE
   APPEND GENERAL &lcFname DATA lcData  
ENDIF   
loForm=CREATEOBJECT("FORM")
loForm.ADDOBJECT("LHole","OLEBOUNDCONTROL")
loForm.LHole.STRETCH=2
lcCsource=lcSavetable+"."+lcFname
loForm.LHole.CONTROLSOURCE=lcCsource
loForm.LHole.HEIGHT= _SCREEN.HEIGHT
loForm.LHole.WIDTH=_SCREEN.WIDTH 
lcError=ON("ERROR")
ON ERROR APPEND GENERAL &lcFname
     DATA lcData CLASS  "MSGRAPH.CHART"
loForm.LHole.HasLegend=llLegend
IF ISBL(lcTitle)
   loForm.LHole.HasTitle = .F.
ELSE
   loForm.LHole.HasTitle = .T.   
   loForm.LHole.ChartTitle.Caption = lcTitle
ENDIF   
IF lnMtype<  >0 .AND. lnStype<  >0
   loForm.LHole.AutoFormat(lnMtype,lnStype)
ENDIF   
IF !ISBL(lcError)
   ON ERROR &lcError
ELSE
   ON ERROR
ENDIF      
loForm.RELEASE
* FLUSH
IF llOpensTAble
   USE
ENDIF   
SELE (lnCURSELE)

以下为GetRecVAl 方法的具体内容:

*--          转换字段值
LPARAMETER lcFieldname,lcFval,lcFtype
lcFieldname=&lcFieldname
lcFtype=TYPE("lcFieldname")
DO CASE
   CASE lcFtype="D"
        lcFval=DTOC(lcFieldname) 
   CASE lcFtype="C"
        lcFval=ALLT(lcFieldname) 
   CASE lcFtype="T"
        lcFval=TTOC(lcFieldname) 
   OTHERWISE
        lcFval=ALLT(STR(lcFieldname))
ENDCASE
RETU  lcFval
二、 应 用 指 南： 
---- 你 可 以 将 本 类 加 入 到 你 的 表 单 上（ 比 如 对 象 名 为LHGENGRAPH1）， 再 加 入 一 个 按 钮 用 以 触 发LHGENGRAPH 的LHGENGRAPH 方 法。 当 然 你 需 要 给LHGENGRAPH1 提 供 至 少 两 个 参 数， 那 就 是WorkTable 和SaveTAble， 即 工 作 表 和 图 形 生 成 回 存 表。 要 得 到 这 两 个 表 其 实 很 简 单， 只 需 用SELE 语 句 选 定 你 需 要 进 行 统 计 分 析 的 数 据 列 和 用CREATE TABLE 命 令 创 建 一 个 含 有GEN 类 型 字 段 的 表 即 可。 将SaveTable 的GEN 字 段 拖 放 到 表 单 形 成OLEBOUNDCONTROL 对 象（ 该 对 象 即 为 生 成 的 统 计 图 形）。 调 整 该 对 象 大 小 及 属 性 至 满 意。 在 此， 提 供 一 个 技 巧： 运 行 表 单， 双 击OLEBOUNDCONTROL 对 象 进 入 编 辑 状 态， 调 整 该 图 形 的 背 景 等 属 性， 比 如 背 景 填 充 为" 大 理 石" 面 等， 退 出 编 辑 状 态 后， 将LHGENGRAPH1 的AUTOREFRESH 属 性 设 为.F.， 以 后 再 刷 新 该 图 形 时 将 采 用 你 调 整 好 的 格 式。 这 样， 你 就 可 以 得 到 一 个 十 分 优 美 的 统 计 图 形 了。 更 让 人 兴 奋 的 是 本 功 能 即 使 脱 离VFP 开 发 环 境 仍 然 是 运 转 自 如。 你 完 全 可 以 将 她 集 成 到 你 的EXE 文 件 中 发 行 给 你 的 用 户。 注 意 在 生 成" 安 装" 时， 应 该 选 中MSGRAPH 选 项。   　免 费 订 阅  
实用技巧分类
 
Office应用 
CAD 
C、C++ 
数据库应用 
Delphi  
Internet应用 
Java 
Notes应用 
操作系统应用 
PowerBuilder 
VB 
Visual Foxpro 
其他类 
上周 排行榜 
如 何 投 稿 ? 

 

在日常的工作生活中，我们对计算机软硬件技术的应用开发肯定有许多的心得体会，拿来和众人分享：让别人得到他们想要的，使自己找到苦苦寻觅的；小的点点滴滴，大的工程系统，这里都需要。投稿 的关键在“技巧”二字，知他人所不知，这样的稿件本栏最最欢迎! 大家公认的 好文章自然会有好的奖励。希望每个人在这里都有所收获... 


  中国惠普
  3Com中国
  Motorola中国
  CA中国
  Cabletron
  Sony在中国
  西门子WinCC
  爱普生中国
  中国建设银行
  德州仪器(TI)
  问博医药

 
 

--------------------------------------------------------------------------------