已阅读5页,还剩4页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
程序清单一、主界面程序清单初始化数据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单位withdanwe
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 湖南省衡阳市 市石鼓区松木中学高一数学理联考试题含解析
- 2019年中山大学考研专业课试题667生物综合
- 广东省梅州市梅北中学高三英语联考试题含解析
- 山西省运城市牛杜高级中学高三数学理上学期期末试卷含解析
- 感恩领导演讲稿3篇
- 食品安全检测合伙协议书
- 广东省汕头市大浦中学高一数学理期末试题含解析
- 手机过户协议书情侣专用手机
- 社交网络干股入股合作协议书
- 水利工程承包经营协议书
- 钢板桩施工方案完整版
- 地方储备粮监管工作方案
- 服装采购实施方案
- PR介绍PPT学习课件
- 投标:应急预案
- 2021新大象版四年级下册科学全册教案
- 2022-2023学年云南省红河市数学七下期末达标检测试题含答案
- 药理学课件:作用于消化系统的药物
- 疾病分类国家临床版编码要点课件
- ASPEN物性方法选择讲解课件
- 儿科常用药物的使用课件3
评论
0/150
提交评论