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

1、實(shí)用標(biāo)準(zhǔn)貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)一、概述 隨著經(jīng)濟(jì)全球化的加快和中國經(jīng)濟(jì)的騰飛， 我國鐵路運(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)管理水平無疑是一條行之有效的途徑。貨運(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)設(shè)備管理、貨場(chǎng)安 全管理、客戶

2、服務(wù)管理，并擁有查詢、錄入、修改、打印等功能。該系統(tǒng)主要服務(wù)于貨運(yùn)站 貨場(chǎng)工作人員， 除此之外也設(shè)置客戶服務(wù)管理， 來滿足客戶對(duì)貨運(yùn)信息的查詢及對(duì)貨物運(yùn)輸 的反饋，更加豐富了貨運(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ò)， 并且無法追查錯(cuò)誤原因， 作業(yè)效率低下。 在此基礎(chǔ)上， 通過設(shè)計(jì)開發(fā)貨 運(yùn)站貨場(chǎng)信息管理系統(tǒng)，實(shí)現(xiàn)貨運(yùn)集中管理，信息高度共享，提高工作質(zhì)量和工作效率。三、系統(tǒng)設(shè)計(jì)3.1 系統(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)單查詢及

4、打印、貨源信息查詢；（2）貨場(chǎng)作業(yè)管理：貨場(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ù)、退出。3.2 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)共分 6大部分、 20個(gè)完整的功能模塊。系統(tǒng)結(jié)構(gòu)圖如圖 1所示。慶姑站貨場(chǎng)甘啟營刃走躱1 1 1 1 1 1IHwir扮詐力忡用frittUV.J1 理廿計(jì)期W-理HJFqftihJ&£飩豐rf狗li.i化遠(yuǎn)*削|1 .母甲音曲打計(jì)劃白IIU醫(yī)皿出筆習(xí)世文案大全圖

5、1貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)功能結(jié)構(gòu)四、主要功能模塊設(shè)計(jì)4.1數(shù)據(jù)庫表設(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ù)庫，名稱為 datebase,在數(shù)據(jù)庫中創(chuàng)建以下數(shù)據(jù)庫 表：czqx （操作權(quán)限）、fwpj （服務(wù)評(píng)價(jià)）、hccc （貨場(chǎng)出車）、hcsg （貨場(chǎng)事故）、hqhw （貨 區(qū)貨位）、pbgl （篷布管理）、hwyd （貨物運(yùn)單）、yjh （月計(jì)劃）、zxc （裝卸車）、zxjx （裝 卸機(jī)械），創(chuàng)建完成后輸入數(shù)據(jù)。具體內(nèi)容見附錄一。4.2表單設(shè)計(jì)設(shè)計(jì)的表單有登陸、服務(wù)評(píng)價(jià)、貨場(chǎng)出車查詢、貨場(chǎng)事故查詢、貨區(qū)查詢、貨位查詢、 貨物運(yùn)單查詢、貨源

6、信息查詢、客戶貨物信息查詢、篷布使用查詢、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、 系統(tǒng)初始化、修改密碼、月計(jì)劃查詢、裝卸車查詢、裝卸機(jī)械查詢。4.2.1登陸界面設(shè)計(jì)目：詁. <| ct | 8 | S3圖2登錄界面設(shè)計(jì)圖用戶進(jìn)入系統(tǒng)前，必須通過登錄進(jìn)入主程序界面，登錄界面主要用于確認(rèn)用戶的身份及 使用權(quán)限，并且可對(duì)系統(tǒng)信息起到保密作用。系統(tǒng)登錄界面如圖2及圖3所示圖3登錄界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“登陸”。在表單中添加 Text控件、Label控件、Comman（控件、Image控件。 重要控件屬性:Text2的PasswordChar屬性設(shè)為“ * ”

