实用标准
货运站货场信息管理系统
一、概述
随着经济全球化的加快和中国经济的腾飞，我国铁路运输业取得了巨大的发展。而货场是铁路货运站最基本的作业场所之一，工人数量多，作业任务重，作业种类多。而随着信息科技的发展，传统的管理模式逐渐被信息化及数字化的管理模式所取代，如何用先进的管理手段，提高货场的管理水平，已成为货运站货场的当务之急。面对信息时代的机遇和挑战，用科技手段提高货场管理水平无疑是一条行之有效的途径。
货运站货场信息管理系统的开发充分利用了信息技术和计算机技术，提高了货运站货场的管理水平、服务水平。系统实现了货场计划管理、货场作业管理、货场设备管理、货场安全管理、客户服务管理，并拥有查询、录入、修改、打印等功能。该系统主要服务于货运站货场工作人员，除此之外也设置客户服务管理，来满足客户对货运信息的查询及对货物运输的反馈，更加丰富了货运站货场信息管理系统的内容，拓宽了使用范围。
二、需求分析
铁路货场是铁路运输企业面向社会办理货物运输业务的窗口和货物起止的集散地。为了安全、方便、快捷地运送货物，经济合理地利用铁路货场设备，充分发挥货场的作业能力，必须加强货场管理，从而实现货场作业标准化、管理科学化、服务文明化。
目前，一些铁路货运站虽然采用计算机工作，但是多数统计报表仍由人工处理，信息在不同实体之间没有实现共享，造成大量重复劳动。由于车站作业岗位多，实行手工登记装卸信息，使电话经常处于繁忙状态，导致其他作业点一直等待上报数据，造成时间浪费；而且手工登记容易出错，并且无法追查错误原因，作业效率低下。在此基础上，通过设计开发货运站货场信息管理系统，实现货运集中管理，信息高度共享，提高工作质量和工作效率。
三、系统设计
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(2003)+\
MKDIR sys(5)+sys(2003)+\
endif
if file(\系统设置.Rtt\
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(2003)+\endif
outpath =sys(5)+sys(2003)+\
else endif mypath=\
Mypath=sys(5)+sys(2003)+\
datepath=sys(5)+sys(2003)+\ wait windows \正在准备备份数据....\ thisok=thisform.rainbak1.bak(mypath,outpath) if thisok=.t.
wait windows \正在准备初始化....\thisform.rainfunction1.dateformat(datepath) messagebox(\初始化失败！\系统提示\return
else
endif
jmpath=alltrim(outpath)+\
thisform.lockdatebase1.lock(jmpath,\正在加密备份文件....\ wait windows \正在删除其它设置文件....\ if file(\系统设置.Rtt\
dele file (\系统设置.RTT\
endif
if file (\检测.RBT\
dele File(\检测.RBT\
文案大全
货运站货场信息管理系统 - 图文
