【正文】 吉林省明日科技有限公司監(jiān)制物流管理系統(tǒng)在現(xiàn)代社會(huì)的運(yùn)用畢業(yè)論文– 39 –目錄摘要 1目錄 1引言 11 系統(tǒng)分析 2 需求分析 2 可行性分析 22 總體設(shè)計(jì) 2 項(xiàng)目規(guī)劃 2 系統(tǒng)功能結(jié)構(gòu)圖 33 詳細(xì)設(shè)計(jì) 3 系統(tǒng)登錄設(shè)計(jì) 3 車輛調(diào)度安排 6 托運(yùn)申請(qǐng)單管理 8 貨物托運(yùn)管理 11 在途跟蹤管理 17 信息查詢 20附錄A 參考文獻(xiàn) 30附錄B 數(shù)據(jù)表結(jié)構(gòu) 31附錄C 文件架構(gòu)圖 37引言在當(dāng)今高速發(fā)展的信息社會(huì)，現(xiàn)代物流行業(yè)突飛猛進(jìn)發(fā)展，伴隨著我國國民經(jīng)濟(jì)連續(xù)多年的高速增長(zhǎng)，為現(xiàn)代物流發(fā)展創(chuàng)造了良好的條件。目前，我國各類物流企業(yè)有14萬家左右，展望整個(gè)21世紀(jì)，可以說現(xiàn)代物流業(yè)還將有更大的發(fā)展。在發(fā)達(dá)國家，物流理論促使物流實(shí)踐快速發(fā)展。經(jīng)濟(jì)全球化及現(xiàn)代物流業(yè)發(fā)展的系統(tǒng)化、信息化、倉儲(chǔ)運(yùn)輸?shù)默F(xiàn)代化和綜合化等趨勢(shì)，對(duì)我國物流業(yè)的發(fā)展提出了全方位的挑戰(zhàn)。傳統(tǒng)物流行業(yè)的操作模式已經(jīng)不適應(yīng)現(xiàn)代的物流行業(yè)，如何縮短物流過程，降低產(chǎn)品庫存，加速對(duì)市場(chǎng)的反應(yīng)，這是所有企業(yè)所面對(duì)的問題。本系統(tǒng)就是針對(duì)這些問題根據(jù)中小型企業(yè)的實(shí)際需求而開發(fā)的一套物流管理系統(tǒng)。系統(tǒng)的開發(fā)能夠幫助企業(yè)實(shí)現(xiàn)對(duì)物流全過程的優(yōu)化調(diào)度和動(dòng)態(tài)控制，高效整合企業(yè)的物流業(yè)務(wù)，以全面提高經(jīng)濟(jì)效益和效率為目的，提供高效、實(shí)用、技術(shù)的物流管理系統(tǒng)和運(yùn)營手段。物流管理系統(tǒng)是集現(xiàn)代運(yùn)輸、倉儲(chǔ)配送、搬運(yùn)、調(diào)度、跟蹤為一體的網(wǎng)絡(luò)系統(tǒng)，系統(tǒng)的開發(fā)實(shí)現(xiàn)了商品從原料供應(yīng)商、制造商、分銷商到零售商再到消費(fèi)者的各個(gè)環(huán)節(jié)的有機(jī)結(jié)合。1 系統(tǒng)分析 需求分析通過市場(chǎng)調(diào)查，要求本系統(tǒng)具有以下功能：q 統(tǒng)一友好的操作界面，能保證系統(tǒng)的易用性。q 規(guī)范、完善的基礎(chǔ)信息設(shè)置。q 靈活的報(bào)表設(shè)計(jì)及打印功能。q 實(shí)現(xiàn)貨物申請(qǐng)、托運(yùn)、跟蹤與驗(yàn)收的全過程。q 全方位的信息查詢功能。q 系統(tǒng)日志詳細(xì)記錄各種操作，提供追查的有力依據(jù)。q 完善的權(quán)限管理，增強(qiáng)系統(tǒng)的安全性。q 強(qiáng)大的數(shù)據(jù)備份及恢復(fù)功能，保證系統(tǒng)數(shù)據(jù)的安全性。 可行性分析由于傳統(tǒng)物流行業(yè)操作過程復(fù)雜，手續(xù)繁多，業(yè)務(wù)信息多，圍繞這些信息的處理也很紛雜。而且，物流行業(yè)競(jìng)爭(zhēng)激烈，這種競(jìng)爭(zhēng)，一方面表現(xiàn)在發(fā)展客戶的市場(chǎng)開拓上，另一方面也存在于收集處理信息的速度、廣度和深度，以及在業(yè)務(wù)操作中對(duì)業(yè)務(wù)數(shù)據(jù)處理的準(zhǔn)確性和嚴(yán)密性，而更高層次上，還牽涉到公司決策層對(duì)整體業(yè)務(wù)的控制和協(xié)調(diào)。物流管理系統(tǒng)從物流行業(yè)的實(shí)際需求出發(fā)，參照先進(jìn)的物流理念和多家領(lǐng)先的物流公司實(shí)際的運(yùn)營流程開發(fā)而成，系統(tǒng)從完善的基礎(chǔ)信息設(shè)置到貨物的托運(yùn)管理、在線跟蹤，信息查詢、到最后各種報(bào)表的生成，清晰的業(yè)務(wù)流程，使操作人員能夠按照流程清晰的進(jìn)行實(shí)際的操作，保證物流運(yùn)作有序而高效的進(jìn)行。2 總體設(shè)計(jì) 項(xiàng)目規(guī)劃物流管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫管理系統(tǒng)，系統(tǒng)由基本信息設(shè)置、貨物托運(yùn)管理、信息查詢、報(bào)表管理、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 基本信息設(shè)置模塊該模塊主要負(fù)責(zé)完成部門資料設(shè)置、職務(wù)信息設(shè)置、公司資料設(shè)置、員工資料設(shè)置、客戶資料設(shè)置、司機(jī)資料設(shè)置和車輛資料設(shè)置。q 貨物托運(yùn)管理模塊該模塊主要由車輛調(diào)度安排、托運(yùn)申請(qǐng)單管理、貨物托運(yùn)單管理、貨物驗(yàn)收單管理和車輛配送跟蹤記錄單管理幾部分組成。q 信息查詢模塊該模塊由貨物申請(qǐng)單查詢、車輛調(diào)度信息查詢、貨物托運(yùn)信息查詢、貨物托運(yùn)驗(yàn)收查詢和車輛在途跟蹤查詢幾部分組成。q 報(bào)表管理模塊包括貨物申請(qǐng)單報(bào)表、貨物托運(yùn)單報(bào)表和貨物驗(yàn)收單報(bào)表3部分。q 系統(tǒng)管理模塊包括查看日志、刪除日志、用戶管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和系統(tǒng)數(shù)據(jù)清理幾部分。 系統(tǒng)功能結(jié)構(gòu)圖物流管理系統(tǒng)的系統(tǒng)功能結(jié)構(gòu)圖如圖1所示。圖1 系統(tǒng)功能結(jié)構(gòu)圖3 詳細(xì)設(shè)計(jì) 系統(tǒng)登錄設(shè)計(jì)系統(tǒng)登錄主要用于對(duì)登錄物流管理系統(tǒng)的用戶進(jìn)行安全性檢查，以防止非法用戶登錄該系統(tǒng)。根據(jù)給管理員分配的權(quán)限，登錄用戶可以根據(jù)自己所具有的權(quán)限操作系統(tǒng)中相應(yīng)的功能。在登錄系統(tǒng)時(shí)驗(yàn)證操作員及其密碼，主要通過ADO控件中記錄集（RecordSet）對(duì)象結(jié)合If語句判斷用戶選定的操作員及其輸入的密碼與數(shù)據(jù)庫中的操作員和密碼是否相同來實(shí)現(xiàn)，如果相同則允許登錄，并給予相應(yīng)的權(quán)限，否則將不允許用戶登錄。系統(tǒng)登錄的運(yùn)行結(jié)果如圖2所示。圖2 系統(tǒng)登錄窗體的運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_xtdl”，BorderStyle屬性設(shè)置為“0None”，通過設(shè)置Picture屬性為窗體添加圖片。（2）在窗體上添加Adodc控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下：在“工程”/“部件”對(duì)話框中勾選“Microsoft Ado Data Controls (SP4)”列表項(xiàng)，單擊【確定】按鈕之后即可將Ado控件添加到工具箱當(dāng)中。（3）在窗體中添加1個(gè)ComboBox控件和文本框控件,分別設(shè)置名稱為Name屬性為“Cbx_Name”和“txt_Password”，設(shè)置BorderStyle屬性為“0None”，將ComboBox控件的Text屬性設(shè)置為“MR”。（4）在窗體中添加2個(gè)CommandButton控件，分別將Name屬性設(shè)置為“Cmd_Ok”和“Cmd_Cancel”，Caption屬性設(shè)置為“登錄”和“取消”。登錄窗體的設(shè)計(jì)結(jié)果如圖3所示圖3 系統(tǒng)登錄窗體的設(shè)計(jì)界面2．代碼設(shè)計(jì)在代碼窗口的聲明部分定義如下變量：Dim itmX As ListItem 39。定義一個(gè)ListItem對(duì)象Dim key As String 39。定義字符串變量在窗體裝載事件中，通過ADO控件的ConnectionString屬性建立數(shù)據(jù)庫連接，同時(shí)將所有操作員的姓名添加到Cbx_Name控件當(dāng)中，代碼如下：Private Sub Form_Load() Call WHScreen 39。調(diào)用獲取屏幕分辨率的過程函數(shù)39。使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表 = PublicStr = select * from tb_user If 0 Then 39。在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容 Do While = False 39。將操作員信息添加到ListView控件當(dāng)中 ((user_name)) Loop End If If TWidth = 800 Or THeigth = 600 Then 39。判斷屏幕分辨率的大小 Exit Sub Else ChangeScreen 39。調(diào)整屏幕分辨率 End IfEnd Sub單擊【確定】按鈕，如果輸入的操作員姓名和口令正確，則通過身份驗(yàn)證，登錄到系統(tǒng)當(dāng)中。設(shè)計(jì)思路：通過SQL語句查詢輸入的用戶名和密碼信息在數(shù)據(jù)庫中是否存在，如果查詢到符合條件的記錄信息則顯示系統(tǒng)主窗體，登錄到系統(tǒng)當(dāng)中，實(shí)現(xiàn)的程序代碼如下：Private Sub Cmd_Ok_Click()Dim MPassword As StringIf = MR And = mingrisoft Then 39。判斷是否使用的是超級(jí)口令登錄 (2).Text = 當(dāng)前操作員： MR Name1 = 39。將操作員姓名信息賦予全局變量Name1 Unload Me 39。顯示系統(tǒng)主窗體Else = select * from tb_user where user_name =39。 amp。 amp。 39。 If 0 Then MPassword = (user_mm) If = MPassword Then 39。判斷數(shù)據(jù)的密碼是否正確 Name1 = (2).Text = 當(dāng)前操作員： + (user_name) 39。通過身份驗(yàn)證則顯示主窗體，登錄到系統(tǒng)當(dāng)中 Unload Me Else MsgBox 密碼不正確,請(qǐng)您確認(rèn)后重新輸入, , 提示信息 = End If Else MsgBox 對(duì)不起 沒有此用戶的信息, , 提示信息 = = End If End IfEnd Sub 如果在輸入密碼的文本框中按下〈Enter〉鍵，則將調(diào)用【確定】按鈕的單擊事件，判斷登錄用戶是否合法，代碼如下所示。Private Sub Txt_Password_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Cmd_Ok_Click 39。調(diào)用確定按鈕的單擊事件代碼 End IfEnd Sub 車輛調(diào)度安排車輛調(diào)度安排是物流管理過程中的重要環(huán)節(jié)，物流公司在接到托運(yùn)貨物信息之后，首要的問題是安排托運(yùn)貨物的車輛。在本系統(tǒng)當(dāng)中通過車輛調(diào)度安排填寫安排托運(yùn)車輛的信息，然后打印出車輛調(diào)度通知單，并將通知單發(fā)放到托運(yùn)司機(jī)的手中，司機(jī)根據(jù)調(diào)度通知單上的信息執(zhí)行托運(yùn)任務(wù)。通過單擊窗體中的Cmd_Select按鈕選擇車牌號(hào)碼，然后輸入其他一些輔助的信息，最后保存車輛調(diào)度安排信息。車輛調(diào)度安排模塊的運(yùn)行結(jié)果如圖4所示。圖4 車輛調(diào)度安排窗體的運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_Cldd”，BorderStyle屬性設(shè)置為“1Fixed Single”，MaxButton屬性設(shè)置False。（2）在窗體上添加1個(gè)Toolbar控件和1個(gè)ImageList控件。（3）在窗體的Toolbar控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項(xiàng)，在彈出的“屬性頁”對(duì)話框中設(shè)置窗體的工具欄，設(shè)計(jì)完成的工具欄如圖5所示。（4）在窗體中添加1個(gè)Frame控件，在Frame控件上添加1個(gè)文本框控件數(shù)組，并為每個(gè)文本框控件配置1個(gè)標(biāo)簽控件，并且設(shè)置相應(yīng)的Caption屬性值，如圖5所示。（5）在窗體上添加1個(gè)DTPicker控件，命名為DT1，用于輸入或顯示托運(yùn)司機(jī)執(zhí)行任務(wù)的日期時(shí)間。（6）在窗體上添加1個(gè)Ado控件和1個(gè)DataGrid控件，將DataGrid控件的名稱設(shè)置為Dgr_Sjll，DataSource屬性設(shè)置為Adodc1，AllowUpdate屬性值設(shè)置為False。（7）在窗體中添加1個(gè)標(biāo)簽控件，命名為L(zhǎng)bl_Num。（8）在窗體上添加1個(gè)時(shí)鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設(shè)置為60。車輛調(diào)度安排窗體的設(shè)計(jì)結(jié)果如圖5所示。圖5 車輛調(diào)度安排窗體的設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)工具欄中的控制按鈕控制著窗體的各項(xiàng)操作，在Toolbar控件Tbr_xxcz的ButtonClick事件當(dāng)中，通過選擇Select Case語句的索引值（單擊工具欄中的按鈕執(zhí)行相應(yīng)的索引值）調(diào)用相應(yīng)的過程來完成添加、刪除、修改和保存等操作的功能，保存過程事件的代碼如下：Private Sub Saves() 39。保存信息的過程 If Text1(0).Text = Or Text1(3).Text = Then MsgBox 重要信息不能為空值, 48, 提示信息 Else select * from tb_Goods_cldd where cldd_cphm=39。 + Text1(0).Text + 39。, Cnn, adOpenKeyset If 0 Then MsgBox 該信息已經(jīng)存在, 48, 提示信息 39。關(guān)閉記錄集對(duì)象 Else 39。關(guān)閉記錄集對(duì)象 c = MsgBox(確認(rèn)保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = (insert into tb_Goods_cldd values(39。 amp。Txt_id amp。 39。,39。 amp。 Text1(0)amp。 39。,39。 amp。 Text1(1) amp。 39。,39。 amp。 Text1(2) amp。 39。,39。amp。 Text1(3) amp。 39。,39。 amp。 Str() amp。 39。,39。 amp。 Text1(4) amp。 39。,39。 amp。 Text1(5)amp。 39。,39。 amp。 Txt_bz amp。 39。)) MsgBox 數(shù)據(jù)保存成功, 64, 提示信