貨運(yùn)設(shè)備管理系統(tǒng)

1、貨運(yùn)設(shè)備管理系統(tǒng)對整個鐵路運(yùn)輸部門而言，設(shè)備管理具有很重要的意義。它是重要的基礎(chǔ)管理信息資源，是進(jìn)行技術(shù)改造、行車指揮、保障行車安全及事故搶險救援等的重要依據(jù)。設(shè)備是固定資產(chǎn)的重要組成部分，如何管理好各部門的設(shè)備，如何使設(shè)備的壽命周期更長，使其使用綜合效率最高，是運(yùn)輸部門實(shí)現(xiàn)生產(chǎn)經(jīng)營的重要目的之一。但是由于管理技術(shù)跟不上，使設(shè)備管理成為鐵路系統(tǒng)技術(shù)管理的薄弱環(huán)節(jié)。鐵路部門的日常計(jì)劃、生產(chǎn)質(zhì)量、技術(shù)、物資、能源和財(cái)務(wù)等管理，都與設(shè)備管理有著這樣或那樣的聯(lián)系。隨著鐵路經(jīng)營機(jī)制的變革和技術(shù)更新速度的加快，各級管理人員的行車技術(shù)設(shè)備信息的需求不斷增長，以傳統(tǒng)方式管理運(yùn)輸設(shè)備難以適應(yīng)新形勢的需要。設(shè)備管

2、理的好壞，在很大程度上決定了行車安全以及運(yùn)輸成本的高低。在現(xiàn)代化生產(chǎn)條件日益完善的今天，設(shè)備管理水平的高低對運(yùn)輸部門的影響更是強(qiáng)烈。所以，提高鐵路運(yùn)輸部門客貨運(yùn)設(shè)備管理水平，使之為車站的正常生產(chǎn)經(jīng)營提供效率更高的后勤服務(wù)是十分有必要的。隨著現(xiàn)代化生產(chǎn)水平的不斷提高，設(shè)備的性能更加高級，結(jié)構(gòu)更加復(fù)雜，使用維修等條件更加嚴(yán)格，設(shè)備的投資越來越昂貴。設(shè)備管理成為影響運(yùn)輸部門經(jīng)濟(jì)效益的主要因素之一，在運(yùn)輸部門日常管理中的地位舉足輕重。所以，如何加強(qiáng)鐵路運(yùn)輸部門的客貨運(yùn)設(shè)備管理，是擺在我們面前的一項(xiàng)迫切的重要任務(wù)。隨著計(jì)算機(jī)的日益普及，計(jì)算機(jī)水平的飛速發(fā)展，尤其是以計(jì)算機(jī)為根基推動的信息技術(shù)和信息應(yīng)用的

3、發(fā)展更是成為了一個國家社會進(jìn)步、經(jīng)濟(jì)騰飛的原動力。在全球互連網(wǎng)迅猛發(fā)展，網(wǎng)絡(luò)經(jīng)濟(jì)正在興起的背景下，鐵路運(yùn)輸部門現(xiàn)有的設(shè)備管理系統(tǒng)也面臨著向網(wǎng)絡(luò)化、智能化、輔助決策支持等方向發(fā)展。本系統(tǒng)運(yùn)用計(jì)算機(jī)visual basic編程工具設(shè)計(jì)了一個管理鐵路貨運(yùn)設(shè)備，改變以前的落后的管理法，是貨運(yùn)設(shè)備管理進(jìn)入信息化。 下面是貨運(yùn)設(shè)備管理信息系統(tǒng)功能結(jié)構(gòu)圖。 設(shè)計(jì)思想在該系統(tǒng)的開發(fā)過程中，我們充分吸收和借鑒了長期以來從事各種工程項(xiàng)目所積累的行之有效的原理、概念、技術(shù)、和方法，特別是在以往的計(jì)算機(jī)軟件開發(fā)過程中所積累的經(jīng)驗(yàn)和教訓(xùn)。采用軟件工程的概念、原理、技術(shù)和方法開發(fā)和維護(hù)軟件，把正確的管理技術(shù)和先進(jìn)的軟件開

4、發(fā)技術(shù)結(jié)合起來。嚴(yán)格運(yùn)用了生命周期方法學(xué)和各種結(jié)構(gòu)分析及結(jié)構(gòu)設(shè)計(jì)技術(shù)，以最大限度的滿足用戶需求為目的，從時間角度對該設(shè)備管理信息系統(tǒng)的開發(fā)和維護(hù)進(jìn)行了分解，將軟件開發(fā)分為六個步驟：制定計(jì)劃、需求分析、軟件設(shè)計(jì)、程序編寫、軟件測試、運(yùn)行和維護(hù)。（1）對系統(tǒng)的設(shè)計(jì)進(jìn)行了可行性研究 開發(fā)應(yīng)用軟件前的可行性研究對開發(fā)人員來說是至關(guān)重要的一環(huán)，所以我們對以前類似的系統(tǒng)做了充分的研究，對即將開發(fā)的軟件也做了大量的分析，并做出了相應(yīng)的技術(shù)文檔。以前有關(guān)設(shè)備管理的軟件是在DOS操作系統(tǒng)下所實(shí)現(xiàn)的，隨著計(jì)算機(jī)水平的不斷提高，操作系統(tǒng)的不斷升級，該系統(tǒng)版本低、界面單調(diào)，而且使用起來十分麻煩，已經(jīng)遠(yuǎn)遠(yuǎn)不能符合用戶的

