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

　　

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