【正文】 ............................61 （十五）建立報表................................................................................................64..（十六）連編 ......................................................................................................67（十七）制作安裝盤............................................................................................68三　課程設(shè)計的總結(jié)和感想 71一、設(shè)計的序言設(shè)計目的：《物流信息系統(tǒng)》課程設(shè)計為學(xué)生提供了一個既動手又動腦，獨立實踐的機會。新建表main（.dbf）： ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),dw c(4), dj n(8,2),pzbh c(10),rksl n(8,2),rkje n(10,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lh c(6),yt c(20),qu c(2),jia c(2),hao c(2),ku c(2)。amp。amp。amp。amp。 庫房管理應(yīng)用軟件 ver 奇數(shù)日期=rgb(80,150,180) 今天是：+dtoc(date())+amp。amp。 amp。amp。 命令：do form grgjk——修改個人工具卡amp。其init過程：use systen =0 =public tbs,bgy1,cly1,jhy1,fzr1=0=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption為“歡迎使用庫房管理軟件”，透明，楷體，12號，黃色。 amp。amp。判斷l(xiāng)abel1的寬度是否大于160 = amp。 amp。 amp。if n=3（圖62）（5） 、text1~text5的“controlsource”、（6）、label1~label5的caption為：負責(zé)人、計劃員、材料員、保管員、密碼。（4）、命令按鈕mand1（確定）的click過程為：tis=messagebox(保存入庫單？,4+64,提示窗口)if tis=6if !used(main)use gcmc rksl with text8repl with llr 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=“deletemark”為：‘.’；“recordmark”為：‘.’；“recordsource”為：（無）（去掉‘main’）；“scrollbars”為：‘2垂直’。ls39。.=39。,16,39。,16,39。)insert into main (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,gcmc,yt,llr,jhy,lb,bz) 。 (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,llr,jhy) 。.= 附加：建立tjia菜單（1）、新建快捷菜單（2）、“填加一條”的‘過程’內(nèi)容為：locat for =0if found(),36,39。其它屬性在這里就不一一介紹了。定義全局變量（6）：if found() go 1 go bottom （12）：=.t.=.t.ButtonCount=11...（3）、建立表格Grid1。ControlSounrce=‘bz1’；RowSounrce=‘一班,二班,三班,四班,五班,六班,辦公室’；RowSounrceType=‘1值’。)DO CASE amp。Caption=‘清除選擇’；：===()（12）、建立Command5。 () whe= whe= where allt()=39。 =sel+whe whe=where =ctod(rq1) AND =ctod(rq2) whe= where allt()=39。 AND =ctod(rq1) AND =ctod(rq2) =sel+whe whe= where allt()=39。 and 0 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 whe= where allt()=39。 CASE =2配件39。 CASE =6 CASE =1鋼材39。 and 0+bzu CASE =6 CASE =10 0+bzu and CASE =2 whe= where allt()=39。量具39。 AND =ctod(rq1) AND =ctod(rq2) and消耗品39。 whe= where allt()=39。 CASE =1解決方案：因為對vfp軟件操作不夠精通，暫時沒有想到解決方案。出現(xiàn)的問題：1. 點擊退出命令，出現(xiàn)程序錯誤解決方案：因為對vfp軟件操作不夠精通，暫時沒有想到解決方案。請用A4紙！39。望老師見諒。保存表單grgjk。)望老師見諒。（圖127）（8）、所以要把此報表的“。三、課程設(shè)計的總結(jié)及感想在整個的課程設(shè)計的過程中，個人還是真的學(xué)到了不少的東西，鑒于此，還是看的出來visual foxpro 還是沒有很好的學(xué)好，這份課程設(shè)計讓我更為具體的體會到了信息系統(tǒng)在物流過程中的作用，在這個信息化的年代，所有的實體都將變?yōu)閿?shù)據(jù)化的流程，因此，信息化不僅之于物流，更在于所有的經(jīng)濟活動。數(shù)據(jù)是管理的對象，一切具體編程都是以數(shù)據(jù)庫為中心，任何時候都應(yīng)把對數(shù)據(jù)的處理作為重點，對數(shù)據(jù)庫的原理應(yīng)作到心中有數(shù)。表單是一個大集合，控件就是一個小集合，它包含著自己的表現(xiàn)特征、用戶對它進行控制和觸發(fā)的事件和方法。代碼放入控件的事件中，對庫的操作時用標(biāo)準(zhǔn)的foxpro命令來實現(xiàn)，但對表單和控件的控制就要用到面向?qū)ο蟮木幊陶Z言，例如：。同時，也感謝學(xué)校能給我們這樣的一個鍛煉機會，讓我們有個鍛煉提升自己的平臺。這次的課程設(shè)計讓我真正明白了“腳踏實地”，“一份耕耘，一份收獲”的人生哲理，也體會到了技術(shù)開發(fā)人員思維的嚴(yán)密性和吃苦耐勞的精神。 2．關(guān)于控件與數(shù)據(jù)庫結(jié)合。例如變量定義、書寫規(guī)范、常用函數(shù)、循環(huán)語句等等，這些是編程的基礎(chǔ)。在此感謝我們的老師.，老師嚴(yán)謹細致、一絲不茍的作風(fēng)一直是我工作、學(xué)習(xí)中的榜樣。另外如果你需要把它裝在另一臺電腦內(nèi)，你要看看在臺電腦是否有visual ，是否有ActiveX控件：（農(nóng)歷控件）。 程序全編完了，運行一下主程序，看看是否有錯誤，在確認無錯誤之后進行連編。 在本人編庫房管理軟件中有以下五個報表：、。當(dāng)鼠標(biāo)點擊某一條記錄時，或用箭頭鍵移動時，被選中的整條背景顏色變?yōu)榧t色。,39。xingm(圖105）。picture=‘d:\demo\pic\’ ；：report form to preview（5）、建立命令按鈕mand4。 amp。（3）、建立文本框text1。 () AND =ctod(rq1) AND =ctod(rq2) and 0+bzu CASE =10 CASE =6 0+bzu AND =ctod(rq1) AND =ctod(rq2) and鋼材39。 whe= where allt()=39。消耗品39。 and量具39。 whe= where allt()=39。 CASE =2 CASE =11 CASE =10 CASE =9 CASE =8量具39。 CASE =4鋼材39。 and 0 whe= where allt()=39。 and 0 =4endifsele tempsum rkje to rkhjsum ckje to ckhjkchj=rkhjckhj=入庫金額：+str(rkhj)+ AND =ctod(rq1) AND =ctod(rq2) endcase AND =ctod(rq1) AND =ctod(rq2) AND =ctod(rq1) AND =ctod(rq2) AND =ctod(rq1) AND =ctod(rq2) AND =ctod(rq1) AND =ctod(rq2) whe= where allt()=39。 AND =ctod(rq1) AND =ctod(rq2) whe= where allt()=39。 =4elseDO CASE endcase whe= where allt()=39。 whe= where allt()=39。=sel=SELE ,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh,dw FROM main INTO CURSOR TEMP if empt() or empt()DO CASE amp。amp。Caption=‘打印’；：messagebox(39。ControlSounrce=‘rq1’；RowSounrce=‘select rq distinct from main into cursor bo1’；RowSounrceType=‘3SQL語句’。 （10）：（11）：=.t.=.t. 在關(guān)閉此表單時顯示快捷圖標(biāo)（7）：locate for allt(qcmc)=allt()if found()amp。出現(xiàn)的問題：1. 點擊保存命令，出現(xiàn)以下程序錯誤，顯示文件