【導(dǎo)讀】心等方面二者緊密聯(lián)系、相互依存。物流信息化是整個社會信息化的必然需求。競爭，信息化管理是企業(yè)現(xiàn)代物流實現(xiàn)其宗旨的根本保證?，F(xiàn)代物流是涉及社會經(jīng)濟生活各個方面的錯綜復(fù)雜的社會大系統(tǒng)。確實掌握消費者的需求信息，并完成這一信息的準(zhǔn)確、快速傳遞。現(xiàn)代物流系統(tǒng)中的相互銜接是通過信息予以溝通的，基。信息系統(tǒng)構(gòu)建現(xiàn)代物流的中樞神經(jīng)，通過信息在物流系統(tǒng)中快速、準(zhǔn)確和實。球物流已經(jīng)進入供應(yīng)鏈時代。隨著社會的進步，現(xiàn)代物流行業(yè)有了突飛猛進的發(fā)。發(fā)達國家物流發(fā)展適應(yīng)經(jīng)濟增長方式的轉(zhuǎn)變。方面，明顯地減輕了物流活動對資源和環(huán)境的影響。發(fā)達國家物流發(fā)展符合市場。貿(mào)易的自由化和產(chǎn)品的地理分工推動著物流、資金流、信息流的迅速增長，經(jīng)濟發(fā)展水平相對發(fā)達的地區(qū)，其物流需求水平。料物流由企業(yè)自身和供應(yīng)方企業(yè)承擔(dān)，而由第三方物流企業(yè)承擔(dān)的僅為18％。3．實現(xiàn)貨物申請、托運、跟蹤與驗收的全過程。

　　

