货运站货场信息管理系统Word文件下载.docx

1、4.1数据库表设计（1）创建一个标准项目，名称为货运站货场信息管理系统。（2）在项目管理器下创建一个数据库，名称为datebase,在数据库中创建以下数据库表：czqx（操作权限）、fwpj（服务评价）、hccc（货场出车）、hcsg（货场事故）、hqhw（货区货位）、pbgl（篷布管理）、hwyd（货物运单）、yjh（月计划）、zxc（装卸车）、zxjx（装卸机械），创建完成后输入数据。具体内容见附录一。4.2表单设计设计的表单有登陆、服务评价、货场出车查询、货场事故查询、货区查询、货位查询、货物运单查询、货源信息查询、客户货物信息查询、篷布使用查询、数据备份、数据恢复、系统初始化、修改密码

2、、月计划查询、装卸车查询、装卸机械查询。4.2.1登陆界面设计图2 登录界面设计图用户进入系统前，必须通过登录进入主程序界面，登录界面主要用于确认用户的身份及使用权限，并且可对系统信息起到保密作用。系统登录界面如图2及图3所示图3 登录界面运行图（1）表单设计在货运站货场信息管理系统项目中，添加一个新表单，名称为“登陆”。在表单中添加Text控件、Label控件、Command控件、Image控件。重要控件属性:Text2的PasswordChar属性设为“*”（2）代码设计在“登陆L”按钮的Click事件中添加以下代码实现判断密码是否正确的功能。如果密码不正确，将提示密码不正确。locate

3、 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

4、”图片的Click事件中添加以下代码：管理员在“image3”图片的Click事件中添加以下代码：超级管理员4.2.2系统初始化设计系统初始化会清空所有记录，在执行此操作之前，系统会自动备份数据到默认备份目录下，以防数据丢失。系统初始化界面如图4及图5。图4 系统初始化界面设计图图5 系统初始化界面运行图在货运站货场信息管理系统项目中，添加一个新表单，名称为“系统初始化”。在表单中添加shape控件、Label控件、Command控件。在“初始化F”按钮的Click事件中添加以下代码实现系统初始化的功能。private outpath a=messagebox（确定要执行初始化操作吗？,32+

5、4,系统提示if a=6 a=messagebox（初始化会清空所有数据，继续吗？ if a=6 close all database outpath = if directory（sys（5）+sys（2003）+bak）=.f. MKDIR sys（5）+sys（2003）+ endif if file（系统设置.Rtt）=.t. handle=fopen（,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（o

6、utpath）=.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）+dataDataBase wait windows 正在准备备份数据. Timeout 0.8 thisok=thisform.rainbak1.bak（mypath,outpath） if thisok=.t. wait windows 正在准备初始化. thisform.rainfunction1.da

7、teformat（datepath） messagebox（初始化失败！,16, ） return jmpath=alltrim（outpath）+DataBase.dbc thisform.lockdatebase1.lock（jmpath,正在加密备份文件.正在删除其它设置文件. dele file （系统设置.RTT if file （检测.RBT dele File（ messagebox（系统初始化完成！,32, ENDIFENDIF在“退出E”按钮的Click事件中添加以下代码：thisform.release4.2.3修改密码设计通过本功能，用户可以修改自己的登陆密码，保证自身账

8、户的安全性。修改密码界面如图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）use czqxdo casecase t1=if t2=111if t3=t4 update czqz set 密码 =t3 where

9、编号=1elsemessagebox（新密码输入不一致！,48,操作失败！原密码输入错误！22223333在“退出”按钮的Click事件中添加以下代码：4.2.4数据备份设计 数据备份可以将数据保存到其他位置，当由于某些意外原因而发生数据无法使用时，可以利用数据恢复进行恢复，以减少意外所带来的损失。数据备份界面如图8及图9。图8 数据备份界面设计图图9 数据备份界面运行图在货运站货场信息管理系统项目中，添加一个新表单，名称为“数据备份”。在“备份B”按钮的Click事件中添加以下代码实现数据备份的功能。close all databasemypath=Mypath=sys（5）+sys（200

10、3）+dataoutpath=alltrim（thisform.text1.value）thisform.rainbak1.bak（mypath,outpath）JMPath=alltrim（outPath）+DateBase.dbcthisform.Lockdatebase1.lock（JmPath,messagebox（备份完成！4.2.5数据恢复设计 数据备份可以将数据保存到其他位置，当由于某些意外原因而发生数据无法使用时，可以利用数据恢复进行恢复，以减少意外所带来的损失。数据恢复界面如图10及图11。图10 数据恢复界面运行图图11 数据恢复界面运行图在货运站货场信息管理系统项目中，添

11、加一个新表单，名称为“数据恢复”。在“恢复R”按钮的Click事件中添加以下代码实现数据备份的功能。Mypath=alltrim（thisform.text1.value）outpath=sys（5）+sys（2003）+thisform.Lockdatebase1.lock（sys（5）+sys（2003）+dataDataBase.dbc,正在解密.数据恢复成功！无需要重新运行程序,可以直接使用！4.2.6月计划查询设计查询月度运输计划，包括货物重量、体积、车种及始发终到地点等内容。月计划界面如图12及图13。图12 月计划查询界面设计图图13 月计划查询界面运行图在货运站货场信息管理系统

