【正文】 品入庫情況的管理，當有貨品到貨需要入庫保管，用戶可以方便的輸入貨品的名稱、數(shù)量等信息。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息等。所需的軟件，操作系統(tǒng)采用 Windows系列操作系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用 Visual Basic與 Access相結(jié)合，這些軟件都是很常見，在系統(tǒng)開發(fā)中被大量應用的，技術(shù)也都達到了比較成熟的階段。 管理上可行 庫存有很多的管理體制，每件入庫物品都有相應的記錄，出庫也要對相應的物品進行刪減，同時入庫和出庫必須對每個物品的相應數(shù)量和單價進行錄入。 （ 2）貨品查詢（入庫查詢，出庫查詢，庫存查詢）；該模塊用于貨品入庫，出庫，庫存的查詢。 運用 API 函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能 On Error Resume Next Dim MPassword As String If = mr And = mingrisoft Then 39。 39。 \系統(tǒng)日志 .ini) For Input As 1 Do While Not EOF(1) Line Input 1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) 指導老師：李湘華 學生：鄒靈蓉 Loop Close 1 TStr = TStr + + Name1 + + Format(Now, yyyymmdd hh:mm:ss) + + 系統(tǒng)登錄 + Chr(13) + Chr(10) Open ( amp。將數(shù)據(jù)庫記錄移向最后一條 StrNum = Val((ID)) + 1 39。 Trim(Str(StrNum)) Else Text1(0).Text = J000001 39。運用 API 函數(shù)SetWindowPos，來實現(xiàn)使窗體置前的功能 39。 \。 圖 進入出庫查詢 指導老師：李湘華 學生：鄒靈蓉 圖 出庫信息查 詢界面 數(shù)據(jù)報表模塊 數(shù)據(jù)報表中包括出庫報表，庫存報表。使窗體置前 End Sub Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer) = True End Sub 圖 庫存信息明細表 導出 打印 指導老師：李湘華 學生：鄒靈蓉 在庫存信息明細表預覽里有個打印按鈕和導出按鈕（如圖 ），點擊這兩個按鈕，分別能實現(xiàn)打印和導出功能。 圖 注冊新用戶界面 實現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。判斷注冊的用戶名是否存在 If 0 Then MsgBox 該用戶名已經(jīng)存在 ,請您更換其他用戶名 !, 48, 提示信息 = 39。 Text5 amp。 39。 39。 39。039。039。039。039。039。039。039。039。039。039。 圖 刪除現(xiàn)有的用戶的界面 實現(xiàn)代碼： Private Sub Command2_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 If 0 Then 39。運用 API 函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能 Call main If = Or = Or = Or = Then MsgBox 輸入不能為空 !!, 48, 提示信息 Else 39。 39。判斷數(shù)據(jù)的密碼是否正確 MsgBox 兩次輸入的密碼不一致 ,請您確認后重新輸入 , 48, 提示信息 = = 指導老師：李湘華 學生：鄒靈蓉 Else 39。 + + 39。 指導老師：李湘華 學生：鄒靈蓉 我的 論文 設計是為新生活集團（中國）有限公司徐州分公司的倉庫建立一個倉庫管理系統(tǒng)，解決公司倉庫管理問題。我國商業(yè)連鎖企業(yè)的物流系統(tǒng)配送分析 [J]。經(jīng)濟師 。2021年 04 期 4 李云 ,王平 。電子商務與連鎖經(jīng)營協(xié)同運行模式探索 [J]。經(jīng)濟體制改革 。2021年 02期 6 李 慎恒 。重慶郵電學院學報 (自然科學版 )。論物流配送是連鎖經(jīng)營成功的關(guān)鍵環(huán)節(jié) [J]。2021年 02期 2 文龍光 ,單山鳴 。數(shù)據(jù)報表和查詢統(tǒng)計兩個模塊的設計，可以使公司事務 局的管理人員對公司倉庫的庫存情況一目了然。 圖 退出系統(tǒng)主界面 6 結(jié)論 倉庫管理在公司管理中占有極為重要的地位，大力改進倉庫管理，可以節(jié)省大量的人力物力。 + + 39。 + + 39。 amp。用戶進入密碼修改界面（如圖 ） ,輸入用戶名，舊密碼，新密碼以及確認新密碼，點擊確認按鈕， Msgbox提醒“密碼修改成功！”。如果是當前登錄的用戶名，則不允許刪除 MsgBox 不能刪除當前用戶名 !!, 48, 提示信息 Else a = MsgBox(您確認要刪除該用戶嗎 ?, 17, 刪除用戶信息提示 ) If a = vbOK Then = select * from tb_enter where M_Name=39。039。039。039。039。039。039。039。039。039。039。039。 amp。 amp。 amp。判斷兩次輸入的密碼是否一致 = select * from tb_enter order by M_ID If 0 Then = Val((M_ID)) + 1 Else = 1