7、（2）代碼設(shè)計(jì)在“登陸按鈕的Click事件中添加以下代碼實(shí)現(xiàn)判斷密碼是否正確的功能。如果密 碼不正確，將提示密碼不正確。locate for alltrim（czqx.用戶名）=alltrim（thisform.text1.value）;and alltrim（czqx.密碼）=alltrim（thisform.text2.value）if !eof（）=messagebox（' 歡迎您使用！,貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)'）else=messagebox（" 密碼不正確"）thisform.text2.value=""endifthisfor

8、m.release在“退出Z”按鈕的Click事件中添加以下代碼：Quit在“ image1 ”圖片的Click事件中添加以下代碼：thisform.text1.value=" 客戶"在“ image2”圖片的Click事件中添加以下代碼：thisform.text1.value="管理員"在“ image3”圖片的Click事件中添加以下代碼：thisform.text1.value="超級(jí)管理員"422系統(tǒng)初始化設(shè)計(jì)系統(tǒng)初始化會(huì)清空所有記錄， 在執(zhí)行此操作之前，系統(tǒng)會(huì)自動(dòng)備份數(shù)據(jù)到默認(rèn)備份目錄 下，以防數(shù)據(jù)丟失。系統(tǒng)初始化界面如圖

9、4及圖5。F您 究清執(zhí)4113 中百會(huì)靈的防咿；到.初二皐下.i STS目0以可圖4系統(tǒng)初始化界面設(shè)計(jì)圖盲-f.D團(tuán)口|創(chuàng)如刃盂睦慮2冋！図廠 亠=1正回|電圖釗圖5系統(tǒng)初始化界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“系統(tǒng)初始化” 在表單中添加 shape控件、Label控件、Comman控件。（2）代碼設(shè)計(jì)在“初始化F”按鈕的Click事件中添加以下代碼實(shí)現(xiàn)系統(tǒng)初始化的功能。private outpatha=messagebox（"確定要執(zhí)行初始化操作嗎？",32+4,"系統(tǒng)提示"）if a=6a=messageb

10、ox("初始化會(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",2)m=1do while feof(handle)=.f.mystr=fgets(

11、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)+"dataDataBase"wait windows "

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

13、ase1.lock(jmpath,"正在加密備份文件.")wait windows "正在刪除其它設(shè)置文件 ."Timeout 0.8if 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”按鈕的Cli

14、ck事件中添加以下代碼：thisform.release4.2.3修改密碼設(shè)計(jì)通過本功能，用戶可以修改自己的登陸密碼，保證自身賬戶的安全性。修改密碼界面如圖6及圖7。*11圖6修改密碼界面設(shè)計(jì)圖圖7修改密碼界面運(yùn)行圖（1）表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“修改密碼” 在表單中添加 Label控件、Comman（控件。（2）代碼設(shè)計(jì)t1=alltrim（thisfor 。m.textl.value）t2=alltrim（thisform.text2.value）t3=alltrim（thisform.text3.value）t4=alltrim（thisform.t

15、ext4.value）use czqxdo casecase t1="客戶”if t2="111"if t3=t4update czqz set 密碼=t3 where 編號(hào)="1"elsemessagebox（'新密碼輸入不一致！,48,'操作失??！'）en difelsemessagebox（'原密碼輸入錯(cuò)誤！',48,' 操作失??！'）en difcase t1="管理員”if t2="222"if t3=t4update czqz set 密碼=t3

16、where 編號(hào)="2"elsemessagebox（'新密碼輸入不一致！',48,'操作失敗！'）en difelsemessagebox（'原密碼輸入錯(cuò)誤！',48,' 操作失??！'）en difcase t1="超級(jí)管理員”if t2="333"if t3=t4update czqz set 密碼=t3 where 編號(hào)="3"elsemessagebox（'新密碼輸入不一致！',48,'操作失??！'）en difelsem

17、essagebox（'原密碼輸入錯(cuò)誤！',48,' 操作失??！'）en dif在“退出”按鈕的 Click事件中添加以下代碼：thisform.release4.2.4數(shù)據(jù)備份設(shè)計(jì)數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時(shí),以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)備份界面如圖8及圖9。*11 口 1回S3E-備E-出in將，血，垃帀i奮憶胳輕：|tmii e Iran > n ei t r n nmnnniiHtn圖8數(shù)據(jù)備份界面設(shè)計(jì)圖¥眾卻卅£ IrM 鬢-!|宙1' 'klf

