【正文】 39。Txt_id amp。 Text1(0)amp。 Text1(1) amp。 Text1(2) amp。 Text1(3) amp。 Str() amp。 Text1(4) amp。 Text1(5)amp。 Txt_bz amp。 + Txt_id + 39。 + Text1(1) + 39。 + Str() + 39。 + Text1(5) + 39。 + + 39。執(zhí)行錯誤處理 Set AdoRs = (Delete tb_Goods_cldd from tb_Goods_cldd where cldd_id=39。在托運申請單中記錄的托運貨物的詳細信息，以便托運貨物時進行核對。（3）在窗體中添加1個Frame控件，在Frame控件上添加1個文本框控件數組，并為每個文本控件配置1個標簽控件，設置相應的Caption屬性值，如圖7所示。（7）在窗體上添加1個時鐘控件Timer1，在屬性窗口中將控件的Interval屬性值設置為60。鎖定文本框，禁止輸入字符信息 Next i = PublicStr 39。 order by sqd_lszh, Cnn, adOpenKeyset 39。修改信息 Call Edits Case 4 39。貨物托運管理模塊的運行結果如圖8所示，單擊工具欄中的【添加貨物】按鈕，將彈出增加托運貨物窗體，如圖9所示。（4）在窗體上添加1個ListView控件。圖12 連接ImageList2控件（8）在窗體上添加1個Ado控件。（10）在窗體中添加1個標簽控件，名稱命名為Lbl_Num。（13）將該窗體的BorderStyle屬性設置為“1Fixed Single”。（17）在窗體上添加4個CommandButton控件，分別將控件的名稱命名為“Cmd_Add”、“Cmd_Save”、“Cmd_Del”、“Cmd_Cancel”，Caption屬性設置為“添加”、“保存”、“刪除”、“取消”。 條記錄 End If Call Tbr_cortrol(Tbr_xxcz, True)End Sub單擊工具欄中的控制按鈕，通過Select Case語句控制工具欄中的按鈕，完成添加、刪除、修改、保存、添加貨物和刪除貨物等操作，實現的代碼如下：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。 00001 End If Case 2 39。添加貨物 TStrs = = False 39。 amp。關閉數據集對象 select * from tb_Goods_khys where khys_tydh=39。, Cnn, adOpenKeyset If 0 Then = (khys_ysrq) = (khys_ysr) Else = = End If Call ShowData 39。 條記錄End Sub3．添加托運貨物信息窗體的代碼設計在增加托運貨物窗體中單擊【添加】按鈕，清空窗體中文本框的信息，代碼如下：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 select * from tb_Goods_hwzx where hwzx_hwid=39。 Text1(1) amp。 Text1(2) amp。 Text1(0) amp。 , amp。 order by hwzx_hwid Call DBGCon End If End If End IfEnd Sub 在途跟蹤管理在途跟蹤是對正在托運的貨物信息進行管理，托運司機在托運貨物的過程中，每到一個地方或者在托運過程中出現某些異常情況，就會給托運公司反饋一個信息，托運公司將反饋回來的信息進行記錄，并且對反饋回來的異常情況進行處理，這個過程就是在途跟蹤。（3）在窗體上添加1個ListView控件。在途跟蹤管理窗體的設計結果如圖16所示。 39。 amp。 + + 39。保存信息的過程 If Text1(1).Text = Then MsgBox 托運單號不能為空, 48, 提示信息 Else select * from tb_Goods_ztgz where ztgz_id=39。 Text1(0) amp。 Text1(1) amp。 Text1(2) amp。 Text1(3) amp。 Text1(4) amp。 Text1(5) amp。 Str() amp。 Text1(6) amp。, Cnn, adOpenKeyset If 0 Then Call DDTJ 39。 + Text1(1).Text + 39。 Text1(1) amp。 Txt_lx amp。 + Text1(0).Text + 39。 + Text1(1) + 39。 amp。將數據庫中的記錄移向下一條 Next i End If 39。圖17 信息查詢模塊運行結果1．窗體設計（1）在工程中新建1個窗體，將窗體的名稱設置為“Frm_Xxcx”，BorderStyle屬性設置為“1Fixed Single”，MaxButton屬性設置False。信息查詢窗體的設計結果如圖18所示。執(zhí)行貨物托運信息查詢 ElseIf StrCx = 4 Then Call Flcx(4) 39。添加車輛調度信息查詢字段 Call DgrTitle(2) For i = 0 To 7 (i).Caption Next i ElseIf StrCx = 3 Then 39。代碼如下：Private Sub Txt_cx_Change() If Then If StrCx = 1 Then 39。貨物托運單查詢 Call FlcxChage(3) Call DgrTitle(3) ElseIf StrCx = 4 Then 39。 Like 39。 Coms amp。執(zhí)行托運信息查詢 = select * from tb_Goods_tyd where amp。 Case 4 39。% + + %39。 Coms amp。 Like 39。% + + %39。 Case 2 39。執(zhí)行貨物申請查詢 = select * from tb_Goods_sqd where amp。調用查詢過程 Call DgrTitle(1) ElseIf StrCx = 2 Then 39。添加托運驗收信息查詢字段 Call DgrTitle(4) For i = 0 To 6 (i).Caption Next i End IfEnd Sub在用戶自定義的Flcx函數過程當中，保存著相對應的查詢字符串信息，根據該查詢字符串來完成相應的查詢事件，代碼如下：Private Sub Flcx(Nums As Integer) Select Case Nums Case 1 39。添加托運申請信息查詢字段 Call DgrTitle(1) 39。執(zhí)行托運申請信息查詢 ElseIf StrCx = 2 Then Call Flcx(2) 39。（3）在窗體中添加1個Frame控件，在Frame控件中添加1個ComboBox控件、1個標簽控件、1個文本框控件和2個CommandButton控件，并設置控件的相關屬性。通過在主窗體的查詢模塊的菜單中設置一個標識變量，然后在查詢窗體中根據這個標識變量設置具體實現的查詢功能，如將托運申請單查詢的標識變量設置為車輛調度信息查詢的標識變量設置為2等等，這樣在查詢窗體當中，當窗體啟動時進行判斷，如果標識變量是1，則進行托運申請信息查詢的相關操作，如果標識變量是2，則進行車輛調度信息查詢的相關操作。 amp。將數據庫中的記錄移向第一條 = On Error Resume Next 39。刷新數據信息 Call DBGCon End If For i = 1 To 5 Text1(i).Text = Next i = 39。)) End If MsgBox 數據保存成功, 64, 提示信息 End If = select * from tb_Goods_ztgz order by ztgz_id Call DBGCon Call Tbr_cortrol(Tbr_xxcz, True) End If End If Call RefreshDataEnd Sub在工具欄中單擊【刪除】按鈕將調用用戶自定義的刪除過程，刪除在途跟蹤信息，用戶自定義刪除在途跟蹤過程的代碼如下：Private Sub Deletes() 39。,39。統(tǒng)計到達的路線 Set AdoRs = (insert into tb_Goods_ztgzlx values(39。 + Txt_lx + 39。)) select * from tb_Goods_ztgzlx where ztgzlx_tydh=39。,39。,39。,39。,39。,39。,39。,39。, Cnn, adOpenKeyset If 0 Then MsgBox 該信息已經存在, 48, 提示信息 Else c = MsgBox(確認保存信息嗎, 33, 提示信息) If c = vbOK Then Set AdoRs = (insert into tb_Goods_ztgz values(39。刷新數據信息 Call DBGCon 39。, Cnn, adOpenKeyset If 0 Then = (ztgzlx_lx) End If 39。關閉記錄集對象 select * from tb_Goods_ztgzlx where ztgzlx_tydh=39。 am