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