5、需要。我們所開發(fā)的系統(tǒng)要求緊密結(jié)合用戶需求，針對以前軟件的不足之處，開發(fā)出基于WINDOWS 視窗操作系統(tǒng)的版本，該系統(tǒng)界面友好、風(fēng)格獨(dú)特、功能強(qiáng)大、使用起來方便快捷。針對鐵路運(yùn)輸部門來說，快速、高效是尤其重要的要素，系統(tǒng)的開發(fā)也緊密結(jié)合了此要求。（2）對軟件的需求分析及采用的開發(fā)環(huán)境 應(yīng)用軟件最主要的特點(diǎn)就是最大限度的滿足用戶的需求。系統(tǒng)開發(fā)人員要緊緊圍繞用戶的需求來開發(fā)軟件。根據(jù)用戶的要求，在經(jīng)過反復(fù)分析研究之后，確定出鐵路部門的運(yùn)輸設(shè)備履歷簿管理信息系統(tǒng)要具有以下功能：1. 實(shí)現(xiàn)對以前版本的設(shè)備管理系統(tǒng)數(shù)據(jù)的兼容性； 2. 方便、快捷、安全可靠的履歷數(shù)據(jù)編輯功能； 3. 高效、方便、時間

6、和范圍任意組合的車站數(shù)據(jù)查詢功能； 4. 路局、分局在任意時間里對任意范圍的數(shù)據(jù)進(jìn)行統(tǒng)計(jì)的功能； 5. 路局、分局、車務(wù)段、車站部分?jǐn)?shù)據(jù)年度、月度自動匯總功能； 6. 自動生成車站履歷簿報(bào)表及年度報(bào)表以及分局年度匯總表功能； 7. 實(shí)現(xiàn)車站、車務(wù)段、分局、路局間的履歷簿數(shù)據(jù)在網(wǎng)上自動傳輸?shù)墓δ堋?操作系統(tǒng)采用當(dāng)前計(jì)算機(jī)用戶普遍采用的WINDOWS 95/98/2000操作系統(tǒng)，軟件開發(fā)工具選用了面向?qū)ο蟮能浖_發(fā)工具VISUAL BASIC 6.0，履歷簿數(shù)據(jù)的存放、數(shù)據(jù)的處理及報(bào)表的生成選擇了通用的辦公軟件OFFICE 系列中的MICROSOFT ACCESS以及MICROSOFT EXCE

7、L 不僅實(shí)現(xiàn)了軟件的大眾性及通用性，而且實(shí)現(xiàn)了對以前在DOS下開發(fā)的履歷設(shè)備管理數(shù)據(jù)存放的.dbf格式的兼容性。（3）系統(tǒng)的設(shè)計(jì)思路 如何制定系統(tǒng)總體結(jié)構(gòu)，即用什么樣的方案來設(shè)計(jì)應(yīng)用軟件的總體結(jié)構(gòu)以及制定什么樣的設(shè)計(jì)思路來完成所要開發(fā)的項(xiàng)目，是每個項(xiàng)目開發(fā)前最重要的環(huán)節(jié)之一。應(yīng)用軟件和工具軟件不同，系統(tǒng)的總體結(jié)構(gòu)、設(shè)計(jì)思路和系統(tǒng)目標(biāo)是以用戶的需求為中心的，所以選擇最合乎用戶要求的方案是必須的。 該系統(tǒng)運(yùn)行所采用的操作系統(tǒng)是當(dāng)前大部分計(jì)算機(jī)用戶普遍采用的WINDOWS 95/98/2000操作系統(tǒng)，也符合鐵路運(yùn)輸部門普遍的使用習(xí)慣。 在當(dāng)前的軟件開發(fā)中，面向?qū)ο螅∣O：Object-Orient

8、ed）的概念已經(jīng)無處不在，面向?qū)ο蟮脑O(shè)計(jì)（OOD：Object-Oriented Design）成為系統(tǒng)設(shè)計(jì)和系統(tǒng)分析的首選方式，面向?qū)ο蟮木幊蹋∣O：Object-Oriented Programme）的語言已經(jīng)成為主要的考慮對象。大多數(shù)其它程序設(shè)計(jì)語言將數(shù)據(jù)元素從執(zhí)行它們的的過程或活動中分離，而面向?qū)ο螅∣O）的語言，是把數(shù)據(jù)與過程（或活動）結(jié)合起來與對象相聯(lián)系。 對設(shè)備履歷簿管理信息系統(tǒng)的開發(fā)選擇了功能強(qiáng)大的面向?qū)ο蟪绦蜷_發(fā)工具VISUAL BASIC 6.0。它不僅有友好的圖形界面，而且有強(qiáng)大的數(shù)據(jù)庫訪問和數(shù)據(jù)處理能力，以及許多支持面向?qū)ο笤O(shè)計(jì)和實(shí)現(xiàn)的特性：1. 在類模塊中定義類； 2