18、all t|矗占哩応3-'丄言崔 JJz、業(yè)百謹(jǐn) J；乜丘兜厘乩i住寶雪總胃.避葩0：ft討>9£；(-. ._1*也豐蟲 ni-歹.-希 1刁昭擁彳 | C: WsusIlitM- v)-1 iDisk topv|圖9數(shù)據(jù)備份界面運(yùn)行圖(1) 表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名稱為“數(shù)據(jù)備份” 在表單中添加 shape控件、Label控件、Comman控件。(2) 代碼設(shè)計(jì)在“備份B”按鈕的Click事件中添加以下代碼實(shí)現(xiàn)數(shù)據(jù)備份的功能。close all databaseprivate outpathmypath=""My

19、path=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.

20、release4.2.5數(shù)據(jù)恢復(fù)設(shè)計(jì)數(shù)據(jù)備份可以將數(shù)據(jù)保存到其他位置，當(dāng)由于某些意外原因而發(fā)生數(shù)據(jù)無法使用時(shí)，可以利用數(shù)據(jù)恢復(fù)進(jìn)行恢復(fù)，以減少意外所帶來的損失。數(shù)據(jù)恢復(fù)界面如圖10及圖11。'ftfl 3書岌可黨 將，而,&市 可fe原退亠黑IR nail !* I a * a a 恢萇路衿；|r«stiJwi iBliinnKiH :anitteia ics（a）圖10數(shù)據(jù)恢復(fù)界面運(yùn)行圖-fc&-VITi5 -r*l l&T71 -11 1*1 *t|l TaI圖11數(shù)據(jù)恢復(fù)界面運(yùn)行圖(1) 表單設(shè)計(jì)在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新表單，名

21、稱為“數(shù)據(jù)恢復(fù)” 在表單中添加 shape控件、Label控件、Comman控件。(2) 代碼設(shè)計(jì)在“恢復(fù)R”按鈕的Click事件中添加以下代碼實(shí)現(xiàn)數(shù)據(jù)備份的功能。close all databaseprivate outpathmypath=""Mypath=alltrim(thisform.text1.value)outpath=sys(5)+sys(2003)+"data" thisform.rainbak1.bak(mypath,outpath)thisform.Lockdatebase1.lock(sys(5)+sys(2003)+"

22、dataDataBase.dbc","正在解密.")messagebox("數(shù)據(jù)恢復(fù)成功！無需要重新運(yùn)行程序，可以直接使用！",32,"系統(tǒng)提示")在“退出E”按鈕的Click事件中添加以下代碼：thisform.release4.2.6月計(jì)劃查詢?cè)O(shè)計(jì)查詢?cè)露冗\(yùn)輸計(jì)劃， 包括貨物重量、體積、車種及始發(fā)終到地點(diǎn)等內(nèi)容。月計(jì)劃界面如 圖12及圖13。圖12月計(jì)劃查詢界面設(shè)計(jì)圖月計(jì)創(chuàng)M理運(yùn)雪握貨運(yùn)計(jì)勺笆鬼奠運(yùn)忙丄罪貨壬設(shè)備苣毘疣運(yùn)左仝隹逞宜戸醫(yī)呂漓期月計(jì)注詞 juiaiifelj磴誼棗;1笑柯容稱 T亭段！圖13月計(jì)劃查詢界面運(yùn)行

23、圖(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)境為yjh.dbf。(2) 代碼設(shè)計(jì)在“查詢”按鈕的 Click事件中添加以下代碼實(shí)現(xiàn)查詢?cè)掠?jì)劃的功能。cif=alltrim(bo1.displayvalue)ctext=alltrim(thisform.text1.value)if empty(ctext)messagebox('請(qǐng)輸入查詢條件！,48,' 操作失敗！')thisform.tex

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

25、錄二。4.2.7月計(jì)劃錄入設(shè)計(jì)錄入月度運(yùn)輸計(jì)劃，包括貨物重量、體積、車種及始發(fā)終到地點(diǎn)等內(nèi)容。月計(jì)劃錄入界面如圖14及圖15。圖14月計(jì)劃錄入界面設(shè)計(jì)圖期賞込緡賞嘩邑肯理訣網(wǎng)苣理礙運(yùn)計(jì)甸営理負(fù)運(yùn)作業(yè)飆 M迂設(shè)至蘭芒占運(yùn)衣丸理喜戶強(qiáng)崟昔理：口目口)冃燈吞鋼3創(chuàng)劇垂I國 J_| jJ月計(jì)旬1錄入;E=圖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=alltr

