【正文】
構(gòu)方案,完成相應(yīng)的需求分析報告。 本庫存管理系統(tǒng)就采用了當(dāng)前最流行的客戶機(jī)/服務(wù)器應(yīng)用程序結(jié)構(gòu)(即C/S結(jié)構(gòu)),此時,客戶機(jī)提出請求,服務(wù)器對客戶機(jī)的請求作出回應(yīng)。并使應(yīng)用程序的處理更接近用戶,使整個系統(tǒng)具有較好的性能,可以并行地處理應(yīng)用程序的請求、減少了數(shù)據(jù)傳輸量、降低了服務(wù)器的負(fù)荷。 通過分析確定庫存系統(tǒng)將包含6個主要功能模塊,即系統(tǒng)模塊、入庫業(yè)務(wù)管理模塊、出庫業(yè)務(wù)管理模塊、退料業(yè)務(wù)管理模塊(還庫業(yè)務(wù)管理模塊)、盤點業(yè)務(wù)管理模塊(報表輸出)、需求管理模塊。進(jìn)貨時經(jīng)檢查合同確認(rèn)為有效托收后,進(jìn)行驗收入庫,填寫入庫單,進(jìn)行入庫登記。根據(jù)需要按照月、季、年進(jìn)行統(tǒng)計分析,產(chǎn)生相應(yīng)報表。 在本系統(tǒng)的設(shè)計過程中,為了克服這些困難,滿足計算機(jī)管理的需要,我們采取了下面的一些原則: l 統(tǒng)一各種原始單據(jù)的格式,統(tǒng)一帳目和報表的格式。l 建立操作日志,系統(tǒng)自動記錄所進(jìn)行的各種操作。l 設(shè)備采購報表的生成。 系統(tǒng)功能模塊設(shè)計 在系統(tǒng)功能分析的基礎(chǔ)上,考慮VB和Access的特點。 c. 管理員或其他用戶可以修改自己的密碼。包括的數(shù)據(jù)項有設(shè)備號、設(shè)備名稱。包括的數(shù)據(jù)項有使用的設(shè)備、使用部門。包括的數(shù)據(jù)項有采購的設(shè)備、采購員、供應(yīng)商、采購數(shù)目、采購時間等。包括的數(shù)據(jù)項有需求的部門、需求設(shè)備、需求數(shù)目、需求時間等。各個實體的ER圖及其關(guān)系描述如下: 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 在上面的實體以及實體之間關(guān)系的基礎(chǔ)上,形成各個表格之間的關(guān)系。 B類物品:中值──總值占庫存總值的1520%。系統(tǒng)根據(jù)用戶身份不同賦予不同權(quán)限,用戶用密碼登陸,同樣也保證了系統(tǒng)數(shù)據(jù)的安全性。 VB功能特點 具有面向?qū)ο蟮目梢暬O(shè)計工具l 在VB中,應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP),把程序和數(shù)據(jù)封裝起來視為一 個對象,每個對象都是可視的。在圖形用戶界面的應(yīng)用程序中,是由用戶的動作即事件掌握著程序運行的流向,每個事件都能驅(qū)動一段程序的運行。 強(qiáng)大的數(shù)值和字符串處理功能 豐富的圖形指令,可方便地繪制各種圖形216。 提供了一個可供應(yīng)用程序調(diào)用的包含多種類型的圖標(biāo)庫216。VB幫助窗口中顯示了有關(guān)的示例代碼,通過復(fù)制、粘貼操作可獲取大量的示例代碼,為用戶的學(xué)習(xí)和使用提供了極大的方便。因此是“事件”驅(qū)動的。對象簡單地說就是大家經(jīng)常看到的各種窗口、按鈕、文本框甚至打印機(jī)等。 方法:就是對象能夠做的事,如打印機(jī)對象就有打?。≒rint)方法、窗口對象支持隱藏(Hide)方法、很多對象支持移動(Move)方法等。Visual Basic中使用控件,簡化了Windows中的窗口、按鈕等對象的編程設(shè)計。例如,如果你不滿意Windows簡陋的媒體播放器,你就可以使用VB的多媒體控件在1小時以內(nèi)設(shè)計一個完全自己風(fēng)格的能夠播放CD、VCD的多媒體播放器,而功能完全與之相當(dāng)。Access還完全支持Microsoft的OLE技術(shù)。 表 用戶定義的存儲資料的對象。在Access中,可以利用圖形化的實例查詢機(jī)制(QBE)或通過SQL語句來建立查詢。窗體通過運行宏(macro)或Visual Basic for Applicatinns(VBA)過程,來響應(yīng)大量的事件。 宏 為了響應(yīng)已定義的事件,需要讓Access去執(zhí)行一個或多個操作,而宏就是對這些操作的結(jié)構(gòu)化的定義對象。模塊能直接響應(yīng)窗體或報表事件,也可以從應(yīng)用程序的任何地方被調(diào)用。 Set = Adodc1 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 密碼不一致??!, , 修改密碼 If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then (設(shè)備號) = (供應(yīng)商電話) = End If = select * from 現(xiàn)有庫存表 where 設(shè)備號=39。 J 請在設(shè)備代碼表和現(xiàn)有庫存表中手動添加記錄!! Call End SubPrivate Sub cmdDelete_Click( ) 刪除入庫表中記錄 If YesNo = vbYes Then If .EOF Then .MoveLast Else MsgBox End SubPrivate Sub cmdUpdate_Click( ) 更新紀(jì)錄程序 Exit SubUpdateErr: Dim i, J, k As Integer amp。 End If ElseIf = 0 Then Else (經(jīng)手人) = MsgBox 已經(jīng)成功存入設(shè)備出庫表庫! k = CInt() CInt() J = MsgBox 現(xiàn)有庫存量為: amp。 Else Else On Error GoTo DeleteErr .MoveNext主要程序 Private Sub cmdAdd_Click( ) 添加設(shè)備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(xiàn) 主要程序Private Sub Command1_Click() 顯示高于最大警戒庫存的設(shè)備 If 0 Then Else If 0 Then Else End subPrivate Sub Timer1_Timer() 自動報警程序 Beep vbCrLf amp。 = False End Sub MsgBox 有設(shè)備庫存低于警戒庫存! amp。 主界面如下: 參考文獻(xiàn): 1. 數(shù)據(jù)庫系統(tǒng)原理教程 王珊 陳紅 清華大學(xué)出版社 2. 管理信息系統(tǒng) 王虎 張俊 武漢理工大學(xué)出版社 3. Visual Basic 數(shù)據(jù)庫開發(fā) , , 著 清華大學(xué)出版社 4. PowerBuilder 何旭洪 余建英 人民郵電出版社 5. VB6從入門道精通 『美』Gary cornell 著 北京希望電子出版社 6. managing Information Systems David 清華大學(xué)出版社 7. Management Information Systems Raymond Mcleod,Jc George Sche