【正文】 ............................61 （十五）建立報(bào)表................................................................................................64..（十六）連編 ......................................................................................................67（十七）制作安裝盤............................................................................................68三　課程設(shè)計(jì)的總結(jié)和感想 71一、設(shè)計(jì)的序言設(shè)計(jì)目的：《物流信息系統(tǒng)》課程設(shè)計(jì)為學(xué)生提供了一個(gè)既動(dòng)手又動(dòng)腦，獨(dú)立實(shí)踐的機(jī)會(huì)。新建表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。 庫(kù)房管理應(yīng)用軟件 ver 奇數(shù)日期=rgb(80,150,180) 今天是：+dtoc(date())+amp。amp。 amp。amp。 命令：do form grgjk——修改個(gè)人工具卡amp。其init過(guò)程：use systen =0 =public tbs,bgy1,cly1,jhy1,fzr1=0=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption為“歡迎使用庫(kù)房管理軟件”，透明，楷體，12號(hào)，黃色。 amp。amp。判斷l(xiāng)abel1的寬度是否大于160 = amp。 amp。 amp。if n=3（圖62）（5） 、text1~text5的“controlsource”、（6）、label1~label5的caption為：負(fù)責(zé)人、計(jì)劃員、材料員、保管員、密碼。（4）、命令按鈕mand1（確定）的click過(guò)程為：tis=messagebox(保存入庫(kù)單？,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”為：（無(wú)）（去掉‘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）、“填加一條”的‘過(guò)程’內(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解決方案：因?yàn)閷?duì)vfp軟件操作不夠精通，暫時(shí)沒(méi)有想到解決方案。出現(xiàn)的問(wèn)題：1. 點(diǎn)擊退出命令，出現(xiàn)程序錯(cuò)誤解決方案：因?yàn)閷?duì)vfp軟件操作不夠精通，暫時(shí)沒(méi)有想到解決方案。請(qǐng)用A4紙！39。望老師見(jiàn)諒。保存表單grgjk。)望老師見(jiàn)諒。（圖127）（8）、所以要把此報(bào)表的“。三、課程設(shè)計(jì)的總結(jié)及感想在整個(gè)的課程設(shè)計(jì)的過(guò)程中，個(gè)人還是真的學(xué)到了不少的東西，鑒于此，還是看的出來(lái)visual foxpro 還是沒(méi)有很好的學(xué)好，這份課程設(shè)計(jì)讓我更為具體的體會(huì)到了信息系統(tǒng)在物流過(guò)程中的作用，在這個(gè)信息化的年代，所有的實(shí)體都將變?yōu)閿?shù)據(jù)化的流程，因此，信息化不僅之于物流，更在于所有的經(jīng)濟(jì)活動(dòng)。數(shù)據(jù)是管理的對(duì)象，一切具體編程都是以數(shù)據(jù)庫(kù)為中心，任何時(shí)候都應(yīng)把對(duì)數(shù)據(jù)的處理作為重點(diǎn)，對(duì)數(shù)據(jù)庫(kù)的原理應(yīng)作到心中有數(shù)。表單是一個(gè)大集合，控件就是一個(gè)小集合，它包含著自己的表現(xiàn)特征、用戶對(duì)它進(jìn)行控制和觸發(fā)的事件和方法。代碼放入控件的事件中，對(duì)庫(kù)的操作時(shí)用標(biāo)準(zhǔn)的foxpro命令來(lái)實(shí)現(xiàn)，但對(duì)表單和控件的控制就要用到面向?qū)ο蟮木幊陶Z(yǔ)言，例如：。同時(shí)，也感謝學(xué)校能給我們這樣的一個(gè)鍛煉機(jī)會(huì)，讓我們有個(gè)鍛煉提升自己的平臺(tái)。這次的課程設(shè)計(jì)讓我真正明白了“腳踏實(shí)地”，“一份耕耘，一份收獲”的人生哲理，也體會(huì)到了技術(shù)開(kāi)發(fā)人員思維的嚴(yán)密性和吃苦耐勞的精神。 2．關(guān)于控件與數(shù)據(jù)庫(kù)結(jié)合。例如變量定義、書(shū)寫(xiě)規(guī)范、常用函數(shù)、循環(huán)語(yǔ)句等等，這些是編程的基礎(chǔ)。在此感謝我們的老師.，老師嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng)一直是我工作、學(xué)習(xí)中的榜樣。另外如果你需要把它裝在另一臺(tái)電腦內(nèi)，你要看看在臺(tái)電腦是否有visual ，是否有ActiveX控件：（農(nóng)歷控件）。 程序全編完了，運(yùn)行一下主程序，看看是否有錯(cuò)誤，在確認(rèn)無(wú)錯(cuò)誤之后進(jìn)行連編。 在本人編庫(kù)房管理軟件中有以下五個(gè)報(bào)表：、。當(dāng)鼠標(biāo)點(diǎn)擊某一條記錄時(shí)，或用箭頭鍵移動(dòng)時(shí)，被選中的整條背景顏色變?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=入庫(kù)金額：+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語(yǔ)句’。 （10）：（11）：=.t.=.t. 在關(guān)閉此表單時(shí)顯示快捷圖標(biāo)（7）：locate for allt(qcmc)=allt()if found()amp。出現(xiàn)的問(wèn)題：1. 點(diǎn)擊保存命令，出現(xiàn)以下程序錯(cuò)誤，顯示文件