【正文】 根據(jù)對(duì)我國(guó)眾多制造業(yè)企業(yè)的庫存管理情況所作的調(diào)查和參考有關(guān)資料，發(fā)現(xiàn)目前制造業(yè)企業(yè)在庫存管理方面普遍存在著如下問題 : 1. 不能及時(shí)獲得庫存信息。 通過對(duì)倉庫管理日常工作的詳細(xì)調(diào)查，搜集大量有關(guān)資料，從系統(tǒng)結(jié)構(gòu)的組織，功能的實(shí)現(xiàn)，技術(shù)的要求以及可行性等多方面進(jìn)行考慮，本課題是一個(gè)適應(yīng)現(xiàn)今電腦配件管理需要的計(jì)算機(jī)信息管理系統(tǒng)，具有一定的實(shí)際開發(fā)價(jià)值和使用價(jià)值?，F(xiàn)代管理思想和方法的提出和發(fā)展 。依然是以出庫、入庫和庫存三者之間的聯(lián)系為主。在計(jì)算機(jī)飛速發(fā)展的今天，利用計(jì)算機(jī)技術(shù)改造倉庫庫存信息管理已經(jīng)成了現(xiàn)代企業(yè)所面臨的一項(xiàng)重要任務(wù)。計(jì)算機(jī)就是為了使人們的工作效率提高而應(yīng)允而生的。所以庫存管理人員已經(jīng)成為倉庫的計(jì)劃員，他們的工作也受到了高度的重視，他們和市場(chǎng)部門及生產(chǎn)部門協(xié)同工作并成為整個(gè)企業(yè)組織的重要組成部分。而用計(jì)算機(jī)來處理企業(yè)內(nèi)部信息間的流通和使用，既可以實(shí)現(xiàn)數(shù)據(jù)信息的共享，控制好數(shù)據(jù)的冗余度，并使企業(yè)有統(tǒng)一的管理，提高信息的利用率；又可以實(shí)現(xiàn)整體數(shù)據(jù)的結(jié)構(gòu)化，表示大量數(shù)據(jù)相互間的多種聯(lián)系，這樣就可以大大的提高企業(yè)生產(chǎn)動(dòng)作的效率。 Access 是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。 \data\ = strConnect End Sub Private Sub DataReport_Initialize() (2).(31).Caption = (2).(34).Caption = (2).(36).Caption = End Sub XXXII 倉庫庫存管理系統(tǒng) 摘要 倉庫庫存 管理是管理部門日常工作中一項(xiàng)十分重要的基礎(chǔ)管理工作。Persist amp。 amp。 amp。 strSaleNum amp。 39。 End If 39。 Trim((2).Text) If Not IsDate(strCurDate) Then MsgBox 日期輸入錯(cuò)誤！ , vbCritical, 系統(tǒng)日期 (0).SelStart = 0 (0).SelLength = Len((0).Text) (0).SetFocus Else dteSysDate = CDate(strCurDate) Unload Me End If End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) XXIX Dim strValid As String strValid = 0123456789 If KeyAscii = 13 Then If Index 2 Then Text1(Index + 1).SelStart = 0 Text1(Index + 1).SelLength = Len(Text1(Index + 1).Text) Text1(Index + 1).SetFocus Else End If End If If KeyAscii 26 Then If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If 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。 _ 39。 strMonth amp。 strMonth amp。 strYear 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。),offline=false,monthdate=cdate(39。 =price = strSQL strSQL = update r_parameter set pass_date=cdate(39。 =qty, amp。 strMonth _ amp。 strYear amp。將代碼放在這里傳遞 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True strCurUser = Else MsgBox 無效的密碼，請(qǐng)重試 !, , 登錄 SendKeys {Home}+{End} End If Else MsgBox 請(qǐng)選擇用戶名 !, , 登錄 End If End Sub Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 39。不提示失敗的登錄 LoginSucceeded = False End Sub Private Sub cmdOK_Click() 39。 strFindPro amp。 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。 XIV 參考文獻(xiàn) [1] 張海藩 .《軟件工 程導(dǎo)論》 .第三版 .清華大學(xué)出版社 ， 1998 年 1 月 [2] 王珊， 薩師煊 .《數(shù)據(jù)庫系統(tǒng)相對(duì)論》 .第三版 .高等教育出版社 ， 2020 年 2月 [3] 謝金寶， 虞琦等 .《 Visual Basic 程序設(shè)計(jì)》 .上海交通大學(xué)出版社 ， 1996 [4] 周民光 ， 王復(fù)康等 .《 Visual Basic For Windows 語言參考詳解》 ， 北京航空航天大學(xué)出版社 . [5] 劉圣才， 李春葆 .《 Visual Basic 程序設(shè)計(jì)題典》 .清華大學(xué)出版社 ， 2020年 XV 致謝 論文完成的前提是老師給予我的真誠(chéng)的關(guān)懷與耐心的指導(dǎo)，在些表示衷心地感謝。 畢業(yè)設(shè)計(jì)是整個(gè)教學(xué)過程的最后環(huán)節(jié)，是學(xué)生綜合運(yùn)用所學(xué)知識(shí)解決實(shí) 際問題能力的考查。 XII 軟件的實(shí)際問題 倉庫庫存管理系統(tǒng) 雖然可以完成基本的管理功能，但是它還存在著很多方面的問題 有待改進(jìn)完善。如果想讓 VB 文件小一點(diǎn)的話，是不是語句越精煉生成的可執(zhí)行文件越小呢？使用 with 可不可以達(dá)到這種效果呢？ 生成文件時(shí)選小代碼優(yōu)化，一般不要選快速代碼優(yōu)化。 Access 支持三種連接方式：左連接、右連接、等值連接。 在 DAO 中編輯字段的問題 有一字段 B(文 本型， 8 個(gè)字符），當(dāng)我在表中進(jìn)行輸入時(shí)超過 8 個(gè)字符，系統(tǒng)就會(huì)禁止我輸入。運(yùn)行時(shí)，輸入框中僅可顯示代碼 ID，卻無法顯示代碼 Name。在 Access 中如何實(shí)現(xiàn)代碼輸入 哪 ？在 Access 中的代碼輸入解決方案是我見過中的比較好的一種。 圖 25 采購入庫、出庫單編輯 IX 統(tǒng)計(jì)查詢 統(tǒng)計(jì)查詢?cè)O(shè)置菜單中的選項(xiàng)可選擇采購入庫單查詢，采購出庫單查詢，其它入庫單查詢，庫存調(diào)整單查詢等（祥見圖 26）。詳見圖 21。 3. 程序代碼標(biāo)準(zhǔn)化統(tǒng)一化，確保軟件的可維護(hù)性和實(shí)用性。所管理的貨品種類繁多，而且由于各種單據(jù)發(fā)生量大，關(guān)聯(lián)信息多，查詢統(tǒng)計(jì)的方式各不相同等原因，因此在管理上實(shí)現(xiàn)起來有一定的難度。憑借到貨單進(jìn)行入庫，填寫入庫單，并進(jìn)行入庫登記。 系統(tǒng)整體功能框圖