【導讀】了調(diào)查了解，對該公司的出庫、入庫、庫存管理環(huán)節(jié)的流程有了較為詳細的了解，同時發(fā)現(xiàn)了公司采用傳統(tǒng)的庫存管理存在的問題。商品入庫的過程是，當購入商品到貨后，負責進貨的人員首先填寫入庫單，流水賬，另外如果是新產(chǎn)品，則還要在庫存臺賬中建立新賬頁。計銷售出庫量和庫存結(jié)余量等數(shù)據(jù)，并將這些數(shù)據(jù)填入庫存信息表。作為制造類企業(yè)，公司的往來業(yè)務較為頻繁，庫存作業(yè)相對較大，平均看來，貨信息，以便及時地調(diào)整采購與生產(chǎn)，保證企業(yè)的各種管理業(yè)務順利進行。以更為直觀地得到庫存部門日常所需的各種信息，以做好整個企業(yè)的銷售工作?，F(xiàn)有的管理工作主要依靠手工完成，工作量大，且效率不高。企業(yè)發(fā)展的需要，決定開發(fā)庫存管理系統(tǒng)。商品出庫管理過程是管理人員根據(jù)銷售人員提供的商品出庫單，經(jīng)核查。A．手工模式下的工作勞動強度高、效率低、錯誤多、處理速度慢，

　　

【正文】 the mesoamerican barrier reef system. Academic Journal,2021,(2):236256 [14] Wolfe, Joseph, A study of business game stock price algorithms. Academic Journal,2021,(3):348364 [15] Gee,Dallery, Base stock versus WIP cap in singlestage maketostock productioninventory ,(6):254298 玉林師范學院信管 07 課程設計 23 附錄 ： Private Sub Command1_Click() Dim sjy As txtsql = select * from admin where yhm=39。 amp。 Trim() amp。 39。 Set sjy = exeSql(txtsql) If = 0 Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, 信息提示 = = Exit Sub End I f If Trim() Trim((mm)) Then MsgBox 密碼不正確！ , vbOKOnly + vbExclamation, 信息提示 = Exit Sub End If Unload Me End Sub 第八組 庫存管理系統(tǒng)設計 24 為系統(tǒng)主界面 : 響應【倉庫管理】按鈕單擊事件 : Private Sub LblStoreRoomSet_Click() End Sub 響應【入庫管理】 按鈕單擊事件 : Private Sub LblStoreinSet_Click() End Sub 響應【出庫管理】按鈕單擊事件 : Private Sub LblTakeoutSet_Click() End Sub 響應【庫存管理】按鈕單擊事件 : Private Sub LblStoreRoomSet_Click() End Sub 響應【倉庫信息查詢】按鈕單擊事件 Private Sub LblStoreQury_Click() 1 End Sub 響應【入庫清單查詢】按鈕單擊事件 Private Sub LblStoreinQury_Click() End Sub 響應【出庫清單查詢】按鈕單擊事件 Private Sub LblTakeoutQury_Click() End Sub 玉林師范學院信管 07 課程設計 25 響應【庫存信息查詢】按鈕單擊事件 Private Sub LblStoreQury_Click() 1 End Sub 窗體加載過程 Private Sub Form_Load() 39。 = driver={SQL Server}。server= + Trim(Server) + 。uid= + Trim(User) + 。pwd= + Trim(Password) + 。database=ERP 39。 = select * from StoreRoom 39。Set = Adodc1 Set = Adodc1 Refresh_StoreRoom End Sub 【添加】按鈕單擊事件： Private Sub LblAdd_Click() = 添加庫位 = False 1 Refresh_StoreRoom End Sub 【修改】按鈕單擊事件： Private Sub LblModify_Click() 39。保存待修改記錄的原始 ID = Trim((0)) 39。把待修改信息添加到編輯窗口 = Trim((0)) 第八組 庫存管理系統(tǒng)設計 26 = Trim((1)) = Trim((2)) = Trim((3)) = False = 修改庫位信息 = True 1 Refresh_StoreRoom End Sub 【刪除】按鈕單擊事件： Private Sub LblDelete_Click() Dim TempStoreRoomID As String 39。保存待刪除記錄的 ID TempStoreRoomID = (0) 39。彈出刪除確認對話框 If MsgBox(是 否刪除 + (1) + ?, vbYesNo, 確認 ) = vbYes Then (TempStoreRoomID) MsgBox 刪除成功 End If Refresh_StoreRoom End Sub 刷新窗口的函數(shù)： Private Sub Refresh_StoreRoom() If = 0 Then = False = False Else = True 玉林師范學院信管 07 課程設計 27 = True End If End Sub 【返回】按鈕事件 Private Sub LblBack_Click() Unload Me End Sub 【 確定 】 按鈕 單擊事件 Private Sub LblOK_Click() 39。判斷要編輯信息是否 完整 If Check = False Then Exit Sub End If With MyStoreRoom .StoreID = .StoreRoom = .Location = .Description = 39。判斷操作是添加還是修改 If Modify = False Then 39。判斷為添加操作 39。判斷采購員 ID 是否已經(jīng)存在 If .In_DB() = True Then MsgBox 庫位 ID 重復，請重新設置 = 0 第八組 庫存管理系統(tǒng)設計 28 = Len(TxtBuyerID) Exit Sub Else .Insert 39。添加 MsgBox 添加成功 End If Else 39。判斷為修改操作 .Update (OriStoreID) MsgBox 修改成功 End If End With Unload Me End Sub 【取消】按鈕單擊事件 Private Sub LblCancel_Click() Unload Me End Sub 【填寫入庫單】按鈕單擊事件 Private Sub LblOK_Click() = = = = + 產(chǎn)品選擇 ——— 從下表中選出入庫產(chǎn)品 1 Refresh_Storein End Sub 玉林師范學院信管 07 課程設計 29 【選擇日期】按鈕單擊事件 Private Sub DTDate_Change() Refresh_Storein End Sub 【選擇類型】按鈕單擊事件 Private Sub ComboType_Click() Refresh_Storein End Sub 【取消】按鈕單擊事件 Private Sub LblCancel_Click() Unload Me End Sub