已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学年上学期高二《计算机组装》试题卷
- 浙江省杭州市四校2023-2024学年中考二模数学试题含解析
- 幼儿园教案设计方案(2篇)
- 酒店项目合作方案(2篇)
- 幼儿园安全管理实施方案(2篇)
- 神经系统护理知识要点
- 追求完美方案谬误(2篇)
- β2-微球蛋白测定试剂注册审查指导原则(2024年修订版)
- 工农业塑料制品:塑料零部件项目可行性分析报告
- 七年级上册生物知识点总结
- 临水临电方案
- 在线网课知慧《第一目击者现场急救(湖南师大)》单元测试考核答案
- GB/T 25849-2024移动式升降工作平台设计、计算、安全要求和试验方法
- MOOC 大学生创新创业基础-安阳师范学院 中国大学慕课答案
- 2024-2028年打印机市场发展现状调查及供需格局分析预测报告
- 第三届“皇家杯”职业院校宠物营养学知识竞赛考试题库(含答案)
- 民族宗教知识课件
- 广东省能源集团笔试题库
- 长沙市2024年小升初质量调研卷-语文六年级下册统编版
- 西南师大版二年级数学下册 六 时、分、秒 第1课时 问题解决(1) (课件)
- 2023高考英语核心词汇1000个
评论
0/150
提交评论