9、. 用屬性過程提供公共訪問； 3. 定義多態(tài)方法； 4. 生成事件； 5. 封裝類常量； 6. 用Object Browser 查看類； 7. 創(chuàng)建對象； 8. 使用窗體作為對象； 9. 使用對象組； 10. 定義多接口； 11. 開發(fā)數(shù)據(jù)庫應(yīng)用程序； 12. 開發(fā)基于WEB的應(yīng)用程序； VISUAL BASIC 6.0 的許多新特性更加完善了面向?qū)ο蟮募夹g(shù)。采用新的數(shù)據(jù)訪問工具如ADO2、DATA VIEW（數(shù)據(jù)視圖）、DataEnvironment（數(shù)據(jù)環(huán)境）、Data Report（數(shù)據(jù)報(bào)告）設(shè)計(jì)器大大方便了訪問數(shù)據(jù)庫的功能；在WEB開發(fā)方面，可以用VB創(chuàng)建WEB應(yīng)用程序。其中包括DHT

10、ML以及ILS應(yīng)用程序。 這些優(yōu)秀的面向?qū)ο笤O(shè)計(jì)和面向?qū)ο髷?shù)據(jù)訪問的功能結(jié)合起來運(yùn)用，能夠高質(zhì)量的完成對履歷簿數(shù)據(jù)的編輯、查詢以及統(tǒng)計(jì)功能。不僅實(shí)現(xiàn)每一個車站的數(shù)據(jù)查詢，而且可以實(shí)現(xiàn)任何一個車務(wù)段，任何一個分局，任何一個路局，甚至任何一條鐵路線上的所有車站的履歷數(shù)據(jù)的查詢和統(tǒng)計(jì)功能。功能完善，風(fēng)格獨(dú)特，優(yōu)點(diǎn)突出，是該系統(tǒng)的特點(diǎn)，與多媒體的完美結(jié)合也使得該系統(tǒng)在使用戶滿意的程度上又上了一個臺階。 數(shù)據(jù)處理是現(xiàn)代計(jì)算機(jī)應(yīng)用中的一個重要組成部分。人們使用計(jì)算機(jī)對大量的數(shù)據(jù)保存和管理，一邊推出有價值的信息輔助決策。數(shù)據(jù)處理的發(fā)展分為三個階段：人工管理階段、文件系統(tǒng)階段、數(shù)據(jù)庫系統(tǒng)階段。數(shù)據(jù)庫系統(tǒng)的發(fā)展

11、有經(jīng)歷了三個階段：網(wǎng)狀數(shù)據(jù)庫、層次數(shù)據(jù)庫、關(guān)系數(shù)據(jù)庫。 數(shù)據(jù)庫管理系統(tǒng)是一個軟件系統(tǒng)，它能夠?qū)?shù)據(jù)庫進(jìn)行存儲管理、安全性管理、完整性管理。它為用戶提供了一個軟件環(huán)境，快速建立、維護(hù)、檢索、存取和處理數(shù)據(jù)庫中的信息。數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)在一起構(gòu)成了數(shù)據(jù)庫系統(tǒng)。 面向?qū)ο蟪绦蛟O(shè)計(jì)方法中的對象是以對象名封裝的數(shù)據(jù)結(jié)構(gòu)和可施加在這些數(shù)據(jù)上的操作的集合。操作名列在封裝對象的界面上，當(dāng)一個對象A啟動另一個對象B的某個操作C時，A只需要以操作名C為主要信息向B發(fā)一條消息。對象B接收到A的消息后就會自動啟動操作C的工作，完成對B的數(shù)據(jù)結(jié)構(gòu)的加工。 因此，數(shù)據(jù)庫技術(shù)成為了計(jì)算機(jī)信息系統(tǒng)和應(yīng)用系統(tǒng)的重要支柱。

12、而面向?qū)ο蟪绦蜷_發(fā)中的面向?qū)ο蟮臄?shù)據(jù)庫系統(tǒng)就顯的極為重要。鐵路運(yùn)輸部門的客貨運(yùn)履歷數(shù)據(jù)不僅多而且比較復(fù)雜，以前所采用的管理系統(tǒng)是DOS操作系統(tǒng)下的版本，履歷簿數(shù)據(jù)是以.dbf的格式保存的，所以選擇OFFICE辦公軟件中的數(shù)據(jù)庫開發(fā)軟件MICROSOFT ACCESS不僅符合絕大多數(shù)計(jì)算機(jī)使用者的習(xí)慣，而且強(qiáng)大的數(shù)據(jù)存放和數(shù)據(jù)處理能力、對以前版本的履歷數(shù)據(jù)的完全兼容是完全正確的。報(bào)表的生成也選擇了OFFICE 家族中的MICROSOFT EXCEL 實(shí)現(xiàn)報(bào)表的自動生成，完全按照用戶習(xí)慣保存以及打印報(bào)表數(shù)據(jù)。簡潔方便，完全符合用戶的要求。貨運(yùn)設(shè)備管理信息系統(tǒng)使用詳細(xì)說明 1、首先進(jìn)入系統(tǒng)并選擇登錄

