1、<p>　　管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告—倉(cāng)庫(kù)管理系統(tǒng)</p><p><b>　　學(xué)院： </b></p><p><b>　　班級(jí)： </b></p><p><b>　　姓名： </b></p><p><b>　　學(xué)號(hào)：</b></p&

2、gt;<p>　　倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)</p><p><b>　　一、緒論</b></p><p>　　企業(yè)的物資管理往往是很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發(fā)放的渠道各有差異，各個(gè)企業(yè)之間的管體制不盡相同，各類統(tǒng)計(jì)計(jì)劃報(bào)表繁多等原因，物資管理有必要實(shí)現(xiàn)計(jì)算機(jī)信息化管理，而且必須根據(jù)企業(yè)的具體情況制定相應(yīng)的方案。</p>

3、<p>　　根據(jù)當(dāng)前的企業(yè)管理體制，一般物資供應(yīng)管理系統(tǒng)總是根據(jù)所掌握的物資類別，相應(yīng)分成幾個(gè)人科室來進(jìn)行物資的計(jì)劃、訂貨、核銷托收和驗(yàn)收入庫(kù)，根據(jù)企業(yè)各個(gè)部門的需要來發(fā)送物資設(shè)備，兵隨時(shí)按期進(jìn)行庫(kù)存盤點(diǎn)、做臺(tái)賬；根據(jù)企業(yè)領(lǐng)導(dǎo)和自身管管理的需要按月、季、年進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。為了加強(qiáng)關(guān)鍵物資、設(shè)備的管理，要定期掌握其儲(chǔ)備消耗情況，根據(jù)計(jì)劃定額和實(shí)際消耗定額的比較，進(jìn)行定額管理，使得資金使用合理，物資設(shè)備的儲(chǔ)備最佳。&

4、lt;/p><p>　　本次我是用Access設(shè)計(jì)了一個(gè)倉(cāng)庫(kù)管理系統(tǒng)，用于中小型企業(yè)，操作方便。</p><p>　　二、系統(tǒng)的分析和設(shè)計(jì)</p><p>　　倉(cāng)庫(kù)管理的物資在這里主要是企業(yè)生產(chǎn)所需的各種設(shè)備。進(jìn)貨時(shí)經(jīng)檢查合同確認(rèn)為有效托收以后，進(jìn)行驗(yàn)收入庫(kù)，需要填寫入庫(kù)單，并進(jìn)行入庫(kù)登記。企業(yè)各個(gè)部門根據(jù)所需要的物資設(shè)備總額和部門生產(chǎn)活動(dòng)需要提出物資需求申請(qǐng)。計(jì)劃員根

5、據(jù)整個(gè)企業(yè)需求開出物資設(shè)備出庫(kù)單，倉(cāng)庫(kù)管理員根據(jù)出庫(kù)單核對(duì)發(fā)放設(shè)備。</p><p>　　設(shè)備使用完畢需要何時(shí)歸還，填寫入庫(kù)單。還需要按月，季，年進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。</p><p><b>　　1.系統(tǒng)分析</b></p><p><b>　　1.1需求分析</b></p><p>　　需

6、求分析是信息系統(tǒng)分析與設(shè)計(jì)的基礎(chǔ)。要開發(fā)并實(shí)施一個(gè)完整的信息系統(tǒng)，需求分析是否充分準(zhǔn)確直接決定信息系統(tǒng)是否能最終使用戶滿意，并且影響到數(shù)據(jù)庫(kù)結(jié)果是否合理實(shí)用，所以必須首先了理解用戶的需求，并形成系統(tǒng)需求說明書。</p><p>　?。?）倉(cāng)庫(kù)數(shù)據(jù)庫(kù)必要性分析</p><p>　　作為商店所有的商品的最初集散地，對(duì)于倉(cāng)庫(kù)的管理無(wú)疑是重要的，傳統(tǒng)的倉(cāng)庫(kù)管理人員在日常的生活中，要從事繁重的商品登

7、記工作，對(duì)于要查詢商品的人員來說也要花費(fèi)很長(zhǎng)的時(shí)間去分清商品；同時(shí)，一旦倉(cāng)庫(kù)有進(jìn)入新的商品，又要從新更改商品的基本錄入，同時(shí)對(duì)于一些過時(shí)的商品，要重新分類，并且及時(shí)的刪除。如果是數(shù)量極少的商品，人工可以完全勝任，但是面對(duì)著成千上萬(wàn)的商品的登記和輸出，就要需要進(jìn)行系統(tǒng)性信息化規(guī)范。我們團(tuán)隊(duì)設(shè)計(jì)的倉(cāng)庫(kù)系統(tǒng)中包含了商品的查詢功能、更新功能以及將一些不必要商品的刪除功能。</p><p><b>　?。?）現(xiàn)實(shí)

