校園快遞派件管理系統(tǒng)分析報告(編輯修改稿)
2025-09-04 12:31 本頁面
【文章內(nèi)容簡介】 件臺賬有效性庫存臺賬（具體說明略，可以參考數(shù)據(jù)流程圖）查詢請求運單號運單號快遞公司名稱查詢請求H查詢管理J貨位核查I獲取查詢請求K收件臺賬核查L返件臺賬核查M讀取查詢請求N讀取剩余貨位數(shù)據(jù)O讀取收件數(shù)據(jù)P讀取返件數(shù)據(jù)（具體說明略，可以參考數(shù)據(jù)流程圖）(1)終端輸入：采用RFID終端設(shè)備掃描包裹信息(2)光電閱讀器：采用光筆讀入光學(xué)標(biāo)記條形碼或用掃描儀錄入紙上文字。(1)對照校驗：采用人工核對包裹的運單信息，核對信息正確性(2)重復(fù)校對：由兩名以上快遞員通過RFID終端讀取信息后由程序核對(1)輸入界面明晰、美觀、大方(2)便于填寫，符合工作習(xí)慣(3)便于操作(4)有保證輸入數(shù)據(jù)正確性的校驗措施(1)包裹信息的狀態(tài)情況 (2)包裹的接受者(3)包裹信息的目的地 (4)包裹的派送員信息情況(5)輸出信息的時間地點 (6)包裹派送的運行時間長度(1)輸出項目的信息形式：文字、數(shù)字(2)輸出格式：表格、報告等：設(shè)備如打印機、顯示器等；介質(zhì)如：磁盤、U盤、紙張（普通、專用）等(1)系統(tǒng)輸出的說明:表格信息。表格信息是系統(tǒng)對快遞公司員工以及用戶查詢包裹信息時的輸出，以表格的形式提供給信息使用者，用來表示詳細的信息，能較為直觀的表示包裹快遞的信息運單ID運單號快遞公司ID收件人ID物品類別收件員ID收件時間133831826355511普通小120110102245664535435322普通中輕120110103345325435454323普通小220110102 ER圖及數(shù)據(jù)表 文件格式收件人姓名Char10收件人地址Char10收件人電話Float8收件人IDInt4收件（派）員姓名Char10收件（派）員電話Float8收件時間Char10完成時間Char10快遞公司Char10快遞公司送件員姓名Char10送件員電話Float8運單IDInt4運單號Float8運單貨物名稱Char10貨物重量Int4物品類別Char10貨架區(qū)Char10貨架（編號）Int4貨格編號Int4掃描地點Char10地址Char10此系統(tǒng)的數(shù)據(jù)庫設(shè)計十分詳細，界面上每一個模塊中的每一項功能基本都對應(yīng)了一個基本表，沒有數(shù)據(jù)冗余的現(xiàn)象，實現(xiàn)了表信息的查詢。例如：派件信息資源管理菜單下，我們可以查看一位員工的員工號等信息；在貨位狀態(tài)表中，可以查詢貨物存放位置、存放的狀態(tài)等。4系統(tǒng)實施部分 Private Sub cmdCancel_Click() LoginSucceeded = False End SubPrivate Sub cmdOK_Click() If txtPassword = 1 And txtUserName = SA Then LoginSucceeded = True Else MsgBox 無效的密碼，請重試!, , 登錄 SendKeys {Home}+{End} End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub DataCombo1_Click(Area As Integer)Dim strquery As String = adCmdTextstrquery = select * from 收派件員信息 where = amp。 = strquerySet = Adodc2End Sub圖34. 收件人信息界面Private Sub Command2_Click()End SubPrivate Sub DataCombo1_Click(Area As Integer)Dim strquery As String = adCmdTextstrquery = select * from 收件人信息 where = amp。 = strquerySet = Adodc1End Sub圖35. 收件清單錄入Private Sub Adodc1_WillMove(ByVal adReason As , adStatus As , ByVal pRecordset As ) = 記錄: amp。 amp。 / amp。 _ End SubPrivate Sub Command1_Click() End SubPrivate Sub Command2_Click()Dim msg As Stringmsg = MsgBox(確定要刪除該項記錄嗎？, vbQuestion + vbYesNo, 提示)If msg = vbYes Then With .Delete .MoveNext If .BOF = True Then .MoveLast End If End WithEn
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1