【正文】 =0=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption為“歡迎使用庫(kù)房管理軟件”，透明，楷體，12號(hào)，黃色。（3）Label2的caption為“輸入密碼”，透明，黑體，12號(hào)，綠色。（4）Label3的caption為“軟件作者：武漢輕工大學(xué) 鄭萬芳”，透明，白色。（5）文本框的Name為txtpassword，passworchar為‘*’。（6）計(jì)時(shí)器timer1，interval=200。其timer過程：if 140 amp。amp。如果表單的頂邊距主窗口的距離小于140=+10 amp。amp。距離增大10,即表單向下移動(dòng)10=+20 amp。amp。表單的左邊距增大20,即向右移動(dòng)20endif amp。amp。結(jié)束判斷If 160 amp。amp。判斷l(xiāng)abel1的寬度是否大于160 =0 amp。amp。label1的寬度設(shè)為0Else = +16 amp。amp。寬度增加16EndIf*以下作用是讓label3向左移動(dòng)If 272 = = 5Else = 5EndIf amp。amp。刷新表單（7） 命令按鈕ok，確定。其init過程:public nn=0其click過程：n=n+1IF allt()=allt() amp。amp。hide set classlib to (39。kuf39。) tbs=creat(39。kuf39。) amp。amp。用tbs代替自定義工具欄kuf (0) amp。amp。0=頂部、1=右、2=左、3=底部 amp。amp。顯示工具欄 DO amp。amp。執(zhí)行主菜單程序 ELSEif n=3 =messagebox(你不是合法用戶！你不能使用！！,64,提示窗口) Clea event else =messagebox(口令不正確！請(qǐng)重新輸入！,64,提示窗口)=39。39。()endifENDIF（8）命令按鈕cancel，退出。其click過程：Clea event出現(xiàn)的問題：點(diǎn)擊確定按鈕，出現(xiàn)一個(gè)程序錯(cuò)誤的提升，顯示文件不存在以及找不到變量解決方案：因?yàn)閷?duì)vfp軟件操作不夠精通，暫時(shí)沒有想到解決方案。望老師見諒。（六）表單 基本信息表system（1）表單的“caption”為“基本信息”，“windowtype”為1模式（2） 建立標(biāo)簽“l(fā)abel1~label5”、文本框“text1~text5”和命令按鈕“mand1”。（3）右擊表單選擇“數(shù)據(jù)環(huán)境”（圖61）。（4）。（圖62）（5） 、text1~text5的“controlsource”、（6）、label1~label5的caption為：負(fù)責(zé)人、計(jì)劃員、材料員、保管員、密碼。（7） 、：。（8）、text5的“inputmask”為：“XXXXXX”，“passwordchar”為：“*”。出現(xiàn)的問題：Text14無法輸入數(shù)據(jù)，基本信息表不能正常使用。解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)該出現(xiàn)的問題無法解決，望老師見諒。（七）表單rkd（入庫(kù)單）（1）、我們用一些標(biāo)簽和線條建立（如圖63）表單rkd，你可以根據(jù)自己?jiǎn)挝坏那闆r設(shè)計(jì)。其“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...）。（3）、組合框bo2，“bordercolor”為：0無(沒有“0無”這個(gè)選項(xiàng)，同上)，“controlsource”為cbo1，“rowsource”為：“鋼材,管件,配件,工器具,量具,雜品,消耗品,油料,勞保,閥門”，“rowsourcetype”為：1值。（4）、命令按鈕mand1（確定）的click過程為：tis=messagebox(保存入庫(kù)單？,4+64,提示窗口)if tis=6if !used(main)use mainelsesele mainendifAPPEND BLANKrepl lb with cbo1repl rq with date()repl pzbh with text4repl gcmc with text5repl yt with text6repl lh with text13repl qcmc with text19repl ggxh with text20repl dw with text7repl rksl with text8repl dj with text10repl rkje with text11repl jhy with text23repl bgy with bgyrepl fzr with fzrrepl llr with clyusetext20=text13=text4=text8=text10=text11=text1=year(date())text2=month(date())text3=day(date())endif（5）、命令按鈕mand2（退出）的click過程：use（6）、表單form1的init過程： public text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,。 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= （7）、表單form1的destroy過程：release text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,。 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)的問題無法解決，望老師見諒。（八）出庫(kù)單ckd 最初我設(shè)計(jì)的出庫(kù)單象入庫(kù)單一樣，一次只能開一種材料，由于在車間使用就改成現(xiàn)在這樣。圖71（1）、文本框text1的“dateformat”為：‘14漢語’；“tapstop”（如下圖：）為：‘.’；“value”為：‘=date()’。其他略。（2）、建立表格Grid1。右擊Grid1選擇生成器選擇main表，選定如下字段：qcmc、ggxh、dw、dj、cksl、ckje、lb，按確定按鈕。（圖72）（3） 、修改表格Grid1?！癲eletemark”為：‘.’；“recordmark”為：‘.’；“recordsource”為：（無）（去掉‘main’）；“scrollbars”為：‘2垂直’。Combo1的“rowsource”為：‘一班,二班,三班,四班,五班,六班,辦公室’；“rowsourcetype”為：‘1值’。（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 .recordsource=39。ls39。.=39。39。.=39。39。.=39。39。.=39。39。.=39。39。.=39。39。.=39。39。endwith（5）、打印按鈕的cilck過程：bz1=bh1=allt()llr1=allt()sele lsmessagebox(39。請(qǐng)用B5紙！39。,16,39。提示信息39。)REPORT FORM TO PRINTER （6）、保存按鈕的cilck過程：bz1=bh1=allt()rq1=date()llr1=allt()gcmc1=allt()yt1=allt()*檢查輸入是否有效sele lscount for !deleted() to zsif zs=0messagebox(39。至少要有一條記錄才能保存！39。,16,39。提示信息39。)returnendifif empty(bz1)messagebox(39。請(qǐng)?zhí)顚懓嘟M39。,16,39。提示信息39。)returnendiflocat for =0if found()messagebox(39。請(qǐng)?zhí)顚憯?shù)量39。,16,39。提示信息39。)returnendif*加入到正式表中g(shù)o topdo while !eof()insert into main (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,gcmc,yt,llr,jhy,lb,bz) 。 value (bh1,rq1,,gcmc1,llr1,jhy1,bz1) if allt()=工器具 insert into grgjk (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,llr,jhy) 。