【正文】 Like 39。% + + %39。 Case 3 39。執(zhí)行車(chē)輛調(diào)度查詢 = select * from tb_Goods_cldd where amp。 Coms amp。車(chē)輛調(diào)度查詢 Call FlcxChage(2) Call DgrTitle(2) ElseIf StrCx = 3 Then 39。貨物申請(qǐng)查詢 = 貨物申請(qǐng)單查詢 StrRs = select * from tb_Goods_sqd order by sqd_lszh Case 2 = 車(chē)輛調(diào)度查詢 StrRs = select * from tb_Goods_cldd order by cldd_id Case 3 = 貨物托運(yùn)單查詢 StrRs = select * from tb_Goods_tyd order by tyd_tydh Case 4 = 貨物驗(yàn)收單查詢 StrRs = select * from tb_Goods_khys order by khys_id End SelectEnd Sub通過(guò)文本框中字符信息的改變，調(diào)用查詢事件的過(guò)程FlcxChage執(zhí)行查詢事件，完成各種查詢功能。調(diào)用保存查詢字符串的過(guò)程 For i = 0 To 23 (i).Caption Next i ElseIf StrCx = 2 Then 39。執(zhí)行車(chē)輛調(diào)度信息查詢 ElseIf StrCx = 3 Then Call Flcx(3) 39。（4）在窗體上添加1個(gè)DataGrid控件，將DataGrid控件的名稱設(shè)置為“Dgr_Cx”，DataSource屬性設(shè)置為Adodc1。信息查詢模塊的運(yùn)行結(jié)果如圖17所示（這里以貨物托運(yùn)單查詢?yōu)槔?(ztgz_dadd) End If 39。執(zhí)行錯(cuò)誤處理 For i = 0 To If = Then = 公司本部 amp。清除列表控件的內(nèi)容 Call RefreshDataEnd Sub在保存在途跟蹤信息的時(shí)候，需要調(diào)用用戶自定義的DDTJ過(guò)程，完成在文本框Txt_lx中顯示跟蹤路線信息的功能，DDTJ過(guò)程的實(shí)現(xiàn)代碼如下：Private Sub DDTJ() select * from tb_Goods_ztgz where ztgz_cydh=39。刪除信息 c = MsgBox(確認(rèn)刪除該信息嗎, 17, 提示信息) If c = vbOK Then On Error Resume Next Set AdoRs = (Delete tb_Goods_ztgz from tb_Goods_ztgz where ztgz_id=39。 amp。 amp。 where ztgzlx_tydh=39。 + Text1(1) + 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。給DataGrid控件的列標(biāo)題賦值End Sub在工具欄中單擊【保存】按鈕將調(diào)用用戶自定義的保存過(guò)程，保存在途跟蹤信息，用戶自定義的保存過(guò)程的代碼如下：Private Sub Saves() 39。關(guān)閉記錄集對(duì)象 = select * from tb_Goods_ztgz where ztgz_cydh=39。 amp。 amp。（6）在窗體上添加DataGrid控件，將DataGrid控件的名稱設(shè)置為Dgr_Sjll，DataSource屬性設(shè)置為Adodc1。（2）在窗體上添加1個(gè)Toolbar控件和1個(gè)ImageList控件。 + Text1(0) + 39。 Text1(3) amp。 amp。 amp。 amp。 amp。 39。調(diào)用顯示數(shù)據(jù)的過(guò)程 End If 39。 amp。保存信息 Call Saves Case 5 Call Tbr_cortrol(Tbr_xxcz, True) For i = 1 To 21 Text1(i).Text = Text1(1).SetFocus Next i Case 6 39。 order by tyd_tydh, Cnn, adOpenKeyset If 0 Then = Val((tyd_tydh)) + 1 Else = Format(Date, yyyymmdd) amp。 amp。（16）在該窗體中添加1個(gè)DataGrid控件，將DataGrid控件的名稱設(shè)置為Dgr_Sjll，DataSource屬性設(shè)置為Adodc1，設(shè)計(jì)完成的界面如圖14所示。圖13 貨物托運(yùn)管理窗體的設(shè)計(jì)界面（12）在工程中添加1個(gè)窗體，將窗體命名為Frm_Tyhwgl，該窗體作為貨物托運(yùn)管理的子窗體，用于為完成為貨物托運(yùn)單添加托運(yùn)貨物的操作。設(shè)計(jì)完成的界面如圖13所示。圖11 設(shè)置插入列的屬性（7）在ListView控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”項(xiàng)，在彈出的“屬性頁(yè)”對(duì)話框中選擇“圖像列表”選項(xiàng)卡，在該選項(xiàng)卡中的“普通”和“列標(biāo)頭”列表框中分別選擇“ImageList2”，如圖12所示。（3）在窗體中添加2個(gè)ImageList控件。對(duì)于同一張貨物托運(yùn)單，可以托運(yùn)多種不同的貨物，在托運(yùn)管理窗體中可以添加或刪除托運(yùn)貨物，還可以通過(guò)ListView控件瀏覽貨物托運(yùn)單信息。刪除信息 Call Deletes Case 3 39。% + Format(Date, yyyymmdd) + %39。在窗體加載的時(shí)候顯示數(shù)據(jù)信息 For i = 1 To 20 Text1(i).Locked = True 39。（6）在窗體中添加1個(gè)標(biāo)簽控件，命名為L(zhǎng)bl_Num。（2）在窗體上添加1個(gè)Toolbar控件和1個(gè)ImageList控件，為窗體設(shè)計(jì)工具欄。刷新數(shù)據(jù)信息 End If For i = 0 To 5 Text1(i).Text = Next i = End Sub 托運(yùn)申請(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)貨物。刪除信息 c = MsgBox(確認(rèn)刪除該信息嗎, 17, 提示信息) If c = vbOK Then On Error Resume Next 39。 where cldd_id=39。,cldd_shdd=39。,cldd_rwsj=39。,cldd_czxm=39。修改信息的過(guò)程 c = MsgBox(確認(rèn)修改信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = (UPDATE tb_Goods_cldd SET cldd_id=39。 amp。 amp。 amp。 amp。amp。 amp。 amp。 amp。 amp。 + Text1(0).Text + 39。（8）在窗體上添加1個(gè)時(shí)鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設(shè)置為60。（4）在窗體中添加1個(gè)Frame控件，在Frame控件上添加1個(gè)文本框控件數(shù)組，并為每個(gè)文本框控件配置1個(gè)標(biāo)簽控件，并且設(shè)置相應(yīng)的Caption屬性值，如圖5所示。車(chē)輛調(diào)度安排模塊的運(yùn)行結(jié)果如圖4所示。Private Sub Txt_Password_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Cmd_Ok_Click 39。 39。將操作員姓名信息賦予全局變量Name1 Unload Me 39。判斷屏幕分辨率的大小 Exit Sub Else ChangeScreen 39。調(diào)用獲取屏幕分辨率的過(guò)程函數(shù)39。（4）在窗體中添加2個(gè)CommandButton控件，分別將Name屬性設(shè)置為“Cmd_Ok”和“Cmd_Cancel”，Caption屬性設(shè)置為“登錄”和“取消”。圖2 系統(tǒng)登錄窗體的運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_xtdl”，BorderStyle屬性設(shè)置為“0None”，通過(guò)設(shè)置Picture屬性為窗體添加圖片。圖1 系統(tǒng)功能結(jié)構(gòu)圖3 詳細(xì)設(shè)計(jì) 系統(tǒng)登錄設(shè)計(jì)系統(tǒng)登錄主要用于對(duì)登錄物流管理系統(tǒng)的用戶進(jìn)行安全性檢查，以防止非法用戶登錄該系統(tǒng)。q 信息查詢模塊該模塊由貨物申請(qǐng)單查詢、車(chē)輛調(diào)度信息查詢、貨物托運(yùn)信息查詢、貨物托運(yùn)驗(yàn)收查詢和車(chē)輛在途跟蹤查詢幾部分組成。而且，物流行業(yè)競(jìng)爭(zhēng)激烈，這種競(jìng)爭(zhēng)，一方面表現(xiàn)在發(fā)展客戶的市場(chǎng)開(kāi)拓上，另一方面也存在于收集處理信息的速度、廣度和深度，以及在業(yè)務(wù)操作中對(duì)業(yè)務(wù)數(shù)據(jù)處理的準(zhǔn)確性和嚴(yán)密性，而更高層次上，還牽涉到公司決策層對(duì)整體業(yè)務(wù)的控制和協(xié)調(diào)。q 系統(tǒng)日志詳細(xì)記錄各種操作，提供追查的有力依據(jù)。q 規(guī)范、完善的基礎(chǔ)信息設(shè)置。本系統(tǒng)就是針對(duì)這些問(wèn)題根據(jù)中小型企業(yè)的實(shí)際需求而開(kāi)發(fā)的一套物流管理系統(tǒng)。目前，我國(guó)各類物流企業(yè)有14萬(wàn)家左右，展望整個(gè)21世紀(jì)，可以說(shuō)現(xiàn)代物流業(yè)還將有更大的發(fā)展。在發(fā)達(dá)國(guó)家，物流理論促使物流實(shí)踐快速發(fā)展。系統(tǒng)的開(kāi)發(fā)能夠幫助企業(yè)實(shí)現(xiàn)對(duì)物流全過(guò)程的優(yōu)化調(diào)度和動(dòng)態(tài)控制，高效整合企業(yè)的物流業(yè)務(wù)，以全面提高經(jīng)濟(jì)效益和效率為目的，提供高效、實(shí)用、技術(shù)的物流管理系統(tǒng)和運(yùn)營(yíng)手段。q 靈活的報(bào)表設(shè)計(jì)及打印功能。q 完善的權(quán)限管理，增強(qiáng)系統(tǒng)的安全性。物流管理系統(tǒng)從物流行業(yè)的實(shí)際需求出發(fā)，參照先進(jìn)的物流理念和多家領(lǐng)先的物流公司實(shí)際的運(yùn)營(yíng)流程開(kāi)發(fā)而成，系統(tǒng)從完善的基礎(chǔ)信息設(shè)置到貨物的托運(yùn)管理、在線跟蹤，信息查詢、到最后各種報(bào)表的生成，清晰的業(yè)務(wù)流程，使操作人員能夠按照流程清晰的進(jìn)行實(shí)際的操作，保證物流運(yùn)作有序而高效的進(jìn)行。q 報(bào)表管理模塊包括貨物申請(qǐng)單報(bào)表、貨物托運(yùn)單報(bào)表和貨物驗(yàn)收單報(bào)表3部分。根據(jù)給管理員分配的權(quán)限，登錄用戶可以根據(jù)自己所具有的權(quán)限操作系統(tǒng)中相應(yīng)的功能。（2）在窗體上添加Adodc控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。登錄窗體的設(shè)計(jì)結(jié)果如圖3所示圖3 系統(tǒng)登錄窗體的設(shè)計(jì)界面2．代碼設(shè)計(jì)在代碼窗口的聲明部分定義如下變量：Dim itmX As ListItem 39。使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表 = PublicStr = select * from tb_user If 0 Then 39。調(diào)整屏幕分辨率 End IfEnd Sub單擊【確定】按鈕，如果輸入的操作員姓名和口令正確，則通過(guò)身份驗(yàn)證，登錄到系統(tǒng)當(dāng)中。顯示系統(tǒng)主窗體Else = select * from tb_user where user_name =39。 If 0 Then MPassword = (user_mm) If = MPassword Then 39。調(diào)用確定按鈕的單擊事件代碼 End IfEnd Sub 車(chē)輛調(diào)度安排車(chē)輛調(diào)度安排是物流管理過(guò)程中的重要環(huán)節(jié)，物流公司在接到托運(yùn)貨物信息之后，首要的問(wèn)題是安排托運(yùn)貨物的車(chē)輛。圖4 車(chē)輛調(diào)度安排窗體的運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_Cldd”，BorderStyle屬性設(shè)置為“1Fixed Single”，MaxButton屬性設(shè)置False。（5）在窗體上添加1個(gè)DTPicker控件，命名為DT1，用于輸入或顯示托運(yùn)司機(jī)執(zhí)行任務(wù)的日期時(shí)間。車(chē)輛調(diào)度安排窗體的設(shè)計(jì)結(jié)果如圖5所示。, Cnn, adOpenKeyset If 0 Then MsgBox 該信息已經(jīng)存在, 48, 提示信息