




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐ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貨
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 外科骨科試題及答案
- 通知考試題及答案
- 土壤學(xué)試題及答案
- 統(tǒng)計崗位轉(zhuǎn)正試題及答案
- 2025年城市公共服務(wù)設(shè)施完善合作協(xié)議
- 2025年臨時工就業(yè)協(xié)議規(guī)范文本
- 2025年魚類飼料大豆供應(yīng)協(xié)議
- 2025年電子商務(wù)園區(qū)企業(yè)入住協(xié)議書范文
- 森林生態(tài)學(xué)基礎(chǔ)知識點(diǎn)歸納
- 文化遺產(chǎn)保護(hù)的社會共識與多元合作
- 2025年中考物理知識點(diǎn)歸納(挖空版)
- 硫化鉀測試報告范文
- 供水管道工程總承包EPC項目投標(biāo)方案(技術(shù)標(biāo))
- 張愛玲愛情論文開題報告
- 2025-2030年中國IT分銷市場競爭格局規(guī)劃研究報告
- 2025年初中學(xué)業(yè)水平考試語文模擬試卷(四)
- 光伏項目監(jiān)理竣工報告模
- 康復(fù)骨折病例匯報
- 福建省普通高中2023年學(xué)業(yè)水平合格性考試數(shù)學(xué)試題(原卷版)
- 2024年安徽省初中學(xué)業(yè)水平考試生物試題含答案
- 2025年小學(xué)一年級數(shù)學(xué)下冊無紙筆化評價方案及檢測題
評論
0/150
提交評論