13、身份： 單擊圖1中的“貨運(yùn)設(shè)備履歷管理系統(tǒng)”，進(jìn)入貨運(yùn)履歷簿主窗口，如下圖： 圖 1 點(diǎn)擊菜單上的“登錄”，進(jìn)入貨運(yùn)設(shè)備管理登錄窗口，選擇登錄身份。 圖 2 2、選擇不同身份登錄以及登錄后的相關(guān)功能 （1）以局（或分局）的身份登錄： 在圖2中如果只選擇全路局（全分局）而不選擇車站直接登錄系統(tǒng)，將會出現(xiàn)如下功能菜單（圖3-3）： 圖3 、對全局（全分局）的履歷簿數(shù)據(jù)進(jìn)行統(tǒng)計(jì) 單擊菜單上的統(tǒng)計(jì)，進(jìn)入系統(tǒng)的統(tǒng)計(jì)功能。利用該功能可以對全局（全分局）的履歷簿數(shù)據(jù)進(jìn)行任何條件的統(tǒng)計(jì)。具體步驟如下： a、選定所要統(tǒng)計(jì)的范圍 若登錄身份是全路局（全分局），那么統(tǒng)計(jì)范圍就在全路局（全分局）。在局級身份下可以選擇

14、以下幾個范圍： 1）、按鐵路線統(tǒng)計(jì) 在右圖（圖4）中選擇所要統(tǒng)計(jì)的鐵路線。則統(tǒng)計(jì)的數(shù)據(jù)是在這條鐵路線上全路局（全分局）所有車站的數(shù)據(jù)。 圖4 2）、按站、段統(tǒng)計(jì) 在下圖中可選擇所要統(tǒng)計(jì)的段級站或者車務(wù)段。如果圖4中的選擇是“無”，那么該下拉框中會出現(xiàn)全路局（全分局）的所有段級站以及車務(wù)段，如果選擇了某條線，那么該下拉框中出現(xiàn)的只有這條線上的段級站以及車務(wù)段。圖4和圖5的下拉框組合確定的范圍就是所要統(tǒng)計(jì)的范圍。 b、填寫所要統(tǒng)計(jì)的時間 在時間范圍一欄中填寫所要統(tǒng)計(jì)的時間范圍。要求起止時間都要填寫。 c、選定所要統(tǒng)計(jì)的表格及數(shù)據(jù)字段并確定統(tǒng)計(jì)條件 先選定表格，然后雙擊該表中的某個字段，接著編輯所要

15、統(tǒng)計(jì)的條件，確認(rèn)條件正確（即符合SQL查詢語法）。如果就這一個條件進(jìn)行統(tǒng)計(jì)，可點(diǎn)“統(tǒng)計(jì)”按鈕進(jìn)行統(tǒng)計(jì)。如果多條件組合統(tǒng)計(jì)，可以接著選擇下一個字段，繼續(xù)編輯統(tǒng)計(jì)條件，編輯完條件后，確認(rèn)條件正確無誤，單擊“統(tǒng)計(jì)”按鈕進(jìn)行統(tǒng)計(jì)。 圖5 d、輸出統(tǒng)計(jì)結(jié)果并保存第二步點(diǎn)“統(tǒng)計(jì)”按鈕后將會在如圖6中出現(xiàn)統(tǒng)計(jì)結(jié)果，點(diǎn)“保存”可將該結(jié)果保存在一個文本文件中。 、對某個車站的履歷簿數(shù)據(jù)進(jìn)行查詢 利用該功能可以對全路局所有車站的貨運(yùn)設(shè)備履歷簿數(shù)據(jù)進(jìn)行查詢。查詢步驟如下： a、選擇車站 點(diǎn)擊功能菜單（圖3）中的查詢，出現(xiàn)窗口6，在該窗口中可以用三種不同方式確定一個車站，所有的查詢將針對這個車站。 三種查詢確定車站的

16、方式： 首先，在“局/分局”一項(xiàng)中選擇某分局，然后再確定車站名 1）、按站段別確定車站名 如圖6，選中“站段別”一項(xiàng)，然后在左邊的下拉框中選擇車務(wù)段，右邊的下拉框中會相應(yīng)的出現(xiàn)該車務(wù)段的所有車站。如果左邊的下拉框中選擇的是段級站，那么右邊的下拉框會自動消失。 圖6 2）、按鐵路線確定車站名 如圖7，選中“線名”一項(xiàng)，然后在左邊的下拉框中選擇鐵路線，右邊的下拉框中會出現(xiàn)全局范圍里該條鐵路線上的所有車站名，這樣就可以選擇一個站名。 圖7 3）、按車站名首字母選擇站名 如圖8，選中車站名稱”一項(xiàng)，在文本框中輸入你所要查詢的車站名的首字母，在文本框的右邊會列出所有首字母符合條件的車站名，單擊你所要查詢

