【正文】 on = (2).(36).Caption = End Sub XXXII 倉庫庫存管理系統(tǒng) 摘要 倉庫庫存 管理是管理部門日常工作中一項(xiàng)十分重要的基礎(chǔ)管理工作。 amp。 strSaleNum amp。 End If 39。 CStr(intTmp + 1) Next = 0 End Sub Option Explicit Private Sub Form_Load() Text1(0).Text = Year(Date) Text1(1).Text = Month(Date) Text1(2).Text = Day(Date) Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) End Sub Private Sub Label1_Click(Index As Integer) End Sub Private Sub OKButton_Click() Dim strCurDate As String strCurDate = Trim((0).Text) amp。 _ 39。 strMonth amp。) = strSQL = True XXV = True = True = True = False MsgBox 系統(tǒng)已正式啟用 !, vbInformation, 系統(tǒng)啟用 Else MsgBox 日期格式錯(cuò)誤！ , vbCritical, 啟用錯(cuò)誤 Exit Sub End If End Sub Private Sub mnuSys_trans_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox(請(qǐng)輸入月終結(jié)轉(zhuǎn)時(shí)間 , 月終結(jié)轉(zhuǎn) , CStr(Date)) If IsDate(strBeg) Then strSQL = select monthdate from r_parameter Set rsSys = New strSQL, , adOpenDynamic, adLockOptimistic If Format(CDate(strBeg), yyyymm) Format(rsSys!monthdate, yyyymm) Then strYear = Right(CStr(Year(CDate(strBeg))), 2) strMonth = Format(CStr(Month(CDate(strBeg))), 0) strSQL = alter table mat_head add column qty amp。 =price = strSQL strSQL = update r_parameter set pass_date=cdate(39。 strMonth _ amp。將代碼放在這里傳遞 39。不提示失敗的登錄 LoginSucceeded = False End Sub Private Sub cmdOK_Click() 39。 XVI 附錄 Option Explicit Private rsPro As Public strFindPro As String Private Sub CmdFind_Click(Index As Integer) Select Case Index Case 0 strFindPro = (0).Value Case 1 strFindPro = End Select Unload Me End Sub Private Sub Form_Load() Set rsPro = If strFindPro = Then = p_id39。 畢業(yè)設(shè)計(jì)是整個(gè)教學(xué)過程的最后環(huán)節(jié)，是學(xué)生綜合運(yùn)用所學(xué)知識(shí)解決實(shí) 際問題能力的考查。如果想讓 VB 文件小一點(diǎn)的話，是不是語句越精煉生成的可執(zhí)行文件越小呢？使用 with 可不可以達(dá)到這種效果呢？ 生成文件時(shí)選小代碼優(yōu)化，一般不要選快速代碼優(yōu)化。 在 DAO 中編輯字段的問題 有一字段 B(文 本型， 8 個(gè)字符），當(dāng)我在表中進(jìn)行輸入時(shí)超過 8 個(gè)字符，系統(tǒng)就會(huì)禁止我輸入。在 Access 中如何實(shí)現(xiàn)代碼輸入 哪 ？在 Access 中的代碼輸入解決方案是我見過中的比較好的一種。詳見圖 21。所管理的貨品種類繁多，而且由于各種單據(jù)發(fā)生量大，關(guān)聯(lián)信息多，查詢統(tǒng)計(jì)的方式各不相同等原因，因此在管理上實(shí)現(xiàn)起來有一定的難度。 系統(tǒng)整體功能框圖 圖 11 庫存管理主要是對(duì)庫存貨物的入庫、出庫、查詢統(tǒng)計(jì)等進(jìn)行控制和管理，以便及時(shí)了解庫存情況，達(dá)到降低庫存量、提高取貨備貨效率。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。從實(shí)際需要出發(fā)，在保證數(shù)據(jù)準(zhǔn)確、安全、提高信息處理速度和質(zhì)量的前提下，確定 “ 簡(jiǎn)捷高效、靈活方便、規(guī)范實(shí)用、開放共享 ” 為管理信息系統(tǒng)的總體設(shè)計(jì)思想。 IV 企業(yè) 庫存管理 應(yīng)用解決方案 一般的操作步驟為： 1. 企業(yè)采購部采購商品后，填制采購入庫單，并將商品發(fā)送給倉庫，辦理入庫。 企 業(yè)庫存管理系統(tǒng)的特點(diǎn) 因?yàn)閭鹘y(tǒng)企業(yè)庫存管理存在以上的問題難于適應(yīng)現(xiàn)代庫存管理要求，所以企業(yè) 庫存管理系統(tǒng) 要具有以下的特點(diǎn)： 1. 科學(xué)的庫存管理流程 存貨的種類不同，所涉及的業(yè)務(wù)環(huán)節(jié)及它們所組成的業(yè)務(wù)流程也各有差異。 在企業(yè)運(yùn)作過程中，有時(shí)必須獲知各種零部件當(dāng)前的庫存量，但由于零部件種類多、數(shù)量大，需要進(jìn)行仔細(xì)地核算，這不僅費(fèi)時(shí)，而且易出錯(cuò)，從而影響企業(yè)快速有效地運(yùn)轉(zhuǎn)。 如 JIT(JustlnTime—— 及時(shí)生產(chǎn) )、 TQC(TotalQualityControl—— 全 面質(zhì)量管理 ) 、 OPT(OptimizedProductionTechnology —— 優(yōu) 化 生 產(chǎn) 技 術(shù) ) 及DRP(DistributionResourcePlanning—— 分銷資源計(jì)劃 )等。 其主要目標(biāo)在于利用計(jì)算機(jī)的快速、準(zhǔn)確處理大量數(shù)據(jù)的特點(diǎn)，實(shí)現(xiàn)企業(yè)庫存管理的自動(dòng)化，它不但解決了以往的主要依靠手工操作而導(dǎo)致的工序流程繁瑣、雜亂，時(shí)間周期長(zhǎng)，出錯(cuò)幾率大等種種弊端。因此，商品貨物信息必須具有高度的準(zhǔn)確性，這就需要有好的管理系統(tǒng)，能簡(jiǎn)明的反映實(shí)際情況。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或 自定義窗體收集信息。本文介紹了倉庫庫存 管理系統(tǒng)的關(guān)鍵開發(fā)技術(shù)及系統(tǒng)功能，描述了系統(tǒng)模型及數(shù)據(jù)詞典，并對(duì)數(shù)據(jù)庫開發(fā)的相關(guān)技術(shù)進(jìn)行了討論。所以近年來，企業(yè)管理者開始重視存貨管理的重要性，存貨管理主要是對(duì)商品的管理，它強(qiáng)調(diào)的是對(duì)商品貨物的存儲(chǔ)和傳送，數(shù)量和狀態(tài)變化信息的管理，其目標(biāo)是在于降低庫存成本，減少庫存資金占用的同時(shí)，保證商品貨物按計(jì)劃流動(dòng)，保證生產(chǎn)過程中的物料需求，保證生產(chǎn)的正常運(yùn)行，從而使商品滿足顧客和市場(chǎng)上的需求，庫存控制就是要權(quán)衡庫存費(fèi)用（包括商品價(jià)值，訂貨費(fèi)用，短缺等），使總費(fèi)用最低。現(xiàn)在的計(jì)算機(jī)軟件的更新速度之快，消耗資源之大都是令人難以預(yù)料的，所以硬件的升級(jí)就顯得非常重要。因此，信息管理系統(tǒng)與理論僅停留在對(duì)制造部分的信息集成與理論研究上是遠(yuǎn)遠(yuǎn)不夠的。在企業(yè)生產(chǎn)經(jīng)營活動(dòng)中，庫存管理既必須保證生產(chǎn)車間對(duì)原材料、零部件需求，又直接影響采購、銷售部門的購、銷活動(dòng)。 3. 無法及時(shí)了解發(fā)料和生產(chǎn)用料情況。 IT 技術(shù)與層次編碼技術(shù)的結(jié)合為物料的高效管理提供了可能。因此，建立一套 庫存 管理信息開發(fā)系統(tǒng)勢(shì)在必行。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 2. 庫存管理各種信息的查詢、修改和維護(hù)。其他單位需要從本企業(yè)購入貨品時(shí)，首先提出申請(qǐng)，由專門人員填寫出庫單，倉庫管理員根據(jù)出庫單核對(duì)后進(jìn)行貨品的出庫。 4. 界面盡量簡(jiǎn)化，做到實(shí)用方便 ，盡量滿足企業(yè)中不同層次員工的需要。 圖 26 出庫、入 庫統(tǒng)計(jì)查詢菜單 系統(tǒng)維護(hù)設(shè)置菜單 系統(tǒng)維護(hù)設(shè)置菜單中的選項(xiàng)可選擇期初庫存錄入，系統(tǒng)啟動(dòng)，操作員設(shè)置，資料刪除，月終結(jié)轉(zhuǎn)等（祥見圖 27）。 其實(shí)，關(guān)鍵是三個(gè)要素： 控件顯示的內(nèi)容； 和控件相關(guān)的數(shù)據(jù)源的字段； 代碼表。問題主要是使用了等值連接！在等值連接方式下，只有兩個(gè)表中鍵值相等的行才會(huì)出現(xiàn)在結(jié)果表中，其他行被放棄，所以出現(xiàn)了 我 所見到的情況。系統(tǒng)不足 ， 系統(tǒng)的安全性不強(qiáng) 等 。老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格，使我深受啟發(fā)；開發(fā)的同時(shí)，和同學(xué)們之間的相互探討也使我獲益匪淺。 *39。設(shè)置全局變量為 false 39。 strMonth _ amp。 _ price amp。 amp。 strMonth _ amp。 =price = strSQL strSQL = update r_parameter set monthdate=cdate(39。 = !product_name amp。 Select Case Index 39。 strSQL, , adOpenStatic, adLockReadOnly strSQL = select p_id,sum(qty) as oqty,sum(price) as oprice from XXX amp。 strSaleNum amp。 _ Security Info=False。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。因此，商品貨物信息必須具有高度的準(zhǔn)確性，這就需要有好的管理系統(tǒng)，能簡(jiǎn)明的反映實(shí)際情況。 其主要目標(biāo)在于利用計(jì)算機(jī)的快速、準(zhǔn)確處 理大量數(shù)據(jù)的特點(diǎn)，實(shí)現(xiàn)企業(yè)庫存管理的自動(dòng)化，它不但解決了以往的主要依靠手工操作而導(dǎo)致的工序流程繁瑣、雜亂，時(shí)間周期長(zhǎng)，出錯(cuò)幾率大等種種弊端。 如 JIT(JustlnTime—— 及時(shí)生產(chǎn) )、 TQC(TotalQualityControl—— 全 面質(zhì)量管理 )、 OPT(OptimizedProductionTechnology —— 優(yōu) 化 生 產(chǎn) 技 術(shù) )及DRP(DistributionResourcePlanning—— 分銷資源計(jì)劃 )等。 在企業(yè)運(yùn)作過程中，有時(shí)必須獲知各種零部件當(dāng)前的庫存量，但由于零部件種類多、數(shù)量大，需要進(jìn)行仔細(xì)地核算，這不僅費(fèi)時(shí)，而且易出錯(cuò)，從而影響企業(yè) 快速有效地運(yùn)轉(zhuǎn)。使倉庫庫存的信息化、集成化被提到了越來越重要的高度。從以現(xiàn)在的電腦企業(yè)的庫存管理來看，還是和以前的大相徑庭。隨著經(jīng)濟(jì)文化水平的顯著提高，人們對(duì)工作環(huán)境及工作效率的要求也越來越高。 關(guān)鍵詞 倉庫庫存管理系統(tǒng) ， Visual Basic ， Access XXXIII 目錄 摘要 ??????