8、需求</b></p><p>　　隨著公司和企業(yè)貿(mào)易的擴(kuò)大化和所從事商品種類的日益增多，導(dǎo)致公司的后勤部門面臨著繁重的賬目查詢和倉(cāng)庫(kù)管理負(fù)擔(dān)。并且隨著公司的進(jìn)一步發(fā)展，公司上層對(duì)于公司的未來發(fā)展有了進(jìn)一步的戰(zhàn)略規(guī)劃，傳統(tǒng)的人工商品和倉(cāng)庫(kù)的管理系統(tǒng)以不能滿足公司的進(jìn)一步的發(fā)展，因此將公司的后勤管理進(jìn)行信息化是必要的。</p><p><b>　　1.2．功能分析<

9、/b></p><p>　　本倉(cāng)庫(kù)管理系統(tǒng)主要有如下幾個(gè)功能：</p><p>　?。?）倉(cāng)庫(kù)管理各種信息的輸入，包括入庫(kù)、出庫(kù)、還庫(kù)、需求信息的輸入等。</p><p>　?。?）倉(cāng)庫(kù)管理各種信息的查詢、維護(hù)和修改。</p><p>　?。?）設(shè)備采購(gòu)表的生成。</p><p>　?。?）在倉(cāng)庫(kù)管理中加入最高儲(chǔ)

10、備和最低儲(chǔ)備字段，對(duì)倉(cāng)庫(kù)中的物資設(shè)備實(shí)現(xiàn)監(jiān)控和報(bào)警。</p><p>　?。?）企業(yè)各個(gè)部門的物資需求的管理。</p><p>　?。?）操作日志的管理。</p><p><b>　　2、系統(tǒng)設(shè)計(jì)</b></p><p>　　2．1.系統(tǒng)功能模塊的設(shè)計(jì)</p><p><b>　　如圖2

11、-1</b></p><p>　　倉(cāng)庫(kù)管理信息系統(tǒng)的功能可以分為設(shè)備入庫(kù)，設(shè)備出庫(kù)，設(shè)備還庫(kù)，設(shè)備需求，設(shè)備采購(gòu)等方面。</p><p>　　倉(cāng)庫(kù)管理系統(tǒng)屬于企業(yè)管理信息系統(tǒng)，是管理信息系統(tǒng)在現(xiàn)實(shí)中的ERP應(yīng)用。它支持企業(yè)整體發(fā)展戰(zhàn)略。企業(yè)的管理層通過對(duì)系統(tǒng)數(shù)據(jù)的收集分析，有利于制定合理的企業(yè)經(jīng)營(yíng)戰(zhàn)略。詳細(xì)的功能模塊則為企業(yè)的全面成本管理，提高敏捷的后勤保障建立了基礎(chǔ)。該系統(tǒng)模

12、塊所具有的功能較為詳細(xì)，能較好地滿足企業(yè)的需求。</p><p>　　通過倉(cāng)庫(kù)管理系統(tǒng)的建設(shè)，極大提高了企業(yè)的形象，而信息技術(shù)的使用則全面降低了企業(yè)運(yùn)作成本，提高了公司的整體運(yùn)作效率，公司業(yè)務(wù)得以拓展，企業(yè)利潤(rùn)實(shí)現(xiàn)最大化，進(jìn)一步提高了企業(yè)的綜合競(jìng)爭(zhēng)力；倉(cāng)庫(kù)管理信息系統(tǒng)規(guī)范優(yōu)化了企業(yè)內(nèi)部各部門、各辦事機(jī)構(gòu)的業(yè)務(wù)流程，對(duì)重點(diǎn)業(yè)務(wù)實(shí)行了全面質(zhì)量監(jiān)控。通過科學(xué)化管理，實(shí)現(xiàn)各部門間的協(xié)同運(yùn)作、無(wú)紙化辦公，并且使公司內(nèi)部各部

