【正文】
olor”為:0無(wú)(沒(méi)有“0無(wú)”這個(gè)選項(xiàng),只有顏色的選擇,如下圖:)其“controlsource”分別為:text9為bgy1,text12為fzr1,text17為cly1,其它的均與其name相同(例:text1為text1...)。 BLANKrepl pzbh yt with text6repl with text20repl with text11repl bgy with 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ò)程: text19,text20,text23,cbo1,text9,text13出現(xiàn)的問(wèn)題:1. 點(diǎn)擊組合框1的下拉箭頭,無(wú)法選擇2. 點(diǎn)擊確定命令后,彈出‘是否保存入庫(kù)單’,選擇“是”,出現(xiàn)以下程序錯(cuò)誤,顯示文件不存在解決方案:因?yàn)閷?duì)vfp軟件的使用不夠精通,所以對(duì)出現(xiàn)的問(wèn)題無(wú)法解決,望老師見(jiàn)諒。 最初我設(shè)計(jì)的出庫(kù)單象入庫(kù)單一樣,一次只能開(kāi)一種材料,由于在車(chē)間使用就改成現(xiàn)在這樣。右擊Grid1選擇生成器選擇main表,選定如下字段:qcmc、ggxh、dw、dj、cksl、ckje、lb,按確定按鈕。(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), 。 yt c(20),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lb c(6))with .=39。39。.=39。39。endwith(5)、打印按鈕的cilck過(guò)程:bz1=bh1=allt()llr1=allt()sele lsmessagebox(39。)REPORT FORM messagebox(39。),16,39。messagebox(39。) .=.=endwith(8)、Grid1下的Column5下的Text1的LostFocus過(guò)程:if cksl1開(kāi)票數(shù)量不能大于庫(kù)存數(shù)量39。 retuendif請(qǐng)?zhí)顚?xiě)數(shù)量39。returnendifappend blank(3)、“刪除選定一條”的‘過(guò)程’內(nèi)容為:if messagebox( 39。)=6(2)建立文本框:ku,qu,jia,hao,qcmc,ggxh,dw,dj(以上文本框的controlsource分別為:“main.+其名”),text7,text8,text10。 amp。 amp。else skip 1 =.f. skip 1 =.f. =.f.=.f. =.f.=.f.(10) (1)、建立選擇按鈕組Optiongroup1。(4)、建立形狀ShapeShape2,選擇背景顏色。ControlSounrce=‘rq2’;RowSounrce=‘select rq distinct from main into cursor bo2’;RowSounrceType=‘3SQL語(yǔ)句’。Caption=‘修改’;:do form xgmain。,16,39。 CASE =2 () report form to printer CASE =3 () report form to printer打印報(bào)表dyckendcase (10)、建立Command3。if ctod()ctod()endif(14)、選擇菜單欄的“表單”下的“新建方法程序”,填加如下方法程序:myfieldmyfieldmyfield3。 (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。 AND =ctod(rq1) AND =ctod(rq2) 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 0 whe= where allt()=39。 and 0 whe= where allt()=39。 and 0 whe= where allt()=39。 and 0 and 0 and 0 and 0 and 0 endcase =sel+whe =4elseDO CASE whe=where =ctod(rq1) AND =ctod(rq2) CASE =3管件39。 CASE =5工器具39。 CASE =7雜品39。消耗品39。油料39。勞保39。閥門(mén)39。 0+bzu whe= where allt()=39。 CASE =4配件39。 and 0+bzu whe= where allt()=39。 CASE =8 0+bzu and勞保39。 whe= where allt()=39。 CASE =1 and 0+bzu whe= where allt()=39。 CASE =4配件39。 AND =ctod(rq1) AND =ctod(rq2) and 0+bzu whe= where allt()=39。 CASE =8 0+bzu AND =ctod(rq1) AND =ctod(rq2) and勞保39。 whe= where allt()=39。 CASE =3 ()endcase 出現(xiàn)的問(wèn)題:1. 點(diǎn)擊修改命令,出現(xiàn)程序錯(cuò)誤,顯示文件不存在。(11) 修改總數(shù)據(jù)庫(kù)表單xgmain(1) 、表單的caption=‘修改總數(shù)據(jù)庫(kù)’;icon=‘d:\demo\pic\’;windowtype=‘1模式’。沒(méi)有找到你要查詢的信息!39。(十二)個(gè)人工具卡表單grgj(1)、建立文本框text1(2)、建立命令按鈕mand1。刷新本地視圖‘ll_gjk’(3)、建立命令按鈕mand2。提示信息39。右擊選擇生成器,選擇視圖ll_gjk(前面沒(méi)有建立此視圖,建議將此節(jié)內(nèi)容移至十三節(jié)后面)的所有字段,deletemark=‘.’;readonly=‘.’;recordmark=‘.’;scrollbars=‘2垂直’。(3) 、字段全部填加。(十四)創(chuàng)建修改個(gè)人工具卡表單grgjk(1)、在項(xiàng)目管理器中選擇表單按“新建”按鈕,按“表單向?qū)А卑粹o,選擇“表單向?qū)А卑础按_定”按鈕,選擇表grgjk,字段全部填加。(圖113)(4)、:LPARAMETERS nColIndex(39。,39。 amp。(例::)。(1)、選中報(bào)表,按“新建”按鈕(圖121);(2)、按“報(bào)表向?qū)А卑粹o(圖122);(3)、選中“報(bào)表向?qū)А?,按“確定”按鈕(圖123);(4)、選擇main表的qcmc、ggxh、dw、dj、ckbh、cksl、ckje、bz、llr字段。(先要新建一個(gè)“項(xiàng)目”才出現(xiàn)項(xiàng)目管理器)右擊“項(xiàng)目管理器”選擇“項(xiàng)目信息”,選擇“附加圖標(biāo)”,選擇你要填加的圖標(biāo),圖標(biāo)要放在程序目錄下。 按“連編”按鈕,(圖129),若沒(méi)有錯(cuò)誤連編完成后自動(dòng)運(yùn)行。下一步, (6)、在安裝對(duì)話框標(biāo)題和版權(quán)信息中輸入適當(dāng)內(nèi)容,執(zhí)行程序中不要輸入內(nèi)容,它不是指軟件所要執(zhí)行的程序。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ì),本人在多方面都有所提高。 由于本人的設(shè)計(jì)能力有限,在設(shè)計(jì)過(guò)程中難免出現(xiàn)錯(cuò)誤,懇請(qǐng)老師們多多指教,我十分樂(lè) 意接受你們的批評(píng)與指正,本人將萬(wàn)分感謝。 2. 語(yǔ)言方面:對(duì)語(yǔ)言大概有個(gè)了解,當(dāng)遇到一個(gè)問(wèn)題時(shí)首先要想的是解決方法,使用的語(yǔ)言能不能處理,然后再查看相關(guān)的幫助文件或者語(yǔ)言手冊(cè),根據(jù)提示的語(yǔ)法規(guī)范編寫(xiě)命令。 :包括面向?qū)ο蟮木幊谭椒?,面?duì)大量的屬性、方法和事件的處理。如控件的高度(height)、寬度(width)、背景顏色(backcolor)、字體(font)、字號(hào)(fontsize)、點(diǎn)擊事件(Click)、清除事件(Destory)等等共同擁有的屬性、方法和事件,這需要對(duì)Windows平臺(tái)的感官效果和操作方法上去理解。控件與表字段的結(jié)合是通過(guò)控件的controlsource屬性設(shè)置的,一般使用Text控件與字段聯(lián)系。兩個(gè)部分中間用“.”連接起來(lái),需要注意的是標(biāo)明控件的唯一名字,同時(shí)更要注意控件父子關(guān)系。老師認(rèn)真負(fù)責(zé)的工作態(tài)度,嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我們