Wizard WongVF实习报告
（２） （３） （４）
汽车：QC(牌号，型号，生产厂，车主名) 车主：CZ（车主名，地址，电话）
修理工：XLG(工号，姓名，地址，电话，出生日期，
进厂日期，小时工资)
（５） （６）
零件用量：LJYL(编号，零件号，数量)
零件库存：LJKC(零件号，零件名，成本，价格，库存
量，最低库存，订货量)
“汽车修理管理系统”总体模块图： QCXL．PRG(汽车修理管理系统主文件)
SJHJ．VUE（数据环境视图文件） FM．SCX（封面表单文件）
QCXLCD．MPR(汽车修理管理系统菜单程序) XCDJ．SCX（修车登记表单文件）
SRXLDH．SCX（输入修理单号表单） QCXL．SCX（汽车修理表单文件）
LJDH．SCX（零件订货计划表单文件：输入季度号） DYFP．SCX（打印发票表单文件：输入修理单号） FP．FRX（发票报表文件） 2、物理设计
八个表以及表的部分记录：XLD,QC,CZ,XLG,LJYL,LJKC,LJRK,LJCK
三：应用程序设计
（一）封面设计
1、主文件（QCXL．PRG） *程序文件名：qcxl.prg
*功能：调用QCXLCD（汽车修理菜单）
26 / 40
Wizard WongVF实习报告
set talk off
set defa to c:\\Wizard WongVF实习 close all
set view to sjhj.vue public xldh,ljf xldh=space(4) do form fm keyb '{ctrl+f4}'
modi wind screen titl '汽车修理管理系统' clear
do qcxlcd.mpr read event quit
（二）单程序结构
1、数据库（QCXL．SCX） 按书上步骤做出数据库：
27 / 40
Wizard WongVF实习报告
2、建立SJHJ.VUE(数据环境)文件
3、菜单程序（QCXLCD．MPR）
28 / 40
Wizard WongVF实习报告
生成菜单生成，运行后呈现如下图所示：
过程如下：
5．
往命令窗口键入 MODIFY FORM XCDJ，使出现标题为XCDJ.SCX的表单设计
器窗口；属性设计：FORM1的CAPTION属性设置为“修车登记”，AUTOCENTER属性设置为.T.；用数据环境把xld 表的编号，送修日期，修理项目和牌号，qc表的型号，生产厂和车主名， cz表的地址和电话等字段拖拽到表单中相应位置。
2） 分别设置牌号和车主名两个文本框valid事件代码 sele qc
locate for 牌号=xld.牌号 if not found()
insert into qc(牌号) values (xld.牌号) endif select cz
locate for 车主名=xld.车主名 if not found()
insert into cz(车主名) values (qc.车主名) endif
29 / 40
Wizard WongVF实习报告
设置commandgroup1的click事件 select xld do case
case this.value=1 if recn() case this.value=2 if recn()>1 skip-1 endif case this.value=3 go top case this.value=4 go bottom case this.value=5 do form srxldh case this.value=6 zy=messagebox('是要增页么？',1+48+256,'确认增加修理单') if zy=1 go bottom insert into xld(编号) values (str(val(编号)+1,4)) endif case this.value=7 sy=messagebox('是要删页么？',1+48+256,'确认删除修理单') if sy=1 delete pack endif case this.value=8 select qc brow titl'汽车修改'+space(20)+'单击行首可打删除标记，退出就删去' pack case this.value=9 select cz brow titl'车主修改'+space(20)+'单击行首可打删除标记，退出就删去' pack case this.value=10 thisform.release endcase thisform.refresh 寻页按钮gotfocus事件代码 select xld jlh=recn() 30 / 40