17、的車站名即可。 圖8 b、選擇表格及字段選擇完車站名后點(diǎn)“確定”進(jìn)入到下一窗口，如圖9，按圖中的提示可選擇表格，選擇字段。如果沒有選擇字段或者選擇所有字段，那么系統(tǒng)都會自動認(rèn)為你選擇了所有字段。 圖9 c、選擇查詢時間 在第二步中選擇完表格后，選擇時間一欄中會自動出現(xiàn)該表格所包含的所有時間字段?？稍谀闼樵兊哪攴萸按蛏蠈?，那么查詢結(jié)果中將只會出現(xiàn)你所選的年份的記錄；如果你沒有選擇年份或選擇了所有年份，那么系統(tǒng)會認(rèn)為你所要查詢的是所有年份的記錄。 d、得出查詢結(jié)果 點(diǎn)擊圖9中的查詢后會出現(xiàn)如圖10的查詢結(jié)果（僅一部分，另一部分可拉滾動條看到）。 圖10 、有關(guān)數(shù)據(jù)維護(hù)功能 a、維護(hù)全局的所有

18、車務(wù)段名、鐵路線名、車站名以及車站名首字母 圖11 如圖11，點(diǎn)擊功能菜單上的“維護(hù)”“濟(jì)南分局”，可出現(xiàn)如下表格窗口， 圖12 如圖12，在該表格中可任意添加或刪除記錄或者更改記錄的內(nèi)容。需要注意的是，在車站名一欄中，所有后邊帶“站”字的車站都是段級站。 b、 維護(hù)全局的所有貨運(yùn)設(shè)備履歷簿填寫時的可選項(xiàng) 圖13 如圖13，點(diǎn)擊功能菜單上的“維護(hù)”“履歷簿可選項(xiàng)”，進(jìn)入如下窗口，如圖14。選擇某一張表格，然后選擇一個可維護(hù)的字段。如果要添加內(nèi)容，點(diǎn)擊右邊的添加項(xiàng)，在文本框中輸入所要添加的內(nèi)容，點(diǎn)“添加”按鈕，該內(nèi)容自動添加到數(shù)據(jù)庫中。如果要刪除內(nèi)容，點(diǎn)擊右邊的刪除項(xiàng)，選定所要刪除的內(nèi)容，點(diǎn)“刪

19、除”按鈕，該內(nèi)容自動從數(shù)據(jù)庫中刪除。 圖14 、網(wǎng)上接收、發(fā)送數(shù)據(jù)利用該功能可以接收由全局所有車站上報(bào)的數(shù)據(jù)庫文件，然后可以對該數(shù)據(jù)進(jìn)行瀏覽、查詢、統(tǒng)計(jì)等操作；也可以將分局或者路局的數(shù)據(jù)傳輸給各車站或者車務(wù)段。 （2）、以站、車務(wù)段的身份登錄 如果選擇某個車站登錄系統(tǒng)，將會出現(xiàn)如下功能菜單（圖15）： 圖15 、對履歷簿數(shù)據(jù)進(jìn)行編輯 點(diǎn)擊菜單上的編輯，然后選擇某一表格，接著出現(xiàn)該表格的編輯瀏覽窗口，如（圖16）。 圖16 a、 記錄的修改 用鼠標(biāo)單擊你所要修改的數(shù)據(jù)所在的單元格，該單元格獲得焦點(diǎn)，如圖17， 圖17 可任意改動該單元格的數(shù)據(jù)。如果該單元格的數(shù)據(jù)是固定的選項(xiàng)，那么單擊該單元格后會

20、出現(xiàn)如圖18所示的下拉框，可在該下拉框中選擇所要修改的數(shù)據(jù)。下拉框中的數(shù)據(jù)可在以局或者分局身份登錄的功能中修改維護(hù)。在對某一單元格的數(shù)據(jù)修改完畢后，可用鼠標(biāo)單擊所要修改的下一個單元格，也可以按回車鍵使焦點(diǎn)挪到同一行的下一個單元格，當(dāng)焦點(diǎn)在這一行的結(jié)尾時，按回車可使焦點(diǎn)移動到下一行的開始。 圖18 b、記錄的添加 如果要添加記錄，點(diǎn)擊“添加”按鈕，會出現(xiàn)如圖19所示，新記錄添加到最后一行。接著可以進(jìn)行新記錄的數(shù)據(jù)錄入。 圖19 c、 記錄的刪除 如過要刪除某一條記錄，可單擊該記錄的第一列選定整條記錄，也可以在除第一列外的任意一個單元格獲得焦點(diǎn)時雙擊它而選定整條記錄，然后點(diǎn)“刪除”按鈕，系統(tǒng)會提示

21、你是否刪除，如圖20，選擇“是”將會永久的刪除該記錄，且不能恢復(fù)；選“否”將不進(jìn)行任何操作。 圖20 d、 數(shù)據(jù)的保存 當(dāng)修改完數(shù)據(jù)或者添加完記錄后，可以點(diǎn)“保存”按鈕對數(shù)據(jù)進(jìn)行保存，以免丟失。如果某一條記錄中任何一個字段都沒有填寫數(shù)據(jù)，在保存時，系統(tǒng)會自動把它刪除。 e、 生成打印報(bào)表 圖21 數(shù)據(jù)修改并保存完畢后，可點(diǎn)擊“生成報(bào)表”按鈕，然后在所出現(xiàn)的對話框中確定路徑及文件名，如圖3-25，再點(diǎn)“確定”系統(tǒng)會自動生成和該表格完全相同的EXCEL報(bào)表文件。若想打印該報(bào)表文件，可以隨時在EXCEL中打開該文件，然后打印。 、對履歷簿數(shù)據(jù)進(jìn)行查詢 a、選擇表格及字段 如圖21，按圖中的提示可選擇

