vb商品進銷存系統設計-資料下載頁

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

　　

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