货运站货场信息管理系统之欧阳语创编

货运站货场信息管理系统

时间：2021.03.01 创作：欧阳语 一、概述

随着经济全球化的加快和中国经济的腾飞，我国铁路运输业取得了巨年夜的成长。而货场是铁路货运站最基本的作业场合之一，工人数量多，作业任务重，作业种类多。而随着信息科技的成长，传统的管理模式逐渐被信息化及数字化的管理模式所取代，如何用先进的管理手段，提高货场的管理水平，已成为货运站货场的燃眉之急。面对信息时代的机遇和挑战，用科技手段提高货场管理水平无疑是一条行之有效的途径。

货运站货场信息管理系统的开发充分利用了信息技术和计算机技术，提高了货运站货场的管理水平、办事水平。系统实现了货场计划管理、货场作业管理、货场设备管理、货场平安管理、客户办事管理，并拥有查询、录入、修改、打印等功能。该系统主要办事于货运站货场工作人员，除此之外也设置客户办事管理，来满足客户对货运信息的查询及对货物运输的反响，更加丰富了货运站货场信息管理系统的内容，拓宽了使用规模。 二、需求阐发

铁路货场是铁路运输企业面向社会规画货物运输业务的

欧阳语创编

欧阳语创编

窗口和货物起止的集散地。为了平安、便利、快捷地运送货物，经济合理天时用铁路货场设备，充分阐扬货场的作业能力，必须加强货场管理，从而实现货场作业标准化、管理科学化、办事文明化。

