【正文】
)。2. 點擊打印命令,出現(xiàn)程序錯誤,顯示文件不存在。 ()(22):DO CASE whe= where allt()=39。雜品39。 whe= where allt()=39。 CASE =3 0+bzu閥門39。 and 0+bzu CASE =9 CASE =7 0+bzu and管件39。 whe= where allt()=39。 ()(21):if empt()bzu= elsebzu= and =allt()endifsel=SELE ,qcmc,ggxh,lb,dj,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,dw FROM main INTO CURSOR TEMP if empt() or empt()DO CASE =sel+whe AND =ctod(rq1) AND =ctod(rq2) and 0 whe= where allt()=39。 and 0 CASE =6配件39。 CASE =2 出庫金額:+str(ckhj)+ CASE =7工器具39。 CASE =3 CASE =7工器具39。 CASE =3 =4(15)、:public rkhj,ckhj,kchj,BZ1,RQ1,RQ2BZ1=RQ1=RQ2=*初始化臨時表Caption=‘退出’;:(11)、建立Command4。 amp。提示信息39。(7)、建立組合框Combo3。ButtonCount=3...(2)、建立選擇按鈕組Optiongroup2。 else elselocate for allt()$allt(ggxh)amp。(3)建立命令按鈕mand1~5(圖82) (4) 建立表格Grid1,右擊選擇“生成器”,選擇表main的如下字段:rq,qcmc,ggxh,rkbh(前面設置的表main里沒有rkbh字段),rksl,rkje,ckbh,cksl,ckje,lb。是否真的刪除該行?39。 =0 ss=allt(str(cksl1))skipenddozap(6)、退出按鈕的cilck過程:tt=0(7)、Grid1下的Column1下的Text1的DblClick過程:do form qcmx sele ls=with insert into grgjkreturnendif*加入到正式表中go topdo while !eof()提示信息39。至少要有一條記錄才能保存!39。請用B5紙!39。39。.recordsource=39。(圖72)(3) 、修改表格Grid1。(八)出庫單ckd fzrrepl jhy dw with text7repl with text4repl(3)、組合框bo2,“bordercolor”為:0無(沒有“0無”這個選項,同上),“controlsource”為cbo1,“rowsource”為:“鋼材,管件,配件,工器具,量具,雜品,消耗品,油料,勞保,閥門”,“rowsourcetype”為:1值。(4)。 Clea event ELSE (0)) amp。label1的寬度設為0Elseamp。 amp。(五)建立logo表單(1)新建表單logo,titlebar為0關閉,height=115,width=222。NBSP。 命令:do form ckd——\——退出 amp。 amp。 amp。 。amp。窗口背景顏色MODIFY WINDOW SCREEN TITLE amp。打開狀態(tài)欄set color to amp。不處理已刪除的記錄set cent on amp。 amp。在數(shù)據(jù)庫中新建表systen(.dbf),五個字段:fzr、bgy、jhy、cly、mima,其標題分別為:負責人、保管員、計劃員、材料員、密碼。培養(yǎng)學生“物流信息系統(tǒng)”課程所學知識的綜合應用,分析和解決企業(yè)物流信息系統(tǒng)實際問題的能力。說明:c字符型;d日期型;n數(shù)值型,括號內(nèi)為字節(jié)長度,逗號后面的數(shù)值為幾位小數(shù)。amp。amp。amp。 amp。 為齊。amp。 amp。指明路徑open database kfglamp。 命令:do form csyx——身體狀態(tài)測試 命令:do form xlgy退出(\X)amp。 eventBR 命令Clea(四)建立工具欄點擊“文件”——“新建”按鈕,選擇“類”,出現(xiàn)新建類對話框。(4)Label3的caption為“軟件作者:武漢輕工大學 鄭萬芳”,透明,白色。如果表單的頂邊距主窗口的距離小于140=+10 = +16其init過程:public nn=0其click過程:n=n+1IF allt()=allt()kuf39。0=頂部、1=右、2=左、3=底部顯示工具欄amp。endifENDIF(8)命令按鈕cancel,退出。(8)、text5的“inputmask”為:“XXXXXX”,“passwordchar”為:“*”。 BLANKrepl yt with text6repl with bgy clyusetext20=text13=text4=text8=text10=text11=text1=year(date())text2=month(date())text3=day(date())endif(5)、命令按鈕mand2(退出)的click過程:use(6)、表單form1的init過程: 最初我設計的出庫單象入庫單一樣,一次只能開一種材料,由于在車間使用就改成現(xiàn)在這樣。(4)、表單的init過程:public bz1,bh1,llr1*建立臨時表lscreat cursor ls ( ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),dw c(4), 。.=39。39。)REPORT FORM )messagebox(39。.=開票數(shù)量不能大于庫存數(shù)量39。 retuendif請?zhí)顚憯?shù)量39。)=6 amp。 =.f. =.f. =.f.=.f.(4)、建立形狀ShapeShape2,選擇背景顏色。Caption=‘修改’;:do form xgmain。 () CASE =3 report form to printerif ctod()ctod() (16)、:=日期=器材名稱=規(guī)格型號=類別=單價=入庫編號=入庫數(shù)量=入庫金額=出庫編號=出庫數(shù)量=出庫金額=班組=領料人=負責人=保管員=計劃員=料號=單位 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 AND =ctod(rq1) AND =ctod(rq2) whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 ()(20):=sel=SELE ,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,fzr,bgy,jhy,lh,dw FROM main INTO CURSOR TEMP if empt() or empt()DO CASE whe= where allt()=39。 and 0 whe= where allt()=39。 and 0 and 0 and 0 and 0 and 0 endcase =4elseDO CASE 管件39。 CASE =5雜品39。消耗品39。油料39。勞保39。閥門39。 0+bzu CASE =4 whe= where allt()=39。 CASE =1 whe= where allt()=39。配件39。 AND =ctod(rq1) AND =ctod(rq2) and 0+bzu CASE =8 0+bzu AND =ctod(rq1) AND =ctod(rq2) and勞保39。 whe= where allt()=39。 CASE =3(11) 修改總數(shù)據(jù)庫表單xgmain(1) 、表單的caption=‘修改總數(shù)據(jù)庫’;icon=‘d:\demo\pic\’;windowtype=‘1模式’。(十二)個人工具卡表單grgj(1)、建立文本框text1(2)、建立命令按鈕mand1。提示信息39。(3) 、字段全部填加。(圖113)(4)、:LPARAMETERS nColIndex(39。 amp。 按“連編”按鈕,(圖129),若沒有錯誤連編完成后自動運行。vfp課程設計是我們專業(yè)課程知識綜合應用的實踐訓練,著是我們邁向社會,從事職業(yè)工作前一個必不少的過程.”千里之行始于足下”,通過這次課程設計,我深深體會到這句千古 名言的真正含義.我今天認真的進行課程設計,學 會腳踏實地邁開這一步,就是為明天能穩(wěn)健地在社會大潮中奔跑打下堅實的基礎. 通過這次課程設計,本人在多方面都有所提高。 2. 語言方面:對語言大概有個了解,當遇到一個問題時首先要想的是解決方法,使用的語言能不能處理,然后再查看相關的幫助文件或者語言手冊,根據(jù)提示的語法規(guī)范編寫命令。如控件的高度(height)、寬度(width)、背景顏色(backcolor)、字體(font)、字號(fontsize)、點擊事件(Click)、清除事件(Destory)等等共同擁有的屬性、方法和事件,這需要對Windows平臺的感官效果和操作方法上去理解。兩個部分中間用“.”連接起來,需要注意的是標明控件的唯一名字,同時更要注意控件