校園快遞派件管理系統(tǒng)分析實(shí)施報(bào)告

1、.1.可行性分析1.1快遞背景“快、準(zhǔn)”是快遞公司最大的特色,更是快遞企業(yè)賴以生存的保障。以計(jì)算機(jī)及網(wǎng)絡(luò)為核心的管理技術(shù)為快遞公司提供了很好的管理平臺(tái),同時(shí),RFID技術(shù)的快捷、高效及資源共享等特性,為公司管理帶來了方便,快遞管理系統(tǒng)應(yīng)運(yùn)而生。信息化的推進(jìn)和電子商務(wù)的迅速崛起,快遞在我國物流行業(yè)和社會(huì)經(jīng)濟(jì)發(fā)展中的地位越來越重要?？爝f企業(yè)的服務(wù)以快捷、及時(shí)為主要特征,配送的科學(xué)性與合理性是其生存和發(fā)展的關(guān)鍵,也是其應(yīng)對競爭、開拓市場的基本途徑。我國快遞行業(yè)起步晚,存在諸多局限性,如:企業(yè)規(guī)模小,自動(dòng)化程度低,處理速度慢,快件自動(dòng)分揀技術(shù)落后;專業(yè)物流人才不足,對配送過程的效率和質(zhì)量缺乏有效的控制

2、;配送模式單一,配送時(shí)間和配送量沒有科學(xué)依據(jù),物流成本不斷增加,服務(wù)質(zhì)量提高緩慢。目前,學(xué)者對快遞配送的定量研究嚴(yán)重滯后于快遞的發(fā)展速度,能夠真正幫助快遞企業(yè)提供科學(xué)決策依據(jù)的方法比較少。因此,建立一個(gè)適合于一般快遞企業(yè)配送過程的結(jié)合RFID技術(shù)的派件管理系統(tǒng),進(jìn)行快件收、貨位分配、快件領(lǐng)取、快件查詢等意義重大。 1.2校園快遞調(diào)查1.2.1校園快遞存在的問題(1)校園快遞派件速度緩慢，派件時(shí)間較長(2)校園快遞的派件管理比較混亂，單據(jù)的記錄不明晰(3)校園快遞的設(shè)備如PDA等不能實(shí)時(shí)更新快遞信息(4)校園快遞的時(shí)間安排不能按照學(xué)生作息時(shí)間安排1.2.2快遞使用數(shù)據(jù)：(1)使用快遞的頻率：每月

3、使用2次達(dá)64.5%；(2)常使用哪些快遞公司：申通83.3%、圓通46.6%、韻達(dá)46.6%(3)海大快遞量前三名：申通（200300）、圓通（200300）、韻達(dá)（100300）(4)包裹總量每天大概：1000個(gè)，平均每天領(lǐng)快遞人數(shù)：800個(gè)1.2.3快遞設(shè)備數(shù)據(jù)：校園派件員一般和其他大公司合作，作為他們的一個(gè)區(qū)域代理，系統(tǒng)一定要使用上級公司的，設(shè)備也要按照他們的要求配置，使用專用的快遞信封（和包裝袋）、多層帶背膠的票據(jù)、手持終端等、掃描儀、相機(jī)（處理問題件需拍照做證據(jù)）。運(yùn)輸工具準(zhǔn)備微型車、貨車等，倉庫需監(jiān)控設(shè)備，保障貨物出進(jìn)被影像記錄。1.3 RFID在快遞派件應(yīng)用對物流業(yè)而言，全面使

4、用RFID意指在所有物流商品上貼上RFID標(biāo)簽，多數(shù)業(yè)者也都希望可以這么做，然而，由于RFID標(biāo)簽價(jià)格仍然偏高、讀取率無法達(dá)到100%等因素，包括聯(lián)邦快遞、UPS等，至今仍然無法全面在物流商品上使用RFID；多數(shù)都還停留在評估與測試階段。不過，盡管有多重障礙， RFID技術(shù)終有一天會(huì)在物流業(yè)普及應(yīng)用。雖然現(xiàn)在還不具有高度的功能完備性，但通過我們的課程設(shè)計(jì)，結(jié)合了VISUAL BASIC和SQL軟件，系統(tǒng)全面考慮了校園快遞派件的作業(yè)流程，進(jìn)行了嚴(yán)格定義和邏輯程序編寫，與實(shí)際業(yè)務(wù)緊密結(jié)合，使RFID技術(shù)與實(shí)際快遞的派件業(yè)務(wù)接軌。1.4快遞派件管理系統(tǒng)目標(biāo)：一般說來，本組校園快遞派件管理系統(tǒng)功能包括

