物流信息系統(tǒng)課程設(shè)計(jì)20xx(編輯修改稿)
2025-01-17 03:46 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 value (bh1,rq1,,llr1,jhy1) endif skipenddozap（6）、退出按鈕的cilck過(guò)程：tt=0（7）、Grid1下的Column1下的Text1的DblClick過(guò)程：do form qcmx sele ls=with .=.=.= .=0 .=0.=endwith（8）、Grid1下的Column5下的Text1的LostFocus過(guò)程：if cksl1 ss=allt(str(cksl1)) messagebox(39。開票數(shù)量不能大于庫(kù)存數(shù)量39。+ss,16,39。提示信息39。) =0 retuendif =*（9）、Grid1的rightcilck過(guò)程：sele lsdo amp。amp。調(diào)用tjia菜單 附加：建立tjia菜單（1）、新建快捷菜單（2）、“填加一條”的‘過(guò)程’內(nèi)容為：locat for =0if found()messagebox(39。請(qǐng)?zhí)顚憯?shù)量39。,16,39。提示信息39。)returnendifappend blank（3）、“刪除選定一條”的‘過(guò)程’內(nèi)容為：if messagebox( 39。是否真的刪除該行？39。,36,39。提示信息39。)=6deleendif（4）、生成為tjia。出現(xiàn)的問(wèn)題：1. 點(diǎn)擊保存命令，出現(xiàn)以下程序錯(cuò)誤，顯示文件不存在2. 點(diǎn)擊退出命令，出現(xiàn)以下程序錯(cuò)誤解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)以上出現(xiàn)的錯(cuò)誤無(wú)法給出解決方案，望老師見諒。（9） （1）建立標(biāo)簽（按其caption內(nèi)容）：“在上面的文本框中輸入”，“器材名稱或規(guī)格型號(hào)”，“庫(kù)存數(shù)量：”，“庫(kù)存金額：”，“器 材 明 細(xì) 表”，“庫(kù)”，“區(qū)”，“架”，“號(hào)”，“器材名稱：”，“規(guī)格型號(hào)：”，“單位：”，“單價(jià)：”。（2）建立文本框：ku,qu,jia,hao,qcmc,ggxh,dw,dj（以上文本框的controlsource分別為：“main.+其名”），text7，text8，text10。（3）建立命令按鈕mand1~5（圖82） （4） 建立表格Grid1，右擊選擇“生成器”，選擇表main的如下字段：rq,qcmc,ggxh,rkbh（前面設(shè)置的表main里沒(méi)有rkbh字段）,rksl,rkje,ckbh,cksl,ckje,lb。其它屬性在這里就不一一介紹了。（5）: amp。amp。在運(yùn)行此表單時(shí)隱藏快捷圖標(biāo)public cksl1 amp。amp。定義全局變量（6）： amp。amp。在關(guān)閉此表單時(shí)顯示快捷圖標(biāo)（7）：locate for allt(qcmc)=allt()if found()go re()elselocate for allt()$allt(ggxh)if found()go re()endifendif （8）：=.t. =.t.if !RECN()=1 skip 1 else go 1 =.f. =.f.endif （9）：=.t.=.t.if !eof() skip 1 else go bottom =.f. =.f.endif （10）：（11）：=.t.=.t. go 1 =.f.=.f. （12）：=.t.=.t. go bottom =.f.=.f. （13）：=sele ,qcmc,ggxh,pzbh,rksl,rkje,ckbh,cksl,ckje,lb from main into curs temp。where allt(qcmc)==allt() .and. allt(ggxh)==allt() sele tempsum rksl to sl1sum cksl to sl2sum rkje to je1sum ckje to je2cksl1=sl1sl2=sl1sl2=je1je2 sele main出現(xiàn)的問(wèn)題：1. 點(diǎn)擊“運(yùn)行”，立馬出現(xiàn)程序錯(cuò)誤解決方案：因?yàn)閷?duì)vfp軟件的使用不夠精通，所以對(duì)以上問(wèn)題無(wú)法解決，望老師見諒。（10） （1）、建立選擇按鈕組Optiongroup1。ButtonCount=3...（2）、建立選擇按鈕組Optiongroup2。ButtonCount=11...（3）、建立表格Grid1。DeleteMark=‘.’；RecordSourceType=‘0表’。（4）、建立形狀ShapeShape2，選擇背景顏色。（5）、建立組合框Combo1。ControlSounrce=‘rq1’；RowSounrce=‘select rq distinct from main into cursor bo1’；RowSounrceType=‘3SQL語(yǔ)句’。（6）、建立組合框Combo2。ControlSounrce=‘rq2’；RowSounrce=‘select rq distinct from main into cursor bo2’；RowSounrceType=‘3SQL語(yǔ)句’。（7）、建立組合框Combo3。ControlSounrce=‘bz1’；RowSounrce=‘一班,二班,三班,四班,五班,六班,辦公室’；RowSounrceType=‘1值’。（8）、建立Command1。Caption=‘修改’；：do form xgmain。（9）、建立Command2。Caption=‘打印’；：messagebox(39。請(qǐng)用A4紙！39。,16,39。提示信息39。)DO CASE CASE =1 () report form to printer amp。amp。打印報(bào)表dymain CASE =2 () report form to printer amp。amp。打印報(bào)表dark CASE =3 () report form to printer amp。amp。打印報(bào)表dyckendcase （10）、建立Command3。Caption=‘退出’；：（11）、建立Command4。Caption=‘清除選擇’；：===()（12）、建立Command5。Caption=‘顯示’；：()（13）、：if ctod()ctod()wait window at 16,28 后面的日期要大于前面的日期！請(qǐng)修改。retuendif（14）、選擇菜單欄的“表單”下的“新建方法程序”，填加如下方法程序：myfieldmyfieldmyfield3。（15）、：public rkhj,ckhj,kchj,BZ1,RQ1,RQ2BZ1=RQ1=RQ2=*初始化臨時(shí)表 =SELE ,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh ,dw FROM main INTO CURSOR TEMP =4 () （16）、：=日期=器材名稱=規(guī)格型號(hào)=類別=單價(jià)=入庫(kù)編號(hào)=入庫(kù)數(shù)量=入庫(kù)金額=出庫(kù)編號(hào)=出庫(kù)數(shù)量=出庫(kù)金額=班組=領(lǐng)料人=負(fù)責(zé)人=保管員=計(jì)劃員=料號(hào)=單位（17）、：=日期=器材名稱=規(guī)格型號(hào)=類別=單價(jià)=入庫(kù)編號(hào)=入庫(kù)數(shù)量=入庫(kù)金額=負(fù)責(zé)人=保管員=計(jì)劃員=料號(hào)=單位（18）、：=日期=器材名稱=規(guī)格型號(hào)=類別=單價(jià)=出庫(kù)編號(hào)=出庫(kù)數(shù)量=出庫(kù)金額=班組=領(lǐng)料人=負(fù)責(zé)人=保管員=計(jì)劃員=單位（19）、：=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 CASE =1 whe= CASE =2 whe= where allt()=39。鋼材39。 CASE =3 whe= where allt()=39。管件39。 CASE =4 whe= where allt()=39。配件39。 CASE =5 whe= where allt()=39。工器具39。 CASE =6 whe= where allt()=39。量具39。 CASE =7 whe= where allt()=39。雜品39。 CASE =8 whe= where allt()=39。消耗品39。 CASE =9 whe= where allt()=39。油料39。 CASE =10 whe= where allt()=39。勞保39。 CASE =11 whe= where allt()=39。閥門39。 endcase =sel+whe =4elseDO CASE CASE =1 whe=where =ctod(rq1) AND =ctod(rq2) CASE =2 whe= where allt()=39。鋼材39。 AND =ctod(rq1) AND =ctod(rq2) CASE =3 whe= where allt()=39。管件39。 AND =ctod(rq1) AND =ctod(rq2) CASE =4 whe= where allt()=39。配件39。 AND =ctod(rq1) AND =ctod(rq2) CASE =5 whe= where allt()=39。工器具39。 AND =ctod(rq1) AND =ctod(rq2) CASE =6 whe= where allt()=39。量具39。 AND =ctod(rq1) AND =cto
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1