1、貨運站貨場信息管理系統一、概述隨著經濟全球化的加快和中國經濟的騰飛，我國鐵路運輸業取得了巨大的發展。而貨場是鐵路貨運站最基本的作業場所之一，工人數量多，作業任務重，作業種類多。而隨著信息科技的發展，傳統的管理模式逐漸被信息化及數字化的管理模式所取代，如何用先進的管理手段，提高貨場的管理水平，已成為貨運站貨場的當務之急。面對信息時代的機遇和挑戰，用科技手段提高貨場管理水平無疑是一條行之有效的途徑。貨運站貨場信息管理系統的開發充分利用了信息技術和計算機技術，提高了貨運站貨場的管理水平、服務水平。系統實現了貨場計劃管理、貨場作業管理、貨場設備管理、貨場安全管理、客戶服務管理，并擁有查詢、錄入、修改、

2、打印等功能。該系統主要服務于貨運站貨場工作人員，除此之外也設置客戶服務管理，來滿足客戶對貨運信息的查詢及對貨物運輸的反饋，更加豐富了貨運站貨場信息管理系統的內容，拓寬了使用范圍。二、需求分析鐵路貨場是鐵路運輸企業面向社會辦理貨物運輸業務的窗口和貨物起止的集散地。為了安全、方便、快捷地運送貨物，經濟合理地利用鐵路貨場設備，充分發揮貨場的作業能力，必須加強貨場管理，從而實現貨場作業標準化、管理科學化、服務文明化。目前，一些鐵路貨運站雖然采用計算機工作，但是多數統計報表仍由人工處理，信息在不同實體之間沒有實現共享，造成大量重復勞動。由于車站作業崗位多，實行手工登記裝卸信息，使電話經常處于繁忙狀態，導

3、致其他作業點一直等待上報數據，造成時間浪費；而且手工登記容易出錯，并且無法追查錯誤原因，作業效率低下。在此基礎上，通過設計開發貨運站貨場信息管理系統，實現貨運集中管理，信息高度共享，提高工作質量和工作效率。三、系統設計3.1系統功能本系統功能模塊分為：貨場計劃管理、貨場作業管理、貨場設備管理、貨場安全管理、客戶服務管理?？蛻舻牟僮鳈嘞迌H限使用客戶服務管理功能模塊及修改密碼，管理員操作權限可使用除客戶服務管理和系統初始化全部功能模塊，超級管理員可使用所有功能。（1）貨場計劃管理：月計劃查詢及打印、運單查詢及打印、貨源信息查詢；（2）貨場作業管理：貨場出車查詢、裝卸車作業查詢；（3）貨場設備管理：

4、貨區查詢、貨位查詢、裝卸機械查詢、篷布使用查詢；（4）貨場安全管理：貨運事故查詢；貨運事故報告打印（5）客戶服務管理：信息查詢、服務評價；（6）系統管理：初始化系統、修改密碼、數據備份、數據恢復、退出。3.2系統功能結構本系統共分6大部分、20個完整的功能模塊。系統結構圖如圖1所示。圖1 貨運站貨場信息管理系統功能結構四、主要功能模塊設計4.1數據庫表設計（1）創建一個標準項目，名稱為貨運站貨場信息管理系統。（2）在項目管理器下創建一個數據庫，名稱為datebase,在數據庫中創建以下數據庫表：czqx（操作權限）、fwpj（服務評價）、hccc（貨場出車）、hcsg（貨場事故）、hqhw（貨

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

6、在貨運站貨場信息管理系統項目中，添加一個新表單，名稱為“登陸”。在表單中添加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(&#

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

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

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

10、統設置.Rtt",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(

11、5)+sys(2003)+"dataDataBase"wait windows "正在準備備份數據." Timeout 0.8thisok=thisform.rainbak1.bak(mypath,outpath)if thisok=.t.wait windows "正在準備初始化." Timeout 0.8thisform.rainfunction1.dateformat(datepath)elsemessagebox("初始化失敗！",16,"系統提示" )returnendifjmpath