目前，一些铁路货运站虽然采取计算机工作，可是大都统计报表仍由人工处理，信息在不合实体之间没有实现共享，造成年夜量重复劳动。由于车站作业岗位多，实行手工挂号装卸信息，使德律风经常处于忙碌状态，招致其他作业点一直等待上报数据，造成时间浪费；并且手工挂号容易出错，并且无法追查毛病原因，作业效率低下。在此基础上，通过设计开发货运站货场信息管理系统，实现货运集中管理，信息高度共享，提高工作质量和工作效率。 三、系统设计 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(\"确定要执行初始化操纵吗？\系统提示\")

if a=6

a=messagebox(\"初始化会清空所有数据，继续吗？

欧阳语创编

欧阳语创编

\系统提示\")

if a=6

close all database outpath =\"\"

if directory(sys(5)+sys()+\"\\bak\")=.f. MKDIR sys(5)+sys()+\"\\bak\" endif

if file(\"系统设置.Rtt\")=.t.

handle=fopen(\"系统设置.Rtt\ 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()+\"\\bak\" endif else

欧阳语创编

欧阳语创编

outpath =sys(5)+sys()+\"\\bak\" endif

mypath=\"\"

Mypath=sys(5)+sys()+\"\\data\"

datepath=sys(5)+sys()+\"\\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(\"初始化失败！\系统提示\" ) 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(\"系统初始化完成！\系统提示\") 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()+\"\\data\\\"

outpath=alltrim(thisform.text1.value) thisform.rainbak1.bak(mypath,outpath) JMPath=alltrim(outPath)+\"\\DateBase.dbc\"

thisform.Lockdatebase1.lock(JmPath,\"正在加密备份文件....\")

messagebox(\"备份完成！\系统提示\")

在“退出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()+\"\\data\"

thisform.rainbak1.bak(mypath,outpath)

thisform.Lockdatebase1.lock(sys(5)+sys()+\"\\data\\DataBase.dbc\正在解密....\")

messagebox(\"数据恢复胜利！无需要重新运行法度,可以直接使用！\系统提示\")

在“退出E”按钮的Click事件中添加以下代码： thisform.release 4.2.6月计划查询设计

查询月度运输计划，包含货物重量、体积、车种及始发终

欧阳语创编

欧阳语创编

到地址等外容。月计划界面如图12及图13。

图12月计划查询界面设计图 图13月计划查询界面运行图

（1）表单设计

在货运站货场信息管理系统项目中，添加一个新表单，名称为“月计划查询”。

在表单中添加combo控件、Label控件、Commandgroup控件、shape控件、Grid控件。 在表单中添加数据环境，数据环境为yjh.dbf。 （2）代码设计

在“查询”按钮的Click事件中添加以下代码实现查询月计划的功能。

cif=alltrim(thisform.combo1.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 月计划.DBF数据库表结构

序号 1 2 3 4 5 6 7 8 9 10 11 12 字段名称 货物名称 日均（车） 车数 发送吨 终到站 始发站 日期 车种 货源地 备注 字段类型 字符型 数值型 数值型 数值型 字符型 字符型 日期时间型 字符型 字符型 备注型 字段宽度 10 10 8 3 8 8 10 10 8 10 10 4 小数位数 0 0 0 2 0 索引 升序 静载重（t/车） 数值型 运价（吨公里） 数值型 表2货物运单.DBF数据库表结构

序号 1 3 5 7 8 9 10 11 12 13 14 16 17 字段名称 货运编号 收货方 收货人德律风 收货方地址 货物名称 件数 重量（t） 体积（M） 运费 始发地 目的地 收货时间 备注 字段类型 字符型 字符型 字符型 字符型 字符型 数值型 数值型 数值型 数值型 字符型 字符型 日期时间型 备注型 字段宽度 10 10 15 40 10 4 8 8 8 20 20 8 4 小数位数 0 0 0 0 索引 升序 表3货区货位.DBF数据库表结构

序号 1 2 3 4 字段名称 货物名称 品类 货区 货位 字段类型 字符型 字符型 字符型 字符型 字段宽度 10 10 20 20 小数位数 索引 升序 欧阳语创编

欧阳语创编

5 6 7 8 9 10 重量（t） 体积（M） 占货位比例 货位利用率 备注 数值型 数值型 数值型 数值型 备注型 8 8 8 8 8 4 0 0 4 4 4 货位占货区比例 数值型 表4 装卸机械.DBF数据库表结构

序号 1 2 3 4 5 6 字段名称 机械名称 数量 可用数量 报修数量 适用规模 备注 字段类型 字符型 数值型 数值型 数值型 字符型 备注型 字段宽度 20 2 2 2 40 4 小数位数 0 0 0 索引 升序 表5 篷布管理.DBF数据库表结构

序号 1 2 3 4 5 6 字段名称 篷布种类 数量 可用数量 报修数量 适用规模 备注 字段类型 字符型 数值型 数值型 数值型 字符型 备注型 字段宽度 20 4 4 4 40 4 小数位数 0 0 0 索引 升序 表6 货场事故.DBF数据库表结构

序号 1 2 3 4 5 6 7 字段名称 事故编号 事故品级 事故种类 损失款额 赔偿款额 事故原因 备注 字段类型 字符型 字符型 字符型 数值型 数值型 字符型 备注型 字段宽度 10 1 4 10 10 100 4 小数位数 0 70 索引 升序 表7 办事评价.DBF数据库表结构

序号 1 2 3 4 5 6 字段名称 货运编号 运输速度 运价水平 其他说明 备注 字段类型 字符型 字符型 字符型 字符型 备注型 字段宽度 10 10 10 20 100 4 小数位数 索引 升序 货物有无损坏 字符型 欧阳语创编

欧阳语创编

表8装卸车.DBF数据库表结构

序号 1 2 3 4 5 6 字段名称 货运编号 股道现在车 装卸车数量 装卸车时间 装卸车地址 备注 字段类型 字符型 数值型 数值型 日期时间型 字符型 备注型 字段宽度 10 8 8 8 20 4 小数位数 索引 升序 升序 表9 货场出车.DBF数据库表结构

序号 1 2 3 4 5 字段名称 货运编号 出车时间 出车内容 出车数量 备注 字段类型 字符型 日期时间型 字符型 数值型 备注型 字段宽度 10 8 20 8 4 小数位数 索引 升序 表10 操纵权限.DBF数据库表结构

序号 1 2 3 4 字段名称 用户名 密码 编号 备注 字段类型 字符型 字符型 字符型 备注型 字段宽度 10 10 7 4 小数位数 索引 升序 附录二：其他功能模块运行界面

图21运单查询你界面运行图 图22货运事故打印界面运行图 图23货源信息查询界面运行图 图24货场出车查询界面运行图 图25装卸车查询界面运行图 图26货区查询界面运行图 图27货位查询界面运行图 图28装卸机械查询界面运行图 图29篷布使用查询界面运行图

欧阳语创编

欧阳语创编

图30货运事故查询界面运行图

图31信息查询界面运行图 图32办事评价界面运行图

时间：2021.03.01 创作：欧阳语 欧阳语创编