货运站货场信息管理系统方案.docx
《货运站货场信息管理系统方案.docx》由会员分享，可在线阅读，更多相关《货运站货场信息管理系统方案.docx（21页珍藏版）》请在冰豆网上搜索。
货运站货场信息管理系统方案
货运站货场信息管理系统
一、概述
随着经济全球化的加快和中国经济的腾飞，我国铁路运输业取得了巨大的发展。
而货场
是铁路货运站最基本的作业场所之一，工人数量多，作业任务重，作业种类多。
而随着信息
科技的发展，传统的管理模式逐渐被信息化与数字化的管理模式所取代，如何用先进的管理
手段，提高货场的管理水平，已成为货运站货场的当务之急。
面对信息时代的机遇和挑战，
用科技手段提高货场管理水平无疑是一条行之有效的途径。
货运站货场信息管理系统的开发充分利用了信息技术和计算机技术，提高了货运站货场
的管理水平、服务水平。
系统实现了货场计划管理、货场作业管理、货场设备管理、货场安
全管理、客户服务管理，并拥有查询、录入、修改、打印等功能。
该系统主要服务于货运站
货场工作人员，除此之外也设置客户服务管理，来满足客户对货运信息的查询与对货物运输
的反馈，更加丰富了货运站货场信息管理系统的容，拓宽了使用围。
二、需求分析
铁路货场是铁路运输企业面向社会办理货物运输业务的窗口和货物起止的集散地。
为了
安全、方便、快捷地运送货物，经济合理地利用铁路货场设备，充分发挥货场的作业能力，
必须加强货场管理，从而实现货场作业标准化、管理科学化、服务文明化。
目前，一些铁路货运站虽然采用计算机工作，但是多数统计报表仍由人工处理，信息在
不同实体之间没有实现共享，造成大量重复劳动。
由于车站作业岗位多，实行手工登记装卸
信息，使经常处于繁忙状态，导致其他作业点一直等待上报数据，造成时间浪费；而且
手工登记容易出错，并且无法追查错误原因，作业效率低下。
在此基础上，通过设计开发货
运站货场信息管理系统，实现货运集中管理，信息高度共享，提高工作质量和工作效率。
三、系统设计
3.1 系统功能
本系统功能模块分为：
货场计划管理、货场作业管理、货场设备管理、货场安全管理、
客户服务管理。
客户的操作权限仅限使用客户服务管理功能模块与修改密码，管理员操作权
限可使用除客户服务管理和系统初始化全部功能模块，超级管理员可使用所有功能。
（1）货场计划管理：
月计划查询与打印、运单查询与打印、货源信息查询；
（2）货场作业管理：
货场出车查询、装卸车作业查询；
（3）货场设备管理：
货区查询、货位查询、装卸机械查询、篷布使用查询；
（4）货场安全管理：
货运事故查询；货运事故报告打印
（5）客户服务管理：
信息查询、服务评价；
（6）系统管理：
初始化系统、修改密码、数据备份、数据恢复、退出。
3.2 系统功能结构
本系统共分 6 大部分、20 个完整的功能模块。
系统结构图如图 1 所示。
图 1货运站货场信息管理系统功能结构
四、主要功能模块设计
4.1 数据库表设计
（1）创建一个标准项目，名称为货运站货场信息管理系统。
，
（2）在项目管理器下创建一个数据库，名称为 datebase,在数据库中创建以下数据库表：
czqx（操作权限）、fwpj（服务评价）、hccc（货场出车）、hcsg（货场事故）、hqhw（货区货
位）、pbgl（篷布管理）、hwyd（货物运单）、yjh（月计划）、zxc（装卸车）、zxjx（装卸机械）
创建完成后输入数据。
具体容见附录一。
4.2 表单设计
设计的表单有登陆、服务评价、货场出车查询、货场事故查询、货区查询、货位查询、
货物运单查询、货源信息查询、客户货物信息查询、篷布使用查询、数据备份、数据恢复、
系统初始化、修改密码、月计划查询、装卸车查询、装卸机械查询。
4.2.1 登陆界面设计
图 2登录界面设计图
用户进入系统前，必须通过登录进入主程序界面，登录界面主要用于确认用户的身份与
使用权限，并且可对系统信息起到作用。
系统登录界面如图 2 与图 3 所示
图 3登录界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“登陆”。
在表单中添加 Text 控件、Label 控件、Command 控件、Image 控件。
重要控件属性:
Text2 的 PasswordChar 属性设为“*”
（2）代码设计
在“登陆 L”按钮的 Click 事件中添加以下代码实现判断密码是否正确的功能。
如果密码
不正确，将提示密码不正确。
locate for alltrim（czqx.用户名）== alltrim（thisform.text1.value）;
and alltrim（czqx.密码）== alltrim（thisform.text2.value）
if !
eof（）
=messagebox（'欢迎您使用！
','货运站货场信息管理系统'）
else
=messagebox（"密码不正确"）
thisform.text2.value=""
endif
thisform.release
在“退出 Z”按钮的 Click 事件中添加以下代码：
Quit
在“image1”图片的 Click 事件中添加以下代码：
thisform.text1.value="客户"
在“image2”图片的 Click 事件中添加以下代码：
thisform.text1.value="管理员"
在“image3”图片的 Click 事件中添加以下代码：
thisform.text1.value="超级管理员"
4.2.2 系统初始化设计
系统初始化会清空所有记录，在执行此操作之前，系统会自动备份数据到默认备份目录
下，以防数据丢失。
系统初始化界面如图 4 与图 5。
图 4系统初始化界面设计图
图 5系统初始化界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“系统初始化”。
在表单中添加 shape 控件、Label 控件、Command 控件。
（2）代码设计
在“初始化 F”按钮的 Click 事件中添加以下代码实现系统初始化的功能。
private outpath
a=messagebox（"确定要执行初始化操作吗？
",32+4,"系统提示"）
if a=6
a=messagebox（"初始化会清空所有数据，继续吗？
",32+4,"系统提示"）
if a=6
close all database
outpath =""
if directory（sys（5）+sys（2003）+"\bak"）=.f.
MKDIR sys（5）+sys（2003）+"\bak"
endif
if file（"系统设置.Rtt"）=.t.
handle=fopen（"系统设置.Rtt",2）
m=1
do while feof（handle）=.f.
mystr=fgets（handle）
if m=7
outpath=mystr
endif
m=m+1
enddo
fclose（handle）
if empty（outpath）=.t.
outpath =sys（5）+sys（2003）+"\bak"
endif
else
outpath =sys（5）+sys（2003）+"\bak"
endif
mypath=""
Mypath=sys（5）+sys（2003）+"\data"
datepath=sys（5）+sys（2003）+"\data\DataBase"
wait windows "正在准备备份数据...." Timeout 0.8
thisok=thisform.rainbak1.bak（mypath,outpath）
if thisok=.t.
wait windows "正在准备初始化...." Timeout 0.8
thisform.rainfunction1.dateformat（datepath）
else
messagebox（"初始化失败！
",16,"系统提示" ）
return
endif
jmpath=alltrim（outpath）+"\DataBase.dbc"
thisform.lockdatebase1.lock（jmpath,"正在加密备份文件...."）
wait windows "正在删除其它设置文件...." Timeout 0.8
if file（"系统设置.Rtt"）=.t.
dele file （"系统设置.RTT"）
endif
if file （"检测.RBT"）=.t.
dele File（"检测.RBT"）
endif
messagebox（"系统初始化完成！
",32,"系统提示"）
ENDIF
ENDIF
在“退出 E”按钮的 Click 事件中添加以下代码：
thisform.release
4.2.3 修改密码设计
通过本功能，用户可以修改自己的登陆密码，保证自身账户的安全性。
修改密码界面如
图 6 与图 7。
图 6修改密码界面设计图
图 7修改密码界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“修改密码”。
在表单中添加 Label 控件、Command 控件。
（2）代码设计
t1=alltrim（thisfor。
m.text1.value）
t2=alltrim（thisform.text2.value）
t3=alltrim（thisform.text3.value）
t4=alltrim（thisform.text4.value）
use czqx
do case
case t1="客户"
if t2="111"
if t3=t4
update czqz set 密码 =t3 where 编号="1"
else
messagebox（'新密码输入不一致！
',48,'操作失败！
'）
endif
else
messagebox（'原密码输入错误！
',48,'操作失败！
'）
endif
case t1="管理员"
if t2="222"
if t3=t4
update czqz set 密码 =t3 where 编号="2"
else
messagebox（'新密码输入不一致！
',48,'操作失败！
'）
endif
else
messagebox（'原密码输入错误！
',48,'操作失败！
'）
endif
case t1="超级管理员"
if t2="333"
if t3=t4
update czqz set 密码 =t3 where 编号="3"
else
messagebox（'新密码输入不一致！
',48,'操作失败！
'）
endif
else
messagebox（'原密码输入错误！
',48,'操作失败！
'）
endif
在“退出”按钮的 Click 事件中添加以下代码：
thisform.release
4.2.4 数据备份设计
数据备份可以将数据保存到其他位置，当由于某些意外原因而发生数据无法使用时，可
以利用数据恢复进行恢复，以减少意外所带来的损失。
数据备份界面如图 8 与图 9。
图 8数据备份界面设计图
图 9数据备份界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“数据备份”。
在表单中添加 shape 控件、Label 控件、Command 控件。
（2）代码设计
在“备份 B”按钮的 Click 事件中添加以下代码实现数据备份的功能。
close all database
private outpath
mypath=""
Mypath=sys（5）+sys（2003）+"\data\"
outpath=alltrim（thisform.text1.value）
thisform.rainbak1.bak（mypath,outpath）
JMPath=alltrim（outPath）+"\DateBase.dbc"
thisform.Lockdatebase1.lock（JmPath,"正在加密备份文件...."）
messagebox（"备份完成！
",32,"系统提示"）
在“退出 E”按钮的 Click 事件中添加以下代码：
thisform.release
4.2.5 数据恢复设计
数据备份可以将数据保存到其他位置，当由于某些意外原因而发生数据无法使用时，可
以利用数据恢复进行恢复，以减少意外所带来的损失。
数据恢复界面如图 10 与图 11。
图 10数据恢复界面运行图
图 11数据恢复界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“数据恢复”。
在表单中添加 shape 控件、Label 控件、Command 控件。
（2）代码设计
在“恢复 R”按钮的 Click 事件中添加以下代码实现数据备份的功能。
close all database
private outpath
mypath=""
Mypath=alltrim（thisform.text1.value）
outpath=sys（5）+sys（2003）+"\data"
thisform.rainbak1.bak（mypath,outpath）
thisform.Lockdatebase1.lock（sys（5）+sys（2003）+"\data\DataBase.dbc","正在解密...."）
messagebox（"数据恢复成功！
无需要重新运行程序,可以直接使用！
",32,"系统提示"）
在“退出 E”按钮的 Click 事件中添加以下代码：
thisform.release
4.2.6 月计划查询设计
查询月度运输计划，包括货物重量、体积、车种与始发终到地点等容。
月计划界面如
图 12 与图 13。
图 12月计划查询界面设计图
图 13月计划查询界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“月计划查询”。
在表单中添加 combo 控件、Label 控件、Commandgroup 控件、shape 控件、Grid 控件。
在表单中添加数据环境，数据环境为 yjh.dbf。
（2）代码设计
在“查询”按钮的 Click 事件中添加以下代码实现查询月计划的功能。
cif=alltrim（thisformbo1.displayvalue）
ctext=alltrim（thisform.text1.value）
if empty（ctext）
messagebox（'请输入查询条件！
',48,'操作失败！
'）
thisform.text1.setfocus
else
select *;
from datebase!
yjh;
where &cif.==alltrim（thisform.text1.value） ;
order by 货物名称;
into cursor linquery
thisform.grid2.recordsource='linquery'
thisform.refresh
endif
在“退出”按钮的 Click 事件中添加以下代码：
thisform.release
其他如货场出车查询、货场事故查询、货区查询、货位查询、货物运单查询、货源信息
查询等查询在界面设计与代码设计上基本一致，以下不再赘述。
其他见附录二。
4.2.7 月计划录入设计
录入月度运输计划，包括货物重量、体积、车种与始发终到地点等容。
月计划录入界
面如图 14 与图 15。
图 14月计划录入界面设计图
图 15月计划录入界面运行图
（1）表单设计
在货运站货场信息管理系统项目中，添加一个新表单，名称为“月计划录入”。
在表单中添加 Label 控件、Commandgroup 控件、text 控件、shape 控件。
（2）代码设计
在“保存”按钮的 Click 事件中添加以下代码实现月计划录入的功能。
t1=alltrim（thisform.text1.value）
t2=alltrim（thisform.text2.value）
t3=alltrim（thisform.text3.value）
t4=alltrim（thisform.text4.value）
t5=alltrim（thisform.text5.value）
t6=alltrim（thisform.text6.value）
t7=alltrim（thisform.text7.value）
t8=alltrim（thisform.text8.value）
t9=alltrim（thisform.text9.value）
t10=alltrim（thisform.text10.value）
t11=alltrim（thisform.text11.value）
t12=alltrim（thisform.text12.value）
insert into yjh （货物名称,日均（车）,静载重（t每车）,车数,运价（吨公里）,发送吨,始发站,终到站,日
期,车种,货源地,备注） ;
values（t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12）
在“退出”按钮的 Click 事件中添加以下代码：
thisform.release
服务评价与月计划录入在界面设计与代码设计上基本一致，以下不再赘述。
4.3 报表设计
4.3.1 运单打印设计
打印货物运单，包括委托方、收货方、货物名称、重量与始发目的地等容，并统计总
重量。
运单打印界面如图 16 与图 17。
图 16 运单打印界面设计图
图 17 运单打印界面运行图
（1）在货运站货场信息管理系统项目中，添加一个新报表，名称为“运单打印”。
（2）在表单中添加 Label 控件、字段控件。
（3）在表单中添加数据环境，数据环境为 hwyd.dbf。
货场事故打印与运单打印在界面设计与控件设计上基本一致，以下不再赘述。
4.4 菜单设计
（1）在货运站货场信息管理系统项目中，添加一个新菜单，名称为“mainmenu”。
（2）按照功能模块结构依次输入子菜单和命令，命令有三种，分别是 quit（退出）、do
form 表单名和 report form 报表名.frx preview。
（3）根据权限要求在跳过设置跳过条件，依靠定义全局变量实现。
具体菜单界面见图
18、19、20。
图 18客户使用权限界面运行图
图 19管理员使用权限界面运行图
图 20管理员使用权限界面运行图
4.5 主程序设计
主程序是整个系统运行的第一步，主程序可以设置全局变量、运行界面属性、调用登陆
界面和菜单等，所以，设计主程序对设计数据库系统至关重要。
public x
use czqx
x=alltrim（czqx.编号）
clear screen
_screen.left=-10000
do form 表单\登陆
_screen.caption='货运站货场信息管理系统'
do mainmenu.mpr
_screen.left=0
read events
五、结束语
货运站货场信息管理系统的应用能够实现货场基础设备与生产作业资源化管理，货运指
挥人员可以实时掌握货场的作业车分布、月计划、货区货位、装卸工作、装卸设备等资源和
计划的变化和利用情况，最大程度提高货物运输的工作质量和工作效率。
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
货运编号
字符型
10
升序
3
收货方
字符型
10
5
收货人
字符型
15
7
收货方地址
字符型
40
8
货物名称
字符型
10
9
件数
数值型
4
0
10
重量（t）
数值型
8
0
11
体积（M）
数值型
8
0
12
运费
数值型
8
0
13
始发地
字符型
20
14
目的地
字符型
20
16
收货时间
日期时间型
8
17
备注
备注型
4
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
货物名称
字符型
10
升序
2
日均（车）
数值型
10
0
3
静载重（t/车）
数值型
8
0
4
车数
数值型
3
0
5
运价（吨公里）
数值型
8
2
6
发送吨
数值型
8
0
7
终到站
字符型
10
8
始发站
字符型
10
9
日期
日期时间型
8
10
车种
字符型
10
11
货源地
字符型
10
12
备注
备注型
4
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
货物名称
字符型
10
升序
2
品类
字符型
10
3
货区
字符型
20
4
货位
字符型
20
5
重量（t）
数值型
8
0
6
体积（M）
数值型
8
0
7
占货位比例
数值型
8
4
8
货位占货区比例
数值型
8
4
9
货位利用率
数值型
8
4
10
备注
备注型
4
表 1月计划.DBF 数据库表结构
表 2货物运单.DBF 数据库表结构
表 3货区货位.DBF 数据库表结构
附录一:
原始数据库表
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
事故编号
字符型
10
升序
2
事故等级
字符型
1
3
事故种类
字符型
4
4
损失款额
数值型
10
0
5
赔偿款额
数值型
10
70
6
事故原因
字符型
100
7
备注
备注型
4
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
篷布种类
字符型
20
升序
2
数量
数值型
4
0
3
可用数量
数值型
4
0
4
报修数量
数值型
4
0
5
适用围
字符型
40
6
备注
备注型
4
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
货运编号
字符型
10
升序
2
股道现在车
数值型
8
升序
3
装卸车数量
数值型
8
4
装卸车时间
日期时间型
8
5
装卸车地点
字符型
20
6
备注
备注型
4
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
机械名称
字符型
20
升序
2
数量
数值型
2
0
3
可用数量
数值型
2
0
4
报修数量
数值型
2
0
5
适用围
字符型
40
6
备
升级会员 