【文章內(nèi)容簡(jiǎn)介】 物等操作，實(shí)現(xiàn)的代碼如下：Private Sub Tbr_xxcz_ButtonClick(ByVal Button As ) Select Case 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 39。根據(jù)日期產(chǎn)生流水賬號(hào) select * from tb_Goods_tyd where tyd_tydh like 39。% + Format(Date, yyyymmdd) + %39。 order by tyd_tydh, Cnn, adOpenKeyset If 0 Then = Val((tyd_tydh)) + 1 Else = Format(Date, yyyymmdd) amp。 00001 End If Case 2 39。刪除信息 Call Deletes Case 3 39。修改信息 Call Edits Case 4 39。保存信息 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。添加貨物 TStrs = = False 39。使添加貨物窗體中的“刪除”按鈕不可用 1 Case 7 39。刪除貨物 TStrs = = False = False 1 Case 8 Unload Me End SelectEnd Sub通過(guò)單擊選擇ListView控件中的元素（托運(yùn)單號(hào)），然后調(diào)用DataLoad過(guò)程在窗體上顯示相對(duì)應(yīng)托運(yùn)單號(hào)的數(shù)據(jù)信息，同時(shí)查詢(xún)?cè)撚涗浭欠癖恍薷倪^(guò)，如果修改過(guò)則將修改時(shí)間及修改人信息顯示在窗體的Txt_ysrq和Txt_ysr文本框當(dāng)中，代碼如下所示：Private Sub ListView1_Click() select * from tb_Goods_tyd where tyd_tydh=39。 amp。 amp。 39。 order by tyd_tydh, Cnn, adOpenKeyset If 0 Then Call DataLoad 39。調(diào)用顯示數(shù)據(jù)的過(guò)程 End If 39。關(guān)閉數(shù)據(jù)集對(duì)象 select * from tb_Goods_khys where khys_tydh=39。 amp。 amp。 39。, Cnn, adOpenKeyset If 0 Then = (khys_ysrq) = (khys_ysr) Else = = End If Call ShowData 39。調(diào)用數(shù)據(jù)刷新的過(guò)程 Call DBGConEnd Sub通過(guò)時(shí)鐘控件，將當(dāng)前數(shù)據(jù)庫(kù)中的記錄條數(shù)顯示在標(biāo)簽控件Lbl_Num當(dāng)中，實(shí)現(xiàn)的代碼如下所示：Private Sub Timer1_Timer() On Error Resume Next 39。執(zhí)行錯(cuò)誤處理的語(yǔ)句 = 當(dāng)前數(shù)據(jù)表中共有 amp。 amp。 條記錄End Sub3．添加托運(yùn)貨物信息窗體的代碼設(shè)計(jì)在增加托運(yùn)貨物窗體中單擊【添加】按鈕，清空窗體中文本框的信息，代碼如下：Private Sub Cmd_Add_Click() For i = 1 To 4 Text1(i).Text = Next i Text1(1).SetFocusEnd Sub在窗體中單擊【保存】按鈕，在確認(rèn)該貨物信息沒(méi)有被保存之后，保存所添加的貨物信息，同時(shí)刷新窗體中的數(shù)據(jù)信息，代碼如下：Private Sub Cmd_Save_Click() If Text1(0).Text = Then MsgBox 托運(yùn)單號(hào)不能為空, 64, 提示信息 Else select * from tb_Goods_hwzx where hwzx_hwid=39。 + Text1(1) + 39。, Cnn, adOpenKeyset If 0 Then MsgBox 該貨物已經(jīng)添加過(guò), 64, 提示信息 Else c = MsgBox(確認(rèn)保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = (insert into tb_Goods_hwzx values(39。 amp。 Text1(1) amp。 39。,39。 amp。 Text1(2) amp。 39。,39。 amp。 Text1(0) amp。 39。, amp。 Text1(3) amp。 , amp。 Text1(4) amp。 )) MsgBox 數(shù)據(jù)保存成功, 64, 提示信息 = select * from tb_Goods_hwzx where hwzx_sqdh=39。 + Text1(0) + 39。 order by hwzx_hwid Call DBGCon End If End If End IfEnd Sub 在途跟蹤管理在途跟蹤是對(duì)正在托運(yùn)的貨物信息進(jìn)行管理，托運(yùn)司機(jī)在托運(yùn)貨物的過(guò)程中，每到一個(gè)地方或者在托運(yùn)過(guò)程中出現(xiàn)某些異常情況，就會(huì)給托運(yùn)公司反饋一個(gè)信息，托運(yùn)公司將反饋回來(lái)的信息進(jìn)行記錄，并且對(duì)反饋回來(lái)的異常情況進(jìn)行處理，這個(gè)過(guò)程就是在途跟蹤。在途跟蹤管理模塊的運(yùn)行結(jié)果如圖15所示。圖15 在途跟蹤管理模塊運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱(chēng)設(shè)置為“Frm_Ztgz”，BorderStyle屬性設(shè)置為“1Fixed Single”，MaxButton屬性設(shè)置False。（2）在窗體上添加1個(gè)Toolbar控件和1個(gè)ImageList控件。（3）在窗體上添加1個(gè)ListView控件。（4）在窗體上添加1個(gè)Ado控件。（5）在窗體中添加3個(gè)Frame控件，在Frame控件中添加文本框控件，并設(shè)置控件的相關(guān)屬性。（6）在窗體上添加DataGrid控件，將DataGrid控件的名稱(chēng)設(shè)置為Dgr_Sjll，DataSource屬性設(shè)置為Adodc1。在途跟蹤管理窗體的設(shè)計(jì)結(jié)果如圖16所示。圖16 在途跟蹤管理窗體的設(shè)計(jì)2．代碼設(shè)計(jì)通過(guò)單擊選擇ListView控件中的元素（托運(yùn)單號(hào)），在窗體中即可以顯示相對(duì)應(yīng)托運(yùn)單號(hào)的數(shù)據(jù)信息，同時(shí)查詢(xún)tb_Goods_ztgzlx數(shù)據(jù)表，從中檢索出該托運(yùn)單號(hào)的跟蹤路線(xiàn)信息，實(shí)現(xiàn)的代碼如下所示：Private Sub ListView1_Click() select * from tb_Goods_ztgz where ztgz_cydh=39。 amp。 amp。 39。 order by ztgz_cydh, Cnn, adOpenKeyset If 0 Then Text1(0).Text = (ztgz_id) Text1(1).Text = (ztgz_cydh) Text1(2).Text = (ztgz_sjxm) Text1(3).Text = (ztgz_cphm) = (ztgz_dasj) Text1(4).Text = (ztgz_sjsj) Text1(5).Text = (ztgz_dadd) Text1(6).Text = (ztgz_bz) End If 39。關(guān)閉記錄集對(duì)象 select * from tb_Goods_ztgzlx where ztgzlx_tydh=39。 amp。 amp。 39。, Cnn, adOpenKeyset If 0 Then = (ztgzlx_lx) End If 39。關(guān)閉記錄集對(duì)象 = select * from tb_Goods_ztgz where ztgz_cydh=39。 + + 39。 39。刷新數(shù)據(jù)信息 Call DBGCon 39。給DataGrid控件的列標(biāo)題賦值End Sub在工具欄中單擊【保存】按鈕將調(diào)用用戶(hù)自定義的保存過(guò)程，保存在途跟蹤信息，用戶(hù)自定義的保存過(guò)程的代碼如下：Private Sub Saves() 39。保存信息的過(guò)程 If Text1(1).Text = Then MsgBox 托運(yùn)單號(hào)不能為空, 48, 提示信息 Else select * from tb_Goods_ztgz where ztgz_id=39。 + Text1(0) + 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_ztgz values(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。 Text1(4) amp。 39。,39。 amp。 Text1(5) amp。 39。,39。 amp。 Str() amp。 39。,39。 amp。 Text1(6) amp。 39。)) select * from tb_Goods_ztgzlx where ztgzlx_tydh=39。 + Text1(1) + 39。, Cnn, adOpenKeyset If 0 Then Call DDTJ 39。統(tǒng)計(jì)到達(dá)的路線(xiàn) Set AdoRs = (UPDATE tb_Goods_ztgzlx SET ztgzlx_lx=39。 + Txt_lx + 39。 where ztgzlx_tydh=39。 + Text1(1).Text + 39。) Else Call DDTJ 39。統(tǒng)計(jì)到達(dá)的路線(xiàn) Set AdoRs = (insert into tb_Goods_ztgzlx values(39。 amp。 Text1(1) amp。 39。,39。 amp。 Txt_lx amp。 39。)) End If MsgBox 數(shù)據(jù)保存成功, 64, 提示信息 End If