vf路政管理系統(tǒng)程序清單.doc_第1頁
vf路政管理系統(tǒng)程序清單.doc_第2頁
vf路政管理系統(tǒng)程序清單.doc_第3頁
vf路政管理系統(tǒng)程序清單.doc_第4頁
vf路政管理系統(tǒng)程序清單.doc_第5頁
已閱讀5頁,還剩4頁未讀, 繼續(xù)免費(fèi)閱讀

付費(fèi)下載

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

程序清單一、主界面程序清單初始化數(shù)據(jù)setescapeonsetdefaultto.setcenturyonsetescapeonsetdatetoymdpublicdaxie(10)daxie(1)=零daxie(2)=壹daxie(3)=貳daxie(4)=叁daxie(5)=肆daxie(6)=伍daxie(7)=陸daxie(8)=柒daxie(9)=捌daxie(10)=玖SELE1use表1二、票據(jù)處理程序清單系統(tǒng)變量:publicwan,qian,bai,shi,yuan,jiao,fen,yuefen,shiwan查找按鈕:gotoplocatefor車輛行駛證號(hào)=alltrim(thisform.text1.value)&thisform.text1.refreshthisform.經(jīng)營(yíng)許可證號(hào)1.value=經(jīng)營(yíng)許可證號(hào)thisform.經(jīng)營(yíng)許可證號(hào)1.refreshthisform.噸位1.refreshthisform.交費(fèi)日期1.refreshthisform.起交費(fèi)月份1.refreshthisform.止交費(fèi)月份1.refreshthisform.結(jié)算方式1.refreshthisform.收款人.refreshthisform.制票人.refreshifeof()=messagebox(您所要查找的記錄未找到!,64)endif保存按鈕:交費(fèi)日期=thisform.交費(fèi)日期1.value起交費(fèi)月份=thisform.起交費(fèi)月份1.value止交費(fèi)月份=thisform.止交費(fèi)月份1.value結(jié)算方式=thisform.結(jié)算方式1.value制票人=thisform.制票人.value收款人=thisform.收款人.valuereplace定額管理費(fèi)with14.00replace工本費(fèi)with1.00yjje=定額管理費(fèi)*噸位*(val(止交費(fèi)月份)-val(起交費(fèi)月份)+0.01)*100replace應(yīng)交金額withyjjeprintno=recno()shiwan=int(應(yīng)交金額/100000)wan=int(應(yīng)交金額-100000*shiwan)/10000)qian=int(應(yīng)交金額-100000*shiwan-10000*wan)/1000)bai=int(應(yīng)交金額-100000*shiwan-10000*wan-1000*qian)/100)shi=int(應(yīng)交金額-100000*shiwan-10000*wan-1000*qian-100*bai)/10)yuan=int(應(yīng)交金額-100000*shiwan-10000*wan-1000*qian-100*bai-10*shi)jiao=int(應(yīng)交金額-abs(應(yīng)交金額)/0.1)fen=int(應(yīng)交金額-abs(應(yīng)交金額)-0.1*jiao)/0.01)yuefen=alltrim(起交費(fèi)月份-止交費(fèi)月份)b=messagebox(是否打?。?292)ifb=6reportform票據(jù)recordprintnotoprinter&previewendif三、查詢程序清單1、按車輛類型查詢:publiccllxcllx=alltrim(thisform.text1.value)sele1gotopdoform車類顯示thisform.release2、按車輛行駛證號(hào)查詢:publicclxszhclxszh=alltrim(thisform.text1.value)sele1gotopdoform車證顯示thisform.release3、按噸位查詢:publicdwdw=val(alltrim(thisform.text1.value)sele1gotopdoform噸位顯示thisform.release四、統(tǒng)計(jì)程序清單1、按單位統(tǒng)計(jì):setescapeonuse統(tǒng)計(jì)表in0select統(tǒng)計(jì)表zapselect表1setorderto單位gotopts=0dunwei=0dowhile.not.eof()danwei=單位cheliang=車輛類型ts1=1ts=ts+1dunwei1=噸位dunwei=dunwei+噸位syjl1=審驗(yàn)紀(jì)錄1syjl2=審驗(yàn)紀(jì)錄2syjl3=審驗(yàn)紀(jì)錄3skipselect統(tǒng)計(jì)表appendblankreplace單位withdanwe

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論