貨運(yùn)站貨場信息管理系統(tǒng)

1、-作者xxxx-日期xxxx貨運(yùn)站貨場信息管理系統(tǒng)【精品文檔】貨運(yùn)站貨場信息管理系統(tǒng)一、概述隨著經(jīng)濟(jì)全球化的加快和中國經(jīng)濟(jì)的騰飛，我國鐵路運(yùn)輸業(yè)取得了巨大的發(fā)展。而貨場是鐵路貨運(yùn)站最基本的作業(yè)場所之一，工人數(shù)量多，作業(yè)任務(wù)重，作業(yè)種類多。而隨著信息科技的發(fā)展，傳統(tǒng)的管理模式逐漸被信息化及數(shù)字化的管理模式所取代，如何用先進(jìn)的管理手段，提高貨場的管理水平，已成為貨運(yùn)站貨場的當(dāng)務(wù)之急。面對信息時代的機(jī)遇和挑戰(zhàn)，用科技手段提高貨場管理水平無疑是一條行之有效的途徑。貨運(yùn)站貨場信息管理系統(tǒng)的開發(fā)充分利用了信息技術(shù)和計算機(jī)技術(shù)，提高了貨運(yùn)站貨場的管理水平、服務(wù)水平。系統(tǒng)實現(xiàn)了貨場計劃管理、貨場作業(yè)管理、貨場

2、設(shè)備管理、貨場安全管理、客戶服務(wù)管理，并擁有查詢、錄入、修改、打印等功能。該系統(tǒng)主要服務(wù)于貨運(yùn)站貨場工作人員，除此之外也設(shè)置客戶服務(wù)管理，來滿足客戶對貨運(yùn)信息的查詢及對貨物運(yùn)輸?shù)姆答?，更加豐富了貨運(yùn)站貨場信息管理系統(tǒng)的內(nèi)容，拓寬了使用范圍。二、需求分析鐵路貨場是鐵路運(yùn)輸企業(yè)面向社會辦理貨物運(yùn)輸業(yè)務(wù)的窗口和貨物起止的集散地。為了安全、方便、快捷地運(yùn)送貨物，經(jīng)濟(jì)合理地利用鐵路貨場設(shè)備，充分發(fā)揮貨場的作業(yè)能力，必須加強(qiáng)貨場管理，從而實現(xiàn)貨場作業(yè)標(biāo)準(zhǔn)化、管理科學(xué)化、服務(wù)文明化。目前，一些鐵路貨運(yùn)站雖然采用計算機(jī)工作，但是多數(shù)統(tǒng)計報表仍由人工處理，信息在不同實體之間沒有實現(xiàn)共享，造成大量重復(fù)勞動。由于車

3、站作業(yè)崗位多，實行手工登記裝卸信息，使電話經(jīng)常處于繁忙狀態(tài)，導(dǎo)致其他作業(yè)點(diǎn)一直等待上報數(shù)據(jù)，造成時間浪費(fèi)；而且手工登記容易出錯，并且無法追查錯誤原因，作業(yè)效率低下。在此基礎(chǔ)上，通過設(shè)計開發(fā)貨運(yùn)站貨場信息管理系統(tǒng)，實現(xiàn)貨運(yùn)集中管理，信息高度共享，提高工作質(zhì)量和工作效率。三、系統(tǒng)設(shè)計系統(tǒng)功能本系統(tǒng)功能模塊分為：貨場計劃管理、貨場作業(yè)管理、貨場設(shè)備管理、貨場安全管理、客戶服務(wù)管理。客戶的操作權(quán)限僅限使用客戶服務(wù)管理功能模塊及修改密碼，管理員操作權(quán)限可使用除客戶服務(wù)管理和系統(tǒng)初始化全部功能模塊，超級管理員可使用所有功能。（1）貨場計劃管理：月計劃查詢及打印、運(yùn)單查詢及打印、貨源信息查詢；（2）貨場作業(yè)

4、管理：貨場出車查詢、裝卸車作業(yè)查詢；（3）貨場設(shè)備管理：貨區(qū)查詢、貨位查詢、裝卸機(jī)械查詢、篷布使用查詢；（4）貨場安全管理：貨運(yùn)事故查詢；貨運(yùn)事故報告打?。?）客戶服務(wù)管理：信息查詢、服務(wù)評價；（6）系統(tǒng)管理：初始化系統(tǒng)、修改密碼、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、退出。本系統(tǒng)共分6大部分、20個完整的功能模塊。系統(tǒng)結(jié)構(gòu)圖如圖1所示。圖1 貨運(yùn)站貨場信息管理系統(tǒng)功能結(jié)構(gòu)四、主要功能模塊設(shè)計數(shù)據(jù)庫表設(shè)計（1）創(chuàng)建一個標(biāo)準(zhǔn)項目，名稱為貨運(yùn)站貨場信息管理系統(tǒng)。（2）在項目管理器下創(chuàng)建一個數(shù)據(jù)庫，名稱為datebase,在數(shù)據(jù)庫中創(chuàng)建以下數(shù)據(jù)庫表：czqx（操作權(quán)限）、fwpj（服務(wù)評價）、hccc（貨場出車）、h

