VFP-邵何張-實驗報告6

1、13級電子信息工程班VFP實驗報告6實驗人員姓名：邵何張實驗日期：2014年10月31日實驗設備配置：聯(lián)想筆記本實驗軟件環(huán)境：vfp9.0實驗題目：實驗操作過程（包括操作步驟、動作、輸入的指令代碼）：為數(shù)據(jù)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 增加租目數(shù)據(jù)類型9、臥D、L）： * t addtpa? 4j ? 1 sty 增加欄目數(shù)里；it魚d収切R5AD丄皿電帥 t=UFFEK（4）IF .not. （addtyps=1，C. or.總ddtyp世 H .or. MdtywF . ar.乜（1辿/）滬*1/）WAIT 頻據(jù)糞型不正福！ *LOOPENElfIF aidtypbF*日1 say 小數(shù)位數(shù)：” 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 繼續(xù)增加拿段嗎俚加字” eet sn 施血IF UTPER（胡ITEmENDIFEODCENIDOriJDSI ALLCREATE tmp from lz物品入庫數(shù)據(jù)錄入RE .aaw弒格 4單位 d羊價 0 CD22OTuiens 2?(n金籲:0. 00繼續(xù)輸入數(shù)

4、據(jù)嗎(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 物品入庫數(shù)據(jù)錄入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 維續(xù)輸入數(shù)據(jù)嗎(Y/K)? font 侏體：24 get an font 耒體：24 readIF UPPER) J1Texit物品入庫數(shù)據(jù)錄入畑一商單包單價 Q 21 珅悴 0 12金額:械fg saUut 2羽錨51.03繼續(xù)輸入數(shù)據(jù)嗎(Y/N) ? Y物品入庫數(shù)據(jù)錄入品乞Ad媒*8木o.oo甲片占甲tn 23.0C 719 224全祈0矍廠場吐金頑：5382.00繼續(xù)輸入數(shù)據(jù)嗎(Y/N) ? Y實驗結果（屏幕顯示的信息、磁盤