应用程序设计 TSINGHUA UNIVERSITY PRESS 总体设计 初始用户界面设计 模块设计与编码 1.主文件( QCXL PRG) SET TALK OFF SET DEFA TO c\ qcl&&设置文件默认路径,本例所有文件都应装在该目录中 CLEA ALI SETⅥ IEW TO jhj. vue&&统一设置数据环境,自动关闭所有的工作区后打开视图文件 PUBLIC xlh;f&&xhh用于存储输入的修理单号;zf存储总零件费打印发票时用 xHh=SPACE(4) DO FORM fm &&显示封面(参阅例7-1,并事先将m表单复制到Cqgx KEYB'{CTRL+F4}&&关闭 Command窗口 MODI WIND SCREEN TITI汽车修理管理系统&&打开VFP主窗口并设置窗口标题 CLEA *以上为初始化环境代码 DO gcxld mpr&&菜单文件名定为 QCXLCD汽车修理菜单) READ EVENT &&建立事件循环 QUIT &&退出VFP 登记 零件管理 查询 印 命令 汽车修理管理系统 缘车登记 登记 零件管理 查询打印 汽车修理零 理 修理工工资月报 修车登记汽车修理修理工管理零件订货计划零件λ库零件岀库发票修理工工资月报 修理工管理零件出库管理 图10.10总体结构图 图10.11汽车修理管理系统的菜单应用程序设计 总体设计 初始用户界面设计 模块设计与编码 1．主文件(QCXL.PRG) SET TALK OFF SET DEFA TO c:\qcxl && 设置文件默认路径,本例所有文件都应装在该目录中 CLEA ALL SET VIEW TO sjhj.vue && 统一设置数据环境,自动关闭所有的工作区后打开视图文件 PUBLIC xldh,zljf && xldh用于存储输入的修理单号;zljf存储总零件费,打印发票时用 xldh=SPACE(4) DO FORM fm && 显示封面(参阅例7-1,并事先将fm表单复制到C:\qcxl) KEYB '{CTRL+F4}' && 关闭Command窗口 MODI WIND SCREEN TITL '汽 车 修 理 管 理 系 统' && 打开VFP主窗口并设置窗口标题 CLEA * 以上为初始化环境代码 DO qcxlcd.mpr && 菜单文件名定为QCXLCD(汽车修理菜单) READ EVENT && 建立事件循环 QUIT && 退出VFP 图 10.10 总体结构图 图 10.11 汽车修理管理系统的菜单