5、csg（貨場事故）、hqhw（貨區(qū)貨位）、pbgl（篷布管理）、hwyd（貨物運(yùn)單）、yjh（月計劃）、zxc（裝卸車）、zxjx（裝卸機(jī)械），創(chuàng)建完成后輸入數(shù)據(jù)。具體內(nèi)容見附錄一。表單設(shè)計設(shè)計的表單有登陸、服務(wù)評價、貨場出車查詢、貨場事故查詢、貨區(qū)查詢、貨位查詢、貨物運(yùn)單查詢、貨源信息查詢、客戶貨物信息查詢、篷布使用查詢、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化、修改密碼、月計劃查詢、裝卸車查詢、裝卸機(jī)械查詢。登陸界面設(shè)計圖2 登錄界面設(shè)計圖用戶進(jìn)入系統(tǒng)前，必須通過登錄進(jìn)入主程序界面，登錄界面主要用于確認(rèn)用戶的身份及使用權(quán)限，并且可對系統(tǒng)信息起到保密作用。系統(tǒng)登錄界面如圖2及圖3所示圖3 登錄界面運(yùn)行

6、圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“登陸”。在表單中添加Text控件、Label控件、Command控件、Image控件。重要控件屬性:Text2的PasswordChar屬性設(shè)為“*”（2）代碼設(shè)計在“登陸L”按鈕的Click事件中添加以下代碼實現(xiàn)判斷密碼是否正確的功能。如果密碼不正確，將提示密碼不正確。locate for alltrim(czqx.用戶名)= alltrim(thisform.text1.value); and alltrim(czqx.密碼)= alltrim(thisform.text2.value)if !eof() =messa

7、gebox('歡迎您使用！','貨運(yùn)站貨場信息管理系統(tǒng)') else =messagebox("密碼不正確") thisform.text2.value=""endif 在“退出Z”按鈕的Click事件中添加以下代碼：Quit在“image1”圖片的Click事件中添加以下代碼：thisform.text1.value="客戶"在“image2”圖片的Click事件中添加以下代碼：thisform.text1.value="管理員"在“image3”圖片的Click事件中添加以下代碼

8、：thisform.text1.value="超級管理員"系統(tǒng)初始化設(shè)計系統(tǒng)初始化會清空所有記錄，在執(zhí)行此操作之前，系統(tǒng)會自動備份數(shù)據(jù)到默認(rèn)備份目錄下，以防數(shù)據(jù)丟失。系統(tǒng)初始化界面如圖4及圖5。圖4 系統(tǒng)初始化界面設(shè)計圖圖5 系統(tǒng)初始化界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“系統(tǒng)初始化”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“初始化F”按鈕的Click事件中添加以下代碼實現(xiàn)系統(tǒng)初始化的功能。private outpath a=messagebox("確定要執(zhí)行初始化操作嗎？&quo

9、t;,32+4,"系統(tǒng)提示")if a=6a=messagebox("初始化會清空所有數(shù)據(jù)，繼續(xù)嗎？",32+4,"系統(tǒng)提示")if a=6close all databaseoutpath =""if directory(sys(5)+sys(2003)+"bak")=.f. MKDIR sys(5)+sys(2003)+"bak" endifif file("系統(tǒng)設(shè)置.Rtt")=.t.handle=fopen("系統(tǒng)設(shè)置.Rtt"

10、,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)+

