ft Excel及Word文档。以下给出单实验室课表生成Microsoft Word文档部分编码以供参考：

WAIT "正在访问 Word 软件……" WINDOW NOWAIT 
WordApp=CREATEOBJECT("Word.application") &&访问WORD
If Type("WordApp")#"O"
WAIT CLEAR 
MessageBox( "访问Word失败！请检查你的系统是否正确安装 Word 软件！",48,"没有安装Word")
RETURN
ENDIF
WAIT "正在生成表格……" WINDOW NOWAIT 
WordApp.Visible =.T.&&&
WordApp.Caption =’生成Word文档’
WordApp.Documents.Open("D:\排课\实验教学课程表模板.doc")
WordTable=WordApp.Documents(1).Tables(1)
*******************
WordCellText=""
select 实验室名称 into table wdmmcc.dbf from wd group by 实验室名称
select 系别 into table wdxb.dbf from wd group by 系别
select wdxb
if recc()>1
jxdw="系(部、中心) ：实验中心"
else
jxdw="系(部、中心) ："+trim(系别)
endif
use in wdxb
WordApp.Documents(1).Paragraphs(2).Range.Text=jxdw+"学年度第学期"
select wdmmcc
for wdi=1 to recc()
select wdmmcc
go wdi
if wdi<>recc()
*WordTable.Rows.add
endif
xyxmc=实验室名称
select * into table wdxyx.dbf from wd where 实验室名称=xyxmc
select wdxyx
WordTable.Cell(1,2).Range.Text=trim(实验室名称)+chr(13)+"("+trim(实验室地点)+")"
FOR wdii=1 TO 7
FOR wdiii=1 TO RECC()
GO wdiii
if val(星期)=wdii
WordCellText=WordCellText+trim(节次安排)+’节:第’+trim(学期安排)+’周,’+trim(班级)+’,’+trim(学生人数)+’人,’+trim(课程名称)+’,’+trim(实验教师)+chr(13)
endif
endfor
WordTable.Cell(wdii+1,2).Range.Text=WordCellText
WordCellText=""
endfor
use in wdxyx
endfor
use in wdmmcc
use in wd
WordApp.Documents(1).SaveAs("D:\排课\实验室课表.doc")
WordApp.Quit
RELEASE WordApp 来源：778论文在线  www.qiqi8.com
WAIT CLEAR 
MessageBox( "生成WORD文件完毕，文件位置 D:\排课\实验室课表.doc ！",64,"完毕")
RETURN
3系统测试
本辅助系统用VisualFoxpro6.0数据库管理系统编译并生成安装文件，安装到Win2000操作系统，并在安装有Microsoft Office系列办公软件下的单机中进行测试。执行该辅助系统，进行各种处理后，发现在与Microsoft Excel交互过程中，如果Microsoft Excel版本过高的话，要先将Microsoft Excel文档保存为低版本文档，去除格式设置后，才可与VisualFoxpro进行导入，这是VisualFoxpro6.0的局限性。因此在编写与Microsoft Excel交互的模块中，注意通过调用Excel.Application对象另存为版本低的Excel文件，以避免出现导入错误。
4 结束语
经过运行验证，本辅助系统适用于实验室排课相关工作，能适应较低机器配置，其方法是完全可行的，并且工作效率极高，输出格式规范美观且可进一步加工。如要更进一步提高系统处理的能力，可以考虑用网络数据库管理系统对用户数据进行分散输入、集中管理，即应用此开发模型转为网络开发平台，如转为C/S或B/S结构，将会极大提高其应用范围。
参考文献：
柳纯录.信息系统项目管理师教程[M].北京：清华大学出版社，2005.
李雁翎.FoxPro 6.0 使用与开发技术[M].北京：清华大学出版社，2005 .

上一页  [1] [2]