【正文】 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 39。 CStr((ID)) 39。 CStr(Date) amp。 = True End If End Sub Private Sub Command2_Click() (2).Controls(Label1).Caption = 出庫單據(jù) (2).Controls(Label2).Caption = CStr() (2).Controls(Label3).Caption = 數(shù)量： amp。 經手人： amp。 vbCrLf _ amp。 vbCrLf _ amp。 vbCrLf _ amp。 第六章 系統(tǒng)程序設計及實現(xiàn) 50 Exit Sub End If If = Then MsgBox 請選擇出庫材料名稱！ Exit Sub End If If = Then MsgBox 請選擇經手人！ Exit Sub End If Dim a As Integer a = MsgBox(********你確定此操作嗎？ ********** amp。 職務： amp。 amp。 電話： amp。 地址： amp。 amp。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub = False End If = (數(shù)量 ) = (單位 ) = False Dim MyStr As String MyStr = CStr() amp。 = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = 通用庫存管理 = MyStr End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As 西電科大自考畢業(yè)論文 47 Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub Timer1_Timer() 名稱 =39。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = SQL = True = 2021 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2021 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2021 西電科大自考畢業(yè)論文 45 End Sub Private Sub Form_Load() MakeWindow Me 39。 amp。 CStr(Time) amp。 CStr() (2).Controls(Label6).Caption = 經手人： amp。************************ ( 數(shù)量 ) = Val() + Val() MsgBox 入庫成功！ 39。 vbCrLf _ amp。 元 amp。 amp。 amp。 材料名稱： amp。 , 0, 提示 Unload Me End If End Select End Sub ③ 產品入庫設計的好壞相當重要，是產品入庫信息管理好壞的保障。39。取消 On Error GoTo CanceErr = True (1).Visible = True (2).Visible = True (4).Visible = True (5).Visible = False (6).Visible = False (7).Visible = True CanceErr: If = 3021 Then MsgBox 沒有記錄！ 錯誤： amp。 Err amp。 ， amp。39。39。 系統(tǒng)主要功能的具體設計 庫存管理系統(tǒng)共有 1個界面， 5 個窗體，包括 5個主菜單。 Connect ： Set Connect=New 使用 Connection 對象的 Open 方法連接到指定的數(shù)據(jù)庫。 Record set 對象將一個查詢字符串傳遞給由 Connection 對象指定的數(shù)據(jù)庫，該數(shù)據(jù)庫執(zhí)行此查詢，然后將查詢結果返回給 Record set 對象。在“引用”選項卡中向下滾動列表項，找到“ Microsoft ActiveX Data Objects Library” 列表項 ,單擊該列表項左邊的復選框。 ADO 是基于 OLEDB 之上的技術，因此 ADO 通過其內部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 名稱：入庫材料的名稱 供應商：材料的供應商 第五章 數(shù)據(jù)庫設計 30 數(shù)量： 材料數(shù)量 單價： 材料單價 經手： 經手人姓名 日期：入庫日 期 時間：入庫時間 表 56 入庫信息表 中文字段名 數(shù)據(jù)類型 寬度 是否為空 說明 名稱 text 50 no 供應商 text 50 no 數(shù)量 int no 單價 貨幣 no 經手 text 50 no 日期 date no 時間 date no (7)出庫信息表 表名出庫表，用于記載材料出庫有關的信息 如表57所示。 分類：按材料的性質進行分類 表 54 材料分類表 中文字段名 數(shù)據(jù)類型 寬度 是否為空 說明 分類 text 50 no (5)庫存材料表，表名庫存材料表用于記錄庫存材料的 相關信息。 第五章 數(shù)據(jù)庫設計 28 表 52 客戶信息表 字段名 數(shù)據(jù)類型 寬度 是否為空 說明 名稱 text 50 no 電話 text 50 no 地址 text 50 no 聯(lián)系人 text 50 no 產品 text 50 no 單位 text 50 no 數(shù)量 text 50 no 備注 text 50 no (3)供應商信息表，表名為供應商表，用于與供應商有關的各種信息。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。 庫存材料基本信息，包括的數(shù)據(jù)項有：名稱、分類、單位、數(shù)量等。 第五章 數(shù)據(jù)庫設計 26 圖 51 公司庫存管理系統(tǒng)數(shù)據(jù)流程圖 針對一般公司庫存管理系統(tǒng)的需求， 通過對產品操作過程的內容和數(shù)據(jù)流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構： 員工基本信息，包括的數(shù)據(jù)項有：姓名、職務、電話、密碼等。 設計數(shù)據(jù)庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。 第五章 數(shù)據(jù)庫設計 24 第五章 數(shù)據(jù)庫設計 數(shù)據(jù)庫系統(tǒng)設計概述 數(shù)據(jù)庫系統(tǒng)是在文件系統(tǒng)的基礎上發(fā)展而來的，經歷了層次數(shù)據(jù)庫、網狀數(shù)據(jù)庫、關系數(shù)據(jù)庫三個階段。 ⑸ 報表輸出管理模塊 報表輸出管理模塊 的功能結構圖 如圖 46所示： 第四章 公司 庫存管理系統(tǒng)功能模塊設計 23 圖 46報表輸出管理模塊 報表輸出管理模塊 中各子模塊的說明如下： ① 日入庫產品信息檢索模塊 日入庫產品信息檢索主要功能是從入庫信息表中查詢某一天的產品入庫信息。 ②入庫產品信息打印模塊 本模塊的主要功能是在入庫產品信息添加完成以后，利用打印報表管理器把當次入庫產品信息打印出來。 ⑤ 材料管理模塊 這一模塊是對各種材料進行分類編號，按不同的產品編號對產品進行增加、修改、和刪除等操。在員工管理模塊中，對員工信息（包括員工姓名、職務、電話和密碼）進行增加、修改、和刪除等操。 ⑵ 項目設置管理模塊 這一模塊的主要功能是完成員工管理、客戶管理、供應管理、材料分類和材料管理。用戶可對系統(tǒng)的 系統(tǒng)管理 模塊、 項目設置管理模塊、入庫操作管理 模塊、出庫操作管理模塊、報表輸出管理模塊 進行操作。 第四章 公司 庫存管理系統(tǒng)功能模塊設計 17 第四章 公司庫存管理系統(tǒng)功能模塊設計 設計目標 ⑴ 實用性強：符合實際操作流程的習慣，易學易用的友好的用戶界面，適合各層次工作人員的使用需求，實現(xiàn)計算機與多年積累起來的經驗相結合科學化管理； ⑵ 先進的程序結構：使用當代前衛(wèi)的軟件編程，能延長其生命周期，易于維護與管理； ⑶ 安全可靠性高：登錄密碼口令，實現(xiàn)系統(tǒng)的可靠性； ⑷ 使用模塊化設計的方法：使系統(tǒng)具有良好的可擴充性，以適應其不同階段的發(fā)展需要； ⑸ 操作簡單，維護方便：每個系統(tǒng)都具有系統(tǒng)維護功能，對可變化的項目可自行維護； ⑹ 查詢功能強大：可以對文件按日期、部門、文件名和文件的編號等方式查詢，使管理人員能及時準確地掌握騰達公司庫存的基本情況。 結構化方法又可以分為自頂向下和自底向上 開發(fā)方法。 ③ 強調面向用戶的觀點。結構化方法的基本思路就是把整個系統(tǒng)開發(fā)過程分為若干階段，每個階段進行若干活動，每項活動應用一系列標準、規(guī)范、方法和技術，完成一個或多個任務，形成符合給定規(guī)范的產品。 ③ 可擴展性和 可維護性：系統(tǒng)具有良好的可擴展性和可維護性。對于局域網、 WINDOWS 等環(huán)境下的軟件使用比較熟悉，對于新系統(tǒng)的開發(fā)，用戶表現(xiàn)出極大的興趣和熱情，提出了 各種很好的建議和要求。 ② 經濟可行性分析 公司有多臺計算機和打印機，各臺微機已通過局域網互聯(lián)，因此新系統(tǒng)使用后，不需 要購置新的硬件，硬件的升級費用也是非常低，系統(tǒng)完成后，一些報表可由系統(tǒng)自動處理，不再需要人工干預，提高公司管理的規(guī)范化、系統(tǒng)化、制度化、減輕了管理人員的工作量。 第三章 公司庫存管理系統(tǒng)分析與設計 14 這些方法旨在指導開發(fā)者進行工程化的系統(tǒng)開發(fā)，從而加快MIS 開發(fā)的速度，保證質量，以降低開發(fā)成本。因此，所有的組織都需要能夠幫助他們做出最佳的決策支持系統(tǒng)。要努力發(fā)揮其高速度、高精度、高密度的優(yōu)點，也要避免其缺乏靈活性，不便于處理意外情況的缺點。同時，還表現(xiàn)在各部分接口是否完備，數(shù)據(jù)采集和存儲格式是否統(tǒng)一，各部分是否協(xié)調一致。之所以開發(fā) 新系統(tǒng)是因為舊系統(tǒng)存在問題，束縛著組織的發(fā)展，不能適應用戶的需求。用戶特別關心能否有效地使 用軟件來解決問題，用戶對軟件功能的理解都在界面上表現(xiàn)出來。應有入庫信息的輸入窗口，出庫信息輸入窗口，產品相關信息設置的輸入窗口。 ② 系統(tǒng)中信息處理情況，包括現(xiàn)有系統(tǒng)的組織機構、工作方式、工作效率、可靠性、人員素質和技術手段。 第三章 公司庫存管理系統(tǒng)分析與設計 12 第三章 公司庫存管理系統(tǒng)分析與設計 系統(tǒng)分析 系統(tǒng)分析的根本目的是，分析出合理的信息流動、處理存儲的過程。 宏 (Macro) 相當于 DOS 中的批處理，用來自動執(zhí)行一系列操作。 窗體 (Form) 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。 Access 數(shù)據(jù)庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。 “ 產品 ” 表由 10 個記錄組成，一條 記錄占一行，每一個記錄由產品 ID、產品名稱、庫存量、訂貨量、單