11、"dataDataBase"wait windows "正在準(zhǔn)備備份數(shù)據(jù)thisok=thisform.rainbak1.bak(mypath,outpath)if thisok=.t.wait windows "正在準(zhǔn)備初始化thisform.rainfunction1.dateformat(datepath)elsemessagebox("初始化失?。?quot;,16,"系統(tǒng)提示" )returnendifjmpath=alltrim(outpath)+""thisform.lockdatebase

12、1.lock(jmpath,"正在加密備份文件.")wait windows "正在刪除其它設(shè)置文件if file("系統(tǒng)設(shè)置.Rtt")=.t.dele file ("系統(tǒng)設(shè)置.RTT")endifif file ("檢測.RBT")=.t.dele File("檢測.RBT")endifmessagebox("系統(tǒng)初始化完成！",32,"系統(tǒng)提示")ENDIFENDIF在“退出E”按鈕的Click事件中添加以下代碼：修改密碼設(shè)計通過本功能，用

13、戶可以修改自己的登陸密碼，保證自身賬戶的安全性。修改密碼界面如圖6及圖7。圖6 修改密碼界面設(shè)計圖圖7 修改密碼界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“修改密碼”。在表單中添加Label控件、Command控件。（2）代碼設(shè)計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="客戶"i

14、f t2="111"if t3=t4 update czqz set 密碼 =t3 where 編號="1"elsemessagebox('新密碼輸入不一致！',48,'操作失敗！')endifelsemessagebox('原密碼輸入錯誤！',48,'操作失敗！')endifcase t1="管理員" if t2="222"if t3=t4 update czqz set 密碼 =t3 where 編號="2"elsemessag

15、ebox('新密碼輸入不一致！',48,'操作失??！')endifelsemessagebox('原密碼輸入錯誤！',48,'操作失??！')endifcase t1="超級管理員" if t2="333"if t3=t4 update czqz set 密碼 =t3 where 編號="3"elsemessagebox('新密碼輸入不一致！',48,'操作失??！')endifelsemessagebox('原密碼輸入錯誤！'

16、,48,'操作失敗！')endif在“退出”按鈕的Click事件中添加以下代碼：數(shù)據(jù)備份設(shè)計 數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時，可以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)備份界面如圖8及圖9。圖8 數(shù)據(jù)備份界面設(shè)計圖圖9 數(shù)據(jù)備份界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“數(shù)據(jù)備份”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“備份B”按鈕的Click事件中添加以下代碼實現(xiàn)數(shù)據(jù)備份的功能。close all databaseprivate outpath

