行业应用

开发平台：

VFP

RPT1.PRG：源码内容

							    set talk off
    set esca off
    set path to..
    do LoadSDK                    && 装入SDK，只需在程序入口处调用一次即可
    do _OutReport in MisTool with "YearRpt","公司年度利润表"
    retu
    proc YearRpt
    use Profit
       ?  "               公司1994-1995各月份报表"
       ?  "┌─────┬─────────┬─────────┐"
       ?  "│  月  份  │ 1994年利润(万元) │ 1995年利润(万元) │"
    go top
    do whil .not. eof()
       R1=Month+"      "
       R2=str(p1994,18,2)
       R3=str(p1995,18,2)
       ?  "├─────┼─────────┼─────────┤"
       ?  "│"+R1+    "│"+R2+            "│"+R3+            "│"
       skip
    endd
       ?  "└─────┴─────────┴─────────┘"
    ejec
    use
    retu

						