22、表格，選擇字段。如果沒有選擇字段或者選擇所有字段，那么系統(tǒng)都會自動認(rèn)為你選擇了該表格的所有字段。 b、選擇查詢時間 選擇完表格后，選擇時間一欄中會自動出現(xiàn)該表格所包含的所有時間字段。可在你所要查詢的年份前打上對勾，那么查詢結(jié)果中將只會出現(xiàn)你所選的年份的記錄；如果你沒有選擇選擇年份或選擇所有年份，那么系統(tǒng)會認(rèn)為你所要查詢的是所有年份的記錄。 c、得出查詢結(jié)果 點(diǎn)擊圖9中的查詢后會出現(xiàn)如圖10的查詢結(jié)果。 、網(wǎng)上發(fā)送數(shù)據(jù) 利用此功能可以將車站編輯后的數(shù)據(jù)庫文件通過網(wǎng)絡(luò)直接發(fā)送到分局，以便分局領(lǐng)導(dǎo)統(tǒng)計(jì)、查詢相關(guān)數(shù)據(jù)。操作系統(tǒng)及開發(fā)環(huán)境功能集成 近年來，網(wǎng)絡(luò)的迅速普及和應(yīng)用，促使計(jì)算機(jī)技術(shù)，網(wǎng)絡(luò)數(shù)據(jù)傳

23、輸技術(shù)，除了E-mail、FTP、WWW等傳統(tǒng)的手段以外，電子報(bào)刊、遠(yuǎn)程教學(xué)、遠(yuǎn)程醫(yī)療、網(wǎng)上購物、虛擬專網(wǎng)、電子金融、電子貿(mào)易等新興的INTERNET應(yīng)用日益發(fā)展和成熟起來。INTERNET對鐵路運(yùn)輸部門獲取信息的方式和相互交流信息的方式產(chǎn)生了巨大的影響，全新的信息服務(wù)將會為鐵路運(yùn)輸部門的工作方式及工作效率帶來巨大的變化。鐵路是國民經(jīng)濟(jì)的動脈，建國幾十年以來，鐵道部逐步建成了四通八達(dá)的鐵道網(wǎng)，為國家提供了高效、暢通、經(jīng)濟(jì)的貨運(yùn)、客運(yùn)服務(wù)，為我國社會穩(wěn)定、經(jīng)濟(jì)繁榮作出了巨大貢獻(xiàn)。國家大力發(fā)展計(jì)算機(jī)網(wǎng)絡(luò)建設(shè)的現(xiàn)階段，要提高鐵路部門工作人員在本地、本行業(yè)的工作運(yùn)營效率，充分利用網(wǎng)絡(luò)強(qiáng)大的數(shù)據(jù)傳輸功能

24、以及豐富的通信資源是必要的。要在鐵路運(yùn)輸部門間建立Intranet，充分利用現(xiàn)有資源，實(shí)現(xiàn)路局與分局之間，分局與車站之間，以及路局與車站之間的履歷簿數(shù)據(jù)互相傳輸功能。徹底代替以前鐵路運(yùn)輸各部門之間的人工上報(bào)軟盤的情形。路局?jǐn)?shù)據(jù)庫車務(wù)段數(shù)據(jù)庫分局?jǐn)?shù)據(jù)庫路局、分局、車務(wù)段之間數(shù)據(jù)互相傳輸 GIS（地理信息系統(tǒng)）是國際上近幾年才發(fā)展起來的一種新型軟件，它是在計(jì)算機(jī)硬、軟設(shè)備支持下，實(shí)現(xiàn)地理空間數(shù)據(jù)輸入、存儲、管理、檢索、處理和綜合分析的技術(shù)系統(tǒng)。它最重要的特點(diǎn)在于把需要研究的數(shù)據(jù)和反映這些數(shù)據(jù)地理位置的圖形有效結(jié)合起來，從而根據(jù)應(yīng)用的需要進(jìn)行信息的空間分析處理。將GIS技術(shù)與鐵路運(yùn)輸管理相結(jié)合，充分

