表单生成向导自动生成,票据信息输入代码如下:系统变量:系统变量:
6
3.2.4输出设计
1、输出方式主要是打印输出和屏幕输出,屏幕输出是为了方便操作人员了解操作的结果。2、输出格式设计道路运输证的形式固定,因此输出格式必须按照运输证的格式进行设计,并且不能打印表格线,统计表需要以表格形式输出,输出格式如图3-10、图3-11所示
图3-10道路运输证打印格式
图3-11统计表输出格式
3.2.5系统模块的具体实现
系统分为六个模块:运输证数据处理模块、票据处理模块、查询模块、统
7
计模块、打印模块、系统管理模块。下面就各模块功能的实现作一说明。1、运输证数据处理模块该模块功能是对道路运输证信息进行录入、修改、删除、打印等操作。其界面如下图3-12所示
图3-12运输管理证录入界面运输管理证录入的程序代码由表单生成向导自动生成,其功能足以满足数据输入的要求,因此只对其作了布局方面的调整。2、票据处理模块该模块功能是对相应的道路运输证收费票据进行录入、编辑、自动计费及打印。其界面如下图3-13所示。
8
图3-13票据信息输入界面程序代码前面已有叙述,此处不再重复。3、查询模块该模块可根据不同的查询需要提供查询功能,包括按车辆类型、车辆行驶证号、车辆吨位查询。其界面如下图3-14所示。
图3-14查询界面实现功能的代码如下:按车辆类型查询:
9
publiccllxcllx=alltrim(thisform.text1.value)sele1gotopdoform车类显示thisform.release按车辆行驶证号查询:publicclxszhclxszh=alltrim(thisform.text1.value)sele1gotopdoform车证显示thisform.release按吨位查询:publicdwdw=val(alltrim(thisform.text1.value))sele1gotopdoform吨位显示thisform.release4、统计模块该模块可提供不同类别的统计报表,包括按单位统计报表、按经营范围统计报表、按吨位统计报表。其界面如下图3-15所示。
10
图3-15统计界面实现功能的代码如下:setescapeonuse统计表in0select统计表zapselect表1setorderto单位gotopts=0dunwei=0dowhile.not.eof()danwei=单位cheliang=车辆类型ts1=1ts=ts+1dunwei1=吨位dunwei=dunwei+吨位syjl1=审验纪录1
11
syjl2=审验纪录2syjl3=审验纪录3skipselect统计表appendblankreplace单位withdanwei,车辆类型withcheliang,台数withts1,吨位
withdunwei1,审验纪录1withsyjl1,审验纪录2withsyjl2,审验纪录3withsyjl3select表1enddoselect统计表
appendblankreplace单位with"总计",台数withts,吨位withdunweidoform单位统计name统计selectuseselect表15、打印模块可打印所需的道路运输证。其界面如下图3-16所示。统计表
12
图3-16打印界面实现功能的代码如下:locateforalltrim(辽宁运营号)=alltrim(thisform.text1.value)printno1=recno()reportform表1recordprintno1toprinter&;&;previewthisform.release6、系统管理模块可提供数据备份、数据恢复、修改密码等功能。其界面如下图3-17所示。
图3-17系统维护界面实现功能的代码如下:备份数据:ifmessagebox("确实要备份数据吗?",65,"备份")=1SELE表1USECOPYFILE表1.CDXTO.\BACKUP\表1.CDXCOPYFILE表1.DBFTO.\BACKUP\表1.DBF=messagebox("备份数据成功",64,"成功")SELE1USE表1
13
ENDIF恢复数据:ifmessagebox("这项操作将会覆盖您现有的数据,确实要恢复数据吗?",65,"恢复")=1SELE1USECOPYFILECOPYFILEc:\备份\表1.CDXTOc:\zgyz\表1.CDXc:\备份\表1.DBFTOc:\zgyz\表1.DBF
=MESSAGEBOX("恢复数据成功!",64,"成