vb物流管理系統(tǒng)的設(shè)計與實現(xiàn)畢業(yè)論文(編輯修改稿)
2025-07-25 09:03 本頁面
【文章內(nèi)容簡介】 途徑。狀態(tài)欄將顯示系統(tǒng)運行時間、日期、操作員信息，其中狀態(tài)欄的操作信息主要是通過“系統(tǒng)登錄”窗體中的“登錄操作員”傳遞而得到的。通過菜單和工具欄可以控制系統(tǒng)中的各個功能的子窗體，完成相關(guān)的功能操作。主窗體運行結(jié)果如圖52所示。圖52物流運輸管理系統(tǒng)主窗體主要實現(xiàn)代碼如下：Private Sub MDIForm_Load()(2).Text = 系統(tǒng)當前使用者： amp。 (1).Text = 歡迎使用本系統(tǒng) 制作人 ：夏磊End SubPrivate Sub tcxt_Click()EndEnd SubPrivate Sub Timer1_Timer()(3).Text = 系統(tǒng)當前時間： amp。 NowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 1Case 2 1Case 3 1Case 4 1Case 5Case 6 1Case 7EndEnd SelectEnd SubPrivate Sub TYS_Click() 1End SubPrivate Sub xt_Click() 1End Sub3. 貨物托運申請管理在正式托運貨物之前，需要進行托運貨物申請，在進行托運貨物申請時需要填寫托運貨物申請單，托運申請單經(jīng)過核對之后，才可以填寫貨物托運單進行托運貨物。可以按照托運單號有序的對托運貨物有效地處理，在托運申請單中記錄托運貨物的詳細信息，以便托運貨物時進行核對。當啟動窗體時，通過ADO控件的ConnectionString屬性連接到后臺數(shù)據(jù)庫access中。貨物托運申請管理模塊如圖53所示。圖53 貨物托運申請窗體主要實現(xiàn)代碼如下：Private Sub save()If Text1(0).Text = ThenMsgBox 請輸入客戶編號, 48, 提示信息ElseIf Text1(1).Text = ThenMsgBox 請輸入客戶名稱, 48, 提示信息ElseDim ConStr As StringDim n As New Dim rss As New ConStr = Provider=。 amp。 Data Source= amp。 amp。 \ ConStr select * from hwty where 客戶編號=39。 + Text1(0).Text + 39。, n, adOpenKeyset, adLockUnspecifiedIf = 0 ThenDim As New Dim rs As New cc = Provider=。 amp。 Data Source= amp。 amp。 \ cc = adUseClient insert into hwty(客戶編號,客戶名稱,出貨日期,主件名稱,體積,開號日期,訂單編號,主件數(shù)量,運費,合同編號,出發(fā)地點,附件名稱,分送費用,車牌號碼,目的地點,附件數(shù)量,合計金額,車輛編號,距離,噸位,備注 )values(39。 + Text1(0).Text + 39。,39。 + Text1(1).Text + 39。,39。 + Str() + 39。,39。 + Text2(0).Text + 39。,39。 + Text2(1).Text + 39。,39。 + Str() + 39。,39。 + Text2(2).Text + 39。,39。 + Text2(3).Text + 39。,39。 + Text2(4).Text + 39。,39。 + Text2(5).Text + 39。,39。 + Text2(6).Text + 39。,39。 + Text2(7).Text + 39。,39。 + Text2(8).Text + 39。,39。 + + 39。,39。 + Text2(9).Text + 39。,39。 + Text2(10).Text + 39。,39。 + + 39。,39。 + + 39。,39。 + Text2(11).Text + 39。,39。 + Text2(12).Text + 39。,39。 + Text2(13).Text + 39。), , adOpenKeyset, adLockUnspecifiedMsgBox (添加成功)For i = 0 To 1Text1(i).Text = Next iFor i = 0 To 13Text2(i).Text = Next iFor i = 0 To 1Text1(i).Enabled = FalseNext iFor i = 0 To 13Text2(i).Enabled = FalseNext i(3).Enabled = False(1).Enabled = TrueElseMsgBox 該員工信息已經(jīng)存在, 48, 提示信息For i = 0 To 1Text1(i).Text = Next iFor i = 0 To 13Text2(i).Text = Next iEnd IfEnd IfEnd IfEnd Sub4. 車輛調(diào)度安排車輛調(diào)度安排是物流運輸管理系統(tǒng)中的重要環(huán)節(jié)，物流公司再接收到貨物托運信息之后，首要的問題是安排托運貨物的車輛。在本系統(tǒng)中通過車輛調(diào)度安排填寫好安排托運車輛的信息，司機根據(jù)調(diào)度通知單上的信息執(zhí)行托運任務。通過車輛資料設(shè)置選擇車牌號碼，然后輸入一些輔助信息，最后保存車輛調(diào)度安排信息。工具欄中的控制按鈕控制著窗體的各項操作，在ToolBar控件的ButtonClick事件中，車輛調(diào)度安排的模塊運行結(jié)果如圖54所示。圖54 車輛調(diào)度安排窗體5. 貨物托運管理在貨物托運申請完成之后，就可以填寫貨物托運單，托運司機根據(jù)貨物托運單將貨物托運到客戶手中。對于同一張貨物托運單，可以托運多種不同的貨物，在托運管理中可以添加或刪除托運貨物，還可以通過ListView控件瀏覽貨物托運單信息。如圖55所示。圖55 貨物托運單管理窗體6. 在線跟蹤管理在途跟蹤是對正在進行托運的貨物信息進行管理，托運司機在托運貨物的過程中，每到一個地方或者在托運過程中出現(xiàn)某些異常情況，就會給托運公司反饋一個信息，托運公司將反饋回來的信息進行記錄，并且對反饋回來的異常情況進行處理，整個過程實現(xiàn)在途跟蹤。在途跟蹤管理模塊運行結(jié)果如圖56所示。圖56 在途跟蹤管理窗體主要實現(xiàn)代碼如下：Private Sub Combo1_Click()Dim rss As New Dim As New Dim rs As New Provider=。 amp。 Data Source= amp。 amp。 \ = adUseServer select * from hwtygl where 托運單號=39。 + + 39。, , adOpenKeyset, adLockUnspecified = (1).Value = (12).Value = (11).Value = (13).Value select * from cldd where 車牌號碼=39。 + (11) + 39。, , adOpenKeyset, adLockUnspecified = (8).ValueEnd SubPrivate Sub Form_Load() = Provider=。Data Source= + + \。Persist Security Info=False 39。 = adCmdText 39。
外語相關(guān)推薦
鄂ICP備17016276號-1