五、VFP高级程序设计（应用性实验）
1、本次实验的目的
Visual FoxPro不但提供了用于进行简单程序开发的简单语句，而且还提供了许多用于进行高级程序设计的语句（命令）：如输入/输出格式设计语句、菜单设计语句、窗口设计语句等和面向对象的程序设计方法，为开发复杂的管理信息系统提供了强有力的支持。此次作业所要达到的主要目的就是想通过上机实验让同学们初步理解和掌握利用Visual FoxPro高级编程语句和面向对象的程序设计方法开发较复杂的管理信息系统的理论和方法。
2、实验的总体要求
2·1 严格按照下面“作业内容和操作步骤”的步骤进行操作； 2·2 必须如数完成作业内容； 2·3 独立完成作业；
2·4 上机后分组写出上机报告；报告内容包括：①上机时间、②上机过程、③作业内容及其完成情况、④心得体会、⑤建议或要求等等。
3、作业内容和操作步骤
3·1 Visual Foxpro高级程序设计的方法和步骤 （1）打开VFP （操作方法为：单击“开始”、“程序”、“Microsoft Visual Foxpro6.0”或双击桌面快捷图标，如果正常会出现如下窗口）；
（2）打开命令文件编辑器（操作方法为：在VFP窗口的“命令窗口”输入命令Modify Command和路径（例：Modify Command E:\\gzglxt\\pzsr）,如果正常会出现如下命令文件编辑窗口）；
（3）输入、编辑和修改程序（或者叫命令文件）源代码（见下面3·2“本次实验的主要内容”和3·3“本次实验所要达到的要求”）；
（4）存盘退出（操作方法：按Ctrl+w或单击上编辑窗口的“关闭”按钮然后按照提示操作）；
（5）程序运行（操作方法：在VFP窗口的“命令窗口”输入命令Do和路径（例：Do E:\\gzglxt\\pzsr），如果正常就会运行你的程序实现你想实现的结果，如果不正常它会自动返回步骤（2）要求你修改程序）；
1 （6）如果上面你自己编写的程序运行正常，便可得到下面的可以进行人机交互输入记帐凭证的屏幕界面；
（7）所有工作完成后关闭窗口（操作方法为：单击VFP窗口的“关闭”按钮）。
3·2 本次实验的主要内容 （1）画程序流程图
已知烟台某公司开发会计信息系统的可行性分析、要求分析和系统设计已经完成，现在正在准备编写程序。假设分配你编写“记帐凭证输入程序”，请根据记帐凭证登记的业务特点和计算机数据输入的特点画出准备编写的记帐凭证输入程序的流程图。 （2）编写程序
利用所学的Visual FoxPro相关命令（如分支语句、循环语句、输入/输出格式设计语句等等）编写出满足下面要求的程序。
3·3 本次实验所要达到的要求
（1）要求该程序利用交互方式进行凭证输入；
（2）要求该程序完成交互输入的屏幕样式如下图；
（3）通过实验深入了解管理信息系统与信息技术的关系； （4）通过实验深入了解Visual FoxPro的输入/输出格式设计语句的书写格式、功能、可选项及其应用。
4、注意事项
4·1上机前一定要认真阅读上机指导书，深入理解作业的要求和内容； 4·2爱护计算机及所有实验设备；
4·3遵守实验室的一切规章制度，尤其是不能大声说话和玩游戏。
5、参考文献
5·1 黄梯云主编，《管理信息系统》，高等教育出版社，2002第 7次印刷； 5·2 吕建忠等，《Office97（中文版）入门与提高》，清华大学出版社，2000 5·3 钱晓平等，《计算机文化基础》，高等教育出版社，1999； 5·4 李正凡等，《Visual FoxPro程序设计基础教程》，中国水利水电出版社，2000； 5·5 合力工作室编著，《中文Visual FoxPro 6·0编程基础》，清华大学出版社，2001；
2 5·6 周亦民等，《Visual FoxPro 6·0实用教程》，科学出版社，2000 5·7 其他同类参考书。 附：程序原代码 set talk off set bell on set intensity on clear clear all set color to gr+/gb* @ 10,10 say \" \" defi wind ck_1 from 1,26 to 11,106 defi wind ck_2 from 12,8 to 28,128 none acti wind ck_1 set color to b+/gr* @ 1,14 say \"凭证登记系统使用说明\" font \"Arial\",22 style \"b\" @ 4,20say \"欢迎您使用我公司开发的凭证输入系统,本系统采用\" @ 5,16 say \"最先进的全屏幕编辑技术进行数据输入。按光标键进行输入\" @ 6,16 say \"位置选择，按Del进行数据删除，按Insert进行数据插入！\" @ 7,22 say \"现在进行凭证输入？（Y/N）：\" get xz defa \" \" read if xz=\"Y\" .or.xz=\"y\" use d:\\cai_glxxxt\\vfpcx\\pzb acti wind ck_2 append Blank else deac wind ck_1 release windows set color to w+/w* clear clear all cancel endif do while .t.set color to n+/gr*,n+/g* @ 2,10 to 15,116 pen 3 color r @ 3,24 say \"
记
帐
凭
证 \" font \"Arial\",18 style \"b\" @ 5,14 say \" 附单 张 年 月 日 凭证号 \" font \"Arial\",12 @ 6,14 say \"┏━━━━━━━┳━━━━━━━┳━━━━━━━━┳━━┳━━━━━━┓\" font \"Arial\",12 @ 7,14 say \"┃ 摘 要 ┃ 总 帐 科 目 ┃
明 细 科 目 ┃记向┃ 金 额 ┃\" font \"Arial\",12 @ 8,14 say \"┣━━━━━━━╋━━━━━━━╋━━━━━━━━╋━━
3 ╋━━━━━━┫\" font \"Arial\",12 @ 9,14 say \"┃
┃
┃
┃
┃
┃\" font \"Arial\",12 @ 10,14 say \"┗━━━━━━━┻━━━━━━━┻━━━━━━━━┻━━┻━━━━━━┛\" font \"Arial\",12 @ 11,14 say \"
主管：
审核： 制单： \" font \"Arial\",12 year=\" \" store \" \" to m,d @ 5,25 get 附单 @ 5,42 get year @ 5,50 get m @ 5,55 get d @ 5,86 get 凭证号 @ 9,18 get 摘要 @ 9,40 get 总帐科目 @ 9,60 get 明细科目 @ 9,86 get 记向 @ 9,94 get 金额 @ 11,28 get 主管 @ 11,48 get 审核 @ 11,68 get 制单 read ymd=year+\".\"+m+\".\"+d replace 日期 with ymd @ 13,24 say \"是否继续登记？（READ if xz1\"Y\" .or.xz1\"y\" exit else clear append Blank loop endif enddo close data deac wind ck_1,ck_2 release windows set color to w+/w* clear clear all return
Y/N）：\" get xz1 defa \" \" 4
