【正文】 y1,fzr1=0=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption為“歡迎使用庫(kù)房管理軟件”，透明，楷體，12號(hào)，黃色。（4）Label3的caption為“軟件作者：武漢輕工大學(xué) 鄭萬(wàn)芳”，透明，白色。（6）計(jì)時(shí)器timer1，interval=200。 amp。如果表單的頂邊距主窗口的距離小于140=+10 amp。距離增大10,即表單向下移動(dòng)10=+20amp。amp。 amp。判斷l(xiāng)abel1的寬度是否大于160amp。 = +16amp。 = = 5EndIfamp。其init過程:public nn=0其click過程：n=n+1IF allt()=allt() amp。hidekuf39。kuf39。amp。 amp。0=頂部、1=右、2=左、3=底部 amp。顯示工具欄 amp。 if n=3 =messagebox(你不是合法用戶！你不能使用??！,64,提示窗口) else39。endifENDIF（8）命令按鈕cancel，退出。望老師見諒。（3）右擊表單選擇“數(shù)據(jù)環(huán)境”（圖61）。（圖62）（5） 、text1~text5的“controlsource”、（6）、label1~label5的caption為：負(fù)責(zé)人、計(jì)劃員、材料員、保管員、密碼。（8）、text5的“inputmask”為：“XXXXXX”，“passwordchar”為：“*”。解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)該出現(xiàn)的問題無法解決，望老師見諒。其“titlebar”為：0關(guān)閉（2）、建立17個(gè)文本框（由于我在設(shè)計(jì)時(shí)進(jìn)行過修改，刪掉了一些文本框，所以現(xiàn)在不連續(xù)），其“backstyle”為：0透明、“bordercolor”為：0無(沒有“0無”這個(gè)選項(xiàng)，只有顏色的選擇，如下圖：)其“controlsource”分別為：text9為bgy1，text12為fzr1，text17為cly1，其它的均與其name相同（例：text1為text1...）。（4）、命令按鈕mand1（確定）的click過程為：tis=messagebox(保存入庫(kù)單？,4+64,提示窗口)if tis=6if !used(main)use BLANKrepl with cbo1repl pzbh gcmc yt with text6repl qcmc with text19repl with text20repl rksl with text8repl with rkje text11repl with bgy bgyrepl with llr clyusetext20=text13=text4=text8=text10=text11=text1=year(date())text2=month(date())text3=day(date())endif（5）、命令按鈕mand2（退出）的click過程：use（6）、表單form1的init過程： text19,text20,text23,cbo1,text9,text13text5=text6=text7=text13=text17=text19=text20=text23=text12=text9=text4=text8=text10=text11=text1=year(date())text2=month(date())text3=day(date())cbo1= text19,text20,text23,cbo1,text9,text13出現(xiàn)的問題：1. 點(diǎn)擊組合框1的下拉箭頭，無法選擇2. 點(diǎn)擊確定命令后，彈出‘是否保存入庫(kù)單’，選擇“是”，出現(xiàn)以下程序錯(cuò)誤，顯示文件不存在解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)出現(xiàn)的問題無法解決，望老師見諒。 最初我設(shè)計(jì)的出庫(kù)單象入庫(kù)單一樣，一次只能開一種材料，由于在車間使用就改成現(xiàn)在這樣。其他略。右擊Grid1選擇生成器選擇main表，選定如下字段：qcmc、ggxh、dw、dj、cksl、ckje、lb，按確定按鈕?！癲eletemark”為：‘.’；“recordmark”為：‘.’；“recordsource”為：（無）（去掉‘main’）；“scrollbars”為：‘2垂直’。（4）、表單的init過程：public bz1,bh1,llr1*建立臨時(shí)表lscreat cursor ls ( ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),dw c(4), 。 dj n(8,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),。 yt c(20),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lb c(6))with ls39。.=39。39。.=39。39。.=39。39。.=39。endwith（5）、打印按鈕的cilck過程：bz1=bh1=allt()llr1=allt()sele lsmessagebox(39。,16,39。)REPORT FORM messagebox(39。,16,39。)messagebox(39。,16,39。)messagebox(39。,16,39。)insert into main (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,gcmc,yt,llr,jhy,lb,bz) 。 value (bh1,rq1,gcmc1,llr1,jhy1,bz1) (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,llr,jhy) 。 value (bh1,rq1,llr1,jhy1) .=.=.=endwith（8）、Grid1下的Column5下的Text1的LostFocus過程：if cksl1開票數(shù)量不能大于庫(kù)存數(shù)量39。提示信息39。 retuendifamp。 附加：建立tjia菜單（1）、新建快捷菜單（2）、“填加一條”的‘過程’內(nèi)容為：locat for =0if found()請(qǐng)?zhí)顚憯?shù)量39。提示信息39。returnendifappend blank（3）、“刪除選定一條”的‘過程’內(nèi)容為：if messagebox( 39。,36,39。)=6出現(xiàn)的問題：1. 點(diǎn)擊保存命令，出現(xiàn)以下程序錯(cuò)誤，顯示文件不存在2. 點(diǎn)擊退出命令，出現(xiàn)以下程序錯(cuò)誤解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)以上出現(xiàn)的錯(cuò)誤無法給出解決方案，望老師見諒。（2）建立文本框：ku,qu,jia,hao,qcmc,ggxh,dw,dj（以上文本框的controlsource分別為：“main.+其名”），text7，text8，text10。其它屬性在這里就不一一介紹了。amp。 amp。定義全局變量（6）： amp。在關(guān)閉此表單時(shí)顯示快捷圖標(biāo)（7）：locate for allt(qcmc)=allt()if found()elseif found() skip 1 go 1 =.f. skip 1 go bottom =.f. （10）：（11）：=.t.=.t. =.f.=.f. （12）：=.t.=.t. =.f.=.f.（10） （1）、建立選擇按鈕組Optiongroup1。ButtonCount=11...（3）、建立表格Grid1。（4）、建立形狀ShapeShape2，選擇背景顏色。ControlSounrce=‘rq1’；RowSounrce=‘select rq distinct from main into cursor bo1’；RowSounrceType=‘3SQL語(yǔ)句’。ControlSounrce=‘rq2’；RowSounrce=‘select rq distinct from main into cursor bo2’；RowSounrceType=‘3SQL語(yǔ)句’。ControlSounrce=‘bz1’；RowSounrce=‘一班,二班,三班,四班,五班,六班,辦公室’；RowSounrceType=‘1值’。Caption=‘修改’；：do form xgmain。Caption=‘打印’；：messagebox(39。,16,39。)DO CASE amp。 CASE =2 () report form to printeramp。 CASE =3 () report form to printer amp。打印報(bào)表dyckendcase （10）、建立Command3。Caption=‘清除選擇’；：===()（12）、建立Command5。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)=單位=sel=SELE ,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh,dw FROM main INTO CURSOR TEMP if empt() or empt()DO CASE whe= 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。 whe= where allt()=39。 whe= where al