货运站货场信息管理系统Word文件下载.docx
《货运站货场信息管理系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《货运站货场信息管理系统Word文件下载.docx(32页珍藏版)》请在冰豆网上搜索。
![货运站货场信息管理系统Word文件下载.docx](https://file1.bdocx.com/fileroot1/2023-1/5/fa523e29-fb32-4fa6-82a5-c1d66486848e/fa523e29-fb32-4fa6-82a5-c1d66486848e1.gif)
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事件中添加以下代码:
管理员"
在“image3”图片的Click事件中添加以下代码:
超级管理员"
4.2.2系统初始化设计
系统初始化会清空所有记录,在执行此操作之前,系统会自动备份数据到默认备份目录下,以防数据丢失。
系统初始化界面如图4及图5。
图4系统初始化界面设计图
图5系统初始化界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“系统初始化”。
在表单中添加shape控件、Label控件、Command控件。
在“初始化F”按钮的Click事件中添加以下代码实现系统初始化的功能。
privateoutpath
a=messagebox("
确定要执行初始化操作吗?
32+4,"
系统提示"
ifa=6
a=messagebox("
初始化会清空所有数据,继续吗?
ifa=6
closealldatabase
outpath="
ifdirectory(sys(5)+sys(2003)+"
\bak"
)=.f.
MKDIRsys(5)+sys(2003)+"
endif
iffile("
系统设置.Rtt"
)=.t.
handle=fopen("
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)+"
endif
else
outpath=sys(5)+sys(2003)+"
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"
正在准备初始化...."
thisform.rainfunction1.dateformat(datepath)
messagebox("
初始化失败!
16,"
)
return
jmpath=alltrim(outpath)+"
\DataBase.dbc"
thisform.lockdatebase1.lock(jmpath,"
正在加密备份文件...."
正在删除其它设置文件...."
delefile("
系统设置.RTT"
iffile("
检测.RBT"
deleFile("
messagebox("
系统初始化完成!
32,"
ENDIF
ENDIF
在“退出E”按钮的Click事件中添加以下代码:
thisform.release
4.2.3修改密码设计
通过本功能,用户可以修改自己的登陆密码,保证自身账户的安全性。
修改密码界面如图6及图7。
图6修改密码界面设计图
图7修改密码界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“修改密码”。
在表单中添加Label控件、Command控件。
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,'
操作失败!
原密码输入错误!
222"
2"
333"
3"
在“退出”按钮的Click事件中添加以下代码:
4.2.4数据备份设计
数据备份可以将数据保存到其他位置,当由于某些意外原因而发生数据无法使用时,可以利用数据恢复进行恢复,以减少意外所带来的损失。
数据备份界面如图8及图9。
图8数据备份界面设计图
图9数据备份界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“数据备份”。
在“备份B”按钮的Click事件中添加以下代码实现数据备份的功能。
closealldatabase
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("
备份完成!
4.2.5数据恢复设计
数据备份可以将数据保存到其他位置,当由于某些意外原因而发生数据无法使用时,可以利用数据恢复进行恢复,以减少意外所带来的损失。
数据恢复界面如图10及图11。
图10数据恢复界面运行图
图11数据恢复界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“数据恢复”。
在“恢复R”按钮的Click事件中添加以下代码实现数据备份的功能。
Mypath=alltrim(thisform.text1.value)
outpath=sys(5)+sys(2003)+"
thisform.Lockdatebase1.lock(sys(5)+sys(2003)+"
\data\DataBase.dbc"
"
正在解密...."
数据恢复成功!
无需要重新运行程序,可以直接使用!
4.2.6月计划查询设计
查询月度运输计划,包括货物重量、体积、车种及始发终到地点等内容。
月计划界面如图12及图13。
图12月计划查询界面设计图
图13月计划查询界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“月计划查询”。
在表单中添加combo控件、Label控件、Commandgroup控件、shape控件、Grid控件。
在表单中添加数据环境,数据环境为yjh.dbf。
在“查询”按钮的Click事件中添加以下代码实现查询月计划的功能。
cif=alltrim(bo1.displayvalue)
ctext=alltrim(thisform.text1.value)
ifempty(ctext)
messagebox('
请输入查询条件!
thisform.text1.setfocus
select*;
fromdatebase!
yjh;
where&
cif.==alltrim(thisform.text1.value);
orderby货物名称;
intocursorlinquery
thisform.grid2.recordsource='
linquery'
thisform.refresh
endif
其他如货场出车查询、货场事故查询、货区查询、货位查询、货物运单查询、货源信息查询等查询在界面设计及代码设计上基本一致,以下不再赘述。
其他见附录二。
4.2.7月计划录入设计
录入月度运输计划,包括货物重量、体积、车种及始发终到地点等内容。
月计划录入界面如图14及图15。
图14月计划录入界面设计图
图15月计划录入界面运行图
在货运站货场信息管理系统项目中,添加一个新表单,名称为“月计划录入”。
在表单中添加Label控件、Commandgroup控件、text控件、shape控件。
在“保存”按钮的Click事件中添加以下代码实现月计划录入的功能。
t1=alltrim(thisform.text1.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)
insertintoyjh(货物名称,日均(车),静载重(t每车),车数,运价(吨公里),发送吨,始发站,终到站,日期,车种,货源地,备注);
values(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12)
服务评价与月计划录入在界面设计及代码设计上基本一致,以下不再赘述。
4.3报表设计
4.3.1运单打印设计
打印货物运单,包括委托方、收货方、货物名称、重量及始发目的地等内容,并统计总重量。
运单打印界面如图16及图17。
图16运单打印界面设计图
图17运单打印界面运行图
(1)在货运站货场信息管理系统项目中,添加一个新报表,名称为“运单打印”。
(2)在表单中添加Label控件、字段控件。
(3)在表单中添加数据环境,数据环境为hwyd.dbf。
货场事故打印与运单打印在界面设计及控件设计上基本一致,以下不再赘述。
4.4菜单设计
(1)在货运站货场信息管理系统项目中,添加一个新菜单,名称为“mainmenu”。
(2)按照功能模块结构依次输入子菜单和命令,命令有三种,分别是quit(退出)、doform表单名和reportform报表名.frxpreview。
(3)根据权限要求在跳过设置跳过条件,依靠定义全局变量实现。
具体菜单界面见图18、19、20。
图18客户使用权限界面运行图
图19管理员使用权限界面运行图
图20管理员使用权限界面运行图
4.5主程序设计
主程序是整个系统运行的第一步,主程序可以设置全局变量、运行界面属性、调用登陆界面和菜单等,所以,设计主程序对设计数据库系统至关重要。
publicx
x=alltrim(czqx.编号)
clearscreen
_screen.left=-10000
doform表单\登陆
_screen.caption='
domainmenu.mpr
_screen.left=0
readevents
五、结束语
货运站货场信息管理系统的应用能够实现货场基础设备及生产作业资源化管理,货运指挥人员可以实时掌握货场的作业车分布、月计划、货区货位、装卸工作、装卸设备等资源和计划的变化和利用情况,最大程度提高货物运输的工作质量和工作效率。
附录一:
原始数据库表
表1月计划.DBF数据库表结构
序号
字段名称
字段类型
字段宽度
小数位数
索引
1
货物名称
字符型
10
升序
2
日均(车)
数值型
3
静载重(t/车)
8
4
车数
5
运价(吨公里)
6
发送吨
7
终到站
始发站
13、1663年,英国科学家罗伯特.胡克用自制的复合显微镜观察一块软木薄片的结构,发现它们看上去像一间间长方形的小房间,就把它命名为细胞。
15、经过有效处理的废水,可以排放到湖泊、河流和海洋中,也可以渗入地下。
15、在显微镜下,我们看到了叶细胞中的叶绿体,还看到了叶表皮上的气孔。
9、物质的变化一般分为物理变化和化学变化。
化学变化伴随的现象很多,最重要的特点是产生了新物质。
物质发生化学变化的过程中一定发生了物理变化。
9
日期
6、你还知道哪些环境问题?
它们都对地球造成了哪些影响?
日期时间型
23、我国是世界上公认的火箭的发源地,早在距今1700多年前的三国时代的古籍上就出现了“火箭”的名称。
12、淡水在自来水厂中除了沉淀和过滤之外,还要加入药物进行灭菌处理,这样才能符合我们使用的标准。
6、化学变化伴随的现象有改变颜色、发光发热、产生气体、产生沉淀物。
车种
2、你知道日食的形成过程吗?
答:
连接北斗七星勺形前端的两颗星,并将连线向勺口方延长约5倍远,处于此位置的那颗星就是北极星。
11
货源地
12
备注
备注型
表2货物运单.DBF数据库表结构
货运编号
收货方
收货人电话
15
收货方地址
40
件数
重量(t)
体积(M)
运费
13
始发地
20
14
目的地
16
收货时间
17
表3货区货位.DBF数据库表结构
品类
货区
货位
占货位比例
货位占货区比例
货位利用率
表4装卸机械.DBF数据库表结构
机械名称
数量
可用数量
报修数量
适用范围
表5篷布管理.DBF数据库表结构
篷布种类