货运站货场信息管理系统

货运站货场信息管理系统货运站货场信息管理系统 一 概述 随着经济全球化的加快和中国经济的腾飞 我国铁路运输业取得了巨大的发展 而货 场是铁路货运站最基本的作业场所之一 工人数量多 作业任务重 作业种类多 而随着 信息科技的发展 传统的管理模式逐渐被信息化及数字化的管理模式所取代 如何用先进 的管理手段 提高货场的管理水平 已成为货运站货场的当务之急 面对信息时代的机遇 和挑战 用科技手段提高货场管理水平无疑是一条行之有效的途径 货运站货场信息管理系统的开发充分利用了信息技术和计算机技术 提高了货运站货 场的管理水平 服务水平 系统实现了货场计划管理 货场作业管理 货场设备管理 货 场安全管理 客户服务管理 并拥有查询 录入 修改 打印等功能 该系统主要服务于 货运站货场工作人员 除此之外也设置客户服务管理 来满足客户对货运信息的查询及对 货物运输的反馈 更加丰富了货运站货场信息管理系统的内容 拓宽了使用范围 二 需求分析 铁路货场是铁路运输企业面向社会办理货物运输业务的窗口和货物起止的集散地 为 了安全 方便 快捷地运送货物 经济合理地利用铁路货场设备 充分发挥货场的作业能 力 必须加强货场管理 从而实现货场作业标准化 管理科学化 服务文明化 目前 一些铁路货运站虽然采用计算机工作 但是多数统计报表仍由人工处理 信息 在不同实体之间没有实现共享 造成大量重复劳动 由于车站作业岗位多 实行手工登记 装卸信息 使电话经常处于繁忙状态 导致其他作业点一直等待上报数据 造成时间浪费 而且手工登记容易出错 并且无法追查错误原因 作业效率低下 在此基础上 通过设计 开发货运站货场信息管理系统 实现货运集中管理 信息高度共享 提高工作质量和工作 效率 三 系统设计 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 确定要执行初始化操作吗 32 4 系统提示 if a 6 a messagebox 初始化会清空所有数据 继续吗 32 4 系统提示 if a 6 close all database outpath if directory sys 5 sys 2003 bak f MKDIR sys 5 sys 2003 bak endif if file 系统设置 Rtt t handle fopen 系统设置 Rtt 2 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 bak endif else outpath sys 5 sys 2003 bak endif mypath Mypath sys 5 sys 2003 data datepath sys 5 sys 2003 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 初始化失败 16 系统提示 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 系统初始化完成 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 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 2003 data outpath alltrim thisform text1 value thisform rainbak1 bak mypath outpath JMPath alltrim outPath DateBase dbc thisform Lockdatebase1 lock JmPath 正在加密备份文件 messagebox 备份完成 32 系统提示 在 退出 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 2003 data thisform rainbak1 bak mypath outpath thisform Lockdatebase1 lock sys 5 sys 2003 data DataBase dbc 正在解密 messagebox 数据恢复成功 无需要重新运行程序 可以直接使用 32 系统提示 在 退出 E 按钮的 Click 事件中添加以下代码 thisform release 4 2 6 月计划查询设计 查询月度运输计划 包括货物重量 体积 车种及始发终到地点等内容 月计划界面 如图 12 及图 13 图 12 月计划查询界面设计图 图 13 月计划查询界面运行图 1 表单设计 在货运站货场信息管理系统项目中 添加一个新表单 名称为 月计划查询 在表单中添加 combo 控件 Label 控件 Commandgroup 控件 shape 控件 Grid 控件 在表单中添加数据环境 数据环境为 yjh dbf 2 代码设计 在 查询 按钮的 Click 事件中添加以下代码实现查询月计划的功能 cif alltrim bo1 displayvalue ctext alltrim thisform text1 value if empty ctext messagebox 请输入查询条件 48 操作失败 thisform text1 setfocus else select from datebase yjh where 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货物名称字符型10升序 2日均 车 数值型100 3静载重 t 车 数值型80 4车数数值型30 5运价 吨公里 数值型82 6发送吨数值型80 7终到站字符型10 8始发站字符型10 9日期日期时间型8 10车种字符型10 11货源地字符型10 12备注备注型4 表 2 货物运单 DBF 数据库表结构 序号字段名称字段类型字段宽度小数位数索引 1货运编号字符型10升序 3收货方字符型10 5收货人电话字符型15 7收货方地址字符型40 8货物名称字符型10 9件数数值型40 10重量 t 数值型80 11体积 M 数值型80 12运费数值型80 13始发地字符型20 14目的地字符型20 16收货时间日期时间型8 17备注备注型4 表 3 货区货位 DBF 数据库表结构 序号字段名称字段类型字段宽度小数位数索引 1货物名称字符型10升序 2品类字符型10 3货区字符型20 4货位字符型20 5重量 t 数值型80 6体积 M 数值型80 7占货位比例数值型84 8货位占货区比例数值型84 9货位利用率数值型84 10备注备注型4 表 4 装卸机械 DBF 数据库表结构 序号字段名称字段类型字段宽度小数位数索