百度小说书架在哪里:我的VFP一小段程序,同志们交流点评一下,如何改进

来源:百度文库 编辑:高考问答 时间:2024/04/29 20:50:02
if !Used('stud')
Use stud in 0
endif
Sele stud
Set Order to

Push key clear
On key Label F1 wait'F3计算.F4追加.^F查找.^T/F5删除.f8/f9打印当前/全部.F10计算器.带*的字段不能修改。'windows Nowait
On key Label F3 do jisuan
On key Label F4 append blank
On key Label F5 do pack
On key Label F8 disp to prin
On key Label F9 list to prin
On key Label F10 Activate windows Calculator
On key Label Ctrl+N append blank

BrowSe title'学生资料' ;
Field Bh:h='学号',;
Xm:h='姓名',;
cw:h='财务管理':v=Sum01(),;
yy:h='大学英语':v=Sum01(),;
gy:h='电子商务':v=Sum01(),;
sw:h='供应链':v=Sum01(),;
tota:h='*总分数*':r,;
jl:h='*奖学金*':r,note:h='备注';
NoWait
Zoom windows 学生资料 Max
BrowSe Last
Pop key

return

*________
* 子程序,自动求和的
Proc Sum01
replace tota with cw+yy+gy+sw
return
*________