13、門、使用權(quán)限明了清楚，杜絕互相推諉現(xiàn)象，強(qiáng)化了部門責(zé)任；同時(shí)倉(cāng)庫(kù)管理信息系統(tǒng)支持開發(fā)決策，為企業(yè)決策層提供圖形化、報(bào)表化的市場(chǎng)分析數(shù)據(jù)，能夠?qū)ξ磥淼墓緲I(yè)務(wù)發(fā)展、客戶需求發(fā)展、市場(chǎng)發(fā)展做出預(yù)測(cè),為公司制定經(jīng)營(yíng)戰(zhàn)略提供數(shù)據(jù)支持；系統(tǒng)通過Internet實(shí)現(xiàn)全天候?qū)崟r(shí)服務(wù)，實(shí)現(xiàn)365*24全天候信息交流，充分滿足客戶的各種需求，全面提升客戶服務(wù)水平，大大加強(qiáng)與客戶的緊密度，也為不同部門之間的信息交流與相互合作奠定堅(jiān)實(shí)的基礎(chǔ)。</p&g

14、t;<p>　　2．2系統(tǒng)的數(shù)據(jù)流程圖的設(shè)計(jì) </p><p>　　數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)是一個(gè)非常重要的問題，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。在上述分析的基礎(chǔ)上，可以得到本系統(tǒng)的數(shù)據(jù)流程圖，如圖2-2</p><p><b>　　圖2-2</b></p><p>　　三、數(shù)據(jù)表的創(chuàng)建和設(shè)計(jì) </

15、p><p>　　使用Access數(shù)據(jù)庫(kù)管理系統(tǒng)建立應(yīng)用系統(tǒng)，首先需要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫(kù)。然后在該數(shù)據(jù)庫(kù)中添加所需要的表、查詢、窗體、報(bào)表和宏等。</p><p><b>　　1.數(shù)據(jù)庫(kù)的創(chuàng)建</b></p><p>　　使用向?qū)гO(shè)計(jì)“倉(cāng)庫(kù)管理系統(tǒng)”數(shù)據(jù)庫(kù)</p><p><b>　　2.E-R圖的設(shè)計(jì)</b>

16、;</p><p>　　2.1現(xiàn)有庫(kù)存實(shí)體的E-R圖、</p><p>　　2.2入庫(kù)實(shí)體的E-R圖</p><p>　　2.3出庫(kù)實(shí)體的E-R圖</p><p>　　2.4部門需求實(shí)體的E-R圖</p><p>　　2.5設(shè)備還庫(kù)實(shí)體E-R圖</p><p>　　2.6設(shè)備采購(gòu)實(shí)體E-R圖&l

17、t;/p><p>　　2.7實(shí)體與實(shí)體之間的關(guān)系</p><p><b>　　四．編寫代碼</b></p><p><b>　　1.設(shè)備入庫(kù)</b></p><p><b>　　1.1添加記錄功能</b></p><p>　　Private Sub Comm

18、and14_Click()</p><p>　　' *************</p><p>　　On Error GoTo Err_Command14_Click</p><p>　　DoCmd.GoToRecord , , acNewRec</p><p>　　Exit_Command14_Click:</p>&

19、lt;p><b>　　Exit Sub</b></p><p>　　Err_Command14_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command14_Click</p><p><b>　　End Sub</b

20、></p><p><b>　　1.2修改庫(kù)存功能</b></p><p>　　Private Sub Command16_Click()</p><p>　　'*************</p><p>　　Dim As Database</p><p>　　Dim curRS A

