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