管理信息系統(tǒng)課程設(shè)計--倉庫管理系統(tǒng)的設(shè)計和實現(xiàn)

1、<p>　　管理信息系統(tǒng)課程設(shè)計報告—倉庫管理系統(tǒng)</p><p><b>　　學院： </b></p><p><b>　　班級： </b></p><p><b>　　姓名： </b></p><p><b>　　學號：</b></p&

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

17、t;/p><p>　　2.7實體與實體之間的關(guān)系</p><p><b>　　四．編寫代碼</b></p><p><b>　　1.設(shè)備入庫</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修改庫存功能</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è)備號='" & 設(shè)備號.Value

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

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

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

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

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

27、;最小有庫存") = CInt(入庫數(shù)量.Value) - 10</p><p>　　.Fields("總數(shù)") = CInt(入庫數(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)容，操作時間) values ('管理員','設(shè)備入庫'," & CDate(入庫時間.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è)備出庫</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修改庫存功能</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è)備號='" & 設(shè)備號.Value & "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'***

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

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

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

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

42、;　　'如果書庫里沒有相關(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>　　'將當前時間插入到文本框中</p><p>　　'**************</p><p>　　出庫時間.SetFocus</p><p>　　出庫時間.Text = CStr(Date) & " " & CStr(Time)</p><p><b>

48、;　　End Sub</b></p><p><b>　　3.設(shè)備還庫</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修改庫存功能</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è)備號='" & 設(shè)備號.Value & "'")</p><p>　　If Not curRS.EOF Then</p><p>　　'*********************</p><p>　　'如果已經(jīng)存在該設(shè)備，就在庫存中修改相關(guān)記錄<

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

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

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

57、t;/b></p><p>　　'*********************</p><p>　　'如果數(shù)據(jù)庫里沒有相關(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)容，操作時間) 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è)備采購</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)容，操作時間)

76、 value ('管理員','設(shè)備采購','" & 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.進入倉庫管理系統(tǒng)</p><p><b>　　界面如下：</b></p><p&g

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

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

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

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

85、　1.代碼錯誤</b></p><p>　　將書本上設(shè)備入庫窗體設(shè)計的修改庫存代碼中</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è)備號='" & 設(shè)備號.V

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

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

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

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

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

92、"最小有庫存") = CInt(入庫數(shù)量.Value) - 10</p><p>　　.Fields("總數(shù)") = CInt(入庫數(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)容，操作時間) values ('管理員','設(shè)備入庫'," & CDate(入庫時間.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)有庫存=" & deviceCnt & " ,總數(shù)=" & curRS.Fields("_總數(shù)").Value + CInt(入庫數(shù)量.Value) & "where 設(shè)備號='" & 設(shè)備號.Value & " 

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

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

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

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

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

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