17、 mypath=""Mypath=sys(5)+sys(2003)+"data"outpath=alltrim(thisform.text1.value)thisform.rainbak1.bak(mypath,outpath)JMPath=alltrim(outPath)+""thisform.Lockdatebase1.lock(JmPath,"正在加密備份文件.")messagebox("備份完成！",32,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：

18、數(shù)據(jù)恢復(fù)設(shè)計 數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時，可以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)恢復(fù)界面如圖10及圖11。圖10 數(shù)據(jù)恢復(fù)界面運(yùn)行圖圖11 數(shù)據(jù)恢復(fù)界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“數(shù)據(jù)恢復(fù)”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“恢復(fù)R”按鈕的Click事件中添加以下代碼實現(xiàn)數(shù)據(jù)備份的功能。close all databaseprivate outpath mypath=""Mypath=alltrim(thisform.

19、text1.value)outpath=sys(5)+sys(2003)+"data"thisform.rainbak1.bak(mypath,outpath)thisform.Lockdatebase1.lock(sys(5)+sys(2003)+"dataDataBase.dbc","正在解密.")messagebox("數(shù)據(jù)恢復(fù)成功！無需要重新運(yùn)行程序,可以直接使用！",32,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：月計劃查詢設(shè)計查詢月度運(yùn)輸計劃，包括貨物重量、體積、

20、車種及始發(fā)終到地點(diǎn)等內(nèi)容。月計劃界面如圖12及圖13。圖12 月計劃查詢界面設(shè)計圖圖13 月計劃查詢界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“月計劃查詢”。在表單中添加combo控件、Label控件、Commandgroup控件、shape控件、Grid控件。在表單中添加數(shù)據(jù)環(huán)境，數(shù)據(jù)環(huán)境為。（2）代碼設(shè)計在“查詢”按鈕的Click事件中添加以下代碼實現(xiàn)查詢月計劃的功能。cif=alltrim(bo1.displayvalue)ctext=alltrim(thisform.text1.value) if empty(ctext) messagebox(&#

21、39;請輸入查詢條件！',48,'操作失?。?#39;) else select *; from datebase!yjh; where &cif.=alltrim(thisform.text1.value) ; order by 貨物名稱; into cursor linquery thisform.grid2.recordsource='linquery' endif在“退出”按鈕的Click事件中添加以下代碼：其他如貨場出車查詢、貨場事故查詢、貨區(qū)查詢、貨位查詢、貨物運(yùn)單查詢、貨源信息查詢等查詢在界面設(shè)計及代碼設(shè)計上基本一致，以下不再贅述。其他見附

22、錄二。月計劃錄入設(shè)計錄入月度運(yùn)輸計劃，包括貨物重量、體積、車種及始發(fā)終到地點(diǎn)等內(nèi)容。月計劃錄入界面如圖14及圖15。圖14 月計劃錄入界面設(shè)計圖圖15 月計劃錄入界面運(yùn)行圖（1）表單設(shè)計在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“月計劃錄入”。在表單中添加Label控件、Commandgroup控件、text控件、shape控件。（2）代碼設(shè)計在“保存”按鈕的Click事件中添加以下代碼實現(xiàn)月計劃錄入的功能。t1=alltrim(thisform.text1.value)t2=alltrim(thisform.text2.value)t3=alltrim(thisform.text

23、3.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.valu

24、e)insert into yjh (貨物名稱,日均（車）,靜載重（t每車）,車數(shù),運(yùn)價（噸公里）,發(fā)送噸,始發(fā)站,終到站,日期,車種,貨源地,備注) ;values(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12) 在“退出”按鈕的Click事件中添加以下代碼：服務(wù)評價與月計劃錄入在界面設(shè)計及代碼設(shè)計上基本一致，以下不再贅述。報表設(shè)計運(yùn)單打印設(shè)計打印貨物運(yùn)單，包括委托方、收貨方、貨物名稱、重量及始發(fā)目的地等內(nèi)容，并統(tǒng)計總重量。運(yùn)單打印界面如圖16及圖17。圖16 運(yùn)單打印界面設(shè)計圖圖17 運(yùn)單打印界面運(yùn)行圖（1）在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新報表，名

25、稱為“運(yùn)單打印”。（2）在表單中添加Label控件、字段控件。（3）在表單中添加數(shù)據(jù)環(huán)境，數(shù)據(jù)環(huán)境為hwyd.dbf。貨場事故打印與運(yùn)單打印在界面設(shè)計及控件設(shè)計上基本一致，以下不再贅述。菜單設(shè)計（1）在貨運(yùn)站貨場信息管理系統(tǒng)項目中，添加一個新菜單，名稱為“mainmenu”。（2）按照功能模塊結(jié)構(gòu)依次輸入子菜單和命令，命令有三種，分別是quit（退出）、do form 表單名和report form 報表名.frx preview。（3）根據(jù)權(quán)限要求在跳過設(shè)置跳過條件，依靠定義全局變量實現(xiàn)。具體菜單界面見圖18、19、20。 圖18 客戶使用權(quán)限界面運(yùn)行圖圖19 管理員使用權(quán)限界面運(yùn)行圖圖20

26、 管理員使用權(quán)限界面運(yùn)行圖主程序設(shè)計主程序是整個系統(tǒng)運(yùn)行的第一步，主程序可以設(shè)置全局變量、運(yùn)行界面屬性、調(diào)用登陸界面和菜單等，所以，設(shè)計主程序?qū)υO(shè)計數(shù)據(jù)庫系統(tǒng)至關(guān)重要。public xuse czqxx=alltrim(czqx.編號)clear screen _=-10000 do form 表單登陸 _='貨運(yùn)站貨場信息管理系統(tǒng)' do _=0 read events 五、結(jié)束語貨運(yùn)站貨場信息管理系統(tǒng)的應(yīng)用能夠?qū)崿F(xiàn)貨場基礎(chǔ)設(shè)備及生產(chǎn)作業(yè)資源化管理，貨運(yùn)指揮人員可以實時掌握貨場的作業(yè)車分布、月計劃、貨區(qū)貨位、裝卸工作、裝卸設(shè)備等資源和計劃的變化和利用情況，最大程度提高貨物運(yùn)輸

27、的工作質(zhì)量和工作效率。附錄一:原始數(shù)據(jù)庫表表1 月計劃.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨物名稱字符型10升序2日均（車）數(shù)值型1003靜載重（t/車）數(shù)值型804車數(shù)數(shù)值型305運(yùn)價（噸公里）數(shù)值型826發(fā)送噸數(shù)值型807終到站字符型108始發(fā)站字符型109日期日期時間型810車種字符型1011貨源地字符型1012備注備注型4表2 貨物運(yùn)單.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨運(yùn)編號字符型10升序3收貨方字符型105收貨人電話字符型157收貨方地址字符型408貨物名稱字符型109件數(shù)數(shù)值型4010重量（t）數(shù)值型8011體積（M）數(shù)值型8012運(yùn)費(fèi)數(shù)值型8013始發(fā)地字符型2014目的地字符型2016收貨時間日期時間型817備注備注型4表3 貨區(qū)貨位.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨物名稱字符型10升序2品類字符型103貨區(qū)字符型204貨