vf路政管理系统程序清单.doc

程序清单一、主界面程序清单初始化数据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二、票据处理程序清单系统变量：publicwan,qian,bai,shi,yuan,jiao,fen,yuefen,shiwan查找按钮：gotoplocatefor车辆行驶证号=alltrim(thisform.text1.value)&&thisform.text1.refreshthisform.经营许可证号1.value=经营许可证号thisform.经营许可证号1.refreshthisform.吨位1.refreshthisform.交费日期1.refreshthisform.起交费月份1.refreshthisform.止交费月份1.refreshthisform.结算方式1.refreshthisform.收款人.refreshthisform.制票人.refreshifeof()=messagebox("您所要查找的记录未找到!",64)endif保存按钮：交费日期=thisform.交费日期1.value起交费月份=thisform.起交费月份1.value止交费月份=thisform.止交费月份1.value结算方式=thisform.结算方式1.value制票人=thisform.制票人.value收款人=thisform.收款人.valuereplace定额管理费with14.00replace工本费with1.00yjje=定额管理费*吨位*(val(止交费月份)-val(起交费月份)+0.01)*100replace应交金额withyjjeprintno=recno()shiwan=int(应交金额/100000)wan=int(应交金额-100000*shiwan)/10000)qian=int(应交金额-100000*shiwan-10000*wan)/1000)bai=int(应交金额-100000*shiwan-10000*wan-1000*qian)/100)shi=int(应交金额-100000*shiwan-10000*wan-1000*qian-100*bai)/10)yuan=int(应交金额-100000*shiwan-10000*wan-1000*qian-100*bai-10*shi)jiao=int(应交金额-abs(应交金额)/0.1)fen=int(应交金额-abs(应交金额)-0.1*jiao)/0.01)yuefen=alltrim(起交费月份-"-"-止交费月份)b=messagebox("是否打印？",292)ifb=6reportform票据recordprintnotoprinter&&previewendif三、查询程序清单1、按车辆类型查询：publiccllxcllx=alltrim(thisform.text1.value)sele1gotopdoform车类显示thisform.release2、按车辆行驶证号查询：publicclxszhclxszh=alltrim(thisform.text1.value)sele1gotopdoform车证显示thisform.release3、按吨位查询：publicdwdw=val(alltrim(thisform.text1.value)sele1gotopdoform吨位显示thisform.release四、统计程序清单1、按单位统计：setescapeonuse统计表in0select统计表zapselect表1setorderto单位gotopts=0dunwei=0dowhile.not.eof()danwei=单位cheliang=车辆类型ts1=1ts=ts+1dunwei1=吨位dunwei=dunwei+吨位syjl1=审验纪录1syjl2=审验纪录2syjl3=审验纪录3skipselect统计表appendblankreplace单位withdanwei,车辆类型withcheliang,台数withts1,吨位withdunwei1,审验纪录1withsyjl1,审验纪录2withsyjl2,审验纪录3withsyjl3select表1