貨運站貨場信息管理系統(tǒng)VIP

貨運站貨場信息管理系統(tǒng)貨運站貨場信息管理系統(tǒng)/貨運站貨場信息管理系統(tǒng)貨運站貨場信息管理系統(tǒng)一、概述隨著經(jīng)濟全球化的加快和中國經(jīng)濟的騰飛，我國鐵路運輸業(yè)取得了巨大的發(fā)展。而貨場是鐵路貨運站最基本的作業(yè)場所之一，工人數(shù)量多，作業(yè)任務(wù)重，作業(yè)種類多。而隨著信息科技的發(fā)展，傳統(tǒng)的管理模式逐漸被信息化及數(shù)字化的管理模式所取代，如何用先進的管理手段，提高貨場的管理水平，已成為貨運站貨場的當(dāng)務(wù)之急。面對信息時代的機遇和挑戰(zhàn)，用科技手段提高貨場管理水平無疑是一條行之有效的途徑。貨運站貨場信息管理系統(tǒng)的開發(fā)充分利用了信息技術(shù)和計算機技術(shù)，提高了貨運站貨場的管理水平、服務(wù)水平。系統(tǒng)實現(xiàn)了貨場計劃管理、貨場作業(yè)管理、貨場設(shè)備管理、貨場安全管理、客戶服務(wù)管理，并擁有查詢、錄入、修改、打印等功能。該系統(tǒng)主要服務(wù)于貨運站貨場工作人員，除此之外也設(shè)置客戶服務(wù)管理，來滿足客戶對貨運信息的查詢及對貨物運輸?shù)姆答?，更加豐富了貨運站貨場信息管理系統(tǒng)的內(nèi)容，拓寬了使用范圍。二、需求分析鐵路貨場是鐵路運輸企業(yè)面向社會辦理貨物運輸業(yè)務(wù)的窗口和貨物起止的集散地。為了安全、方便、快捷地運送貨物，經(jīng)濟合理地利用鐵路貨場設(shè)備，充分發(fā)揮貨場的作業(yè)能力，必須加強貨場管理，從而實現(xiàn)貨場作業(yè)標準化、管理科學(xué)化、服務(wù)文明化。目前，一些鐵路貨運站雖然采用計算機工作，但是多數(shù)統(tǒng)計報表仍由人工處理，信息在不同實體之間沒有實現(xiàn)共享，造成大量重復(fù)勞動。由于車站作業(yè)崗位多，實行手工登記裝卸信息，使電話經(jīng)常處于繁忙狀態(tài)，導(dǎo)致其他作業(yè)點一直等待上報數(shù)據(jù)，造成時間浪費；而且手工登記容易出錯，并且無法追查錯誤原因，作業(yè)效率低下。在此基礎(chǔ)上，通過設(shè)計開發(fā)貨運站貨場信息管理系統(tǒng)，實現(xiàn)貨運集中管理，信息高度共享，提高工作質(zhì)量和工作效率。三、系統(tǒng)設(shè)計3.1系統(tǒng)功能本系統(tǒng)功能模塊分為：貨場計劃管理、貨場作業(yè)管理、貨場設(shè)備管理、貨場安全管理、客戶服務(wù)管理?？蛻舻牟僮鳈?quán)限僅限使用客戶服務(wù)管理功能模塊及修改密碼，管理員操作權(quán)限可使用除客戶服務(wù)管理和系統(tǒng)初始化全部功能模塊，超級管理員可使用所有功能。（1）貨場計劃管理：月計劃查詢及打印、運單查詢及打印、貨源信息查詢；（2）貨場作業(yè)管理：貨場出車查詢、裝卸車作業(yè)查詢；（3）貨場設(shè)備管理：貨區(qū)查詢、貨位查詢、裝卸機械查詢、篷布使用查詢；（4）貨場安全管理：貨運事故查詢；貨運事故報告打印（5）客戶服務(wù)管理：信息查詢、服務(wù)評價；（6）系統(tǒng)管理：初始化系統(tǒng)、修改密碼、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、退出。3.2系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)共分6大部分、20個完整的功能模塊。系統(tǒng)結(jié)構(gòu)圖如圖1所示。圖1貨運站貨場信息管理系統(tǒng)功能結(jié)構(gòu)四、主要功能模塊設(shè)計4.1數(shù)據(jù)庫表設(shè)計（1）創(chuàng)建一個標準項目，名稱為貨運站貨場信息管理系統(tǒng)。（2）在項目管理器下創(chuàng)建一個數(shù)據(jù)庫，名稱為datebase,在數(shù)據(jù)庫中創(chuàng)建以下數(shù)據(jù)庫表：czqx（操作權(quán)限）、fwpj（服務(wù)評價）、hccc（貨場出車）、hcsg（貨場事故）、hqhw（貨區(qū)貨位）、pbgl（篷布管理）、hwyd（貨物運單）、yjh（月計劃）、zxc（裝卸車）、zxjx（裝卸機械），創(chuàng)建完成后輸入數(shù)據(jù)。具體內(nèi)容見附錄一。4.2表單設(shè)計設(shè)計的表單有登陸、服務(wù)評價、貨場出車查詢、貨場事故查詢、貨區(qū)查詢、貨位查詢、貨物運單查詢、貨源信息查詢、客戶貨物信息查詢、篷布使用查詢、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化、修改密碼、月計劃查詢、裝卸車查詢、裝卸機械查詢。4.2.1登陸界面設(shè)計圖2登錄界面設(shè)計圖用戶進入系統(tǒng)前，必須通過登錄進入主程序界面，登錄界面主要用于確認用戶的身份及使用權(quán)限，并且可對系統(tǒng)信息起到保密作用。系統(tǒng)登錄界面如圖2及圖3所示圖3登錄界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“登陸”。在表單中添加Text控件、Label控件、Command控件、Image控件。重要控件屬性:Text2的PasswordChar屬性設(shè)為“*”（2）代碼設(shè)計在“登陸L”按鈕的Click事件中添加以下代碼實現(xiàn)判斷密碼是否正確的功能。如果密碼不正確，將提示密碼不正確。locateforalltrim(czqx.用戶名)==alltrim(thisform.text1.value);andalltrim(czqx.密碼)==alltrim(thisform.text2.value)if!eof()=messagebox('歡迎您使用！','貨運站貨場信息管理系統(tǒng)')else=messagebox("密碼不正確")thisform.text2.value=""endifthisform.release在“退出Z”按鈕的Click事件中添加以下代碼：Quit在“image1”圖片的Click事件中添加以下代碼：thisform.text1.value="客戶"在“image2”圖片的Click事件中添加以下代碼：thisform.text1.value="管理員"在“image3”圖片的Click事件中添加以下代碼：thisform.text1.value="超級管理員"4.2.2系統(tǒng)初始化設(shè)計系統(tǒng)初始化會清空所有記錄，在執(zhí)行此操作之前，系統(tǒng)會自動備份數(shù)據(jù)到默認備份目錄下，以防數(shù)據(jù)丟失。系統(tǒng)初始化界面如圖4及圖5。圖4系統(tǒng)初始化界面設(shè)計圖圖5系統(tǒng)初始化界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“系統(tǒng)初始化”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“初始化F”按鈕的Click事件中添加以下代碼實現(xiàn)系統(tǒng)初始化的功能。privateoutpatha=messagebox("確定要執(zhí)行初始化操作嗎？",32+4,"系統(tǒng)提示")ifa=6 a=messagebox("初始化會清空所有數(shù)據(jù)，繼續(xù)嗎？",32+4,"系統(tǒng)提示") ifa=6 closealldatabase outpath="" ifdirectory(sys(5)+sys(2003)+"\bak")=.f. MKDIRsys(5)+sys(2003)+"\bak" endif iffile("系統(tǒng)設(shè)置.Rtt")=.t. handle=fopen("系統(tǒng)設(shè)置.Rtt",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)+"\bak" endif else outpath=sys(5)+sys(2003)+"\bak" endif mypath="" Mypath=sys(5)+sys(2003)+"\data" datepath=sys(5)+sys(2003)+"\data\DataBase" waitwindows"正在準備備份數(shù)據(jù)"Timeout0.8 thisok=thisform.rainbak1.bak(mypath,outpath) ifthisok=.t. waitwindows"正在準備初始化"Timeout0.8 thisform.rainfunction1.dateformat(datepath) else messagebox("初始化失?。?,16,"系統(tǒng)提示") return endif jmpath=alltrim(outpath)+"\DataBase.dbc" thisform.lockdatebase1.lock(jmpath,"正在加密備份文件") waitwindows"正在刪除其它設(shè)置文件"Timeout0.8 iffile("系統(tǒng)設(shè)置.Rtt")=.t. delefile("系統(tǒng)設(shè)置.RTT") endif iffile("檢測.RBT")=.t. deleFile("檢測.RBT") endif messagebox("系統(tǒng)初始化完成！",32,"系統(tǒng)提示") ENDIFENDIF在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.3修改密碼設(shè)計通過本功能，用戶可以修改自己的登陸密碼，保證自身賬戶的安全性。修改密碼界面如圖6及圖7。圖6修改密碼界面設(shè)計圖圖7修改密碼界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(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)useczqxdocasecaset1="客戶"ift2="111"ift3=t4updateczqzset密碼=t3where編號="1"elsemessagebox('新密碼輸入不一致！',48,'操作失??！')endifelsemessagebox('原密碼輸入錯誤！',48,'操作失??！')endifcaset1="管理員"ift2="222"ift3=t4updateczqzset密碼=t3where編號="2"elsemessagebox('新密碼輸入不一致！',48,'操作失?。?)endifelsemessagebox('原密碼輸入錯誤！',48,'操作失?。?)endifcaset1="超級管理員"ift2="333"ift3=t4updateczqzset密碼=t3where編號="3"elsemessagebox('新密碼輸入不一致！',48,'操作失??！')endifelsemessagebox('原密碼輸入錯誤！',48,'操作失??！')endif在“退出”按鈕的Click事件中添加以下代碼：thisform.release4.2.4數(shù)據(jù)備份設(shè)計數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時，可以利用數(shù)據(jù)恢復(fù)進行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)備份界面如圖8及圖9。圖8數(shù)據(jù)備份界面設(shè)計圖圖9數(shù)據(jù)備份界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“數(shù)據(jù)備份”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“備份B”按鈕的Click事件中添加以下代碼實現(xiàn)數(shù)據(jù)備份的功能。closealldatabaseprivateoutpathmypath="" 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,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.5數(shù)據(jù)恢復(fù)設(shè)計數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時，可以利用數(shù)據(jù)恢復(fù)進行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)恢復(fù)界面如圖10及圖11。圖10數(shù)據(jù)恢復(fù)界面運行圖圖11數(shù)據(jù)恢復(fù)界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“數(shù)據(jù)恢復(fù)”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設(shè)計在“恢復(fù)R”按鈕的Click事件中添加以下代碼實現(xiàn)數(shù)據(jù)備份的功能。closealldatabaseprivateoutpathmypath="" 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("數(shù)據(jù)恢復(fù)成功！無需要重新運行程序,可以直接使用！",32,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.6月計劃查詢設(shè)計查詢月度運輸計劃，包括貨物重量、體積、車種及始發(fā)終到地點等內(nèi)容。月計劃界面如圖12及圖13。圖12月計劃查詢界面設(shè)計圖圖13月計劃查詢界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“月計劃查詢”。在表單中添加combo控件、Label控件、Commandgroup控件、shape控件、Grid控件。在表單中添加數(shù)據(jù)環(huán)境，數(shù)據(jù)環(huán)境為yjh.dbf。（2）代碼設(shè)計在“查詢”按鈕的Click事件中添加以下代碼實現(xiàn)查詢月計劃的功能。cif=alltrim(bo1.displayvalue)ctext=alltrim(thisform.text1.value)ifempty(ctext)messagebox('請輸入查詢條件！',48,'操作失??！')thisform.text1.setfocuselseselect*;fromdatebase!yjh;where&cif.==alltrim(thisform.text1.value);orderby貨物名稱;intocursorlinquerythisform.grid2.recordsource='linquery'thisform.refreshendif在“退出”按鈕的Click事件中添加以下代碼：thisform.release其他如貨場出車查詢、貨場事故查詢、貨區(qū)查詢、貨位查詢、貨物運單查詢、貨源信息查詢等查詢在界面設(shè)計及代碼設(shè)計上基本一致，以下不再贅述。其他見附錄二。4.2.7月計劃錄入設(shè)計錄入月度運輸計劃，包括貨物重量、體積、車種及始發(fā)終到地點等內(nèi)容。月計劃錄入界面如圖14及圖15。圖14月計劃錄入界面設(shè)計圖圖15月計劃錄入界面運行圖（1）表單設(shè)計在貨運站貨場信息管理系統(tǒng)項目中，添加一個新表單，名稱為“月計劃錄入”。在表單中添加Label控件、Commandgroup控件、text控件、shape控件。（2）代碼設(shè)計在“保存”按鈕的Click事件中添加以下代碼實現(xiàn)月計劃錄入的功能。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)insertintoyjh(貨物名稱,日均（車）,靜載重（t每車）,車數(shù),運價（噸公里）,發(fā)送噸,始發(fā)站,終到站,日期,車種,貨源地,備注);values(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12)在“退出”按鈕的Click事件中添加以下代碼：thisform.release服務(wù)評價與月計劃錄入在界面設(shè)計及代碼設(shè)計上基本一致，以下不再贅述。4.3報表設(shè)計4.3.1運單打印設(shè)計打印貨物運單，包括委托方、收貨方、貨物名稱、重量及始發(fā)目的地等內(nèi)容，并統(tǒng)計總重量。運單打印界面如圖16及圖17。圖16運單打印界面設(shè)計圖圖17運單打印界面運行圖（1）在貨運站貨場信息管理系統(tǒng)項目中，添加一個新報表，名稱為“運單打印”。（2）在表單中添加Label控件、字段控件。（3）在表單中添加數(shù)據(jù)環(huán)境，數(shù)據(jù)環(huán)境為hwyd.dbf。貨場事故打印與運單打印在界面設(shè)計及控件設(shè)計上基本一致，以下不再贅述。4.4菜單設(shè)計（1）在貨運站貨場信息管理系統(tǒng)項目中，添加一個新菜單，名稱為“mainmenu”。（2）按照功能模塊結(jié)構(gòu)依次輸入子菜單和命令，命令有三種，分別是quit（退出）、doform表單名和reportform報表名.frxpreview。（3）根據(jù)權(quán)限要求在跳過設(shè)置跳過條件，依靠定義全局變量實現(xiàn)。具體菜單界面見圖18、19、20。圖18客戶使用權(quán)限界面運行圖圖19管理員使用權(quán)限界面運行圖圖20管理員使用權(quán)限界面運行圖4.5主程序設(shè)計主程序是整個系統(tǒng)運行的第一步，主程序可以設(shè)置全局變量、運行界面屬性、調(diào)用登陸界面和菜單等，所以，設(shè)計主程序?qū)υO(shè)計數(shù)據(jù)庫系統(tǒng)至關(guān)重要。publicxuseczqxx=alltrim(czqx.編號)clearscreen_screen.left=-10000doform表單\登陸_screen.caption='貨運站貨場信息管理系統(tǒng)'domainmenu.mpr_screen.left=0readevents五、結(jié)束語貨運站貨場信息管理系統(tǒng)的應(yīng)用能夠?qū)崿F(xiàn)貨場基礎(chǔ)設(shè)備及生產(chǎn)作業(yè)資源化管理，貨運指揮人員可以實時掌握貨場的作業(yè)車分布、月計劃、貨區(qū)貨位、裝卸工作、裝卸設(shè)備等資源和計劃的變化和利用情況，最大程度提高貨物運輸?shù)墓ぷ髻|(zhì)量和工作效率。附錄一:原始數(shù)據(jù)庫表表1月計劃.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨物名稱字符型10升序2日均（車）數(shù)值型1003靜載重（t/車）數(shù)值型804車數(shù)數(shù)值型305運價（噸公里）數(shù)值型826發(fā)送噸數(shù)值型807終到站字符型108始發(fā)站字符型109日期日期時間型810車種字符型1011貨源地字符型1012備注備注型4表2貨物運單.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨運編號字符型10升序3收貨方字符型105收貨人電話字符型157收貨方地址字符型408貨物名稱字符型109件數(shù)數(shù)值型4010重量（t）數(shù)值型8011體積（M）數(shù)值型8012運費數(shù)值型8013始發(fā)地字符型2014目的地字符型2016收貨時間日期時間型817備注備注型4表3貨區(qū)貨位.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨物名稱字符型10升序2品類字符型103貨區(qū)字符型204貨位字符型205重量（t）數(shù)值型806體積（M）數(shù)值型807占貨位比例數(shù)值型848貨位占貨區(qū)比例數(shù)值型849貨位利用率數(shù)值型8410備注備注型4表4裝卸機械.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號字段名稱字段類