【正文】 if empt()bzu= elsebzu= and =allt()endifsel=SELE ,qcmc,ggxh,lb,dj,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,dw FROM main INTO CURSOR TEMP if empt() or empt()DO CASE =4endifsele tempsum rkje to rkhj=入庫(kù)金額：+str(rkhj) =sel+whe AND =ctod(rq1) AND =ctod(rq2) and 0 endcase AND =ctod(rq1) AND =ctod(rq2) and 0 AND =ctod(rq1) AND =ctod(rq2) and 0 AND =ctod(rq1) AND =ctod(rq2) and 0 AND =ctod(rq1) AND =ctod(rq2) and 0 whe= where allt()=39。 AND =ctod(rq1) AND =ctod(rq2) and 0 whe= where allt()=39。 AND =ctod(rq1) AND =ctod(rq2) and 0 whe= where allt()=39。 and 0 CASE =1 CASE =11 CASE =10 CASE =9 CASE =8量具39。 CASE =6配件39。 CASE =4鋼材39。 CASE =2 CASE =1 出庫(kù)金額：+str(ckhj)+閥門(mén)39。勞保39。油料39。消耗品39。雜品39。 CASE =7工器具39。 CASE =5管件39。 CASE =3閥門(mén)39。勞保39。油料39。消耗品39。雜品39。 CASE =7工器具39。 CASE =5管件39。 CASE =3（17）、：=日期=器材名稱(chēng)=規(guī)格型號(hào)=類(lèi)別=單價(jià)=入庫(kù)編號(hào)=入庫(kù)數(shù)量=入庫(kù)金額=負(fù)責(zé)人=保管員=計(jì)劃員=料號(hào)=單位（18）、：=日期=器材名稱(chēng)=規(guī)格型號(hào)=類(lèi)別=單價(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í)表wait window at 16,28 后面的日期要大于前面的日期！請(qǐng)修改。Caption=‘退出’；：（11）、建立Command4。 amp。 amp。提示信息39。（9）、建立Command2。（7）、建立組合框Combo3。（5）、建立組合框Combo1。ButtonCount=3...（2）、建立選擇按鈕組Optiongroup2。 （13）：=sele ,qcmc,ggxh,pzbh,rksl,rkje,ckbh,cksl,ckje,lb from main into curs temp。endif elseendif elseendifendif locate for allt()$allt(ggxh)amp。amp。 amp。（3）建立命令按鈕mand1~5（圖82） （4） 建立表格Grid1，右擊選擇“生成器”，選擇表main的如下字段：rq,qcmc,ggxh,rkbh（前面設(shè)置的表main里沒(méi)有rkbh字段）,rksl,rkje,ckbh,cksl,ckje,lb。deleendif（4）、生成為tjia。是否真的刪除該行？39。,16,39。 amp。 =*（9）、Grid1的rightcilck過(guò)程：sele lsdo =0+ss,16,39。 ss=allt(str(cksl1)) .=0skipenddozap（6）、退出按鈕的cilck過(guò)程：tt=0（7）、Grid1下的Column1下的Text1的DblClick過(guò)程：do form qcmx sele ls=with insert into grgjkreturnendif*加入到正式表中g(shù)o topdo while !eof()請(qǐng)?zhí)顚?xiě)數(shù)量39。提示信息39。returnendifif empty(bz1)至少要有一條記錄才能保存！39。 TO PRINTER 請(qǐng)用B5紙！39。39。.=39。39。.recordsource=39。（圖72）（3） 、修改表格Grid1。圖71（1）、文本框text1的“dateformat”為：‘14漢語(yǔ)’；“tapstop”（如下圖：）為：‘.’；“value”為：‘=date()’。（八）出庫(kù)單ckd public text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,。 fzrrepl with jhy text10repl dw with text7repl lh with text13repl with text4repl lb（3）、組合框bo2，“bordercolor”為：0無(wú)(沒(méi)有“0無(wú)”這個(gè)選項(xiàng)，同上)，“controlsource”為cbo1，“rowsource”為：“鋼材,管件,配件,工器具,量具,雜品,消耗品,油料,勞保,閥門(mén)”，“rowsourcetype”為：1值。出現(xiàn)的問(wèn)題：Text14無(wú)法輸入數(shù)據(jù)，基本信息表不能正常使用。（4）。其click過(guò)程：Clea event出現(xiàn)的問(wèn)題：點(diǎn)擊確定按鈕，出現(xiàn)一個(gè)程序錯(cuò)誤的提升，顯示文件不存在以及找不到變量解決方案：因?yàn)閷?duì)vfp軟件操作不夠精通，暫時(shí)沒(méi)有想到解決方案。 =messagebox(口令不正確！請(qǐng)重新輸入！,64,提示窗口) Clea event ELSE執(zhí)行主菜單程序 (0) amp。)) amp。 = 5Else amp。label1的寬度設(shè)為0Else =0amp。 amp。 amp。（5）文本框的Name為txtpassword，passworchar為‘*’。（五）建立logo表單（1）新建表單logo，titlebar為0關(guān)閉，height=115，width=222。類(lèi)名輸入‘鄭萬(wàn)芳kuf’，派生于選擇‘toolbar’，存儲(chǔ)于：“e:\1508090003鄭萬(wàn)芳\”，按‘確定’按鈕，出現(xiàn)類(lèi)設(shè)計(jì)器。NBSP。NBSP。 命令：do form grgjk——\——基本設(shè)置 命令：do form ckd——\——退出占用進(jìn)程，啟動(dòng)事件處理quit amp。 amp。 amp。amp。 amp。 amp。 amp。 amp。 軟件編制者：王永成 。窗口背景顏色MODIFY WINDOW SCREEN TITLE amp。魯石化檢修公司機(jī)泵車(chē)間編制窗口背景顏色MODIFY WINDOW SCREEN TITLE amp。 amp。關(guān)閉系統(tǒng)主菜單close all amp。打開(kāi)狀態(tài)欄set color to amp。激活從程序中向 Visual FoxPro 主窗口或活動(dòng)的用戶(hù)自定義窗口的輸出set date to ansi amp。不處理已刪除的記錄set cent on amp。 amp。關(guān)閉對(duì)話(huà)模式set safe off amp。新建表grgjk（.dbf）:在數(shù)據(jù)庫(kù)中新建表systen（.dbf），五個(gè)字段：fzr、bgy、jhy、cly、mima，其標(biāo)題分別為：負(fù)責(zé)人、保管員、計(jì)劃員、材料員、密碼。設(shè)計(jì)要求由教師布置課程設(shè)計(jì)的思路，提供設(shè)計(jì)資料，學(xué)生根據(jù)資料，結(jié)合企業(yè)物流系統(tǒng)的相關(guān)知識(shí)，對(duì)資料進(jìn)行深入分析，獨(dú)立完成物流信息系統(tǒng)課程設(shè)計(jì)。培養(yǎng)學(xué)生“物流信息系統(tǒng)”課程所學(xué)知識(shí)的綜合應(yīng)用，分析和解決企業(yè)物流信息系統(tǒng)實(shí)際問(wèn)題的能力。 二、課程設(shè)計(jì)的內(nèi)容及其步驟（一）建立數(shù)據(jù)庫(kù)新建數(shù)據(jù)庫(kù)1508090003鄭萬(wàn)芳，保存到e：\1508090003鄭萬(wàn)芳 目錄下。說(shuō)明：c字符型；d日期型；n數(shù)值型，括號(hào)內(nèi)為字節(jié)長(zhǎng)度，逗號(hào)后面的數(shù)值為幾位小數(shù)。完成后（二）主程序set talk offamp。amp。amp。amp。amp。 amp。amp。 為齊。 amp。amp。 amp。pic指明路徑open database kfglamp。 命令：do form rkd——器材出庫(kù) 命令：do form csyx——身體狀態(tài)測(cè)試 命令：do form xlgy退出(\X)amp。amp。 eventBR 命令Clea（四）建立工具欄點(diǎn)擊“文件”——“新建”按鈕，選擇“類(lèi)”，出現(xiàn)新建類(lèi)對(duì)話(huà)框。在各自的‘click’方法程序中輸入相應(yīng)的命令（如：do form rkd），現(xiàn)在還沒(méi)建立這些表單，可以在建完以后再輸。（4）Label3的caption為“軟件作者：武漢輕工大學(xué) 鄭萬(wàn)芳”，透明，白色。如果表單的頂邊距主窗口的距離小于140=+10距離增大10,即表單向下移動(dòng)10=+20 amp。amp。 = +16 = 5EndIf其init過(guò)程:public nn=0其click過(guò)程：n=n+1IF allt()=allt()hidekuf39。kuf39。0=頂部、1=右、2=左、3=底部顯示工具欄amp。 =messagebox(你不是合法用戶(hù)！你不能使用??！,64,提示窗口) else39。endifENDIF（8）命令按鈕cancel，退出。（3）右擊表單選擇“數(shù)據(jù)環(huán)境”（圖61）。（8）、text5的“inputmask”為：“XXXXXX”，“passwordchar”為：“*”。其“titlebar”為：0關(guān)閉（2）、建立17個(gè)文本框（由于我在設(shè)計(jì)時(shí)進(jìn)行過(guò)修改，刪掉了一些文本框，所以現(xiàn)在不連續(xù)），其“backstyle”為：0透明、“borderc