《物流管理系統畢業(yè)設計論文》由會員分享，可在線閱讀，更多相關《物流管理系統畢業(yè)設計論文（39頁珍藏版）》請在裝配圖網上搜索。
1、吉林省明日科技有限公司監(jiān)制物流管理系統學 院專 業(yè)班 級學 號姓 名指導教師教師職稱年月日 39 摘要【摘要】隨著市場經濟的高速發(fā)展，制造業(yè)、商業(yè)企業(yè)逐步接受著第三方物流服務。越來越多的企業(yè)認識到物流企業(yè)外包是降低成本、提高服務水平的有效渠道。物流管理的特點是以客戶為核心、構建面向客戶的業(yè)務流程支持各種形式、各種需求的現在企業(yè)中的業(yè)務模式。系統支持多形式客戶的數據共享、提高作業(yè)效率、監(jiān)控整個流程、提供完整的貨品、進行訂單跟蹤，并且特別關注對各環(huán)節(jié)業(yè)務的監(jiān)控及例外情況的監(jiān)控。【關鍵詞】 客戶 物流 物流管理系統目錄摘要1目錄1引言11 系統分析21.1 需求分析21.2 可行性分析22 總體設計
2、22.1 項目規(guī)劃22.2 系統功能結構圖33 詳細設計33.1 系統登錄設計33.2 車輛調度安排63.3 托運申請單管理83.4 貨物托運管理113.5 在途跟蹤管理173.6 信息查詢20附錄A 參考文獻30附錄B 數據表結構31附錄C 文件架構圖37引言在當今高速發(fā)展的信息社會，現代物流行業(yè)突飛猛進發(fā)展，伴隨著我國國民經濟連續(xù)多年的高速增長，為現代物流發(fā)展創(chuàng)造了良好的條件。目前，我國各類物流企業(yè)有14萬家左右，展望整個21世紀，可以說現代物流業(yè)還將有更大的發(fā)展。在發(fā)達國家，物流理論促使物流實踐快速發(fā)展。經濟全球化及現代物流業(yè)發(fā)展的系統化、信息化、倉儲運輸的現代化和綜合化等趨勢，對我國物
3、流業(yè)的發(fā)展提出了全方位的挑戰(zhàn)。傳統物流行業(yè)的操作模式已經不適應現代的物流行業(yè)，如何縮短物流過程，降低產品庫存，加速對市場的反應，這是所有企業(yè)所面對的問題。本系統就是針對這些問題根據中小型企業(yè)的實際需求而開發(fā)的一套物流管理系統。系統的開發(fā)能夠幫助企業(yè)實現對物流全過程的優(yōu)化調度和動態(tài)控制，高效整合企業(yè)的物流業(yè)務，以全面提高經濟效益和效率為目的，提供高效、實用、技術的物流管理系統和運營手段。物流管理系統是集現代運輸、倉儲配送、搬運、調度、跟蹤為一體的網絡系統，系統的開發(fā)實現了商品從原料供應商、制造商、分銷商到零售商再到消費者的各個環(huán)節(jié)的有機結合。1 系統分析1.1 需求分析通過市場調查，要求本系統具
4、有以下功能：q 統一友好的操作界面，能保證系統的易用性。q 規(guī)范、完善的基礎信息設置。q 靈活的報表設計及打印功能。q 實現貨物申請、托運、跟蹤與驗收的全過程。q 全方位的信息查詢功能。q 系統日志詳細記錄各種操作，提供追查的有力依據。q 完善的權限管理，增強系統的安全性。q 強大的數據備份及恢復功能，保證系統數據的安全性。1.2 可行性分析由于傳統物流行業(yè)操作過程復雜，手續(xù)繁多，業(yè)務信息多，圍繞這些信息的處理也很紛雜。而且，物流行業(yè)競爭激烈，這種競爭，一方面表現在發(fā)展客戶的市場開拓上，另一方面也存在于收集處理信息的速度、廣度和深度，以及在業(yè)務操作中對業(yè)務數據處理的準確性和嚴密性，而更高層次上
5、，還牽涉到公司決策層對整體業(yè)務的控制和協調。物流管理系統從物流行業(yè)的實際需求出發(fā)，參照先進的物流理念和多家領先的物流公司實際的運營流程開發(fā)而成，系統從完善的基礎信息設置到貨物的托運管理、在線跟蹤，信息查詢、到最后各種報表的生成，清晰的業(yè)務流程，使操作人員能夠按照流程清晰的進行實際的操作，保證物流運作有序而高效的進行。2 總體設計2.1 項目規(guī)劃物流管理系統是一個典型的數據庫管理系統，系統由基本信息設置、貨物托運管理、信息查詢、報表管理、系統管理等模塊組成，規(guī)劃系統功能模塊如下：q 基本信息設置模塊該模塊主要負責完成部門資料設置、職務信息設置、公司資料設置、員工資料設置、客戶資料設置、司機資料設
6、置和車輛資料設置。q 貨物托運管理模塊該模塊主要由車輛調度安排、托運申請單管理、貨物托運單管理、貨物驗收單管理和車輛配送跟蹤記錄單管理幾部分組成。q 信息查詢模塊該模塊由貨物申請單查詢、車輛調度信息查詢、貨物托運信息查詢、貨物托運驗收查詢和車輛在途跟蹤查詢幾部分組成。q 報表管理模塊包括貨物申請單報表、貨物托運單報表和貨物驗收單報表3部分。q 系統管理模塊包括查看日志、刪除日志、用戶管理、數據備份、數據恢復和系統數據清理幾部分。2.2 系統功能結構圖物流管理系統的系統功能結構圖如圖1所示。圖1 系統功能結構圖3 詳細設計3.1 系統登錄設計系統登錄主要用于對登錄物流管理系統的用戶進行安全性檢查
7、，以防止非法用戶登錄該系統。根據給管理員分配的權限，登錄用戶可以根據自己所具有的權限操作系統中相應的功能。在登錄系統時驗證操作員及其密碼，主要通過ADO控件中記錄集（RecordSet）對象結合If語句判斷用戶選定的操作員及其輸入的密碼與數據庫中的操作員和密碼是否相同來實現，如果相同則允許登錄，并給予相應的權限，否則將不允許用戶登錄。系統登錄的運行結果如圖2所示。圖2 系統登錄窗體的運行結果1窗體設計（1）在工程中新建1個窗體，將窗體的名稱設置為“frm_xtdl”，BorderStyle屬性設置為“0-None”，通過設置Picture屬性為窗體添加圖片。（2）在窗體上添加Adodc控件，由
8、于該控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Ado Data Controls 6.0(SP4)”列表項，單擊【確定】按鈕之后即可將Ado控件添加到工具箱當中。（3）在窗體中添加1個ComboBox控件和文本框控件,分別設置名稱為Name屬性為“Cbx_Name”和“txt_Password”，設置BorderStyle屬性為“0-None”，將ComboBox控件的Text屬性設置為“MR”。（4）在窗體中添加2個CommandButton控件，分別將Name屬性設置為“Cmd_Ok”和“C
9、md_Cancel”，Caption屬性設置為“登錄”和“取消”。登錄窗體的設計結果如圖3所示圖3 系統登錄窗體的設計界面2代碼設計在代碼窗口的聲明部分定義如下變量：Dim itmX As ListItem 定義一個ListItem對象Dim key As String 定義字符串變量在窗體裝載事件中，通過ADO控件的ConnectionString屬性建立數據庫連接，同時將所有操作員的姓名添加到Cbx_Name控件當中，代碼如下：Private Sub Form_Load() Call WHScreen 調用獲取屏幕分辨率的過程函數使用代碼連接數據庫與數據表 Adodc1.Connectio
10、nString = PublicStr Adodc1.RecordSource = select * from tb_user Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Cbx_Name.Clear 在添加數據時，首先清空控件中的內容 Do While Adodc1.Recordset.EOF = False 將操作員信息添加到ListView控件當中 Cbx_Name.AddItem (Adodc1.Recordset.Fields(user_name) Adodc1.Re
11、cordset.MoveNext Loop End If If TWidth = 800 Or THeigth 0 Then MPassword = Adodc1.Recordset.Fields(user_mm) If Txt_Password.Text = MPassword Then 判斷數據的密碼是否正確 Name1 = Cbx_Name.Text Frm_Main.StatusBar1.Panels.Item(2).Text = 當前操作員： + Adodc1.Recordset.Fields(user_name) Frm_Main.Show 通過身份驗證則顯示主窗體，登錄到系統當中
12、 Unload Me Else MsgBox 密碼不正確,請您確認后重新輸入, , 提示信息 Txt_Password.Text = Txt_Password.SetFocus End If Else MsgBox 對不起 沒有此用戶的信息, , 提示信息 Cbx_Name.Text = Txt_Password.Text = End If End IfEnd Sub如果在輸入密碼的文本框中按下Enter鍵，則將調用【確定】按鈕的單擊事件，判斷登錄用戶是否合法，代碼如下所示。Private Sub Txt_Password_KeyDown(KeyCode As Integer, Shift A
13、s Integer) If KeyCode = 13 Then Call Cmd_Ok_Click 調用確定按鈕的單擊事件代碼 End IfEnd Sub3.2 車輛調度安排車輛調度安排是物流管理過程中的重要環(huán)節(jié)，物流公司在接到托運貨物信息之后，首要的問題是安排托運貨物的車輛。在本系統當中通過車輛調度安排填寫安排托運車輛的信息，然后打印出車輛調度通知單，并將通知單發(fā)放到托運司機的手中，司機根據調度通知單上的信息執(zhí)行托運任務。通過單擊窗體中的Cmd_Select按鈕選擇車牌號碼，然后輸入其他一些輔助的信息，最后保存車輛調度安排信息。車輛調度安排模塊的運行結果如圖4所示。圖4 車輛調度安排窗體的運
14、行結果1窗體設計（1）在工程中新建1個窗體，將窗體的名稱設置為“frm_Cldd”，BorderStyle屬性設置為“1-Fixed Single”，MaxButton屬性設置False。（2）在窗體上添加1個Toolbar控件和1個ImageList控件。（3）在窗體的Toolbar控件上單擊鼠標右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出的“屬性頁”對話框中設置窗體的工具欄，設計完成的工具欄如圖5所示。（4）在窗體中添加1個Frame控件，在Frame控件上添加1個文本框控件數組，并為每個文本框控件配置1個標簽控件，并且設置相應的Caption屬性值，如圖5所示。（5）在窗體上添加1個D
15、TPicker控件，命名為DT1，用于輸入或顯示托運司機執(zhí)行任務的日期時間。（6）在窗體上添加1個Ado控件和1個DataGrid控件，將DataGrid控件的名稱設置為Dgr_Sjll，DataSource屬性設置為Adodc1，AllowUpdate屬性值設置為False。（7）在窗體中添加1個標簽控件，命名為Lbl_Num。（8）在窗體上添加1個時鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設置為60。車輛調度安排窗體的設計結果如圖5所示。圖5 車輛調度安排窗體的設計結果2代碼設計工具欄中的控制按鈕控制著窗體的各項操作，在Toolbar控件Tbr_xxcz的Button
16、Click事件當中，通過選擇Select Case語句的索引值（單擊工具欄中的按鈕執(zhí)行相應的索引值）調用相應的過程來完成添加、刪除、修改和保存等操作的功能，保存過程事件的代碼如下：Private Sub Saves() 保存信息的過程 If Text1(0).Text = Or Text1(3).Text = Then MsgBox 重要信息不能為空值, 48, 提示信息 Else AdoRs.Open select * from tb_Goods_cldd where cldd_cphm= + Text1(0).Text + , Cnn, adOpenKeyset If AdoRs.Reco
17、rdCount 0 Then MsgBox 該信息已經存在, 48, 提示信息 AdoRs.Close 關閉記錄集對象 Else AdoRs.Close 關閉記錄集對象 c = MsgBox(確認保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(insert into tb_Goods_cldd values( &Txt_id & , & Text1(0)& , & Text1(1) & , & Text1(2) & ,& Text1(3) & , & Str(DT1.Value) & , & Text1(4) & , & Te
18、xt1(5)& , & Txt_bz & ) MsgBox 數據保存成功, 64, 提示信息 Else End If Adodc1.RecordSource = select * from tb_Goods_cldd order by cldd_id Adodc1.Refresh Call DBGCon End If Call Tbr_cortrol(Tbr_xxcz, True) End IfEnd Sub用戶自定義修改信息過程事件的代碼如下：Private Sub Edits() 修改信息的過程 c = MsgBox(確認修改信息嗎, 33, 提示信息) If c = vbOK Then
19、Set AdoRs = Cnn.Execute(UPDATE tb_Goods_cldd SET cldd_id= + Txt_id + ,cldd_cphm= + Text1(0) + ,cldd_czxm= + Text1(1) + ,cldd_sjxm= + Text1(2) + ,cldd_rwsj= + Str(DT1.Value) + ,cldd_phmc= + Text1(4) + ,cldd_shdd= + Text1(5) + ,cldd_bz= + Txt_bz + where cldd_id= + Txt_id.Text + ) MsgBox 數據修改成功, 64, 提示
20、信息 Adodc1.RecordSource = select * from tb_Goods_cldd order by cldd_id Adodc1.Refresh StrId = Txt_id.Text StrTitle = Text1(0).Text Call joinRZ 添加修改信息日志 Call DBGCon Else End IfEnd Sub用戶自定義刪除信息過程事件的代碼如下：Private Sub Deletes() 刪除信息 c = MsgBox(確認刪除該信息嗎, 17, 提示信息) If c = vbOK Then On Error Resume Next 執(zhí)行錯誤
21、處理 Set AdoRs = Cnn.Execute(Delete tb_Goods_cldd from tb_Goods_cldd where cldd_id= + Txt_id.Text + ) Adodc1.Refresh 刷新數據信息 End If For i = 0 To 5 Text1(i).Text = Next i Txt_bz.Text = End Sub3.3 托運申請單管理在正式托運貨物之前，需要進行托運貨物申請，在進行托運貨物申請時需要填寫托運貨物申請單，托運申請單經過核對之后，才可以填寫貨物托運單進行托運貨物。在托運申請單中記錄的托運貨物的詳細信息，以便托運貨物時進行
22、核對。貨物托運申請管理模塊的運行結果如圖6所示。圖6 貨物托運申請管理模塊運行結果1窗體設計（1）在工程中新建1個窗體，將窗體的名稱設置為“frm_Tysq”，BorderStyle屬性設置為“1-Fixed Single”，MaxButton屬性設置“False”。（2）在窗體上添加1個Toolbar控件和1個ImageList控件，為窗體設計工具欄。（3）在窗體中添加1個Frame控件，在Frame控件上添加1個文本框控件數組，并為每個文本控件配置1個標簽控件，設置相應的Caption屬性值，如圖7所示。（4）在Frame控件上添加2個DTPicker控件，分別名稱命名為DT1和DT2，用
23、于輸入或顯示出貨日期時間和開票日期。（5）在窗體上添加1個Ado控件。（6）在窗體中添加1個標簽控件，命名為Lbl_Num。（7）在窗體上添加1個時鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設置為60。貨物托運申請單管理窗體的設計結果如圖7所示。圖7 貨物托運管理窗體的設計結果2代碼設計當窗體啟動時，鎖定窗體中文本框，禁止輸入字符信息，同時通過Ado控件的ConnectionString屬性連接到數據庫，實現代碼如下：Private Sub Form_Load() Call LoadFile 在窗體加載的時候顯示數據信息 For i = 1 To 20 Text1(i).L
24、ocked = True 鎖定文本框，禁止輸入字符信息 Next i Adodc1.ConnectionString = PublicStr 通過代碼連接到數據庫 Adodc1.RecordSource = select * from tb_Goods_sqd order by sqd_lszh Adodc1.Refresh DT1.Value = Date Call Tbr_cortrol(Tbr_xxcz, True)End Sub單擊窗體中的工具欄按鈕，完成相應的添加、刪除、修改、保存和打印的操作，Toolbar控件Tbr_xxcz的ButtonClick事件代碼如下所示：Private
25、 Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 添加信息 Call Tbr_cortrol(Tbr_xxcz, False) For i = 0 To 20 Text1(i).Locked = False Text1(i).Text = Next i Text1(0).SetFocus AdoRs.Open select * from tb_Goods_sqd where sqd_lszh like % + Format(Date, yyyymmdd) +
26、 % order by sqd_lszh, Cnn, adOpenKeyset 根據日期產生流水賬號 If AdoRs.RecordCount 0 Then AdoRs.MoveLast Txt_id.Text = Val(AdoRs.Fields(sqd_lszh) + 1 Else Txt_id.Text = Format(Date, yyyymmdd) & 0000001 End If AdoRs.Close Case 2 刪除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call Tbr_cor
27、trol(Tbr_xxcz, True) For i = 1 To 20 Text1(i).Text = Text1(1).SetFocus Next i Case 6 打印信息 Unload Me End SelectEnd Sub通過文本框的Change事件，來實現在另一個文本框中自動計算合計金額的功能，實現的具體代碼如下所示：Private Sub Text1_Change(Index As Integer) If Index = 7 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) ElseIf Index =
28、 11 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) ElseIf Index = 15 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) End IfEnd Sub3.4 貨物托運管理貨物托運管理是本系統的核心，在貨物托運申請完成之后，就可以填寫貨物托運單，托運司機根據貨物托運單將貨物托運到客戶手中。對于同一張貨物托運單，可以托運多種不同的貨物，在托運管理窗體中可以添加或刪除托運貨物，還可以通過ListView控件瀏覽貨物托運單信息。貨物
29、托運管理模塊的運行結果如圖8所示，單擊工具欄中的【添加貨物】按鈕，將彈出增加托運貨物窗體，如圖9所示。圖8 貨物托運管理模塊的運行結果圖9 增加托運貨物窗體1貨物托運窗體及增加托運貨物窗體的設計（1）在工程中新建一個窗體，將窗體的名稱設置為“frm_Hpty”，BorderStyle屬性設置為“1-Fixed Single”，MaxButton屬性設置False。（2）在窗體上添加Toolbar控件，根據前面所介紹的方法為窗體設計工具欄。（3）在窗體中添加2個ImageList控件。（4）在窗體上添加1個ListView控件。（5）在ListView控件上單擊鼠標右鍵，在彈出的快捷菜單中選擇“
30、屬性”項，在彈出的“屬性頁”對話框中選擇“通用”選項卡，在該選項卡中選取“整行選擇”、“網格行”和“熱跟蹤”等復選框，在“查看”旁的列表框中選擇3-lvwReport，如圖10所示。圖10 設置控件的顯示模式（6）在ListView控件上單擊鼠標右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出“屬性頁”對話框中選擇“列首”選項卡，在該選項卡中單擊【插入列】按鈕，然后在“文本”文本框中輸入插入列的標題名稱，在“寬度”文本框中輸入插入列的寬度，如圖11所示。圖11 設置插入列的屬性（7）在ListView控件上單擊鼠標右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出的“屬性頁”對話框中選擇“圖像列表”
31、選項卡，在該選項卡中的“普通”和“列標頭”列表框中分別選擇“ImageList2”，如圖12所示。圖12 連接ImageList2控件（8）在窗體上添加1個Ado控件。（9）在窗體中添加3個Frame控件，分別在Frame控件中添加文本框控件和DataGrid控件，將DataGrid控件的名稱設置為Dgr_Sjll，DataSource屬性設置為Adodc1，BackColor屬性值設置為&H00FFFFC0&，設計完成的界面如圖13所示。（10）在窗體中添加1個標簽控件，名稱命名為Lbl_Num。（11）在窗體上添加1個時鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設置為6
32、0。貨物托運管理窗體的設計結果如圖13所示。圖13 貨物托運管理窗體的設計界面（12）在工程中添加1個窗體，將窗體命名為Frm_Tyhwgl，該窗體作為貨物托運管理的子窗體，用于為完成為貨物托運單添加托運貨物的操作。（13）將該窗體的BorderStyle屬性設置為“1-Fixed Single”。（14）在該窗體上添加1個Ado控件。（15）在該窗體中添加1個Frame控件，在Frame控件中添加文本框控件和標簽控件。（16）在該窗體中添加1個DataGrid控件，將DataGrid控件的名稱設置為Dgr_Sjll，DataSource屬性設置為Adodc1，設計完成的界面如圖14所示。（1
33、7）在窗體上添加4個CommandButton控件，分別將控件的名稱命名為“Cmd_Add”、“Cmd_Save”、“Cmd_Del”、“Cmd_Cancel”，Caption屬性設置為“添加”、“保存”、“刪除”、“取消”。圖14 托運貨物管理窗體的設計界面2貨物托運管理窗體的代碼設計在窗體啟動時，通過調用LoadFile過程，在窗體上顯示數據，同時利用Ado對象計算出當前數據庫中數據記錄的條數，代碼如下：Private Sub Form_Load() Call RefreshData Call LoadFile For i = 1 To 21 鎖定文本框，禁止輸入內容 Text1(i).L
34、ocked = True Next i AdoRs.Open select * from tb_Goods_tyd order by tyd_tydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then Lbl_Num.Caption = 當前數據表中共有 & AdoRs.RecordCount & 條記錄 End If AdoRs.Close Call Tbr_cortrol(Tbr_xxcz, True)End Sub單擊工具欄中的控制按鈕，通過Select Case語句控制工具欄中的按鈕，完成添加、刪除、修改、保存、添加貨物和刪除貨物等操作，實現
35、的代碼如下：Private Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call Tbr_cortrol(Tbr_xxcz, False) For i = 0 To 21 Text1(i).Locked = False Text1(i).Text = Next i Text1(0).SetFocus 根據日期產生流水賬號 AdoRs.Open select * from tb_Goods_tyd where tyd_tydh like % + Forma
36、t(Date, yyyymmdd) + % order by tyd_tydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then AdoRs.MoveLast Txt_id.Text = Val(AdoRs.Fields(tyd_tydh) + 1 Else Txt_id.Text = Format(Date, yyyymmdd) & 00001 End If AdoRs.Close Case 2 刪除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call T
37、br_cortrol(Tbr_xxcz, True) For i = 1 To 21 Text1(i).Text = Text1(1).SetFocus Next i Case 6 添加貨物 TStrs = Txt_id.Text Frm_Tyhwgl.Cmd_Del.Enabled = False 使添加貨物窗體中的“刪除”按鈕不可用 Frm_Tyhwgl.Show 1 Case 7 刪除貨物 TStrs = Txt_id.Text Frm_Tyhwgl.Cmd_Add.Enabled = False Frm_Tyhwgl.Cmd_Save.Enabled = False Frm_Tyhwg
38、l.Show 1 Case 8 Unload Me End SelectEnd Sub通過單擊選擇ListView控件中的元素（托運單號），然后調用DataLoad過程在窗體上顯示相對應托運單號的數據信息，同時查詢該記錄是否被修改過，如果修改過則將修改時間及修改人信息顯示在窗體的Txt_ysrq和Txt_ysr文本框當中，代碼如下所示：Private Sub ListView1_Click() AdoRs.Open select * from tb_Goods_tyd where tyd_tydh= & ListView1.SelectedItem & order by tyd_tydh, C
39、nn, adOpenKeyset If AdoRs.RecordCount 0 Then Call DataLoad 調用顯示數據的過程 End If AdoRs.Close 關閉數據集對象 AdoRs1.Open select * from tb_Goods_khys where khys_tydh= & ListView1.SelectedItem & , Cnn, adOpenKeyset If AdoRs1.RecordCount 0 Then Txt_ysrq.Text = AdoRs1.Fields(khys_ysrq) Txt_ysr.Text = AdoRs1.Fields(k
40、hys_ysr) Else Txt_ysrq.Text = Txt_ysr.Text = End If AdoRs1.Close Call ShowData 調用數據刷新的過程 Call DBGConEnd Sub通過時鐘控件，將當前數據庫中的記錄條數顯示在標簽控件Lbl_Num當中，實現的代碼如下所示：Private Sub Timer1_Timer() On Error Resume Next 執(zhí)行錯誤處理的語句 Lbl_Num.Caption = 當前數據表中共有 & AdoRs.RecordCount & 條記錄End Sub3添加托運貨物信息窗體的代碼設計在增加托運貨物窗體中單擊【添
41、加】按鈕，清空窗體中文本框的信息，代碼如下：Private Sub Cmd_Add_Click() For i = 1 To 4 Text1(i).Text = Next i Text1(1).SetFocusEnd Sub在窗體中單擊【保存】按鈕，在確認該貨物信息沒有被保存之后，保存所添加的貨物信息，同時刷新窗體中的數據信息，代碼如下：Private Sub Cmd_Save_Click() If Text1(0).Text = Then MsgBox 托運單號不能為空, 64, 提示信息 Else AdoRs.Open select * from tb_Goods_hwzx where h
42、wzx_hwid= + Text1(1) + , Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then MsgBox 該貨物已經添加過, 64, 提示信息 Else c = MsgBox(確認保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(insert into tb_Goods_hwzx values( & Text1(1) & , & Text1(2) & , & Text1(0) & , & Text1(3) & , & Text1(4) & ) MsgBox 數據保存成功, 64,
43、 提示信息 Adodc1.RecordSource = select * from tb_Goods_hwzx where hwzx_sqdh= + Text1(0) + order by hwzx_hwid Adodc1.Refresh Call DBGCon Cmd_Add.SetFocus End If End If AdoRs.Close End IfEnd Sub3.5 在途跟蹤管理在途跟蹤是對正在托運的貨物信息進行管理，托運司機在托運貨物的過程中，每到一個地方或者在托運過程中出現某些異常情況，就會給托運公司反饋一個信息，托運公司將反饋回來的信息進行記錄，并且對反饋回來的異常情況進行
44、處理，這個過程就是在途跟蹤。在途跟蹤管理模塊的運行結果如圖15所示。圖15 在途跟蹤管理模塊運行結果1窗體設計（1）在工程中新建1個窗體，將窗體的名稱設置為“Frm_Ztgz”，BorderStyle屬性設置為“1-Fixed Single”，MaxButton屬性設置False。（2）在窗體上添加1個Toolbar控件和1個ImageList控件。（3）在窗體上添加1個ListView控件。（4）在窗體上添加1個Ado控件。（5）在窗體中添加3個Frame控件，在Frame控件中添加文本框控件，并設置控件的相關屬性。（6）在窗體上添加DataGrid控件，將DataGrid控件的名稱設置為D
45、gr_Sjll，DataSource屬性設置為Adodc1。在途跟蹤管理窗體的設計結果如圖16所示。圖16 在途跟蹤管理窗體的設計2代碼設計通過單擊選擇ListView控件中的元素（托運單號），在窗體中即可以顯示相對應托運單號的數據信息，同時查詢tb_Goods_ztgzlx數據表，從中檢索出該托運單號的跟蹤路線信息，將其顯示在窗體的Txt_lx.文本框當中，實現的代碼如下所示：Private Sub ListView1_Click() AdoRs.Open select * from tb_Goods_ztgz where ztgz_cydh= & ListView1.SelectedIte
46、m & order by ztgz_cydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then Text1(0).Text = AdoRs.Fields(ztgz_id) Text1(1).Text = AdoRs.Fields(ztgz_cydh) Text1(2).Text = AdoRs.Fields(ztgz_sjxm) Text1(3).Text = AdoRs.Fields(ztgz_cphm) DT1.Value = AdoRs.Fields(ztgz_dasj) Text1(4).Text = AdoRs.Fields(ztgz_sj
47、sj) Text1(5).Text = AdoRs.Fields(ztgz_dadd) Text1(6).Text = AdoRs.Fields(ztgz_bz) End If AdoRs.Close 關閉記錄集對象 AdoRs1.Open select * from tb_Goods_ztgzlx where ztgzlx_tydh= & ListView1.SelectedItem & , Cnn, adOpenKeyset If AdoRs1.RecordCount 0 Then Txt_lx.Text = AdoRs1.Fields(ztgzlx_lx) End If AdoRs1.C
48、lose 關閉記錄集對象 Adodc1.RecordSource = select * from tb_Goods_ztgz where ztgz_cydh= + ListView1.SelectedItem + Adodc1.Refresh 刷新數據信息 Call DBGCon 給DataGrid控件的列標題賦值End Sub在工具欄中單擊【保存】按鈕將調用用戶自定義的保存過程，保存在途跟蹤信息，用戶自定義的保存過程的代碼如下：Private Sub Saves() 保存信息的過程 If Text1(1).Text = Then MsgBox 托運單號不能為空, 48, 提示信息 Else
49、AdoRs2.Open select * from tb_Goods_ztgz where ztgz_id= + Text1(0) + , Cnn, adOpenKeyset If AdoRs2.RecordCount 0 Then MsgBox 該信息已經存在, 48, 提示信息 Else c = MsgBox(確認保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(insert into tb_Goods_ztgz values( & Text1(0) & , & Text1(1) & , & Text1(2) & , & Text1(3) & , & Text1(4) & , & Text1(5) & , & Str(DT1.Value) & , & Text1(6) & ) AdoRs.Open select * from tb_Goods_ztgzlx where ztgzlx_tydh= + Text1(1) + , Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then Call DDTJ 統計到達的路線 Set AdoRs = Cnn.Execute(UPDATE tb_Goods_ztgzlx SET ztgzlx_lx= + Txt_lx + where z
物流管理系統畢業(yè)設計論文