5、兩方面：一方面是快遞管理信息系統(tǒng)中心，另一方面也是快遞企業(yè)對外的查詢處理系統(tǒng)?？蛻敉ㄟ^程序能與快遞派件管理系統(tǒng)進(jìn)行信息共享，提供動(dòng)態(tài)信息交互和信息服務(wù)，并在此基礎(chǔ)上實(shí)現(xiàn)對訂單下達(dá)、實(shí)時(shí)查詢等業(yè)務(wù)的支持。因此，系統(tǒng)應(yīng)把開放性、協(xié)調(diào)性、有效性作為系統(tǒng)開發(fā)的總體目標(biāo)?？爝f信息平臺(tái)必須適應(yīng)快遞設(shè)施的地域變化。時(shí)間上的可擴(kuò)充性是指當(dāng)用戶需求、技術(shù)進(jìn)步、企業(yè)組織結(jié)構(gòu)隨著時(shí)間的變化而變化時(shí)，系統(tǒng)能夠?qū)ΜF(xiàn)有的某些功能模塊進(jìn)行改造或增加某些功能模塊，以適應(yīng)新的變化。對部人員，系統(tǒng)應(yīng)當(dāng)提供整體快遞所需要的業(yè)務(wù)信息以及快遞查詢的支持界面和管理界面，對外，快遞對客戶主要提供快遞查詢信息以及作業(yè)進(jìn)度信息反饋信息。2.系

6、統(tǒng)分析部分2.1業(yè)務(wù)流程圖:圖1.收件流程圖2.派件流程2.2功能分析圖圖3.功能分析圖2.3數(shù)據(jù)流程圖圖4.數(shù)據(jù)流程圖（頂層）圖5.快件收取（第二層）圖6.貨位分配（第二層）圖7.快件領(lǐng)?。ǖ诙樱﹫D8.快件查詢（第二層）2.4數(shù)據(jù)字典2.4.1外部實(shí)體表1.外部實(shí)體表名稱：收件人C02說明：快遞的接收者輸入數(shù)據(jù)流：輸出數(shù)據(jù)流：個(gè)數(shù)：n名稱：收、派件員C01說明：快遞的集中、派發(fā)者輸入數(shù)據(jù)流：輸出數(shù)據(jù)流：個(gè)數(shù)：10名稱：貨架C04說明：放快遞的貨架輸入數(shù)據(jù)流：輸出數(shù)據(jù)流：個(gè)數(shù)：X名稱：快遞公司C03說明：多家快遞公司輸入數(shù)據(jù)流：輸出數(shù)據(jù)流：個(gè)數(shù)：X2.4.2數(shù)據(jù)元素表2.數(shù)據(jù)元素表編號(hào)數(shù)據(jù)元

7、素名類別/長度E01收件人Char10E02收件人地址Char10E03收件人Int4E04收件（派）員Char10E05收件（派）員Int4E06快遞公司Char10E07快遞公司送件員Char10E08送件員Int4E09運(yùn)單IDInt4E10運(yùn)單貨物名稱Char10E11貨物重量Int4E12貨物類別Char10E13貨架區(qū)Char10E14貨架（編號(hào)）Int4E15貨格編號(hào)Int4E16掃描地點(diǎn)Char10E17掃描時(shí)間Datetime82.4.3數(shù)據(jù)流表3.數(shù)據(jù)流表編號(hào)名稱數(shù)據(jù)流水源數(shù)據(jù)流去向包含容B01收件信息D1D3E01-E10B02派件信息D8D10E04、E05、E09-E

