【正文】 ,《企業(yè)管理信息系統(tǒng)開發(fā)的理論與方法》，清華大學出版社，[5] 汪遠征，劉瑞新Visual Basic ，上?？茖W技術(shù)出版社, [6] 郭勝，夏邦貴Visual Basic 數(shù)據(jù)庫開開發(fā)入門與范例解析，機械工業(yè)出版社，49 / 49。經(jīng)過這次畢業(yè)設計，引發(fā)了我的很多思考和興趣，首先是做程序要勤，手勤，眼勤，心勤；其次要有韌性，不怕麻煩，不怕失敗，反復調(diào)試，反復練習，這樣才能找到最佳的程序設計。最重要的就是我們學的是SQL,但是做系統(tǒng)是還要用到VB的知識，聽老師講了一下，回頭自己還借了本這方方面的書研究了半天，上網(wǎng)查了很多相關(guān)的資料才弄好。當然，在做這個系統(tǒng)時也遇到了很多問題，做需求分析時，就發(fā)動了好多人脈，問了好幾個從事與之相關(guān)工作的同學，自己也上網(wǎng)查了很多相關(guān)的資料。我們要在以后的實踐中去檢驗它的可用性，特別要考慮它的實時性和安全性，這才是我們最值得考慮的問題。在以后實際作用過程中很有很多地方需改進。（3）系統(tǒng)只是提供了一個簡單的功能，與現(xiàn)代化的公司倉庫定理還有不小的差距。 需要進一步改進的地方（1）系統(tǒng)只提供了鍵盤和鼠標的輸入，沒有提供條碼掃描的輸入。（5）較少的鍵盤輸入，大多數(shù)功能可只用鼠標來完成操作。（3）具有很好的防呆功能。同時此報表還可以輸出成各種格式，以方便用戶使用。 End With cmdMove(0).Value=True End SelectEnd SubPrivate Sub cmdExitClick() Unload Me ‘關(guān)閉操作日志窗體End Sub設計思路和要點：盤點報表可以根據(jù)盤點的需要，按物料編碼或按倉位生成。界面如圖415所示： 圖415 操作日志界面其對應的代碼如下：Private Sub CodSelect_Click() With = select * from 系統(tǒng)日志信息 where 操作員=39。通過此功能，可能追溯系統(tǒng)數(shù)據(jù)的整個變化過程。 = (物料代碼) End With cmdMove(0).Value=True End SubPrivate Sub cmdExitClick() Unload Me ‘關(guān)閉查詢窗體End Sub設計思路與要點：對系統(tǒng)的每一次操作能應及時地記錄下來，以便日后查詢。界面如圖414所示： 圖414 查詢界面其對應的代碼如下：Private Sub CodSelect_Click() With = select * from 倉庫基本信息 where 倉位=39。物料信息包含三部分，一為基本信息，二為訂單信息，三為生產(chǎn)計劃信息。界面如圖413所示： 圖413 盤點界面此模塊的主要功能是查詢及報表。界面如圖412所示： 圖412 借出操作界面 其對應的代碼如下：Private Sub cmdAddClick() If =“借出” Then=“查詢”= False=TrueisStorking= True= False=0 ‘設置借出數(shù)據(jù)默認的產(chǎn)品名稱和編號=0Else = True=“借出”= True= FalseisStorking= False= TrueEed IfEnd Sub點擊關(guān)閉時，退出借出窗體Private Sub cmdExitClick() Unload Me ‘關(guān)閉借出窗體End Sub 盤點模塊設計思路和要點：每次盤點后，需根據(jù)盤點結(jié)果進行某些物料的調(diào)整。借出時需選擇所退物料的料號及數(shù)量。為了核算成本，增料需根據(jù)生產(chǎn)計劃號來進行增料操作，這樣就可以清楚列出每次生產(chǎn)的損耗。按工單的話，則選擇工單號即生產(chǎn)計劃號，系統(tǒng)自動將此工單的所有料發(fā)至生產(chǎn)線。另一種是按物料，即根據(jù)生產(chǎn)狀況，一個一個將物料發(fā)至生產(chǎn)線。生產(chǎn)計劃用工單來區(qū)分。沒有生產(chǎn)計劃則不能發(fā)料。倉庫人員沒有權(quán)限產(chǎn)生訂單。選擇訂單號碼后，相關(guān)的訂單信息已會顯示出來。這樣可以大大減少因人為因素產(chǎn)生的錯誤。沒有訂單就不能完成收料。已基本包括了倉庫管理的主要功能。如圖47所示： 圖47 退出系統(tǒng)界面其對應的代碼如下：Private Sub cmdExitClick() Unload Me ‘關(guān)閉倉庫管理窗體End Sub倉庫管理模塊是本系統(tǒng)的核心模塊?！暗挠脩魯?shù)據(jù)，是否繼續(xù)？”，vbCritical+vbYesNo,“系統(tǒng)用戶管理”)=vbYes Then. Delete：.MoveNext 0 Then. MoveLastEed If Eed If Eed IfEed WithEnd Sub單擊關(guān)閉時，實現(xiàn)關(guān)閉窗體操作Private Sub cmdExitClick()Unload Me ‘關(guān)閉系統(tǒng)用戶管理窗體End Sub 退出功能退出即退出本系統(tǒng)。 isAdding=True = False cmdDelete. Enabled= False：picNavingation. Enabled= FalseEnd Sub實現(xiàn)刪除操作，單擊刪除時，Private Sub cmdDeleteClick() With If Then If MsgBox(“將刪除用戶名為”amp。 amp?！?”amp。界面如圖46所示： 圖46 用戶管理界面其對應的代碼如下： 定義窗體級變量，用于表示當前是否處于添加記錄狀態(tài)Dim isAdding As Boolean實現(xiàn)記錄導航Private Sub cmdMoveClick(Index As Integer) With Case 0 ‘使第一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveFirst Case 1 ‘使上一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MovePrevious Then .MoveFirst End If Case 2 ‘使下一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveNext If . BOF Then .MoveLast End If Case 3 ‘使最后一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveLastEnd SelectIf And . BOF Then txtNews=“記錄：無”ElsetxtNews=“記錄：”amp。此功能只有管理員和超級用戶才能使用?！? .Fields(“密碼”)=Trim(txtNewPWD(0)) .Update End With MsgBox “密碼已修改End Sub單擊取消，關(guān)閉倉庫管理窗體Private Sub cmdExitClick() Unload Me ‘關(guān)閉密碼修改窗體End Sub 用戶管理功能設計思路和要點：用戶管理是對使用此系統(tǒng)的所有用戶進行管理。界面如圖45所示： 圖45 修改密碼界面其對應的代碼如下：Private Sub FromLoud() TxtOldPWD=CurrentUserPassw