21、s Recordset</p><p>　　Dim deviceCnt As Integer</p><p>　　Set curdb = CurrentDb</p><p>　　Set curRS = curdb.OpenRecordset("selet*from devisce where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value

22、& "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'***************</p><p>　　'如果已經(jīng)存在該設(shè)備'就在庫(kù)存中修改相關(guān)記錄</p><p>　　'***************</p>&

23、lt;p>　　deviceCnt = curRS.Fields("現(xiàn)有庫(kù)存")</p><p>　　deviceCnt = deviceCnt + CInt(入庫(kù)數(shù)量.Value)</p><p>　　curdb.Execute "update device set 現(xiàn)有庫(kù)存=" & deviceCnt & " ,總數(shù)

24、=" & curRS.Fields("_總數(shù)").Value + CInt(入庫(kù)數(shù)量.Value) & "where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & " ' "</p><p><b>　　Else</b></p><p>　　'**

25、************</p><p>　　'如果數(shù)據(jù)庫(kù)里沒有相關(guān)設(shè)備'就在庫(kù)存里添加一條新紀(jì)錄</p><p>　　'***************************</p><p>　　With curRS</p><p><b>　　.AddNew</b></p>&l

26、t;p>　　.Fields("設(shè)備號(hào)") = 設(shè)備號(hào).Value</p><p>　　.Fields("現(xiàn)有庫(kù)存") = CInt(入庫(kù)數(shù)量.Value)</p><p>　　.Fields("最大庫(kù)存") = CInt(入庫(kù)數(shù)量.Value) + 10</p><p>　　.Fields("

27、;最小有庫(kù)存") = CInt(入庫(kù)數(shù)量.Value) - 10</p><p>　　.Fields("總數(shù)") = CInt(入庫(kù)數(shù)量.Value)</p><p><b>　　.Update</b></p><p><b>　　End With</b></p><p&g

28、t;<b>　　End If</b></p><p>　　curdb.Execute "insert into Howdo(操作員，操作內(nèi)容，操作時(shí)間) values ('管理員','設(shè)備入庫(kù)'," & CDate(入庫(kù)時(shí)間.Value) & ")"</p><p>　　'

29、********************</p><p>　　'將操作記錄到日志中</p><p>　　'*********</p><p>　　cmdAdd.Enabled =True</p><p>　　cmdAdd.SetFocus</p><p>　　cmdMod.Enabled = False

30、</p><p><b>　　End Sub</b></p><p>　　Private Sub Command16_click()</p><p><b>　　End Sub</b></p><p><b>　　1.3查找記錄功能</b></p><p&g

31、t;　　Private Sub Command17_Click()</p><p>　　On Error GoTo Err_Command17_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p>　　DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVe

32、r70</p><p>　　Exit_Command17_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command17_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_

33、Command17_Click</p><p><b>　　End Sub</b></p><p><b>　　2.設(shè)備出庫(kù)</b></p><p><b>　　2.1添加記錄功能</b></p><p>　　Private Sub Command14_Click()</

34、p><p>　　On Error GoTo Err_Command14_Click</p><p>　　DoCmd.GoToRecord , , acNewRec</p><p>　　Exit_Command14_Click:</p><p><b>　　Exit Sub</b></p><p>　　

35、Err_Command14_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command14_Click</p><p><b>　　End Sub</b></p><p><b>　　2.2修改庫(kù)存功能</b></

36、p><p>　　Private Sub Command16_Click()</p><p>　　Dim As Database</p><p>　　Dim curRS As Recordset</p><p>　　Dim deviceCnt As Integer</p><p>　　Set curdb = CurrentD

37、b</p><p>　　Set curRS = curdb.OpenRecordset("selet * from devisce where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'***

38、************</p><p>　　'如果已經(jīng)存在該設(shè)備'就在庫(kù)存中修改相關(guān)記錄</p><p>　　'***************</p><p>　　deviceCnt = curRS.Fields("現(xiàn)有庫(kù)存")</p><p>　　deviceCnt = deviceCnt -

39、CInt(入庫(kù)數(shù)量.Value)</p><p>　　curdb.Execute "update device set 現(xiàn)有庫(kù)存=" & deviceCnt & "where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & "'"</p><p><b>　　Else</b

40、></p><p>　　'**********************</p><p>　　'將操作記錄到日志中</p><p>　　'************************</p><p>　　curdb.Execute "insert into Howdo(操作員，操作內(nèi)容，操作時(shí)間) v

41、alues ('管理員','設(shè)備出庫(kù)','" & CDate(出庫(kù)時(shí)間.Value) & "')"</p><p><b>　　Else</b></p><p>　　'******************************</p><p>

42、;　　'如果書庫(kù)里沒有相關(guān)設(shè)備，就給出提示信息</p><p>　　'**********************************</p><p>　　MsgBox "沒有該設(shè)備!"</p><p><b>　　End If</b></p><p>　　cmdAdd.Enabl

43、ed = True</p><p>　　cmdAdd.SetFocus</p><p>　　cmdMod.Enabled = False</p><p><b>　　End Sub</b></p><p><b>　　2.3查找記錄功能</b></p><p>　　Priva

44、te Sub Command17_Click()</p><p>　　Private Sub Command17_Click()</p><p>　　On Error GoTo Err_Command17_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p>　　DoCmd.DoMen

45、uItem acFormBar, acEditMenu, 10, , acMenuVer70</p><p>　　Exit_Command17_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command17_Click:</p><p>　　MsgBox Err.Des

46、cription</p><p>　　Resume Exit_Command17_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdTime_Click()</p><p>　　'**************************</p>

47、;<p>　　'將當(dāng)前時(shí)間插入到文本框中</p><p>　　'**************</p><p>　　出庫(kù)時(shí)間.SetFocus</p><p>　　出庫(kù)時(shí)間.Text = CStr(Date) & " " & CStr(Time)</p><p><b>

48、;　　End Sub</b></p><p><b>　　3.設(shè)備還庫(kù)</b></p><p><b>　　3.1添加記錄功能</b></p><p>　　Private Sub Command14_Click()</p><p>　　On Error GoTo Err_Command1

49、4_Click</p><p>　　'DcCmd.GoTORecord , ,acFirst</p><p>　　'DoCmd.GoToRecord ,, acNewRec</p><p>　　cmdMod.Enabled = True</p><p>　　cmdMld .SetFocus</p><p&g

50、t;　　cmdAdd.Enable = False</p><p>　　Exit_ Command14_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command14_Click:</p><p>　　MsgBox Err.Description</p>

51、<p>　　Resume Exit_Command14_Click</p><p><b>　　End Sub</b></p><p><b>　　3.2修改庫(kù)存功能</b></p><p>　　Private Sub Command16_Click()</p><p>　　Dim cur

52、db As Database</p><p>　　Dim curRS As Recordset</p><p>　　Dim deviceCnt As Integer</p><p>　　Set curdb = CurrentDb</p><p>　　Set curRS = curdb.OpenRecordset("select *

53、from device where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'*********************</p><p>　　'如果已經(jīng)存在該設(shè)備，就在庫(kù)存中修改相關(guān)記錄<

54、/p><p>　　'****************************</p><p>　　deviceCnt = curRS.Fields("現(xiàn)有庫(kù)存")</p><p>　　deviceCnt = deviceCnt + CInt(歸還數(shù)量.Value)</p><p>　　curdb.Execute &qu

55、ot;update device set 現(xiàn)有庫(kù)存=" & deviceCnt & "where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & "'"</p><p>　　'*****************</p><p>　　'將操作記錄到日志中</p><

56、p>　　'*************</p><p>　　cuedb.Execute "insert into Howdo(操作員，操作內(nèi)容，操作時(shí)間)Values ('管理員,'設(shè)備還庫(kù)','" & (還庫(kù)時(shí)間.Value) & ")"</p><p><b>　　Else&l

57、t;/b></p><p>　　'*********************</p><p>　　'如果數(shù)據(jù)庫(kù)里沒有相關(guān)設(shè)備，就給出提示信息</p><p>　　'***********************</p><p>　　MsgBox "沒有該設(shè)備!"</p><

58、p><b>　　End If</b></p><p>　　cmdAdd.Enabled = True</p><p>　　cmdAdd.SetFocus</p><p>　　cmdMod.Enabled = False</p><p><b>　　End Sub</b></p>

59、<p><b>　　3.3查找記錄功能</b></p><p>　　Private Sub Command17_Click()</p><p>　　On Error GoTo Err_Command17_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p&g

60、t;　　DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70</p><p>　　Exit_Command17_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command17_Click:</p><p>　

61、　MsgBox Err.Description</p><p>　　Resume Exit_Command17_Click</p><p><b>　　End Sub</b></p><p><b>　　4.設(shè)備需求</b></p><p><b>　　4.1添加記錄功能</b>

62、;</p><p>　　Private Sub Command14_Click()</p><p>　　'********************</p><p><b>　　'添加記錄功能</b></p><p>　　'********************</p><p&

63、gt;　　On Error GoTo Err_Command14_Click</p><p>　　DoCmd.GoToRecord , , acNewRec</p><p>　　Exit_Command14_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command14

64、_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command14_Click</p><p><b>　　End Sub</b></p><p><b>　　4.2保存日志功能</b></p><p&

65、gt;　　Private Sub Command16_Click()</p><p>　　'******************</p><p>　　'將操作記錄到日志中</p><p>　　'****************</p><p>　　Dim curdb As Database</p><

66、;p>　　Set curdb = CurrentDb</p><p>　　curdb.Execute "insert into Howdo (操作員，操作內(nèi)容，操作時(shí)間) Values ('管理員','設(shè)備需求','" & CStr(Date) & " " & CStr(Time) & &quo

67、t;')"</p><p>　　cmdAdd.Enabled = True</p><p>　　cmdAdd.SetFocus</p><p>　　cmdMod.Enabled = False</p><p><b>　　End Sub</b></p><p><b>

68、　　4.3查找記錄功能</b></p><p>　　Private Sub Command17_Click()</p><p>　　On Error GoTo Err_Command17_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p>　　DoCmd.DoMenuIt

69、em acFormBar, acEditMenu, 10, , acMenuVer70</p><p>　　Exit_Command17_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command17_Click:</p><p>　　MsgBox Err.Descri

70、ption</p><p>　　Resume Exit__Command17_Click:</p><p><b>　　End Sub</b></p><p><b>　　5.設(shè)備采購(gòu)</b></p><p><b>　　5.1添加記錄功能</b></p><

71、;p>　　Private Sub Command14_Click()</p><p>　　'*********************</p><p><b>　　'添加記錄</b></p><p>　　'***************</p><p>　　On Error GoTo Err

72、_Command14_Click</p><p>　　'DcCmd.GoTORecord , ,acFirst</p><p>　　DoCmd.GoToRecord , , acNewRec</p><p>　　cmdMod.Enabled = True</p><p>　　cmdMld .SetFocus</p>&l

73、t;p>　　cmdAdd.Enable = False</p><p>　　Exit_ Command14_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command14_Click:</p><p>　　MsgBox Err.Description</p&

74、gt;<p>　　Resume Exit_Command14_Click</p><p><b>　　End Sub</b></p><p><b>　　5.2保存日志功能</b></p><p>　　Private Sub Command16_Click()</p><p>　　&#

75、39;*****************</p><p>　　'將操作記錄到日志中</p><p>　　Dim curdb As Database</p><p>　　Set curdb = CurrentDb</p><p>　　curdb.Execute "insert into Howdo(操作員，操作內(nèi)容，操作時(shí)間)

76、 value ('管理員','設(shè)備采購(gòu)','" & CStr(Date) & " " & CStr(Time) & "')"</p><p>　　cmdAdd.Enabled = True</p><p>　　cmdAdd.SetFocus</p>

77、<p>　　cmdMod.Enab</p><p><b>　　5.3查找記錄功能</b></p><p>　　Private Sub Command17_Click()</p><p>　　'**************</p><p><b>　　'查詢功能</b>&

78、lt;/p><p>　　'***************</p><p>　　On Error GoTo Err_Command17_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p>　　DoCmd.DoMenuItem acFormBar, acEditMenu, 10, ,

79、 acMenuVer70</p><p>　　Exit_Command17_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command17_Click:</p><p>　　MsgBox Err.Description</p><p>　　Res

80、ume Exit_Command17_Click</p><p><b>　　End Sub</b></p><p><b>　　五．系統(tǒng)啟用</b></p><p>　　1.進(jìn)入倉(cāng)庫(kù)管理系統(tǒng)</p><p><b>　　界面如下：</b></p><p&g

81、t;　　2. 現(xiàn)在進(jìn)入設(shè)備入庫(kù)管理</p><p>　　只要點(diǎn)擊上邊欄的“設(shè)備入庫(kù)”就好。您會(huì)看到入庫(kù)登記入庫(kù)一覽表的界面：</p><p>　　在這里您只要點(diǎn)擊查找記錄按照提示按照相應(yīng)的格式輸入商品的信息，然后點(diǎn)擊確定系統(tǒng)就會(huì)自動(dòng)及時(shí)的保存入庫(kù)商品的信息。</p><p>　　3. 現(xiàn)在進(jìn)入設(shè)備出庫(kù)管理</p><p>　　只要點(diǎn)擊上邊欄的

82、“設(shè)備出庫(kù)”就好。您會(huì)看到出庫(kù)登記一覽表的界面：</p><p>　　請(qǐng)你把要出庫(kù)的商品的信息鍵入系統(tǒng)就會(huì)自動(dòng)的從系統(tǒng)中刪除相應(yīng)的商品信息，保證商品信息的準(zhǔn)確性，注意這里鍵入的格式要確定，鍵入的信息要盡可能準(zhǔn)確從而保證刪除的商品就是出庫(kù)的。</p><p>　　4. 現(xiàn)在進(jìn)入設(shè)備出庫(kù)管理</p><p>　　只要點(diǎn)擊上邊欄的“設(shè)備還庫(kù)”就好。您會(huì)看到還庫(kù)登記入庫(kù)一

83、覽表的界面：</p><p>　　5. 現(xiàn)在進(jìn)入設(shè)備需求管理</p><p>　　只要點(diǎn)擊上邊欄的“設(shè)備需求”就好。您會(huì)看到需求登記一覽表的界面：</p><p>　　6. 現(xiàn)在進(jìn)入設(shè)備采購(gòu)管理</p><p>　　只要點(diǎn)擊上邊欄的“設(shè)備采購(gòu)”就好。您會(huì)看到采購(gòu)登記一覽表的界面：</p><p>　　7. 現(xiàn)在進(jìn)入報(bào)表

84、顯示</p><p>　　只要點(diǎn)擊上邊欄的“報(bào)表顯示”就好。您會(huì)看到報(bào)表一覽表的界面：</p><p>　　點(diǎn)擊“設(shè)備清單”前面的復(fù)選框，如下所示：</p><p>　　然后就點(diǎn)擊“顯示”，就出現(xiàn)如下圖片：</p><p><b>　　六．存在的問題：</b></p><p><b>　

85、　1.代碼錯(cuò)誤</b></p><p>　　將書本上設(shè)備入庫(kù)窗體設(shè)計(jì)的修改庫(kù)存代碼中</p><p>　　Private Sub Command16_Click()</p><p>　　'*************</p><p>　　Dim As Database</p><p>　　Dim cu

86、rRS As Recordset</p><p>　　Dim deviceCnt As Integer</p><p>　　Set curdb = CurrentDb</p><p>　　Set curRS = curdb.OpenRecordset("selet*from devisce where 設(shè)備號(hào)='" & 設(shè)備號(hào).V

87、alue & "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'***************</p><p>　　'如果已經(jīng)存在該設(shè)備'就在庫(kù)存中修改相關(guān)記錄</p><p>　　'***************</p&g

88、t;<p>　　deviceCnt = curRS.Fields("現(xiàn)有庫(kù)存")</p><p>　　deviceCnt = deviceCnt + CInt(入庫(kù)數(shù)量.Value)</p><p>　　curdb.Execute "update device set 現(xiàn)有庫(kù)存=" & deviceCnt & "

89、; ,總數(shù)=" &_curRS.Fields("_總數(shù)").Value + CInt(入庫(kù)數(shù)量.Value) & "where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & " ' "</p><p><b>　　Else</b></p><p>　　&#

90、39;**************</p><p>　　'如果數(shù)據(jù)庫(kù)里沒有相關(guān)設(shè)備'就在庫(kù)存里添加一條新紀(jì)錄</p><p>　　'***************************</p><p>　　With curRS</p><p><b>　　.AddNew</b></p>

91、;<p>　　.Fields("設(shè)備號(hào)") = 設(shè)備號(hào).Value</p><p>　　.Fields("現(xiàn)有庫(kù)存") = CInt(入庫(kù)數(shù)量.Value)</p><p>　　.Fields("最大庫(kù)存") = CInt(入庫(kù)數(shù)量.Value) + 10</p><p>　　.Fields(

92、"最小有庫(kù)存") = CInt(入庫(kù)數(shù)量.Value) - 10</p><p>　　.Fields("總數(shù)") = CInt(入庫(kù)數(shù)量.Value)</p><p><b>　　.Update</b></p><p><b>　　End With</b></p>&l

93、t;p><b>　　End If</b></p><p>　　curdb.Execute "insert into Howdo(操作員，操作內(nèi)容，操作時(shí)間) values ('管理員','設(shè)備入庫(kù)'," & CDate(入庫(kù)時(shí)間.Value) & ")"</p><p>　　

94、'********************</p><p>　　'將操作記錄到日志中</p><p>　　'*********</p><p>　　cmdAdd.Enabled =True</p><p>　　cmdAdd.SetFocus</p><p>　　cmdMod.Enabled =

95、False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command16_click()</p><p><b>　　End Sub</b></p><p><b>　　改為：</b></p><p>

96、;　　curdb.Execute "update device set 現(xiàn)有庫(kù)存=" & deviceCnt & " ,總數(shù)=" & curRS.Fields("_總數(shù)").Value + CInt(入庫(kù)數(shù)量.Value) & "where 設(shè)備號(hào)='" & 設(shè)備號(hào).Value & " 

97、9; "</p><p>　　2.Acess版本問題</p><p>　　由于我的電腦裝的是Access 2010,與Access 2003存在一定的差異，所以有些功能不一樣，在設(shè)計(jì)過程中存在一些問題。并且有些報(bào)表以及切換面板顯示結(jié)果和Access 2003不一樣。</p><p><b>　　七．課程設(shè)計(jì)總結(jié)</b></p&g

98、t;<p>　　因?yàn)槭浅醮巫约簞?dòng)手，所以中間有很多的困難，總結(jié)一下:</p><p>　?。?）剛開始的時(shí)候總是覺得不順手，做的時(shí)候也比較慢，要參照書本一步一步來，生怕出現(xiàn)什么錯(cuò)誤，而且有些時(shí)候都不知道書上到底講的是什么，所以我就先把書本上的內(nèi)容看了一遍，覺得自己看得差不多熟悉了就繼續(xù)開始做，但是發(fā)現(xiàn)理論和實(shí)踐相差還是很大的，我每次做的時(shí)候都要找很久，很多東西都不熟練。</p><

99、;p>　　（2）因?yàn)榘姹镜膯栴}我也走了很多彎路，我電腦使用的是Access 2010,它的整個(gè)版面以及功能和Access 2003不一樣，所以在按照書本上的步驟一步步走的時(shí)候總是存在一些問題。</p><p>　?。?）在編寫代碼的過程中，總是出現(xiàn)一些問題，特別是長(zhǎng)時(shí)間對(duì)著電腦和代碼，覺得自己滿眼都是代碼，這樣結(jié)果往往就是代碼輸錯(cuò)，要不就是拼寫錯(cuò)誤，像 “TRUE”老是被我拼成“TURE”，剛開始沒發(fā)現(xiàn)，

100、后來才發(fā)現(xiàn)錯(cuò)了，它顯示的不是藍(lán)色。</p><p>　　整個(gè)實(shí)驗(yàn)結(jié)束的心得：在整個(gè)實(shí)習(xí)過程完畢后，自己有一種十足的成就感，沒想到經(jīng)過這么多的困難，我可以開發(fā)出一個(gè)基本完備的系統(tǒng)，同時(shí)也對(duì)這門課產(chǎn)生了更加濃厚的興趣。</p><p>　　通過此次信息系統(tǒng)設(shè)計(jì)我受益匪淺：</p><p>　　（1）掌握了功能結(jié)構(gòu)圖的繪制，之后的上機(jī)實(shí)驗(yàn)的系統(tǒng)實(shí)施使我學(xué)會(huì)用一種開發(fā)工具去

101、開發(fā)系統(tǒng)的流程。</p><p>　?。?）此次系統(tǒng)系統(tǒng)實(shí)施利用的是Access開發(fā)工具，雖然之前沒有學(xué)過，但是還是可以看出Access的開發(fā)功能還不是很強(qiáng)，界面的設(shè)計(jì)不夠具體全面。</p><p>　?。?）由于時(shí)間緊湊，系統(tǒng)做的較為簡(jiǎn)陋，但能基本滿足系統(tǒng)目標(biāo)與要求。此次系統(tǒng)設(shè)計(jì)的主要訓(xùn)練目的基本達(dá)到，并且通過這次的信息管理系統(tǒng)的設(shè)計(jì)開發(fā)，讓我對(duì)課本上的理論有了更深層次的理解，我認(rèn)識(shí)到管

102、理信息系統(tǒng)的實(shí)用性非常強(qiáng)，可以增強(qiáng)企業(yè)的管理功能，提高管理效率，增加其管理手段，為企業(yè)合理利用資源、節(jié)約資源、降低成本、提高效益發(fā)揮作用。在系統(tǒng)設(shè)計(jì)中主要掌握了信息系統(tǒng)設(shè)計(jì)的主要步驟和各階段文檔的編寫，加深了對(duì)信息系統(tǒng)設(shè)計(jì)應(yīng)用軟件開發(fā)的理解，提升了解決實(shí)際問題的能力。</p><p>　　（4）通過本次系統(tǒng)的設(shè)計(jì)，一方面我覺得管理信息系統(tǒng)是一門實(shí)用性很強(qiáng)的課程，學(xué)好它對(duì)我們今后的學(xué)習(xí)工作非常有利；另一方面我覺得自