8、17B03掃描信息D1D7E09-E172.4.5數(shù)據(jù)儲(chǔ)存表4.數(shù)據(jù)儲(chǔ)存表編號(hào)名稱結(jié)構(gòu)相關(guān)數(shù)據(jù)流D1送件清單E01、E02、E03、E06D1-1.1，D1-2.1，D2數(shù)量質(zhì)量記錄E10、E11、E12D2-1.2，D2-2.2D3收貨記錄E01、E03、E04、E05、E06、E07、E08、E091.3-D3D4回執(zhí)單E01、E09、E16、E17D4-1.3D5分類記錄E09、E12D5-2.2D6貨物狀態(tài)E09、E13、E14、E15、E16、E17D6-2.3D7貨位分配記錄E09、E10、E11、E12、E13、E142.3-D7D8派件分析表E01、E02、E03、E04、E0

9、5、E092.3-D8，D8-3.1D9客戶記錄E01、E02、E03、E09D9-3.2D10簽收記錄E01、E09D10-3.3D11企業(yè)數(shù)據(jù)庫E01E17D11-4.1，D11-過程 表5.系統(tǒng)過程表名稱：收件準(zhǔn)備P1-1輸入數(shù)據(jù)流：C03、D1輸出數(shù)據(jù)流：P1-2處理：整理等待派件的快遞名稱：包裹檢查P1-2輸入數(shù)據(jù)流：P1-1、D2輸出數(shù)據(jù)流：C3、P1-3處理：檢查快遞狀態(tài)并記錄處理名稱：填寫收貨清單P1-3輸入數(shù)據(jù)流：D4、P1-2輸出數(shù)據(jù)流：D3、C03處理：記錄收件數(shù)量、類型等名稱：訂單核對P2-1輸入數(shù)據(jù)流：C01、D1輸出數(shù)據(jù)流：P2-2處理：確認(rèn)收貨人名

10、稱：快遞分類P2-2輸入數(shù)據(jù)流：D2、P2-1輸出數(shù)據(jù)流：D5處理：將快遞分類以方便貨位分配名稱：掃描信息P2-3輸入數(shù)據(jù)流：P2-3、D6輸出數(shù)據(jù)流：D7、D8、C04處理：將快件信息掃描進(jìn)數(shù)據(jù)庫名稱：派件P3-1輸入數(shù)據(jù)流：C01、D08輸出數(shù)據(jù)流：P3-2處理：將快遞交給收件人名稱：身份核對P3-2輸入數(shù)據(jù)流：P3-1、D9輸出數(shù)據(jù)流：P3-3處理：檢查派件是否正確名稱：交付快件P3-3輸入數(shù)據(jù)流：P3-2、D10輸出數(shù)據(jù)流：C02處理：客戶簽字確認(rèn)名稱：網(wǎng)絡(luò)查詢P4-1輸入數(shù)據(jù)流：C01、D11輸出數(shù)據(jù)流：C01處理：反饋查詢信息名稱：人工服務(wù)P4-4輸入數(shù)據(jù)流：C01、D11輸出數(shù)據(jù)

11、流：C01處理：反饋查詢信息2.5數(shù)據(jù)加工處理的描述2.5.1快件交接：(1)各大快遞公司將快件交給業(yè)務(wù)員（點(diǎn)數(shù)交接），數(shù)量確實(shí)多的，可以當(dāng)業(yè)務(wù)員的面，逐個(gè)包裹進(jìn)行掃描(2)收件員清點(diǎn)快件數(shù)量并核對是否有外包裝破損，分錯(cuò)件、地址錯(cuò)誤、超圍、件數(shù)明顯有誤、到付價(jià)格明顯有問題等異?？旒?3)校園派件員確認(rèn)客戶寄遞的快件是否在我司可提供服務(wù)的圍(4)收件地址超出我司服務(wù)區(qū)域，但收件地址附近有我司服務(wù)網(wǎng)點(diǎn)，應(yīng)詢問客戶是否愿意改為自取件，并向客戶詳細(xì)介紹自取件操作流程。(5)數(shù)量等信息確認(rèn)無誤后交接，雙方在派件表上簽名確認(rèn)圖10.快件接收決策樹2.5.2貨位分配及操作貨位分配:(1)貨區(qū)分

