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

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

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

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

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

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

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

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

9、t;,32+4,"系統(tǒng)提示")if a=6a=messagebox("初始化會(huì)清空所有數(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("初始化失??！",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 ("檢測(cè).RBT")=.t.dele File("檢測(cè).RBT")endifmessagebox("系統(tǒng)初始化完成！",32,"系統(tǒng)提示")ENDIFENDIF在“退出E”按鈕的Click事件中添加以下代碼：修改密碼設(shè)計(jì)通過(guò)本功能，用

13、戶可以修改自己的登陸密碼，保證自身賬戶的安全性。修改密碼界面如圖6及圖7。圖6 修改密碼界面設(shè)計(jì)圖圖7 修改密碼界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“修改密碼”。在表單中添加Label控件、Command控件。（2）代碼設(shè)計(jì)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 編號(hào)="1"elsemessagebox('新密碼輸入不一致！',48,'操作失?。?#39;)endifelsemessagebox('原密碼輸入錯(cuò)誤！',48,'操作失?。?#39;)endifcase t1="管理員" if t2="222"if t3=t4 update czqz set 密碼 =t3 where 編號(hào)="2"elsemessag

15、ebox('新密碼輸入不一致！',48,'操作失敗！')endifelsemessagebox('原密碼輸入錯(cuò)誤！',48,'操作失敗！')endifcase t1="超級(jí)管理員" if t2="333"if t3=t4 update czqz set 密碼 =t3 where 編號(hào)="3"elsemessagebox('新密碼輸入不一致！',48,'操作失?。?#39;)endifelsemessagebox('原密碼輸入錯(cuò)誤！'

16、,48,'操作失敗！')endif在“退出”按鈕的Click事件中添加以下代碼：數(shù)據(jù)備份設(shè)計(jì) 數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無(wú)法使用時(shí)，可以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來(lái)的損失。數(shù)據(jù)備份界面如圖8及圖9。圖8 數(shù)據(jù)備份界面設(shè)計(jì)圖圖9 數(shù)據(jù)備份界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“數(shù)據(jù)備份”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計(jì)在“備份B”按鈕的Click事件中添加以下代碼實(shí)現(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è)計(jì) 數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無(wú)法使用時(shí)，可以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來(lái)的損失。數(shù)據(jù)恢復(fù)界面如圖10及圖11。圖10 數(shù)據(jù)恢復(fù)界面運(yùn)行圖圖11 數(shù)據(jù)恢復(fù)界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“數(shù)據(jù)恢復(fù)”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計(jì)在“恢復(fù)R”按鈕的Click事件中添加以下代碼實(shí)現(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ù)成功！無(wú)需要重新運(yùn)行程序,可以直接使用！",32,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：月計(jì)劃查詢?cè)O(shè)計(jì)查詢?cè)露冗\(yùn)輸計(jì)劃，包括貨物重量、體積、

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

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

22、錄二。月計(jì)劃錄入設(shè)計(jì)錄入月度運(yùn)輸計(jì)劃，包括貨物重量、體積、車種及始發(fā)終到地點(diǎn)等內(nèi)容。月計(jì)劃錄入界面如圖14及圖15。圖14 月計(jì)劃錄入界面設(shè)計(jì)圖圖15 月計(jì)劃錄入界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“月計(jì)劃錄入”。在表單中添加Label控件、Commandgroup控件、text控件、shape控件。（2）代碼設(shè)計(jì)在“保存”按鈕的Click事件中添加以下代碼實(shí)現(xiàn)月計(jì)劃錄入的功能。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)價(jià)（噸公里）,發(fā)送噸,始發(fā)站,終到站,日期,車種,貨源地,備注) ;values(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12) 在“退出”按鈕的Click事件中添加以下代碼：服務(wù)評(píng)價(jià)與月計(jì)劃錄入在界面設(shè)計(jì)及代碼設(shè)計(jì)上基本一致，以下不再贅述。報(bào)表設(shè)計(jì)運(yùn)單打印設(shè)計(jì)打印貨物運(yùn)單，包括委托方、收貨方、貨物名稱、重量及始發(fā)目的地等內(nèi)容，并統(tǒng)計(jì)總重量。運(yùn)單打印界面如圖16及圖17。圖16 運(yùn)單打印界面設(shè)計(jì)圖圖17 運(yùn)單打印界面運(yùn)行圖（1）在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新報(bào)表，名

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

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

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