【正文】 。具體的功能包括系統(tǒng)設(shè)置、日常業(yè)務(wù)、基礎(chǔ)信息管理、查詢統(tǒng)計(jì)四大模塊。 技術(shù)背景 編程語言： visual basic 數(shù)據(jù)庫： access 2020 查詢工具：結(jié)構(gòu)化查詢語言 SQL 介紹： Visual Basic 是微軟公司推出的一種可視化編程工具，是當(dāng)今世界上應(yīng)用最廣泛的編程語言之一，也被公認(rèn)為是編程效率最高的一種編程方法。 Visual Basic 有如下特性： （ 1） 數(shù)據(jù)訪問特性允許對(duì)包括 Microsoft SQL Server和其他企業(yè)數(shù)據(jù)庫在內(nèi)的大部分?jǐn)?shù)據(jù)庫格式建立數(shù)據(jù)庫和前段應(yīng)用程序，以及可調(diào)節(jié)的服務(wù)器端部分。甚至可直接使用 VBP 和 VBE 創(chuàng)建的應(yīng)用程序和對(duì)象。 （ 4） 已完成的應(yīng)用程序是使用 Visual Basic 虛擬機(jī)的真正 .exe 文件，可以自由發(fā)布。 運(yùn)行時(shí)：運(yùn)行時(shí)是指在應(yīng)用程序運(yùn)行期間，用戶與應(yīng)用程序進(jìn)行交互的時(shí)間。 對(duì) 象：將數(shù)據(jù)和處理該數(shù)據(jù)的過程（函數(shù)和子程序）打 包在產(chǎn)品進(jìn)銷存管理系統(tǒng) 13 一起而生成的新的數(shù)據(jù)類型稱之為對(duì)象。在 Visual Basic 中，所有窗體和控件都是對(duì)象。要訪問對(duì)象的屬性和方法，必須在對(duì)象和屬性方法之間加入一個(gè)句點(diǎn)。除了在屬性窗口中設(shè)置對(duì)象屬性外，也可以在程序中用程序語句設(shè)置。它的操作與過程、函數(shù)的操作相同，但方法是特定對(duì)象的一部分，正如屬性和 實(shí)踐示對(duì)象的一部分一樣。 事 件：所謂事件，是由 Visual Basic 預(yù)先設(shè)置好的、能夠被對(duì)象識(shí)別的動(dòng)作。 窗 體：窗體是可用作定制應(yīng)用程序界面的窗口，或用作從用戶處收集信息的對(duì)話框。窗體可單獨(dú)存在，也可是多文檔界 (MDI)中的一個(gè)文檔，即一個(gè)子窗體。例 如：按鈕、列表框或編輯框等。如：計(jì)時(shí)器、 WinSocket 等。與過程程序設(shè)計(jì)不同，后者的程序起始于代碼的第一行，并遵循定義好的路徑調(diào)用所需的過程。 VB 項(xiàng)目文件 包括在 VisualBasic 應(yīng)用程序開發(fā)中包括的所有的窗體、代碼模塊和定制控件的一個(gè)文件列表，以及在開發(fā)中選擇的環(huán)境選項(xiàng)。數(shù)據(jù)庫中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織、描述和存儲(chǔ)，具有較小的冗余度、較高的數(shù)據(jù)獨(dú)立性和易擴(kuò)展性，并可謂各種用戶共享。 Access2020 適用于小型商務(wù)活動(dòng)，用以存貯和管理商務(wù)活動(dòng)所需要的數(shù)據(jù)。 Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。元組中的值是有序的，而屬性的次序則不是固定的。 Access2020 的 6種對(duì)象 Access 2020 數(shù)據(jù)庫由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。 產(chǎn)品進(jìn)銷存管理系統(tǒng) 15 窗體 (form) —— 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。窗體也稱表單。 宏 (Macro) —— 宏相當(dāng)于 DOS 中的批處理，用來自動(dòng)執(zhí)行一系列操作。 模塊 (Module)—— 模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序 。 與 Access 以前的版本比較， Access2020 新增了許多功能，字段類型增加了 OLE對(duì)象和超級(jí)鏈接，特別是與 Inter的融合，在數(shù)據(jù)庫中可以直接鏈接到指定的 Web 頁面或網(wǎng)絡(luò)文件，也可以把 Web 頁面上的表格導(dǎo)入到數(shù)據(jù)庫。 Access2020 還可以方便地利用 FoxPro 數(shù)據(jù)庫、 Excel 電子表格的數(shù)據(jù)，還可以和Word 混合使用，打印通用信函或信封。 SQL 不但用于 IBM 的 DB2 ,SQL/400 ,QMF 等 DBMS產(chǎn)品中，而且也廣泛用于許多非 IBM 公司的 DBMS 產(chǎn)品中，例如Oracle ,Informix ,Sybase ,MS SQL Server 等。 SQL 語言是非過程關(guān)系數(shù)據(jù)庫語言，按其功能可分為 4 大部分： （ 1） 數(shù)據(jù)定義語言（ Data Definition Language ,簡(jiǎn)稱 DDL） ,用于定義、撤銷和修改數(shù)據(jù)模式； （ 2） 查詢語言（ Query Language ,簡(jiǎn)稱 QL） ,用于查詢數(shù)據(jù)； （ 3） 數(shù)據(jù)操縱語言（ Data Manipulation Language ,簡(jiǎn)稱DML），用于增、刪、改數(shù)據(jù)； （ 4） 數(shù)據(jù)控制語言（ Data Control Language ,簡(jiǎn)稱 DCL），用于數(shù)據(jù)訪問權(quán)限的控制。 系統(tǒng)結(jié)構(gòu)圖 產(chǎn)品進(jìn)銷存管理系統(tǒng)結(jié)構(gòu)圖如圖 。 系統(tǒng)流程圖 產(chǎn)品進(jìn)銷存管理系統(tǒng)流程圖如圖 。 數(shù)據(jù)庫設(shè)計(jì) 本系統(tǒng)采用了小型的 Access數(shù)據(jù)庫，數(shù)據(jù)庫名為 db1,包含以下 7個(gè)表：出貨單 chuhuodan、庫存表 cunhuozhang、供貨商gonghuoshang、進(jìn)貨單 jinhuodan、客戶 kehu、登陸 login、權(quán)限產(chǎn)品進(jìn)銷存管理系統(tǒng) 系統(tǒng)設(shè)置 用戶管理 初期建賬 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 日常業(yè)務(wù) 進(jìn)貨單 出貨單 基礎(chǔ)信息管理 客 戶 供貨商 查詢統(tǒng)計(jì) 入庫查詢 出庫查詢 庫存賬查詢 庫存信息 供貨商 進(jìn)貨作業(yè) 進(jìn)貨信息 入庫查詢 庫存帳查詢 出貨作業(yè) 出貨信息 出庫查詢 客 戶 產(chǎn)品進(jìn)銷存管理系統(tǒng) 17 設(shè)置 quanxianshezhi。 1. 出貨單 chuhuodan 出貨單 chuhuodan用來保存產(chǎn)品出庫的詳細(xì)情況，結(jié)構(gòu)見表。 表 表 cunhuozhang的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字 段大小 產(chǎn)品名稱 文本 50 產(chǎn)品編號(hào) 文本 25 進(jìn)價(jià) 貨幣 庫存 數(shù)字 雙精度型 備注 文本 100 3. 供貨商 gonghuoshang 供貨商 gonghuoshang用來保存供貨商基礎(chǔ)信息，結(jié)構(gòu)見表 所示。 表 表 jinhuodan的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 產(chǎn)品名稱 文本 50 產(chǎn)品編號(hào) 文本 25 數(shù)量 數(shù)字 雙精度型 進(jìn)價(jià) 貨幣 金額 貨幣 備注 文本 100 供貨商名稱 文本 50 進(jìn)貨日期 日期 /時(shí)間 經(jīng)手人 文本 25 進(jìn)貨單號(hào) 文 本 25 5. 客戶 kehu 客戶 kehu用來保存客戶基礎(chǔ)信息，結(jié)構(gòu)見表 。 表 表 login的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 用戶名 文本 25 密碼 文本 6 7. 權(quán)限設(shè)置 quanxianshezhi 權(quán)限設(shè)置 quanxianshezhi用來保存用戶的權(quán)限，結(jié)構(gòu)見表 所示。 如何實(shí)現(xiàn)數(shù)據(jù)備份與數(shù)據(jù)恢復(fù) 數(shù)據(jù)對(duì)一個(gè)單位是至關(guān)重要的。任何系統(tǒng)總不可能不出故障。數(shù)據(jù)備份是指在某種介質(zhì)（磁帶、磁盤等）上存儲(chǔ)數(shù)據(jù)庫的拷貝。這里，用拷貝文件的原理來實(shí)現(xiàn)數(shù)據(jù)備份與數(shù)據(jù)恢復(fù)，所以在程序中用 到了 FileCopy語句。 表 FileCopy語句的參數(shù) 參 數(shù) 描 述 source 必要參數(shù)。 source可以包含目錄或文件夾以及驅(qū)動(dòng)器 destination 必要參數(shù)。 destination可以包含目錄或文件夾以及驅(qū)動(dòng)器 167。 首先要在數(shù)據(jù)庫 db1中建一個(gè)表 quanxianshezhi用來保存每個(gè)用戶的運(yùn)行權(quán)限。當(dāng)用戶登陸進(jìn)入系統(tǒng)后，其用戶名將顯示在主界面的 StatusBar控件的第四個(gè)窗格內(nèi)，被激活的主界面窗體就可根據(jù)所顯示的用戶名在表 quanxianshezhi中查找相應(yīng)的用戶權(quán)限，根據(jù)各個(gè)字段的值來設(shè)置菜單可否使用。 167。表單方式數(shù)據(jù)錄入可解決這方面的問題，而且在輸入數(shù)據(jù)失誤時(shí)也容易修改。 MSFlexGrid控件是一種 Active控件，該控件提供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對(duì)表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、 Data控件賦值、文本自動(dòng)換行等功能。由于在進(jìn)貨單和出貨單部分都使用了 MSFlexGrid控件，故在窗體 amainform中可以使用公用函數(shù)來代替在多個(gè)程序中頻繁使用的代碼（如 entercell、 moveright、 moveleft、 movereturn），只需調(diào)用所需的函數(shù)即可。在 MSFlexGrid控件 單元格內(nèi)按回車鍵， Text控件移到下一單元格， Text控件可自動(dòng)獲得所在單元格的值。 如何保存表格中的數(shù)據(jù) 運(yùn)用循環(huán)語句，將表格中的數(shù)據(jù)一條一條地保存。但是，再知道要執(zhí)行多少次時(shí)，則最好使用 For? Next循環(huán)。下面是以進(jìn)貨單為例的保存入庫數(shù)據(jù)的一段代碼。Data Source= amp。 \ select * from jinhuodan, , adOpenStatic, adLockOptimistic For i = 1 To 100 If (i, 1) And (i, 3) Then 39。更新表 End If Next i : : For i = 1 To 100 For j = 1 To 6 (i, j) = Next j Next i 167。這里還是利用循環(huán)語句。 Dim A, B As Single For i = 1 To 31 A = Val((i, 5)) + A B = Val((i, 3)) + B If (i,1)And (i,3)Then = i Next i = A: = B 39。 如何實(shí)現(xiàn)數(shù)據(jù)的模糊查詢 模糊查詢時(shí)多種查詢方式的一種，也是比較常用的一種查詢方式。 產(chǎn)品進(jìn)銷存管理系統(tǒng) 24 第五 章 模塊設(shè)計(jì) 167。主程序界面主要實(shí)現(xiàn)如下功能： ① 選擇主界面的菜單或工具欄，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。 主程序界面如圖 。公共函數(shù) Dim x, y As String If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If = 0 Or = 0 Then Exit Sub x = (, ) y = (, 0) If y Then If = 3 Then 產(chǎn)品進(jìn)銷存管理系統(tǒng) 25 = + 1 End If If 0 And 0 Then = = = + = + End If x = (, ) y = (, 0) p = (, ) = = 0 = Len() End If End Sub Public Sub moveright() 39。公共函數(shù) If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If Then = 0 產(chǎn)品進(jì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。 \ 39。設(shè)置操作員權(quán)限 With If .BOF = False Then .MoveFirst 產(chǎn)品進(jìn)銷存管理系統(tǒng) 27 .FindFirst 用戶名 like + Chr(34) + (4).Text + Chr(34) + If .NoMatch Then Else .Enabled = .Fields(用戶管理 ) .Enabled = .Fields(初期建賬 ) .Enabled = .Fields(數(shù)據(jù)備份 ) .Enabled = .Fields(數(shù)據(jù)恢復(fù) ) .Enabled = .Fields(進(jìn)貨單 ) .Enabled = .Fields(出 貨單 ) .Enabled = .Fields(客戶 ) .Enabled = .Fields(供貨商 ) .Enabled = .Fields(入庫查詢 )