12、為A、B、C3個(gè)貨區(qū)(2)A區(qū)有1-4號(hào)貨架，B區(qū)有5-8號(hào)貨架，C區(qū)有9-12號(hào)貨架(3)分配如下表圖11.快遞公司貨架分配表圖12.貨物類別分配表(4)貨位編碼舉例說明:圖13.貨物編碼舉例貨位分配操作:(1)將隨貨運(yùn)單貼放在快件指定位置(2)根據(jù)快件類型將各種貼紙按要求貼在快件的指定位置(3)將運(yùn)單完整單號(hào)寫在運(yùn)單下方的外包裝處(4)對于大件的包裹，按照體積大小存放于貨架的指定區(qū)域(5)對于正常大小的包裹，按照排序，分放于貨架A-Z的貨物格中圖14.貨位分配決策樹2.5.3快件派送與收件：收件工作(1)確認(rèn)托寄物品是否在我司規(guī)定的圍業(yè)務(wù)員須向客戶說明需進(jìn)行托寄

13、物品檢查(2)并在取得客戶同意后，按要求對托寄物品進(jìn)行全面檢查(3)如包裝未達(dá)到標(biāo)準(zhǔn)，須要求客戶改進(jìn)包裝 (4)指導(dǎo)客戶填寫相應(yīng)運(yùn)單容(5)檢查客戶填寫的運(yùn)單容是否完整，若填寫不完整的須指導(dǎo)客戶補(bǔ)充相關(guān)的容(6)使用彈簧秤、卷尺測量快件的實(shí)際重量和輕拋重量，確定正確的計(jì)費(fèi)重量(7)如果大件，在客戶處沒有稱重工具,如客戶同意將快件拉回公司稱重，必須在第一時(shí)間將重量、運(yùn)費(fèi)告知客戶,如客戶不同意將快件拉回公司稱重，則只能將件退還給客戶(8)將需要業(yè)務(wù)員填寫的運(yùn)單容填寫完整：始發(fā)地、目的地、件數(shù)、重量、運(yùn)費(fèi)、工號(hào)、收件日期、時(shí)間、付款方式、托寄物詳細(xì)資料(9)運(yùn)費(fèi)結(jié)算派件工作(10)客戶

14、確認(rèn)運(yùn)單信息，確認(rèn)無誤后須要求客戶在 “收件件人簽署或蓋章”欄簽字確認(rèn)，不得代替或偽造客戶簽字(11)須將運(yùn)單的“寄件公司存根”聯(lián)交寄件客戶留底，業(yè)務(wù)員留取“結(jié)賬聯(lián)”，其他幾聯(lián)運(yùn)單隨貨圖15.快件領(lǐng)取決策樹2.5.4快件查詢：(1)公司員工輸入運(yùn)單號(hào)，或者輸入員工號(hào)進(jìn)行查詢(2)客戶根據(jù)快遞單據(jù)的運(yùn)單，在客戶查詢界面上輸入運(yùn)單號(hào)進(jìn)行查詢(3)若輸入不正確，系統(tǒng)提示可重新輸入再次進(jìn)行查詢(4)查詢信息以表格的形式顯示在用戶查詢界面上圖16.快件查詢決策樹3.系統(tǒng)設(shè)計(jì)部分3.1功能模塊結(jié)構(gòu)圖設(shè)計(jì)圖17.模塊結(jié)構(gòu)圖3.2模塊結(jié)構(gòu)圖3.2.1收件模塊無效返件出庫賬有效返件無效收件收件清單有效收件有效返