26、im(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)t1O=alltrim(thisform

27、.text1O.value)t11=alltrim(thisform.text11.value)t12=alltrim(thisform.text12.value)insert into yjh (貨物名稱，日均(車)，靜載重(t每車)，車數(shù),運(yùn)價(jià)(噸公里)，發(fā)送噸，始發(fā)站,終到站，日期，車種，貨源地，備注)；values(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12)在“退出”按鈕的 Click事件中添加以下代碼：thisform.release服務(wù)評(píng)價(jià)與月計(jì)劃錄入在界面設(shè)計(jì)及代碼設(shè)計(jì)上基本一致，以下不再贅述。4.3報(bào)表設(shè)計(jì)4.3.1運(yùn)單打印設(shè)計(jì)打印貨物運(yùn)單，

28、包括委托方、收貨方、貨物名稱、重量及始發(fā)目的地等內(nèi)容，并統(tǒng)計(jì)總 重量。運(yùn)單打印界面如圖16及圖17。V Mkrslerh Vktlal FaJiFra口 Xwqoi iM（n* mbkp） awy aw whWl金削匸1 *1尙1©1 小l打罔 應(yīng)忑3 口価I欄1刨曲1 U為飆*山IL/lMtdui"圖16運(yùn)單打印界面設(shè)計(jì)圖申貫并彷氏顯劉怦哼uhSdik耙再登蟲寧戦連甘廣電畀百irPO）巨"上，列._. .丨*J w>. tlNi“ 1|酣* |”|11到創(chuàng)國worn _J瑩體積池地目社覽托運(yùn)時(shí)同收賀時(shí)何runWfl:傅“ K |d |2 T 11fla 1

29、5 Ifi 12 01 flO克？1封Q北R凰眩M 12 00：«Oh L& 14 1? D） nn含計(jì)9寶：WJt圖17運(yùn)單打印界面運(yùn)行圖（1）在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新報(bào)表，名稱為“運(yùn)單打印”。（2）在表單中添加 Label控件、字段控件。（3） 在表單中添加數(shù)據(jù)環(huán)境，數(shù)據(jù)環(huán)境為hwyd.dbf。貨場(chǎng)事故打印與運(yùn)單打印在界面設(shè)計(jì)及控件設(shè)計(jì)上基本一致，以下不再贅述。4.4菜單設(shè)計(jì)（1） 在貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)項(xiàng)目中，添加一個(gè)新菜單，名稱為“mai nmenu”。（2） 按照功能模塊結(jié)構(gòu)依次輸入子菜單和命令，命令有三種，分別是quit （退出）、 do fo

30、rm 表單名和 report form 報(bào)表名.frx preview 。（3）根據(jù)權(quán)限要求在跳過設(shè)置跳過條件，依靠定義全局變量實(shí)現(xiàn)。具體菜單界面見圖18、 19、20。V法逢陀旦蘭理4£吒啟音理 哎暑咔16理 題哲躍 超避甌 JJBAAMS 畫八夠它理冋 剖固曠I :d毛|i電1IE !同f刁同圍童灌I鼬圄*1圖18客戶使用權(quán)限界面運(yùn)行圖¥斗a苛細(xì)MR9 盛衛(wèi)世睦 iSfiiffilM BiattWA fili*空凹 瑪二&.£，.”皿:円 J 一|： | - 一 | 一|川!兇|U T於|餌型雯回 1t|圖19管理員使用權(quán)限界面運(yùn)行圖cJqIhJ劇國1

