发布时间 : 星期六 文章VF实习报告（祥细版） - Wizard更新完毕开始阅读
Wizard WongVF实习报告
↓↓↓↓↓
往命令窗口键入 MODIFY FORM LJDH，使出现标题为LJDH.SCX的表单设计器窗口；创建LABEL1标签和LIST1列表框，并设置属性；创建变量属性JD（表示“季度”）；为LIST1的INIT事件和DBLCLICK事件编写代码。如下： 1. LIST1的LNIT事件代码编写如下： this.additem(\this.additem(\this.additem(\this.additem(\
33 / 40
Wizard WongVF实习报告
(2)LIST1的 DBLCLICK事件代码编写如下： select ljkc
count for 库存量<最低库存 to jls if jls=0
messagebox('库存量均不小于最低库存,第'+jd+'季度不需订货') else
set filt to 库存量<最低库存
browse fields 零件号:R,零件名:R,库存量:R,最低库存:R,订货量; title'第'+jd+'季度零件订货计划' set filt to endif
“打印发票”表单（DYFP.SCX）
↓↓↓↓↓
34 / 40
Wizard WongVF实习报告
往命令窗口键入 MODIFY FORM DYFP，使出现标题为DYFP.SCX的表单设计器窗口；创建LABEL1标签、TEXT1文本框和COMMAND1命令按钮，并设置属性；为TEXT1的LOSTFOCUS事件编写代码。建“发票”的报表（fp.frx）
(1)TEXT1的lostfocus事件代码编写如下： xldh=thisform.text1.value
(2)COMMAND1的CLICK事件代码编写如下： select xld
locate for 编号==trim(xldh) if not found()
wait window\无此编号\else select ljyl
sum 数量*ljkc.价格 for 编号=trim(xldh) and 零件号=ljkc.零件号 to zljf repo form fp prev thisform.release endif
打印发票：dyfp.scx
35 / 40
Wizard WongVF实习报告
创建“发票”的报表（fp.frx）。按照下图创建报表：命令窗中输入modi report fp
1. 创建报表变量ljf（零件费），xlf（修理费)
Ljf要储存的值和初始值均为：zljf
xlf要储存的值和初始值均为：xld.修理小时*xlg.小时工资*3
36 / 40