lcData=''+TAB
for i=1 to 2
IF I>1
lcData=lcData+crlf+field(I)+tab
ENDI
go top
do while not eof()
q=field(I)
if VARtype(&Q)='C'
q1=ALLT(&Q)
else
q1=ALLT(str(&q))
endi
lcData=lcData+q1+tab
skip
endd
endf
If Not Used('tu')
SELECT 0
Use SYS(5)+SYS(2003)+'\\tu'
EndIf
Select tu
if recc()=0
appe blank
endi
GO TOP
THIS.LockScreen = .T.
Append General SS Data lcData Class "MsGraph.Chart"
THIS.Oleboundcontrol1.ControlSource = "SS"
THIS.Oleboundcontrol1.HasLegend = .T.
THIS.Oleboundcontrol1.autoformat(bartype,4)
THIS.LockScreen = .F.
ThisForm.Refresh
3．集成开发技术应用
科技经费绩效评价决策支持系统涉计到了较多的数据文件、表单、报表等，为便于诸多文件的管理，应采用项目管理器（Project）进行集成开发，将文件按Date(数据)、 class libraries（类库）、Documents（文档）、 Code（代码） Other（其它）进行归类管理，设计完成后进行编译打包处理。
五、结束语
科技经费辅助决策支持系统是针对科技经费管理部门开发的用于辅助决策的信息系统。它具有如下特点：一是采用MS GRAPH技术图表化展现统计数据，直观形象；二是通用性好，可适用于省市区（县）三级科技经费管理部门；三是具有灵活的区段统计分析功能。实践结果证明，系统具有很好的应用推广价值。
参考文献：
[1]顼宇峰，马军. ASP网络编程从入门到精通.北京：清华大学出版社，2006.10.
[2]翁正科. Visual Foxpro数据库开发教程.北京：清华大学出版社，2003.4.
[3]滕龙，高卫华. MS Graph图形开发技术.山西建筑，2006，32 (18).
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说计算机利用科技经费项目绩效档案实现辅助决策系统(2)在线全文阅读。