15、件賬有效收件臺(tái)賬有效收件A收件管理F驗(yàn)證返件有效性E驗(yàn)證收件有效性C返件錄入B收件數(shù)據(jù)錄入D收件臺(tái)賬登記G驗(yàn)證收件臺(tái)賬有效性庫存臺(tái)賬圖18.輸入模塊結(jié)構(gòu)圖模塊名稱：收件管理模塊標(biāo)識(shí)：A處理邏輯：對每一個(gè)快遞的收取進(jìn)行登記賬處理調(diào)用B模塊，獲得有效收件賬調(diào)用C模塊，獲得有效返件賬調(diào)用D模塊，獲得有效收件清單臺(tái)賬模塊名稱：收件數(shù)據(jù)錄入模塊標(biāo)識(shí)：B處理邏輯：顯示快遞取件賬屏幕輸入日期，運(yùn)單號(hào)，快遞公司名稱，取貨人，收件單編號(hào)若 有效在屏幕相應(yīng)位置顯示該快遞收件成功，并登記收件臺(tái)帳。否則顯示無效收件模塊名稱：返件數(shù)據(jù)錄入模塊標(biāo)識(shí)：C處理邏輯：顯示返件賬屏幕輸入日期，運(yùn)單號(hào)，快遞公司名稱，取貨人，返件單

16、編號(hào)若 有效在屏幕相應(yīng)位置顯示該快遞返件成功，并登記返件臺(tái)帳。否則顯示無效返件3.2.2貨位模塊查詢請求運(yùn)單號(hào)運(yùn)單號(hào)貨架號(hào)貨位分配H貨位管理J貨位核查I獲取貨位請求K貨位核查L返件臺(tái)賬核查M讀取貨位請求N讀取剩余貨位數(shù)據(jù)O讀取貨位收件數(shù)據(jù)P讀取返件數(shù)據(jù)圖19.貨位模塊結(jié)構(gòu)圖模塊名稱：貨位管理模塊標(biāo)識(shí)：H處理邏輯：對每次的貨位請求，選擇快遞公司名稱，查詢該快遞公司對應(yīng)貨架空位量模塊名稱：貨位核查模塊標(biāo)識(shí)：I處理邏輯：顯示查詢請求屏幕調(diào)用M模塊，讀取數(shù)據(jù)查詢模塊名稱：貨位管理模塊標(biāo)識(shí)：J處理邏輯：輸入貨位號(hào)調(diào)用N模塊，讀取剩余空貨位數(shù)據(jù)模塊名稱：驗(yàn)證貨位有效性模塊標(biāo)識(shí)：K處理邏輯：接受快遞收件臺(tái)賬

17、查領(lǐng)取中心倉庫若 有效收件 發(fā)送有效收件清單臺(tái)賬給模塊D否則發(fā)送“無效收件臺(tái)賬”3.2.3取件模塊無效取件貨位狀態(tài)表有效取件無效收件收件清單有效收件有效取件賬有效取件臺(tái)賬有效收件A取件管理F驗(yàn)證取件件有效性E驗(yàn)證取件有效性C貨位狀態(tài)改變錄入B取件數(shù)據(jù)錄入D派件完成情況登記G驗(yàn)證取件臺(tái)賬有效性庫存臺(tái)賬圖20.取件模塊結(jié)構(gòu)圖（具體說明略，可以參考數(shù)據(jù)流程圖）3.2.4查詢模塊查詢請求運(yùn)單號(hào)運(yùn)單號(hào)快遞公司名稱查詢請求H查詢管理J貨位核查I獲取查詢請求K收件臺(tái)賬核查L返件臺(tái)賬核查M讀取查詢請求N讀取剩余貨位數(shù)據(jù)O讀取收件數(shù)據(jù)P讀取返件數(shù)據(jù)圖21.查詢模塊結(jié)構(gòu)圖（具體說明略，可以參考數(shù)據(jù)流程圖）3.3輸

18、入設(shè)計(jì)3.3.1輸入界面設(shè)計(jì)圖22.收件人錄入界面圖23.收派件員信息錄入界面圖24.派件完成情況錄入界面圖25.收件清單錄入界面圖26.RFID信息錄入界面3.3.2輸入設(shè)備選擇(1)終端輸入：采用RFID終端設(shè)備掃描包裹信息(2)光電閱讀器：采用光筆讀入光學(xué)標(biāo)記條形碼或用掃描儀錄入紙上文字3.3.3輸入數(shù)據(jù)正確性校驗(yàn)。(1)對照校驗(yàn)：采用人工核對包裹的運(yùn)單信息，核對信息正確性(2)重復(fù)校對：由兩名以上快遞員通過RFID終端讀取信息后由程序核對3.3.4輸入設(shè)計(jì)的評價(jià)(1)輸入界面明晰、美觀、大方(2)便于填寫，符合工作習(xí)慣(3)便于操作(4)有保證輸入數(shù)據(jù)正確性的校驗(yàn)措施3.4輸出設(shè)計(jì)3.