31、歇| 是|輛團(tuán) i|T JIM|3 ®J®I圖I MB Tl2k.1=1 13竝化IiHHj Z圖20管理員使用權(quán)限界面運(yùn)行圖4.5主程序設(shè)計(jì)主程序是整個(gè)系統(tǒng)運(yùn)行的第一步，主程序可以設(shè)置全局變量、運(yùn)行界面屬性、調(diào)用登陸界面和菜單等，所以，設(shè)計(jì)主程序?qū)υO(shè)計(jì)數(shù)據(jù)庫系統(tǒng)至關(guān)重要。public xuse czqxx=alltrim（czqx. 編號(hào)）clear screen_screen.left=-10000do form 表單登陸_screen.caption='貨運(yùn)站貨場(chǎng)信息管理系統(tǒng)'do mainmenu.mpr_scree n.l eft=0read ev

32、ents五、結(jié)束語貨運(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)輸?shù)墓ぷ髻|(zhì)量和工作效率。附錄一：原始數(shù)據(jù)庫表表1月計(jì)劃.DBF數(shù)據(jù)庫表結(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ù)庫

33、表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1貨運(yùn)編號(hào)字符型10升序3收貨方字符型105收貨人電話字符型157收貨方地址字符型408貨物名稱字符型109件數(shù)數(shù)值型4010重量（t）數(shù)值型8011體積（數(shù)值型8012運(yùn)費(fèi)數(shù)值型8013始發(fā)地字符型2014目的地字符型2016收貨時(shí)間日期時(shí)間型817備注備注型4表3貨區(qū)貨位.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型1字段寬度小數(shù)位數(shù)索引1貨物名稱字符型10升序2品類字符型103貨區(qū)字符型204貨位字符型205重量（t）數(shù)值型806體積（M數(shù)值型807占貨位比例數(shù)值型848貨位占貨區(qū)比例數(shù)值型849貨位利用率:數(shù)值型8410備注備注型4表4 裝卸機(jī)械

34、.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1機(jī)械名稱字符型20升序2數(shù)量數(shù)值型203:可用數(shù)量數(shù)值型204報(bào)修數(shù)量數(shù)值型205:適用范圍字符型406備注備注型4表5篷布管理.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1:篷布種類字符型20升序2數(shù)量數(shù)值型403:可用數(shù)量數(shù)值型404報(bào)修數(shù)量數(shù)值型405:適用范圍字符型406備注備注型4表6貨場(chǎng)事故.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1事故編號(hào)字符型10升序2事故等級(jí)字符型13事故種類字符型44損失款額數(shù)值型1005賠償款額數(shù)值型10706事故原因字符型1007備注備注型4表7服務(wù)評(píng)價(jià).D

35、BF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1:貨運(yùn)編號(hào)字符型10升序2運(yùn)輸速度字符型103r貨物有無損壞字符型104運(yùn)價(jià)水平字符型205其他說明字符型1006備注備注型4表8裝卸車.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1:貨運(yùn)編號(hào)字符型10升序2股道現(xiàn)在車數(shù)值型8升序3:裝卸車數(shù)量數(shù)值型84裝卸車時(shí)間日期時(shí)間型85裝卸車地點(diǎn)字符型206備注備注型4表9貨場(chǎng)出車.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1:貨運(yùn)編號(hào)字符型10升序2出車時(shí)間日期時(shí)間型83出車內(nèi)容字符型204出車數(shù)量數(shù)值型85備注備注型4表10操作權(quán)限.DBF數(shù)據(jù)庫表結(jié)構(gòu)序號(hào)字段名稱字段類型字段寬度小數(shù)位數(shù)索引1:用戶名字符型10升序2密碼字符型103編號(hào)字符型74備注備注型4實(shí)