【正文】 在企業(yè)運作過程中，有時必須獲知各種零部件當(dāng)前的庫存量，但由于零部件種類多、數(shù)量大，需要進(jìn)行仔細(xì)地核算，這不僅費時，而且易出錯，從而影響企業(yè) 快速有效地運轉(zhuǎn)。為盤活企業(yè)流動資金，加快資金周轉(zhuǎn)，在 保障 36 供給的前提下，最大限度地降低壓庫資金，直接牽動著企業(yè)的經(jīng)營效益。 需求分析 傳統(tǒng)企業(yè)庫存管理存在的問題 庫存管理是企業(yè)管理 (本文以制造業(yè)企業(yè)為例 )的重要組 成部分。使倉庫庫存的信息化、集成化被提到了越來越重要的高度。 如 JIT(JustlnTime—— 及時生產(chǎn) )、 TQC(TotalQualityControl—— 全 面質(zhì)量管理 )、 OPT(OptimizedProductionTechnology —— 優(yōu) 化 生 產(chǎn) 技 術(shù) )及DRP(DistributionResourcePlanning—— 分銷資源計劃 )等。企業(yè)之間既是競爭對手，又是合作伙伴，信息 管理要求擴大到整個供應(yīng)鏈的管理。 當(dāng)今企業(yè)競爭范圍的擴大，要求在企業(yè)的各個方面加強管理，并要求企業(yè)有更高的信息化集成，要求對企業(yè)的整體資源進(jìn)行集成管理，而不僅僅對制造資源進(jìn)行集成管理。從以現(xiàn)在的電腦企業(yè)的庫存管理來看，還是和以前的大相徑庭。 其主要目標(biāo)在于利用計算機的快速、準(zhǔn)確處 理大量數(shù)據(jù)的特點，實現(xiàn)企業(yè)庫存管理的自動化，它不但解決了以往的主要依靠手工操作而導(dǎo)致的工序流程繁瑣、雜亂，時間周期長，出錯幾率大等種種弊端。正因為這樣硬件在時常的大量出現(xiàn)，其倉庫的管理問題也就變得重要了起來。但是計算機中不管是軟件還是硬件都是需要經(jīng)常升級的。隨著經(jīng)濟文化水平的顯著提高，人們對工作環(huán)境及工作效率的要求也越來越高。因此，商品貨物信息必須具有高度的準(zhǔn)確性，這就需要有好的管理系統(tǒng)，能簡明的反映實際情況。 倉庫 庫存管理系統(tǒng)的職能大體上包括訂單管理、入庫管理和出庫管理。本次設(shè)計即是針對 企業(yè) 運營者對商品在庫存管理方面所做的分析， 企業(yè) 商品的大量出入倉庫，使得每一個大型 企業(yè) 每年要花費的人力，投資，設(shè)施，費用去計劃和控制存貨，存貨的周轉(zhuǎn)率是標(biāo)志著企業(yè)運營效率的重要指標(biāo)，對企業(yè)的資產(chǎn)收益率起著重要的決定作用。 關(guān)鍵詞 倉庫庫存管理系統(tǒng) ， Visual Basic ， Access XXXIII 目錄 摘要 ?????????????????????????????? Ⅰ 目 錄 ?????? ???????????????????????? Ⅱ 緒 論 ?????????????????????????????? 1 第 1 章 系統(tǒng)概述 ?????????????????????????? 2 課題來源、目的、意義 ???????????????????? 2 需求分析 ?????????????????????????? 2 可執(zhí)行性研究 ???????????????????????? 4 功能設(shè)計 ?????????????????????????? 5 系統(tǒng)整體功能框圖 ?? ???????????????????? 5 第 2 章 系統(tǒng)設(shè)計 ?????????????????????????? 6 開發(fā)設(shè)計思想 ???????????????????????? 6 界面設(shè)計 ?????????????????????????? 6 系統(tǒng)環(huán)境 ?????????????????????????? 10 第 3 章 設(shè)計中遇到的問題 ?????????????????????? 11 在 Access 中錄入代碼的問題 ????????????????? 11 在 DAO 中編輯字段 的問題 ??????????????????? 11 在 Access 中庫存查詢的問題 ????????????????? 11 在 VB 中生成可執(zhí)行文件的問題 ???????????????? 11 軟件的實際問題 ??????????????????????? 12 總結(jié) ??????????????????????????????? 13 參考文獻(xiàn) ????????????????????????????? 14 致謝 ??????????????????????????????? 15 附錄 ????? ?????????????????????????? 16 34 緒 論 社會在不斷進(jìn)步，科學(xué)技術(shù)和管理也在迅速發(fā)展，這使得每個企業(yè)得到了前所未有的發(fā)展機遇，但同時也必須面對市場競爭的嚴(yán)重挑戰(zhàn)，在日趨激烈的競爭環(huán)境下，企業(yè)要求生存、發(fā)展，就必須對企業(yè)進(jìn)行科學(xué)的管理。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 微軟公司的 Visual Basic 是 Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。利用數(shù)據(jù)庫對物資計劃及合同進(jìn)行管理是十分有效且廣泛應(yīng)用的一項技術(shù)。 amp。 _ Security Info=False。group by p_id strSQL, , adOpenStatic, adLockReadOnly With rsOrdDA If .RecordCount 0 Then sngOrdQty = !oqty CurOrdPrice = !oprice Else sngOrdQty = 0 CurOrdPrice = 0 End If End With With rsSalDA If .RecordCount 0 Then sngSalQty = !sqty CurSalPrice = !sprice Else sngSalQty = 0 CurSalPrice = 0 End If End With With rsMatSale If .RecordCount 0 Then If (sngOrdQty + CSng(!qty) sngSalQty) CSng(strSaleQty) Then Sale_Price = CurOrdPrice + CCur(!price) CurSalPrice Else Sale_Price = Round((CCur(strSaleUnPr) * CSng(strSaleQty)), 2) End If End If End With XXXI Set rsMatSale = Nothing Set rsOrdDA = Nothing Set rsSalDA = Nothing End Function Private Sub DataEnvironment_Initialize() strConnect = Provider=。 _ strSaleID amp。 and sale_id39。 strSaleNum amp。 _ sale_detail_a where p_id=39。 39。 amp。 strSQL, , adOpenStatic, adLockReadOnly strSQL = select p_id,sum(qty) as oqty,sum(price) as oprice from XXX amp。 strSaleNum amp。 End Select End Sub Public Function Sale_Price(strSaleID As String, strSaleNum As String, strSaleUnPr As String, strSaleQty As String) As Currency Dim rsMatSale As Dim rsOrdDA As Dim rsSalDA As Dim strSQL As String Dim sngOrdQty, sngSalQty As Single Dim CurOrdPrice, CurSalPrice As Currency Set rsMatSale = New Set rsOrdDA = New Set rsSalDA = New strSQL = select qty,price from mat_head where p_id=39。 If Text1(Index).Text 1 Or Text1(Index).Text 12 Then 39。 Select Case Index 39。 amp。 amp。 !product_model XXVII End If End With End Sub Private Sub Form_Load() Set rsPro = Set rsMat = End Sub Private Sub Form_Unload(Cancel As Integer) Set rsPro = Nothing Set rsMat = Nothing End Sub Option Explicit Public intNumField As Integer Public strSqlField As String Private Sub CmdSql_Click(Index As Integer) Select Case Index Case 0 If = Then intNumField = 1 Else intNumField = strSqlField = End If Case 1 intNumField = 2 End Select Unload Me End Sub XXVIII Private Sub Form_Load() Dim intTmp As Integer For intTmp = 0 To intNumField 1 字段 amp。 = !product_name amp。 Trim((0).Value) amp。) = strSQL MsgBox 月份結(jié)轉(zhuǎn)完畢 !, vbInformation, 月終結(jié)轉(zhuǎn) Else MsgBox 該月份已經(jīng)月終結(jié)轉(zhuǎn) !, vbCritical, 月終結(jié)轉(zhuǎn)錯誤 End If Else MsgBox 日期格式錯誤！ , vbCritical, 啟用錯誤 Exit Sub End If End Sub Private Sub mnuSys_user_Click() End Sub Option Explicit Private rsPro As Private rsMat As Private Sub ComExit_Click() Unload Me End Sub Priva