货运站货场信息管理系统

货运站货场信息管理系统一、概述随着经济全球化的加快和中国经济的腾飞，我国铁路运输业取得了巨大的发展。

而货场是铁路货运站最基本的作业场所之一，工人数量多，作业任务重，作业种类多。

而随着信息科技的发展，传统的管理模式逐渐被信息化及数字化的管理模式所取代，如何用先进的管理手段，提高货场的管理水平，已成为货运站货场的当务之急。

面对信息时代的机遇和挑战，用科技手段提高货场管理水平无疑是一条行之有效的途径。

货运站货场信息管理系统的开发充分利用了信息技术和计算机技术，提高了货运站货场的管理水平、服务水平。

系统实现了货场计划管理、货场作业管理、货场设备管理、货场安全管理、客户服务管理，并拥有查询、录入、修改、打印等功能。

该系统主要服务于货运站货场工作人员，除此之外也设置客户服务管理，来满足客户对货运信息的查询及对货物运输的反馈，更加丰富了货运站货场信息管理系统的内容，拓宽了使用范围。

二、需求分析铁路货场是铁路运输企业面向社会办理货物运输业务的窗口和货物起止的集散地。

为了安全、方便、快捷地运送货物，经济合理地利用铁路货场设备，充分发挥货场的作业能力，必须加强货场管理，从而实现货场作业标准化、管理科学化、服务文明化。

目前，一些铁路货运站虽然采用计算机工作，但是多数统计报表仍由人工处理，信息在不同实体之间没有实现共享，造成大量重复劳动。

由于车站作业岗位多，实行手工登记装卸信息，使电话经常处于繁忙状态，导致其他作业点一直等待上报数据，造成时间浪费；而且手工登记容易出错，并且无法追查错误原因，作业效率低下。

在此基础上，通过设计开发货运站货场信息管理系统，实现货运集中管理，信息高度共享，提高工作质量和工作效率。

三、系统设计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=""endifthisform.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 outpatha=messagebox("确定要执行初始化操作吗？",32+4,"系统提示")if a=6a=messagebox("初始化会清空所有数据，继续吗？",32+4,"系统提示") if a=6close all databaseoutpath =""if directory(sys(5)+sys(2003)+"\bak")=.f.MKDIR sys(5)+sys(2003)+"\bak"endifif file("系统设置.Rtt")=.t.handle=fopen("系统设置.Rtt",2)m=1do while feof(handle)=.f.mystr=fgets(handle)if m=7outpath=mystrendifm=m+1enddofclose(handle)if empty(outpath)=.t.outpath =sys(5)+sys(2003)+"\bak"endifelseoutpath =sys(5)+sys(2003)+"\bak"endifmypath=""Mypath=sys(5)+sys(2003)+"\data"datepath=sys(5)+sys(2003)+"\data\DataBase"wait windows "正在准备备份数据...." Timeout 0.8thisok=thisform.rainbak1.bak(mypath,outpath)if thisok=.t.wait windows "正在准备初始化...." Timeout 0.8thisform.rainfunction1.dateformat(datepath)elsemessagebox("初始化失败！",16,"系统提示" )returnendifjmpath=alltrim(outpath)+"\DataBase.dbc"thisform.lockdatebase1.lock(jmpath,"正在加密备份文件....")wait windows "正在删除其它设置文件...." Timeout 0.8if file("系统设置.Rtt")=.t.dele file ("系统设置.RTT")endifif file ("检测.RBT")=.t.dele File("检测.RBT")endifmessagebox("系统初始化完成！",32,"系统提示")ENDIFENDIF在“退出E”按钮的Click事件中添加以下代码：thisform.release4.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 czqxdo casecase t1="客户"if t2="111"if t3=t4update czqz set 密码=t3 where 编号="1"elsemessagebox('新密码输入不一致！',48,'操作失败！')endifelsemessagebox('原密码输入错误！',48,'操作失败！')endifcase t1="管理员"if t2="222"if t3=t4update czqz set 密码=t3 where 编号="2"elsemessagebox('新密码输入不一致！',48,'操作失败！')endifelsemessagebox('原密码输入错误！',48,'操作失败！')endifcase t1="超级管理员"if t2="333"if t3=t4update czqz set 密码=t3 where 编号="3"elsemessagebox('新密码输入不一致！',48,'操作失败！')endifelsemessagebox('原密码输入错误！',48,'操作失败！')endif在“退出”按钮的Click事件中添加以下代码：thisform.release4.2.4数据备份设计数据备份可以将数据保存到其他位置，当由于某些意外原因而发生数据无法使用时，可以利用数据恢复进行恢复，以减少意外所带来的损失。