【正文】
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