【正文】 器具39。 CASE =5配件39。 CASE =4管件39。 CASE =3鋼材39。 CASE =2 CASE =1 庫(kù)存金額：+str(kchj) 出庫(kù)金額：+str(ckhj)+閥門39。 CASE =11勞保39。 CASE =10油料39。 CASE =9消耗品39。 CASE =8雜品39。 CASE =7量具39。 CASE =6工器具39。 CASE =5配件39。 CASE =4管件39。 CASE =3鋼材39。 CASE =2 CASE =1閥門39。 CASE =11勞保39。 CASE =10油料39。 CASE =9消耗品39。 CASE =8雜品39。 CASE =7量具39。 CASE =6工器具39。 CASE =5配件39。 CASE =4管件39。 CASE =3鋼材39。 CASE =2 CASE =1（17）、：=日期=器材名稱=規(guī)格型號(hào)=類別=單價(jià)=入庫(kù)編號(hào)=入庫(kù)數(shù)量=入庫(kù)金額=負(fù)責(zé)人=保管員=計(jì)劃員=料號(hào)=單位（18）、：=日期=器材名稱=規(guī)格型號(hào)=類別=單價(jià)=出庫(kù)編號(hào)=出庫(kù)數(shù)量=出庫(kù)金額=班組=領(lǐng)料人=負(fù)責(zé)人=保管員=計(jì)劃員=單位（19）、： =4 =SELE ,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh ,dw FROM main INTO CURSOR TEMP （15）、：public rkhj,ckhj,kchj,BZ1,RQ1,RQ2BZ1=RQ1=RQ2=*初始化臨時(shí)表retuwait window at 16,28 后面的日期要大于前面的日期！請(qǐng)修改。Caption=‘顯示’；：()（13）、：Caption=‘退出’；：（11）、建立Command4。amp。打印報(bào)表dark amp。打印報(bào)表dymain amp。 report form to printer () CASE =1提示信息39。請(qǐng)用A4紙！39。（9）、建立Command2。（8）、建立Command1。（7）、建立組合框Combo3。（6）、建立組合框Combo2。（5）、建立組合框Combo1。DeleteMark=‘.’；RecordSourceType=‘0表’。ButtonCount=3...（2）、建立選擇按鈕組Optiongroup2。where allt(qcmc)==allt() .and. allt(ggxh)==allt() sele tempsum rksl to sl1sum cksl to sl2sum rkje to je1sum ckje to je2cksl1=sl1sl2=sl1sl2=je1je2 sele main出現(xiàn)的問(wèn)題：1. 點(diǎn)擊“運(yùn)行”，立馬出現(xiàn)程序錯(cuò)誤解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)以上問(wèn)題無(wú)法解決，望老師見諒。 （13）：=sele ,qcmc,ggxh,pzbh,rksl,rkje,ckbh,cksl,ckje,lb from main into curs temp。 go bottom go 1endif =.f. else （9）：=.t.=.t.if !eof()endif =.f. else（8）：=.t. =.t.if !RECN()=1endifendif go re()locate for allt()$allt(ggxh)go re()amp。amp。在運(yùn)行此表單時(shí)隱藏快捷圖標(biāo)public cksl1 amp。（5）:（3）建立命令按鈕mand1~5（圖82） （4） 建立表格Grid1，右擊選擇“生成器”，選擇表main的如下字段：rq,qcmc,ggxh,rkbh（前面設(shè)置的表main里沒有rkbh字段）,rksl,rkje,ckbh,cksl,ckje,lb。（9） （1）建立標(biāo)簽（按其caption內(nèi)容）：“在上面的文本框中輸入”，“器材名稱或規(guī)格型號(hào)”，“庫(kù)存數(shù)量：”，“庫(kù)存金額：”，“器 材 明 細(xì) 表”，“庫(kù)”，“區(qū)”，“架”，“號(hào)”，“器材名稱：”，“規(guī)格型號(hào)：”，“單位：”，“單價(jià)：”。deleendif（4）、生成為tjia。提示信息39。是否真的刪除該行？39。),16,39。messagebox(39。調(diào)用tjia菜單 amp。 =*（9）、Grid1的rightcilck過(guò)程：sele lsdo =0)+ss,16,39。 messagebox(39。 ss=allt(str(cksl1)) .=0 .=0.=skipenddozap（6）、退出按鈕的cilck過(guò)程：tt=0（7）、Grid1下的Column1下的Text1的DblClick過(guò)程：do form qcmx sele ls=with endif insert into grgjk if allt()=工器具returnendif*加入到正式表中g(shù)o topdo while !eof()提示信息39。請(qǐng)?zhí)顚憯?shù)量39。returnendiflocat for =0if found()提示信息39。請(qǐng)?zhí)顚懓嘟M39。returnendifif empty(bz1)提示信息39。至少要有一條記錄才能保存！39。（6）、保存按鈕的cilck過(guò)程：bz1=bh1=allt()rq1=date()llr1=allt()gcmc1=allt()yt1=allt()*檢查輸入是否有效sele lscount for !deleted() to zsif zs=0 TO PRINTER 提示信息39。請(qǐng)用B5紙！39。39。.=39。39。.=39。39。.=39。39。.recordsource=39。Combo1的“rowsource”為：‘一班,二班,三班,四班,五班,六班,辦公室’；“rowsourcetype”為：‘1值’。（圖72）（3） 、修改表格Grid1。（2）、建立表格Grid1。圖71（1）、文本框text1的“dateformat”為：‘14漢語(yǔ)’；“tapstop”（如下圖：）為：‘.’；“value”為：‘=date()’。（八）出庫(kù)單ckd （7）、表單form1的destroy過(guò)程：release text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,。 public text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,。 with fzrrepl fzr with text23repl jhy with text10repl dj dw with text7repl ggxh lh with text13repl with text5repl with text4repl rq with date()repl lb mainelsesele mainendifAPPEND（3）、組合框bo2，“bordercolor”為：0無(wú)(沒有“0無(wú)”這個(gè)選項(xiàng)，同上)，“controlsource”為cbo1，“rowsource”為：“鋼材,管件,配件,工器具,量具,雜品,消耗品,油料,勞保,閥門”，“rowsourcetype”為：1值。（七）表單rkd（入庫(kù)單）（1）、我們用一些標(biāo)簽和線條建立（如圖63）表單rkd，你可以根據(jù)自己?jiǎn)挝坏那闆r設(shè)計(jì)。出現(xiàn)的問(wèn)題：Text14無(wú)法輸入數(shù)據(jù)，基本信息表不能正常使用。（7） 、：。（4）。（六）表單 基本信息表system（1）表單的“caption”為“基本信息”，“windowtype”為1模式（2） 建立標(biāo)簽“l(fā)abel1~label5”、文本框“text1~text5”和命令按鈕“mand1”。其click過(guò)程：Clea event出現(xiàn)的問(wèn)題：點(diǎn)擊確定按鈕，出現(xiàn)一個(gè)程序錯(cuò)誤的提升，顯示文件不存在以及找不到變量解決方案：因?yàn)閷?duì)vfp軟件操作不夠精通，暫時(shí)沒有想到解決方案。()=39。 =messagebox(口令不正確！請(qǐng)重新輸入！,64,提示窗口) Clea event ELSE執(zhí)行主菜單程序 amp。DO amp。amp。 (0)用tbs代替自定義工具欄kuf amp。) tbs=creat(39。) set classlib to (39。amp。刷新表單（7） 命令按鈕ok，確定。 amp。 = 5Else寬度增加16EndIf*以下作用是讓label3向左移動(dòng)If 272 amp。label1的寬度設(shè)為0Else amp。 =0amp。結(jié)束判斷If 160 amp。表單的左邊距增大20,即向右移動(dòng)20endif amp。amp。amp。其timer過(guò)程：if 140（5）文本框的Name為txtpassword，passworchar為‘*’。（3）Label2的caption為“輸入密碼”，透明，黑體，12號(hào)，綠色。（五）建立logo表單（1）新建表單logo，titlebar為0關(guān)閉，height=115，width=222。給按鈕加上圖片、文字（例如：‘猜’字）。類名輸入‘鄭萬(wàn)芳kuf’，派生于選擇‘toolbar’，存儲(chǔ)于：“e:\1508090003鄭萬(wàn)芳\”，按‘確定’按鈕，出現(xiàn)類設(shè)計(jì)器。NBSP。NBSP。NBSP。NBSP。 命令：do form grgjk——\——基本設(shè)置 命令：do form llxg——瀏覽個(gè)人工具卡 命令：do form ckd——\——退出退出（三）主菜單操作(\BR——器材入庫(kù)占用進(jìn)程，啟動(dòng)事件處理quit amp。運(yùn)行表單logoread events amp。 amp