12、=alltrim(outpath)+"DataBase.dbc"thisform.lockdatebase1.lock(jmpath,"正在加密備份文件.")wait windows "正在刪除其它設置文件." Timeout 0.8if file("系統設置.Rtt")=.t.dele file ("系統設置.RTT")endifif file ("檢測.RBT")=.t.dele File("檢測.RBT")endifmessagebox("

13、系統初始化完成！",32,"系統提示")ENDIFENDIF在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.3修改密碼設計通過本功能，用戶可以修改自己的登陸密碼，保證自身賬戶的安全性。修改密碼界面如圖6及圖7。圖6 修改密碼界面設計圖圖7 修改密碼界面運行圖（1）表單設計在貨運站貨場信息管理系統項目中，添加一個新表單，名稱為“修改密碼”。在表單中添加Label控件、Command控件。（2）代碼設計t1=alltrim(thisfor。m.text1.value)t2=alltrim(thisform.text2.value

14、)t3=alltrim(thisform.text3.value)t4=alltrim(thisform.text4.value)use czqxdo casecase t1="客戶"if t2="111"if t3=t4 update czqz set 密碼 =t3 where 編號="1"elsemessagebox('新密碼輸入不一致！',48,'操作失?。?#39;)endifelsemessagebox('原密碼輸入錯誤！',48,'操作失??！')endifcase t

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

16、uot;3"elsemessagebox('新密碼輸入不一致！',48,'操作失敗！')endifelsemessagebox('原密碼輸入錯誤！',48,'操作失??！')endif在“退出”按鈕的Click事件中添加以下代碼：thisform.release4.2.4數據備份設計 數據備份可以將數據保存到其他位置，當由于某些意外原因而發生數據無法使用時，可以利用數據恢復進行恢復，以減少意外所帶來的損失。數據備份界面如圖8及圖9。圖8 數據備份界面設計圖圖9 數據備份界面運行圖（1）表單設計在貨運站貨場信息管理系統項目中

17、，添加一個新表單，名稱為“數據備份”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設計在“備份B”按鈕的Click事件中添加以下代碼實現數據備份的功能。close all databaseprivate outpath mypath=""Mypath=sys(5)+sys(2003)+"data"outpath=alltrim(thisform.text1.value)thisform.rainbak1.bak(mypath,outpath)JMPath=alltrim(outPath)+"DateBase.dbc

18、"thisform.Lockdatebase1.lock(JmPath,"正在加密備份文件.")messagebox("備份完成！",32,"系統提示")在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.5數據恢復設計 數據備份可以將數據保存到其他位置，當由于某些意外原因而發生數據無法使用時，可以利用數據恢復進行恢復，以減少意外所帶來的損失。數據恢復界面如圖10及圖11。圖10 數據恢復界面運行圖圖11 數據恢復界面運行圖（1）表單設計在貨運站貨場信息管理系統項目中，添加一個新表單，名稱

19、為“數據恢復”。在表單中添加shape控件、Label控件、Command控件。（2）代碼設計在“恢復R”按鈕的Click事件中添加以下代碼實現數據備份的功能。close all databaseprivate 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)+"da

20、taDataBase.dbc","正在解密.")messagebox("數據恢復成功！無需要重新運行程序,可以直接使用！",32,"系統提示")在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.6月計劃查詢設計查詢月度運輸計劃，包括貨物重量、體積、車種及始發終到地點等內容。月計劃界面如圖12及圖13。圖12 月計劃查詢界面設計圖圖13 月計劃查詢界面運行圖（1）表單設計在貨運站貨場信息管理系統項目中，添加一個新表單，名稱為“月計劃查詢”。在表單中添加combo控件、Label控件、Com

21、mandgroup控件、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 &cif.=allt

22、rim(thisform.text1.value) ; order by 貨物名稱; into cursor linquery thisform.grid2.recordsource='linquery' thisform.refresh endif在“退出”按鈕的Click事件中添加以下代碼：thisform.release其他如貨場出車查詢、貨場事故查詢、貨區查詢、貨位查詢、貨物運單查詢、貨源信息查詢等查詢在界面設計及代碼設計上基本一致，以下不再贅述。其他見附錄二。4.2.7月計劃錄入設計錄入月度運輸計劃，包括貨物重量、體積、車種及始發終到地點等內容。月計劃錄入界面如圖14

23、及圖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(th

24、isform.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每車）,車數,運價（噸公里）,發送噸

25、,始發站,終到站,日期,車種,貨源地,備注) ;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控件、字段控

26、件。（3）在表單中添加數據環境，數據環境為hwyd.dbf。貨場事故打印與運單打印在界面設計及控件設計上基本一致，以下不再贅述。4.4菜單設計（1）在貨運站貨場信息管理系統項目中，添加一個新菜單，名稱為“mainmenu”。（2）按照功能模塊結構依次輸入子菜單和命令，命令有三種，分別是quit（退出）、do form 表單名和report form 報表名.frx preview。（3）根據權限要求在跳過設置跳過條件，依靠定義全局變量實現。具體菜單界面見圖18、19、20。 圖18 客戶使用權限界面運行圖圖19 管理員使用權限界面運行圖圖20 管理員使用權限界面運行圖4.5主程序設計主程序是整

27、個系統運行的第一步，主程序可以設置全局變量、運行界面屬性、調用登陸界面和菜單等，所以，設計主程序對設計數據庫系統至關重要。public xuse czqxx=alltrim(czqx.編號)clear screen _screen.left=-10000 do form 表單登陸 _screen.caption='貨運站貨場信息管理系統' do mainmenu.mpr _screen.left=0 read events 五、結束語貨運站貨場信息管理系統的應用能夠實現貨場基礎設備及生產作業資源化管理，貨運指揮人員可以實時掌握貨場的作業車分布、月計劃、貨區貨位、裝卸工作、裝卸設

28、備等資源和計劃的變化和利用情況，最大程度提高貨物運輸的工作質量和工作效率。附錄一:原始數據庫表表1 月計劃.DBF數據庫表結構序號字段名稱字段類型字段寬度小數位數索引1貨物名稱字符型10升序2日均（車）數值型1003靜載重（t/車）數值型804車數數值型305運價（噸公里）數值型826發送噸數值型807終到站字符型108始發站字符型109日期日期時間型810車種字符型1011貨源地字符型1012備注備注型4表2 貨物運單.DBF數據庫表結構序號字段名稱字段類型字段寬度小數位數索引1貨運編號字符型10升序3收貨方字符型105收貨人電話字符型157收貨方地址字符型408貨物名稱字符型109件數數值型4010重量（t）數值型8011體積（M）數值型8012運費數值型8013始發地字符型2014目的地字符型2016收貨時間日期時間型817備注備注型4表3 貨區貨位.DBF數據庫表結構序號字段名稱字段類型字段