25、發(fā)揮先進(jìn)的GIS技術(shù)的特點(diǎn)和功能為鐵路運(yùn)輸管理系統(tǒng)服務(wù)。 GIS是計(jì)算機(jī)應(yīng)用領(lǐng)域的一個重要發(fā)展方向。對空間信息及其相關(guān)的屬性信息的處理是GIS的基本功能，空間信息的查詢和分析是GIS和其它數(shù)據(jù)處理系統(tǒng)的主要區(qū)別，迅速、及時地更新數(shù)據(jù)庫，大規(guī)模、綜合性地管理與地理分布有關(guān)的信息是它的特點(diǎn)。應(yīng)用GIS技術(shù)是鐵道部“十五”規(guī)劃中的一個重點(diǎn)，也是實(shí)現(xiàn)“數(shù)字鐵路”構(gòu)想的重要技術(shù)組成部分。因此為解決實(shí)際問題，適應(yīng)技術(shù)發(fā)展方向，基于GIS平臺以鐵路為具體服務(wù)對象做二次開發(fā)成為本項(xiàng)目的設(shè)計(jì)思路根源。（4）代碼的編寫及系統(tǒng)速度的優(yōu)化 高級程序設(shè)計(jì)語言的特性和編碼途徑及方法將會決定編碼的可靠性、可讀性、可測試性和

26、可維護(hù)性。編寫的代碼的目的是實(shí)現(xiàn)人和計(jì)算機(jī)之間的互相通信，最終實(shí)現(xiàn)應(yīng)用軟件一定要符合用戶需求、方便用戶使用的目的。編程人員盡可能的使該管理系統(tǒng)在使用過程中減小對操作系統(tǒng)資源的消耗。選用VISUAL BASIC 6.0設(shè)計(jì)程序，在優(yōu)化系統(tǒng)速度我們采取了以下措施： 首先，優(yōu)化系統(tǒng)的真實(shí)速度方面：1. 選用最佳的數(shù)據(jù)結(jié)構(gòu)； 2. 避免使用Variant 變量以及隱式變量； 3. 盡可能的使用常數(shù)； 4. 使用內(nèi)嵌過程替代調(diào)用； 5. 盡量使用ByVal傳替參數(shù)，而不使用ByRef等。 其次，在優(yōu)化顯示速度方面：1. 、恰當(dāng)?shù)氖褂肁utoRedraw; 2. 、設(shè)置屬性時隱藏控件，以避免多次重畫； 3

27、. 、用Image控件代替PictureBox控件； 4. 、將容器的ClipControls屬性設(shè)為False等。 第三，在優(yōu)化感覺速度方面：1. 隱藏窗體而不卸載窗體; 2. 使用進(jìn)度指標(biāo)器和等待光標(biāo)； 3. 加快應(yīng)用程序的啟動速度； 4. 預(yù)加載需讀取的數(shù)據(jù)等。 （5）系統(tǒng)的試用及測試 在濟(jì)南分局部分車站已經(jīng)開始試用該系統(tǒng)。首先在一個相對較小的范圍里進(jìn)行測試使用。選取一個車務(wù)段，然后選取分局，路局，分別安裝該系統(tǒng)。由不同的用戶分別操作，實(shí)現(xiàn)了履歷簿的記錄添加、刪除、保存以及報(bào)表生成等功能；而且成功的實(shí)現(xiàn)了車務(wù)段、分局、路局之間數(shù)據(jù)的互相傳輸。該系統(tǒng)受到現(xiàn)場用戶的一致好評。（6）系統(tǒng)的維護(hù)

28、功能 設(shè)備履歷管理信息系統(tǒng)中包括客、貨運(yùn)管理兩套系統(tǒng)。兩套系統(tǒng)采用了相同的路局、分局、車務(wù)段以及車站名數(shù)據(jù)庫，該數(shù)據(jù)庫中的車站被劃分為三種不同的范圍。分別是分局、車務(wù)段、鐵路線。不同的用戶級別有不同的維護(hù)功能。比如路局可以維護(hù)所有的分局名、車務(wù)段名，鐵路線名以及車站名；分局可以維護(hù)分局內(nèi)的所有車務(wù)段名、鐵路線名以及車站名。程序源代碼定義讀取ini文件的API函數(shù)Public Declare Function GetPrivateProfileInt Lib kernel32 Alias GetPrivateProfileIntA (ByVal lpApplicationName As Stri

29、ng, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As LongPublic Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As Strin

30、g, ByVal nSize As Long, ByVal lpFileName As String) As LongPublic Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic db As DatabasePublic

31、 rst As RecordsetPublic strLoginBureaName As String 登陸的分局名Public strSuoshuxian As String 如果是車站登陸，將登陸時所屬的鐵路線從數(shù)據(jù)庫中讀出來Public strStationName As String 小站或者站管站中低一級的車站Public strCwdName As String 車務(wù)段或者站管站中高一級的車站Public strDatabaseName As String 數(shù)據(jù)庫名稱Public NeedSaveLocal(1000, 1000) As BooleanPublic IsColorT

32、urn As Boolean 顏色是否轉(zhuǎn)變，是否選中整條記錄Public LoginStationName As StringPublic LoginStation As StringPublic YearTj() As StringPublic Pathname As String 生成報(bào)表時所存儲的全路徑Public SelectedYear As StringPublic TableNameSelected As String 所選擇表格的名字Public G_CurrentTableName As String 瀏覽編輯時所選擇的表格Public StrLogin As String

