【正文】 同一個方法。對象是具有特殊屬性（數(shù)據(jù)）和行為方式（方法）的實體，是系統(tǒng)中的基本運行實體。 （ 2） 有了 ActiveX 技術(shù)就可使用其它應(yīng)用程序提供的功能，例如 Microsoft Word 字處理器、 Microsoft Excel 電子數(shù)據(jù)表及其他 Windows 應(yīng)用程序。 ② 經(jīng)濟可行性：本系統(tǒng)在實施后 ，應(yīng)能集中處理產(chǎn)品的進銷存業(yè)務(wù)及其應(yīng)收應(yīng)付項目，從而提高企業(yè)的管理水平，簡化期工作量，減少開支。 3. 設(shè)計階段 設(shè)計階段一般又可分兩步：概要設(shè)計（或稱為總體設(shè)計）和詳細設(shè)計，前者組要考慮模塊的分解，后者考慮每個模塊內(nèi)部的細節(jié)。 很適合大中小型企業(yè)、商場、商店等，尤其適合想擁有很多功能但又不想投資很大的用戶！ 167。 本 論 文 以 實現(xiàn) 產(chǎn)品進銷存 的計算機管理 為例， 講述了如何在Visual Basic環(huán)境下構(gòu)造管理信息系統(tǒng)。在此過程中，舊的企業(yè)管理模 式已不適應(yīng)新型的社會主義市場經(jīng)濟的要求。通過密碼登陸系統(tǒng)、用戶權(quán)限設(shè)置、 進貨單 、 客戶 、 入庫查詢 等系統(tǒng)的程序代碼，展現(xiàn)整個系統(tǒng)的各項功能模塊的具體實現(xiàn)。其次，從系統(tǒng)的需求分析、總體設(shè)計到系統(tǒng)的詳細設(shè)計介紹了產(chǎn)品進銷存管理系統(tǒng)的設(shè)計 全過程，并將產(chǎn)品進銷存管理管理系統(tǒng)中的各數(shù)據(jù)項及其關(guān)系進行了描述。 同時，我國的銷售行業(yè)的經(jīng)營形式正向著集團化、連鎖化發(fā)展。銷售業(yè)務(wù)是商業(yè)企業(yè)的核心業(yè)務(wù)，所以對于銷售業(yè)務(wù)管理也理所當然地成為商業(yè)企業(yè)實行計算機管理的重點。在本次畢業(yè)設(shè)計中我選擇編寫一個 “產(chǎn)品進銷存管理系統(tǒng) ”， 該 系統(tǒng)有全面的進貨、銷售、庫存管理等 功能 ，從而能夠為供貨商和客戶以及企業(yè)的各個部門之間架起及時溝通的橋梁，有效的提 高工作效率并合理的管理好各種數(shù)據(jù)記錄， 滿足了不斷增長的信息交換的需要 。 2. 需求分析和規(guī)格說明階段（簡稱需求分析階段） 理解用戶的要求。數(shù)據(jù)庫使用的是 Access，它不僅是一個數(shù)據(jù)庫，而且具有強大的數(shù)據(jù)管理功能，可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報表和應(yīng)用程序等。 Visual Basic 有如下特性： （ 1） 數(shù)據(jù)訪問特性允許對包括 Microsoft SQL Server和其他企業(yè)數(shù)據(jù)庫在內(nèi)的大部分數(shù)據(jù)庫格式建立數(shù)據(jù)庫和前段應(yīng)用程序，以及可調(diào)節(jié)的服務(wù)器端部分。 對 象：將數(shù)據(jù)和處理該數(shù)據(jù)的過程（函數(shù)和子程序）打 包在產(chǎn)品進銷存管理系統(tǒng) 13 一起而生成的新的數(shù)據(jù)類型稱之為對象。它的操作與過程、函數(shù)的操作相同，但方法是特定對象的一部分，正如屬性和 實踐示對象的一部分一樣。例 如：按鈕、列表框或編輯框等。數(shù)據(jù)庫中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織、描述和存儲，具有較小的冗余度、較高的數(shù)據(jù)獨立性和易擴展性，并可謂各種用戶共享。 Access2020 的 6種對象 Access 2020 數(shù)據(jù)庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。 宏 (Macro) —— 宏相當于 DOS 中的批處理，用來自動執(zhí)行一系列操作。 SQL 不但用于 IBM 的 DB2 ,SQL/400 ,QMF 等 DBMS產(chǎn)品中，而且也廣泛用于許多非 IBM 公司的 DBMS 產(chǎn)品中，例如Oracle ,Informix ,Sybase ,MS SQL Server 等。 數(shù)據(jù)庫設(shè)計 本系統(tǒng)采用了小型的 Access數(shù)據(jù)庫，數(shù)據(jù)庫名為 db1,包含以下 7個表：出貨單 chuhuodan、庫存表 cunhuozhang、供貨商gonghuoshang、進貨單 jinhuodan、客戶 kehu、登陸 login、權(quán)限產(chǎn)品進銷存管理系統(tǒng) 系統(tǒng)設(shè)置 用戶管理 初期建賬 數(shù)據(jù)備份 數(shù)據(jù)恢復 日常業(yè)務(wù) 進貨單 出貨單 基礎(chǔ)信息管理 客 戶 供貨商 查詢統(tǒng)計 入庫查詢 出庫查詢 庫存賬查詢 庫存信息 供貨商 進貨作業(yè) 進貨信息 入庫查詢 庫存帳查詢 出貨作業(yè) 出貨信息 出庫查詢 客 戶 產(chǎn)品進銷存管理系統(tǒng) 17 設(shè)置 quanxianshezhi。 表 表 login的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 用戶名 文本 25 密碼 文本 6 7. 權(quán)限設(shè)置 quanxianshezhi 權(quán)限設(shè)置 quanxianshezhi用來保存用戶的權(quán)限，結(jié)構(gòu)見表 所示。這里，用拷貝文件的原理來實現(xiàn)數(shù)據(jù)備份與數(shù)據(jù)恢復，所以在程序中用 到了 FileCopy語句。 首先要在數(shù)據(jù)庫 db1中建一個表 quanxianshezhi用來保存每個用戶的運行權(quán)限。 MSFlexGrid控件是一種 Active控件，該控件提供了表格式界面，處理數(shù)據(jù)相當靈活，具有只讀數(shù)據(jù)綁定、對表格數(shù)據(jù)進行顯示和操作、數(shù)據(jù)分組排序、 Data控件賦值、文本自動換行等功能。但是，再知道要執(zhí)行多少次時，則最好使用 For? Next循環(huán)。更新表 End If Next i : : For i = 1 To 100 For j = 1 To 6 (i, j) = Next j Next i 167。 產(chǎn)品進銷存管理系統(tǒng) 24 第五 章 模塊設(shè)計 167。公共函數(shù) If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If Then = 0 產(chǎn)品進銷存管理系統(tǒng) 26 = Len() End If If 11 = + 1 Then = 1 If = 0 Then = 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End Sub Public Sub movereturn() 39。調(diào)入供貨商 Load gonghuoshang = False 產(chǎn)品進銷存管理系統(tǒng) 28 End Sub Private Sub 進貨單 _Click() 39。調(diào)入添加用戶 產(chǎn)品進銷存管理系統(tǒng) 29 Load tianjiayonghu = False End Sub Private Sub 退出 _Click() End End Sub Private Sub 修改用戶 _Click() 39。 圖 系統(tǒng)登陸界面 產(chǎn)品進銷存管理系統(tǒng) 30 2. 程序代碼 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = True End If If KeyCode = vbKeyUp Then End Sub Private Sub Command1_Click() (4).Text = 39。 39。 添加用戶界面如圖 。 amp。 修改用戶界面如圖 。 amp。 amp。 圖 刪除用戶界面 2. 程序代碼 Dim As New Dim rs As New Dim rs1 As New Private Sub Form_Load() = amp。 If Trim() = Then MsgBox 請輸入用戶名稱 , vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。, , adOpenDynamic, adLockOptimistic 39。, , adOpenStatic, adLockOptimistic If = True Then MsgBox 這個用戶不存在 ,請重新輸入用戶名 , vbOKOnly + vbExclamation, 警告 產(chǎn)品進銷存管理系統(tǒng) 41 = = = Else If = Then MsgBox 密碼不能為空 , vbOKOnly + vbExclamation, 警告 = Else If (1) Then MsgBox 密碼不正確 ,請重新輸入 !, vbOKOnly + vbExclamation, 警告 = = Else If = Then MsgBox 請確認密碼 , vbOKOnly + vbExclamation, 警告 = Else If Then MsgBox 兩次輸入密碼不一致 ,請重新輸入密碼 , vbOKOnly + vbExclamation, 警告 = = Else select * from login where 用戶名 =39。 \ = select * from quanxianshezhi where 用 戶 名 =39。 刪除用戶模塊設(shè)計 1. 實現(xiàn)目標 程序啟動后，選擇“系統(tǒng)設(shè)置”菜單下的“用戶管理”下的“刪除用戶”項，將進入刪除用戶模塊。 amp。Data Source= amp。更新權(quán)限設(shè)置的記錄 MsgBox 添加成功 , vbOKOnly + vbExclamation, 添加結(jié)果 = True Unload Me End If End If End If End If End If End Sub Private Sub Command2_Click() = = = End Sub Private Sub Command3_Click() = True Unload Me End Sub 167。保存用戶及密碼 Set = New Set rs = New Set rs1 = New Provider=。輸入三次錯誤密碼，退出系統(tǒng) If MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, vbCritical + vbExclamation, 警告 ) = vbOK Then End End If Exit Sub Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub 167。 \ If Trim( = ) Then 39。該模塊主要實現(xiàn)如下功能： ① 用戶和密碼驗證成功后，進入主界面。調(diào)入入庫查詢 Load rukuchaxun = False End Sub Private Sub 刪除用戶 _Click() 39。設(shè)置操作員權(quán)限 With If .BOF = False Then .MoveFirst 產(chǎn)品進銷存管理系統(tǒng) 27 .FindFirst 用戶名 like + Chr(3