VF路政管理系统(开题报告+答辩PPT+论文) 第12页
thisform.release
按吨位查询：
public dw
dw=val(alltrim(thisform.text1.value))
sele 1
go top
do form 吨位显示
thisform.release
4、统计模块
该模块可提供不同类别的统计报表，包括按单位统计报表、按经营范围统计报表、按吨位统计报表。其界面如下图3-15所示。
图3-15 统计界面
实现功能的代码如下：
set escape on
use 统计表 in 0
select 统计表
zap
select 表1
set order to 单位
go top
ts=0
dunwei=0
do while .not. eof()
danwei=单位
cheliang=车辆类型
ts1=1
ts=ts+1
dunwei1=吨位
dunwei=dunwei+吨位
syjl1=审验纪录1
syjl2=审验纪录2
syjl3=审验纪录3
skip
select 统计表
append blank
replace 单位 with danwei,车辆类型 with cheliang,台数 with ts1,吨位 with dunwei1,审验纪录1 with syjl1,审验纪录2 with syjl2,审验纪录3 with syjl3
select 表1
enddo
select 统计表
append blank
replace 单位 with "总计",台数 with ts,吨位 with dunwei
do form 单位统计 name 统计
select 统计表
use
select 表1
5、打印模块
可打印所需的道路运输证。其界面如下图3-16所示。
图3-16 打印界面
实现功能的代码如下：
locate for alltrim(辽宁运营号)=alltrim(thisform.text1.value)
printno1=recno()
report form 表1 record printno1 to printer &&preview
thisform.release
6、系统管理模块
可提供数据备份、数据恢复、修改密码等功能。其界面如下图3-17所示。
图3-17 系统文护界面
实现功能的代码如下：
备份数据：
if messagebox("确实要备份数据吗?",65,"备份")=1
SELE 表1
USE
COPY FILE 表1.CDX TO .\BACKUP\表1.CDX
COPY FILE 表1.DBF TO .\BACKUP\表1.DBF
=messagebox("备份数据成功",64,"成功")
SELE 1
USE 表1
ENDIF
恢复数据：
if messagebox("这项操作将会覆盖您现有的数据,确实要恢复数据吗?",65,"恢复")=1
SELE 1
USE
COPY FILE c:\备份\表1.CDX TO c:\zgyz\表1.CDX
COPY FILE c:\备份\表1.DBF TO c:\zgyz\表1.DBF
<< 上一页 [11] [12] [13] [14] 下一页
VF路政管理系统(开题报告+答辩PPT+论文) 第12页下载如图片无法显示或论文不完整，请联系qq752018766