33、從config.ini中讀取的字符串Public IsNoQuery As Boolean 是否是查詢所調(diào)用的窗體Public CurrentYear As String 當(dāng)前年份Public G_DbStationData As Database 定義打開車站的數(shù)據(jù)庫Public G_RstStationData As Recordset 定義車站數(shù)據(jù)集Public G_CurrentYear As StringPublic Enum G_Distinction 用枚舉型變量定義登陸的級別luju = 1fenju = 2chewuduan = 3duanjizhan = 4xiaozhan

34、 = 5End EnumPublic Function ReturnFileName(ByVal PathFileName As String) As String Dim FNLen As Integer Dim i As Integer Dim temp As String FNLen = Len(PathFileName) If Right(PathFileName, 1) = / Then ReturnFileName = / Exit Function End If For i = 0 To FNLen - 1 temp = Mid(PathFileName, FNLen - i,

35、1) If temp = Then ReturnFileName = Right(PathFileName, i) Exit Function End If Next iEnd FunctionPublic Function FindWeihuPath(strPath As String) As String 查詢Weihu路徑 IntPathEnd = InStrRev(strPath, ) IntPathEnd = IntPathEnd - 1 strCurrentPath = Mid(strPath, 1, IntPathEnd) strCurrentPath = strCurrentP

36、ath & weihu FindWeihuPath = strCurrentPathEnd Function 從數(shù)據(jù)庫中按照年份條件和車站名條件取出將要在網(wǎng)格中顯示的記錄集Public Sub SelectCondition() Dim StrYear As String 定義當(dāng)前年份 Dim strSQL As String 定義SQL語句 讀取當(dāng)前的年份 StrYear = Left(Format(Date, LONG DATE), 4) 如果以車站的身份登陸的話 strSQL = SELECT * FROM & G_CurrentTableName & WHERE P01= & StrY

37、ear & Set G_RstStationData = G_DbStationData.OpenRecordset(strSQL)End Sub從查詢窗口所選擇的表格中按照查詢條件取出記錄集Public Sub QueryCondition() Dim StrYear As String 定義當(dāng)前年份 Dim strSQL As String 定義SQL語句 讀取當(dāng)前的年份 StrYear = Left(Format(Date, LONG DATE), 4) 如果以車站的身份登陸的話 strSQL = SELECT * FROM & G_CurrentTableName & WHERE (

38、& SelectedYear & ) and cz= & strStationName & ORDER BY P01 Set G_RstStationData = G_DbStationData.OpenRecordset(strSQL)End SubPublic Sub FindLastRecAndCopyToCurrentYearRec() 查找當(dāng)前年的記錄，如果不存在則復(fù)制上一年的記錄， 如果上一年不存在,則手動輸入 If G_RstStationData.RecordCount = 0 Then ByValMsgbox = MsgBox(沒有今年的信息，是否復(fù)制上一年的內(nèi)容？, 0 +

39、 vbYesNo, 提問) If ByValMsgbox = vbYes Then Set G_RstStationData = G_DbStationData.OpenRecordset(select * from & G_CurrentTableName & where P01= & CStr(CInt(Left(G_CurrentYear, 4) - 1) & and cz= & strStationName & ) If G_RstStationData.RecordCount = 0 Then MsgBox 沒有上一年的記錄，請手動輸入今年的設(shè)備信息！, 0 + vbInformat

40、ion, 提示 Exit Sub End If G_DbStationData.Execute INSERT INTO & G_CurrentTableName & select * from & G_CurrentTableName & WHERE P01= & CStr(CInt(Left(G_CurrentYear, 4) - 1) & and cz= & strStationName & Set G_RstStationData = G_DbStationData.OpenRecordset(select * from & G_CurrentTableName & WHERE P01=

41、 & CStr(CInt(Left(G_CurrentYear, 4) - 1) & and cz= & strStationName & ) G_RstStationData.MoveLast For i = G_RstStationData.RecordCount To G_RstStationData.RecordCount / 2 + 1 Step -1 G_RstStationData.Edit G_RstStationData.Fields(4).Value = Left(G_CurrentYear, 4) G_RstStationData.Update G_RstStationD

42、ata.MovePrevious Next Else Exit Sub End IfEnd Sub將從數(shù)據(jù)庫中讀出的數(shù)據(jù)，顯示在網(wǎng)格中Public Sub BrowseData(ByVal Fg As MSFlexGrid, ByVal rec As Recordset) On Error Resume Next Dim strSqls As String Dim CountRows As Integer Dim CountCols As Integer Dim ByValMsgbox If IsNoQuery = True Then 打開查詢結(jié)果數(shù)據(jù)集 QueryCondition Else

43、 打開編輯表格數(shù)據(jù)集 SelectCondition 查找是否有今年的記錄，如果沒有，則復(fù)制上一年的 如果上一年沒有，則手動輸入當(dāng)前年的記錄 FindLastRecAndCopyToCurrentYearRec SelectCondition End If 數(shù)據(jù)集移動至尾，然后至頭 G_RstStationData.MoveLast G_RstStationData.MoveFirst CountRows = G_RstStationData.RecordCount CountCols = G_RstStationData.Fields.Count - 4 With Fg If CountRows = 0 Then .Rows = 1 End If For i = 1 To CountRows For j = 1 To CountC