19、4.1輸出設(shè)計(jì)的容(1)包裹信息的狀態(tài)情況 (2)包裹的接受者(3)包裹信息的目的地 (4)包裹的派送員信息情況(5)輸出信息的時(shí)間地點(diǎn) (6)包裹派送的運(yùn)行時(shí)間長度3.4.2輸出信息容(1)輸出項(xiàng)目的信息形式：文字、數(shù)字(2)輸出格式：表格、報(bào)告等3.4.3輸出設(shè)備和介質(zhì)：設(shè)備如打印機(jī)、顯示器等；介質(zhì)如：磁盤、U盤、紙（普通、專用）等3.4.4輸出設(shè)計(jì)的方法(1)系統(tǒng)輸出的說明:表格信息。表格信息是系統(tǒng)對快遞公司員工以及用戶查詢包裹信息時(shí)的輸出，以表格的形式提供給信息使用者，用來表示詳細(xì)的信息，能較為直觀的表示包裹快遞的信息表6.輸出信息運(yùn)單ID運(yùn)單號(hào)快遞公司ID收件人ID物品類別收件員ID

20、收件時(shí)間133831826355511普通小120110102245664535435322普通中輕120110103345325435454323普通小220110102圖27.輸出信息3.5 ER圖及數(shù)據(jù)表3.5.1ER圖圖28.ER圖3.5.2數(shù)據(jù)表圖.快遞公司表3.6存儲(chǔ)文件格式設(shè)計(jì)表7.存儲(chǔ)文件格式表文件格式收件人Char10收件人地址Char10收件人Float8收件人IDInt4收件（派）員Char10收件（派）員Float8收件時(shí)間Char10完成時(shí)間Char10快遞公司Char10快遞公司送件員Char10送件員Float8運(yùn)單IDInt4運(yùn)單號(hào)Float8運(yùn)單貨物名稱Cha

21、r10貨物重量Int4物品類別Char10貨架區(qū)Char10貨架（編號(hào)）Int4貨格編號(hào)Int4掃描地點(diǎn)Char10地址Char103.7數(shù)據(jù)庫設(shè)計(jì)圖29.數(shù)據(jù)庫關(guān)系圖此系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)十分詳細(xì)，界面上每一個(gè)模塊中的每一項(xiàng)功能基本都對應(yīng)了一個(gè)基本表，沒有數(shù)據(jù)冗余的現(xiàn)象，實(shí)現(xiàn)了表信息的查詢。例如：派件信息資源管理菜單下，我們可以查看一位員工的員工號(hào)等信息；在貨位狀態(tài)表中，可以查詢貨物存放位置、存放的狀態(tài)等。4系統(tǒng)實(shí)施部分4.1程序框圖圖30.程序框圖4.2代碼設(shè)計(jì)4.2.1登陸界面圖31.登陸界面Private Sub cmdCancel_Click() LoginSucceeded = Fal

22、se Me.HideEnd SubPrivate Sub cmdOK_Click() If txtPassword = "1" And txtUserName = "SA" Then LibInfoSerSys.Show LoginSucceeded = True Me.Hide Else MsgBox "無效的密碼，請重試!", , "登錄" txtPassword.SetFocus SendKeys "Home+End" End IfEnd Sub4.2.2管理系統(tǒng)界面圖32.管理系統(tǒng)界面4

23、.2.3收派件員信息界面圖33.收派件員信息界面Private Sub Command2_Click()Form2.HideEnd SubPrivate Sub DataCombo1_Click(Area As Integer)Dim strquery As StringAdodc2.CommandType = adCmdTextstrquery = "select * from 收派件員信息 where 收派件員信息.工號(hào)=" & DataCombo1.BoundTextAdodc2.RecordSource = strqueryAdodc2.RefreshSet

