vf路政管理系統(tǒng)程序清單.doc

程序清單一、主界面程序清單初始化數(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