【正文】 設(shè)計了 6 項菜單，分別為“ 基本信息設(shè)置 ”、“ 貨物托運管理 ”、“ 信息 查詢 ”、“ 報表管理”、“系統(tǒng)管理”、“退出系統(tǒng)”。 如圖 52。 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 23 圖 52 主界面 該窗體的運行過程為：用戶首先進入登陸窗體，如果是管理員登陸， 進入主窗體。其權(quán)限為：基本信息設(shè)置、貨物托運管理、信息查詢、報表管理、系統(tǒng)管理。其權(quán)限的設(shè)置使管理員能夠方便的查看 所有信息，還可以對員工表 、車輛表、司機表、職務(wù)表等信息 進行管理。如果是 職員 登陸，其授予的權(quán)限 只有查看日志，也就是說職員只能查看一些操作記錄。另外還在主界面上設(shè)置了工具欄和狀態(tài)欄，工具欄 上設(shè)置了 9 個按鈕，這樣更加方便快捷的操作，提高了工作效率。狀態(tài) 欄上顯示了制作單位和當(dāng)前操作員及當(dāng)前的日期時間等信息，更加完善了本系統(tǒng)。 車輛調(diào)度安排 窗體 車輛調(diào)度安排是物流管理過程中的重要環(huán)節(jié)，物流公司在接到托運貨物信息之后，首要的問題是安排托運貨物的車輛。在本系統(tǒng)當(dāng)中通過車輛調(diào)度安排填寫安排托運車輛的信息，然后打印出車輛調(diào)度通知單，并將通知單發(fā)放到托運司機的手中，司機根據(jù)調(diào)度通知單上的信息執(zhí)行托運任務(wù)。通過單擊窗體中的Cmd_Select 按鈕選擇車牌號碼，然后輸入其他一些輔助的信息，最后保存車輛調(diào)度安排信息。 如圖 53。 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 24 圖 53 車輛調(diào)度安排 窗 體 設(shè)計 （ 1） 在工程中新建 1 個窗體，將窗體的名稱設(shè)置為“ frm_Cldd”， BorderStyle屬性設(shè)置為“ 1Fixed Single”， MaxButton 屬性設(shè)置 False。 （ 2） 在窗體上添加 1 個 Toolbar 控件和 1 個 ImageList 控件。 （ 3） 在窗體的 Toolbar 控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出的“屬性頁”對話框中設(shè)置窗體的工具欄 。 （ 4） 在窗體中添加 1 個 Frame 控件，在 Frame 控件上添加 1 個文本框控件數(shù)組，并為每個文本框控件 配置 1 個標(biāo)簽控件，并且設(shè)置相應(yīng) 的 Caption 屬性值。 （ 5） 在窗體上添加 1 個 DTPicker 控件，命名為 DT1，用于輸入或顯示托運司機執(zhí)行任務(wù)的日期時間。 （ 6） 在窗體上添加 1 個 Ado 控件和 1 個 DataGrid 控件，將 DataGrid 控件的名稱設(shè)置為 Dgr_Sjll， DataSource 屬性設(shè)置為 Adodc1， AllowUpdate 屬性值設(shè)置為 False。 （ 7） 在窗體中添加 1 個標(biāo)簽控件，命名為 Lbl_Num。 （ 8） 在窗體上添加 1 個時鐘控件 Timer1，在屬性窗口中將控件的 Interval 屬性值設(shè)置為 60。 工具欄中的控制按鈕控制著 窗體的各項操作，在 Toolbar 控件 Tbr_xxcz 的ButtonClick 事件當(dāng)中，通過選擇 Select Case 語句的索引值（單擊工具欄中的按鈕執(zhí)行相應(yīng)的索引值）調(diào)用相應(yīng)的過程來完成添加、刪除、修改和保存等操作的功能， Toolbar 控件 Tbr_xxcz 的 ButtonClick 事件代碼如下所示： Private Sub Tbr_xxcz_ButtonClick(ByVal Button As ) Select Case Case 1 Call Tbr_cortrol(Tbr_xxcz, False) For i = 1 To 5 39。單擊“添加”按鈕，鎖定文本框控件 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 25 Text1(i).Text = = Text1(i).Locked = False = False = False Next i select * from tb_Goods_cldd order by cldd_id, Cnn, adOpenKeyset If 0 Then StrNum = Mid((cldd_id), 2, Len((cldd_id))) Call Con_PublicNum 39。調(diào)用位數(shù)轉(zhuǎn)換函數(shù) = C amp。 StrIn Else = C0001 End If Case 2 39。刪除信息 Call Deletes Call DBGCon Case 3 39。修改信息 Call Edits Call DBGCon Case 4 39。保存信息 Call Saves Call DBGCon Case 5 Call Tbr_cortrol(Tbr_xxcz, True) For i = 1 To 5 Text1(i).Text = = = Text1(i).Locked = True = True = True Next i = select * from tb_Goods_cldd order by cldd_id Call DBGCon Case 6 39。打印信息 On Error Resume Next select * from tb_Goods_cldd where cldd_id=39。 + Txt_id + 39。 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 26 If 0 Then 1 Else MsgBox 該車輛調(diào)度單 信息不存在 , 48, 提示信息 End If Case 7 Unload Me End Select End Sub 保存過程事件的代碼如下： Private Sub Saves() 39。保存信息的事件過程 If = Or Text1(3).Text = Then MsgBox 重要信息不能為空值 , 48, 提示信息 Else select * from tb_Goods_cldd where cldd_cphm=39。 + + 39。, Cnn, adOpenKeyset If 0 Then MsgBox 該車輛已經(jīng)被派出 , 48, 提示信息 Else 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。 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, 提示信息 End If = select * from tb_Goods_cldd order by cldd_id Call DBGCon End If Call Tbr_cortrol(Tbr_xxcz, True) End If End Sub 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 27 貨物 申請單管理 窗體 在正式托運貨物之前，需要進行托運貨物申請，在進行托運貨物申請時需要填寫托運貨物申請單，托運申請單經(jīng)過核對之后，才可以填寫貨物托運單進行托運貨物。在托運申請單中記錄的托運貨物的詳細(xì)信息，以便托運貨物時進行核對。如圖 54。 窗體設(shè)計 （ 1）在工程中新建 1 個窗體，將窗體的名稱設(shè)置為“ frm_Tysq”， BorderStyle屬性設(shè)置為“ 1Fixed Single”， MaxButton 屬性設(shè)置“ False”。 （ 2）在窗體上添加 1 個 Toolbar 控件和 1 個 ImageList 控件，為窗體設(shè)計工具欄。 （ 3）在窗體中添加 1 個 Frame 控件，在 Frame 控件上添加 1 個文本框控件數(shù)組，并為每個文本控件配置 1 個標(biāo)簽控件，設(shè)置相應(yīng)的 Caption 屬性值 。 （ 4）在 Frame 控件上添加 2 個 DTPicker 控件，分別名稱命名為 DT1 和 DT2，用于輸入或顯示出貨日期時間和開票日期。 （ 5）在窗體上添加 1 個 Ado 控件。 （ 6）在窗體中添加 1 個標(biāo)簽控件，命名為 Lbl_Num。 （ 7）在窗體上添加 1 個時鐘控件 Timer1，在屬性窗口中將控件的 Interval屬性值設(shè)置為 60。 圖 54 托運申請單管理 當(dāng)窗體啟動時，鎖定窗體中文本框，禁止輸入字符信息，同時通過 Ado 控件天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 28 的 ConnectionString 屬性連接到數(shù)據(jù)庫，實現(xiàn)代碼如下： Private Sub Form_Load() Call LoadFile 39。在窗體加載的時候顯示數(shù)據(jù)信息 For i = 1 To 8 Text1(i).Locked = True 39。鎖定文本框，禁止輸入字符信息 Next i = PublicStr 39。通過代碼連接到數(shù)據(jù)庫 = select * from tb_Goods_sqd order by sqd_lszh = Date Call Tbr_cortrol(Tbr_xxcz, True) End Sub 貨物托運管理 窗體 貨物托運管理是本系統(tǒng)的核心，在貨物托運申請完成之后，就可以填寫貨物托運單，托運司機根據(jù)貨物托運單將貨物托運到客戶手中。對于同一張貨物托運單，可以托運多種不同的貨物，在托運管理窗體中可以添加或刪除托運貨物，還可以通過 ListView 控件瀏覽貨物托運單信息。 如圖 55。 圖 55 貨物托運管理 窗體設(shè)計 天津大學(xué) 2021屆本科生畢業(yè)設(shè)計 (論文 ) 29 （ 1）在工程中新建一個窗體，將窗體的名稱設(shè)置為“ frm_Hpty”， BorderStyle屬性設(shè)置為“ 1Fixed Single”， MaxButton 屬性設(shè)置 False。 （ 2）在窗體上添加 Toolbar 控件，根據(jù)前面所介紹的方法為窗體設(shè)計工具欄。 （ 3）在窗體中添加 2 個 ImageList 控件和添加 1 個 ListView 控件。 （ 4）在 ListView 控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出的“屬性頁”對話框中選擇“通用”選項卡，在該選項卡中選取“整行選擇”、“網(wǎng)格行”和“熱跟蹤”等復(fù)選框，在“查看”旁的列表框中選擇3lvwReport。 （ 5）在 ListView 控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項，在彈出“屬性頁”對話框中選擇“列首”選項 卡，在該選項卡中單擊【插入列】按鈕，然后在“文本”文本框中輸入插入列的標(biāo)題名稱，在“寬度”文本框中輸入插