VFP-邵何张-实验报告6

1、13级电子信息工程班VFP实验报告6实验人员姓名：邵何张实验日期：2014年10月31日实验设备配置：联想笔记本实验软件环境：vfp9.0实验题目：实验操作过程（包括操作步骤、动作、输入的指令代码）：为数据Particle增加字段翅幣目名制描M拦目Srt験型口1，叭U： c働權目林里；门USE Is L 40 cay 湖加加字ST 畑t 黑体F color KGB（255, 0,0）DO WHILE I3 4, u 心_ 电 ata-Urmn PACE（30）3.idt3Tpe-? Caddlen=10a.lddf 5=2DO WHILE T 41 say 增力叶兰目宕称z 毕t 4, 41盹

2、y 增加租目数据类型9、卧D、L）： * t addtpa? 4j ? 1 sty 增加栏目数里；it鱼d収切R5AD丄皿电帅 t=UFFEK（4）IF .not. （addtyps=1，C. or.总ddtyp世 H .or. MdtywF . ar.乜（1辿/）沪*1/）WAIT 频据粪型不正福！ *LOOPENElfIF aidtypbF*日1 say 小数位数：” set dJdG ranse g adHen pictENTIF|EXITENTDOSELECT 2APrEHD BLAHKWUE titlt WITH 显血meSELECT IsATfEKD BUNKr=EECHO（）r=

3、Mi te+ALLTRLM （STR （r）REFLACE field_name WITH r, field_type WITlf adltype, fi el djLen WITH addlen IF addtype=VFFLACE fieli_dc WITH alJdcENIIFAJ_ JJ4n= Tif 6, 40 sty 继续增加拿段吗俚加字” eet sn 施血IF UTPER（胡ITEmENDIFEODCENIDOriJDSI ALLCREATE tmp from lz物品入库数据录入RE .aaw弑格 4单位 d羊价 0 CD22OTuiens 2?(n金籲:0. 00继续输入数

4、据吗(Y/N) ?忙AUXS iuse屮让1C0?Y STRUCTURE TO Is extendSELECT 2USE arttitrn=RECCOUNT()DIMENSION fieCrn), ielentrn), tit(rn)GO topFOR n=i TO rntit(n)=ALLTRIM(title)SHPNEXT冋IsGO topFOR nal TO rni e (n)=ALTRDi! (i eld_n.anie)i elen(n)=i eld_lenSKIPNEXTSELECT 1DO WJULE . tappend bl&iikclear b 60 say 物品入库数据录入F

5、ont 帘体：20 color rgb(0,255,0)lin=5rw=iFOR n=l TO rn liltrw say titCn) get ftfie(a)*rv=rw*fi elen(n)吃.5rw=rv+(i elen(n)LEH(i (n) )*2IF rr140liit=lin-*2rw=lENiirneoctreplace amount wi th price*quantity 11,30 say 金额；“ font ”黒体：15 color rgb(0,O, 255) llz 48 say am oxint on.t 黒15 color rgb(Oz 0y 255)an= Y26,30 sey 维续输入数据吗(Y/K)? font 侏体：24 get an font 耒体：24 readIF UPPER) J1Texit物品入库数据录入畑一商单包单价 Q 21 珅悴 0 12金额:械fg saUut 2羽錨51.03继续输入数据吗(Y/N) ? Y物品入库数据录入品乞Ad媒*8木o.oo甲片占甲tn 23.0C 719 224全祈0矍厂场吐金顽：5382.00继续输入数据吗(Y/N) ? Y实验结果（屏幕显示的信息、磁盘