12、项目中，添加一个新表单，名称为“月计划查询”。在表单中添加combo控件、Label控件、Commandgroup控件、shape控件、Grid控件。在表单中添加数据环境，数据环境为yjh.dbf。在“查询”按钮的Click事件中添加以下代码实现查询月计划的功能。cif=alltrim（bo1.displayvalue）ctext=alltrim（thisform.text1.value） if empty（ctext） messagebox（请输入查询条件！ thisform.text1.setfocus select *; from datebase!yjh; where &cif.=al

13、ltrim（thisform.text1.value） ; order by 货物名称; into cursor linquery thisform.grid2.recordsource=linquery thisform.refresh endif其他如货场出车查询、货场事故查询、货区查询、货位查询、货物运单查询、货源信息查询等查询在界面设计及代码设计上基本一致，以下不再赘述。其他见附录二。4.2.7月计划录入设计录入月度运输计划，包括货物重量、体积、车种及始发终到地点等内容。月计划录入界面如图14及图15。图14 月计划录入界面设计图图15 月计划录入界面运行图在货运站货场信息管理系统项目

14、中，添加一个新表单，名称为“月计划录入”。在表单中添加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=alltri

15、m（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） 服务评价与月计划录入在界面设计及代码设计上基本一致，以下不再赘述。4.3报表设计4.3.1运单打印设计打印货物运单，包括委托方、收货方、货物名称、重量及始发目的地等内容，并

16、统计总重量。运单打印界面如图16及图17。图16 运单打印界面设计图图17 运单打印界面运行图（1）在货运站货场信息管理系统项目中，添加一个新报表，名称为“运单打印”。（2）在表单中添加Label控件、字段控件。（3）在表单中添加数据环境，数据环境为hwyd.dbf。货场事故打印与运单打印在界面设计及控件设计上基本一致，以下不再赘述。4.4菜单设计（1）在货运站货场信息管理系统项目中，添加一个新菜单，名称为“mainmenu”。（2）按照功能模块结构依次输入子菜单和命令，命令有三种，分别是quit（退出）、do form 表单名和report form 报表名.frx preview。（3）根

17、据权限要求在跳过设置跳过条件，依靠定义全局变量实现。具体菜单界面见图18、19、20。图18 客户使用权限界面运行图图19 管理员使用权限界面运行图图20 管理员使用权限界面运行图4.5主程序设计主程序是整个系统运行的第一步，主程序可以设置全局变量、运行界面属性、调用登陆界面和菜单等，所以，设计主程序对设计数据库系统至关重要。public xx=alltrim（czqx.编号）clear screen _screen.left=-10000 do form 表单登陆 _screen.caption=do mainmenu.mpr _screen.left=0 read events 五、结束语

18、货运站货场信息管理系统的应用能够实现货场基础设备及生产作业资源化管理，货运指挥人员可以实时掌握货场的作业车分布、月计划、货区货位、装卸工作、装卸设备等资源和计划的变化和利用情况，最大程度提高货物运输的工作质量和工作效率。附录一:原始数据库表表1 月计划.DBF数据库表结构序号字段名称字段类型字段宽度小数位数索引1货物名称字符型10升序2日均（车）数值型3静载重（t/车）84车数5运价（吨公里）6发送吨7终到站始发站13、1663年，英国科学家罗伯特.胡克用自制的复合显微镜观察一块软木薄片的结构，发现它们看上去像一间间长方形的小房间，就把它命名为细胞。15、经过有效处理的废水，可以排放到湖泊、河

19、流和海洋中，也可以渗入地下。15、在显微镜下，我们看到了叶细胞中的叶绿体，还看到了叶表皮上的气孔。9、物质的变化一般分为物理变化和化学变化。化学变化伴随的现象很多，最重要的特点是产生了新物质。物质发生化学变化的过程中一定发生了物理变化。9日期6、你还知道哪些环境问题？它们都对地球造成了哪些影响？日期时间型23、我国是世界上公认的火箭的发源地，早在距今1700多年前的三国时代的古籍上就出现了“火箭”的名称。12、淡水在自来水厂中除了沉淀和过滤之外，还要加入药物进行灭菌处理，这样才能符合我们使用的标准。6、化学变化伴随的现象有改变颜色、发光发热、产生气体、产生沉淀物。车种2、你知道日食的形成过程吗？答：连接北斗七星勺形前端的两颗星，并将连线向勺口方延长约5倍远，处于此位置的那颗星就是北极星。11货源地12备注备注型表2 货物运单.DBF数据库表结构货运编号收货方收货人电话15收货方地址40件数重量（t）体积（M）运费13始发地2014目的地16收货时间17表3 货区货位.DBF数据库表结构品类货区货位占货位比例货位占货区比例货位利用率表4 装卸机械.DBF数据库表结构机械名称数量可用数量报修数量适用范围表5 篷布管理.DBF数据库表结构篷布种类