货运站货场信息管理系统.docx
《货运站货场信息管理系统.docx》由会员分享,可在线阅读,更多相关《货运站货场信息管理系统.docx(31页珍藏版)》请在冰豆网上搜索。
货运站货场信息管理系统
货运站货场信息管理系统
一、概述
随着经济全球化的加快和中国经济的腾飞,我国铁路运输业取得了巨大的发展。
而货场是铁路货运站最基本的作业场所之一,工人数量多,作业任务重,作业种类多。
而随着信息科技的发展,传统的管理模式逐渐被信息化及数字化的管理模式所取代,如何用先进的管理手段,提高货场的管理水平,已成为货运站货场的当务之急。
面对信息时代的机遇和挑战,用科技手段提高货场管理水平无疑是一条行之有效的途径。
货运站货场信息管理系统的开发充分利用了信息技术和计算机技术,提高了货运站货场的管理水平、服务水平。
系统实现了货场计划管理、货场作业管理、货场设备管理、货场安全管理、客户服务管理,并拥有查询、录入、修改、打印等功能。
该系统主要服务于货运站货场工作人员,除此之外也设置客户服务管理,来满足客户对货运信息的查询及对货物运输的反馈,更加丰富了货运站货场信息管理系统的内容,拓宽了使用范围。
二、需求分析
铁路货场是铁路运输企业面向社会办理货物运输业务的窗口和货物起止的集散地。
为了安全、方便、快捷地运送货物,经济合理地利用铁路货场设备,充分发挥货场的作业能力,必须加强货场管理,从而实现货场作业标准化、管理科学化、服务文明化。
目前,一些铁路货运站虽然采用计算机工作,但是多数统计报表仍由人工处理,信息在不同实体之间没有实现共享,造成大量重复劳动。
由于车站作业岗位多,实行手工登记装卸信息,使电话经常处于繁忙状态,导致其他作业点一直等待上报数据,造成时间浪费;而且手工登记容易出错,并且无法追查错误原因,作业效率低下。
在此基础上,通过设计开发货运站货场信息管理系统,实现货运集中管理,信息高度共享,提高工作质量和工作效率。
三、系统设计
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事件中添加以下代码实现判断密码是否正确的功能。
如果密码不正确,将提示密码不正确。
locateforalltrim(czqx.用户名)==alltrim(thisform.text1.value);
andalltrim(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事件中添加以下代码实现系统初始化的功能。
privateoutpath
a=messagebox("确定要执行初始化操作吗?
",32+4,"系统提示")
ifa=6
a=messagebox("初始化会清空所有数据,继续吗?
",32+4,"系统提示")
ifa=6
closealldatabase
outpath=""
ifdirectory(sys(5)+sys(2003)+"\bak")=.f.
MKDIRsys(5)+sys(2003)+"\bak"
endif
iffile("系统设置.Rtt")=.t.
handle=fopen("系统设置.Rtt",2)
m=1
dowhilefeof(handle)=.f.
mystr=fgets(handle)
ifm=7
outpath=mystr
endif
m=m+1
enddo
fclose(handle)
ifempty(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"
waitwindows"正在准备备份数据...."Timeout0.8
thisok=thisform.rainbak1.bak(mypath,outpath)
ifthisok=.t.
waitwindows"正在准备初始化...."Timeout0.8
thisform.rainfunction1.dateformat(datepath)
else
messagebox("初始化失败!
",16,"系统提示")
return
endif
jmpath=alltrim(outpath)+"\DataBase.dbc"
thisform.lockdatebase1.lock(jmpath,"正在加密备份文件....")
waitwindows"正在删除其它设置文件...."Timeout0.8
iffile("系统设置.Rtt")=.t.
delefile("系统设置.RTT")
endif
iffile("检测.RBT")=.t.
deleFile("检测.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)
useczqx
docase
caset1="客户"
ift2="111"
ift3=t4
updateczqzset密码=t3where编号="1"
else
messagebox('新密码输入不一致!
',48,'操作失败!
')
endif
else
messagebox('原密码输入错误!
',48,'操作失败!
')
endif
caset1="管理员"
ift2="222"
ift3=t4
updateczqzset密码=t3where编号="2"
else
messagebox('新密码输入不一致!
',48,'操作失败!
')
endif
else
messagebox('原密码输入错误!
',48,'操作失败!
')
endif
caset1="超级管理员"
ift2="333"
ift3=t4
updateczqzset密码=t3where编号="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事件中添加以下代码实现数据备份的功能。
closealldatabase
privateoutpath
mypath=""
Mypath=sys(5)+sys(2003)+"\data\"
outpath=alltrim(thisform.text