24、 DataGrid1.DataSource = Adodc2End Sub4.2.4收件人信息界面圖34. 收件人信息界面Private Sub Command2_Click()Form3.HideEnd SubPrivate Sub DataCombo1_Click(Area As Integer)Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 收件人信息 where 收件人信息.=" & DataCombo1.BoundTextAdodc1.RecordS

25、ource = strqueryAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End Sub4.2.5收件清單錄入圖35. 收件清單錄入Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = "記錄:" & Adodc1.Recordset.AbsolutePos

26、ition & "/" & _ Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click() Adodc1.Recordset.AddNew Text1.SetFocusEnd SubPrivate Sub Command2_Click()Dim msg As Stringmsg = MsgBox("確定要?jiǎng)h除該項(xiàng)記錄嗎.", vbQuestion + vbYesNo, "提示")If msg = vbYes Then With Adodc1.Recor

27、dset .Delete .MoveNext If .BOF = True Then .MoveLast End If End WithEnd IfEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command6_Click() Adodc1.Recordset.MoveLastEnd Su

28、bPrivate Sub Command7_Click() With Adodc1.Recordset .MovePrevious If .BOF = True Then .MoveFirst End If End WithEnd SubPrivate Sub Command8_Click() With Adodc1.Recordset .MoveNext If .BOF = True Then .MoveLast End If End WithEnd Sub4.2.6貨位狀態(tài)信息圖36.貨位狀態(tài)信息Private Sub Command1_Click()Dim strquery As Str

29、ingAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位狀態(tài)信息表 where 貨架號(hào) like 'A%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位狀態(tài)信息表 where 貨架號(hào) like 'B%

30、9;"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位狀態(tài)信息表 where 貨架號(hào) like 'C%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Form6.Hide

31、圖37.貨位狀態(tài)信息Private Sub Command1_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'A01%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command10_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrque

32、ry = "select * from 貨位分配表 where 貨位號(hào) like 'B06%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command11_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'B07%'"Adodc1.RecordSource = strquery

33、Adodc1.RefreshEnd SubPrivate Sub Command12_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'B08%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command13_Click()Dim strquery As StringAdodc1.CommandType = adC

34、mdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'C09%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command14_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'C10%'"Adodc1.RecordSourc

35、e = strqueryAdodc1.RefreshEnd SubPrivate Sub Command15_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'C11%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command16_Click()Dim strquery As StringAdodc1.Comma

36、ndType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'C12%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Form11.HideEnd SubPrivate Sub Command3_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位

37、分配表 where 貨位號(hào) like 'A02%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'A%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate S

38、ub Command5_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'B%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command6_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * fr

39、om 貨位分配表 where 貨位號(hào) like 'C%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command7_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'A03%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPriv

40、ate Sub Command8_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 貨位分配表 where 貨位號(hào) like 'A04%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd SubPrivate Sub Command9_Click()Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "sele

41、ct * from 貨位分配表 where 貨位號(hào) like 'B05%'"Adodc1.RecordSource = strqueryAdodc1.RefreshEnd Sub4.2.7派件情況圖38.派件情況Private Sub Command2_Click()Form8.HideEnd SubPrivate Sub DataCombo1_Click(Area As Integer)Dim strquery As StringAdodc1.CommandType = adCmdTextstrquery = "select * from 派件完成情況表

42、where 派件完成情況表.運(yùn)單=" & DataCombo1.BoundTextAdodc1.RecordSource = strqueryAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End Sub4.2.8查詢統(tǒng)計(jì)圖39. 查詢統(tǒng)計(jì)Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.

43、Caption = "記錄:" & Adodc1.Recordset.AbsolutePosition & "/" & _ Adodc1.Recordset.RecordCountEnd SubPrivate Sub Adodc2_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc2.Caption = "記錄:" & Adodc2.Recordset.AbsolutePosition & "/" & _ Adodc2.Recordset.RecordCountEnd Sub4.2.9收件清單圖40. 收件清單Private Sub Command1_Click