【正文】 =0=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption為“歡迎使用庫房管理軟件”，透明，楷體，12號，黃色。（3）Label2的caption為“輸入密碼”，透明，黑體，12號，綠色。（4）Label3的caption為“軟件作者：武漢輕工大學(xué) 鄭萬芳”，透明，白色。（5）文本框的Name為txtpassword，passworchar為‘*’。（6）計時器timer1，interval=200。其timer過程：if 140 amp。amp。如果表單的頂邊距主窗口的距離小于140=+10 amp。amp。距離增大10,即表單向下移動10=+20 amp。amp。表單的左邊距增大20,即向右移動20endif amp。amp。結(jié)束判斷If 160 amp。amp。判斷l(xiāng)abel1的寬度是否大于160 =0 amp。amp。label1的寬度設(shè)為0Else = +16 amp。amp。寬度增加16EndIf*以下作用是讓label3向左移動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(口令不正確！請重新輸入！,64,提示窗口)=39。39。()endifENDIF（8）命令按鈕cancel，退出。其click過程：Clea event出現(xiàn)的問題：點擊確定按鈕，出現(xiàn)一個程序錯誤的提升，顯示文件不存在以及找不到變量解決方案：因為對vfp軟件操作不夠精通，暫時沒有想到解決方案。望老師見諒。（六）表單 基本信息表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é)人、計劃員、材料員、保管員、密碼。（7） 、：。（8）、text5的“inputmask”為：“XXXXXX”，“passwordchar”為：“*”。出現(xiàn)的問題：Text14無法輸入數(shù)據(jù)，基本信息表不能正常使用。解決方案：因為對vfp軟件的使用不夠精通，所以對該出現(xiàn)的問題無法解決，望老師見諒。（七）表單rkd（入庫單）（1）、我們用一些標(biāo)簽和線條建立（如圖63）表單rkd，你可以根據(jù)自己單位的情況設(shè)計。其“titlebar”為：0關(guān)閉（2）、建立17個文本框（由于我在設(shè)計時進(jìn)行過修改，刪掉了一些文本框，所以現(xiàn)在不連續(xù)），其“backstyle”為：0透明、“bordercolor”為：0無(沒有“0無”這個選項，只有顏色的選擇，如下圖：)其“controlsource”分別為：text9為bgy1，text12為fzr1，text17為cly1，其它的均與其name相同（例：text1為text1...）。（3）、組合框bo2，“bordercolor”為：0無(沒有“0無”這個選項，同上)，“controlsource”為cbo1，“rowsource”為：“鋼材,管件,配件,工器具,量具,雜品,消耗品,油料,勞保,閥門”，“rowsourcetype”為：1值。（4）、命令按鈕mand1（確定）的click過程為：tis=messagebox(保存入庫單？,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. 點擊組合框1的下拉箭頭，無法選擇2. 點擊確定命令后，彈出‘是否保存入庫單’，選擇“是”，出現(xiàn)以下程序錯誤，顯示文件不存在解決方案：因為對vfp軟件的使用不夠精通，所以對出現(xiàn)的問題無法解決，望老師見諒。（八）出庫單ckd 最初我設(shè)計的出庫單象入庫單一樣，一次只能開一種材料，由于在車間使用就改成現(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*建立臨時表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。請用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。請?zhí)顚懓嘟M39。,16,39。提示信息39。)returnendiflocat for =0if found()messagebox(39。請?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) 。