【正文】 ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 Visual Basic 繼承了Basic 語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。希望能得到各位老師的指點(diǎn)，以便我改進(jìn)錯(cuò)誤。為了讓管理者及時(shí)掌握準(zhǔn)確、 可靠的信息 ，制定銷售策略， 必須建立一個(gè)功能齊全和高效率的信息管理系統(tǒng)。 經(jīng)過 自己 一個(gè)多月的努力 和 老師細(xì)心的指導(dǎo)， 我的畢業(yè)設(shè)計(jì) —— 貿(mào)易 公司 信息管理系統(tǒng)在技術(shù)上已完成了程序數(shù)據(jù)庫的構(gòu)建和 程序的開發(fā) ,基本上具備貿(mào)易、貨品管理、銷售統(tǒng)計(jì)、報(bào)表等功能的實(shí)現(xiàn)。 通過對(duì)貿(mào)易公司日常工作的了解 和借鑒其他管理系統(tǒng)的內(nèi)容，我掌握了貿(mào)易公司 管理信息系統(tǒng)的需求，這個(gè)軟件必須具備 商品 信息、 銷售 信息、 供應(yīng)商 信息、庫存 信息、信息 修改 的管 理功能，針對(duì)以上需求，我寫出了需求說明書。 (4) 商品庫存管理， 商品入庫 、 庫存 修改、庫存查詢， 包括 入庫商品編號(hào)、入庫時(shí)間、入庫批次等。同時(shí)軟件平臺(tái)的豐富多樣也為我們進(jìn)行數(shù)據(jù)庫管理系統(tǒng)的開發(fā)提供了有力的支撐，如基于后臺(tái)運(yùn)行的 Access、 INTERBASE SERVER、 ORACLE 等，基于前端的如 VB、 VC、 DELPHI 等。 軟件升級(jí)簡易性 開發(fā)此系統(tǒng)之前，我們經(jīng)過考查，得 知大量用戶 仍然選擇使用較早時(shí)期開發(fā) 3 的系統(tǒng)，根據(jù)用戶的習(xí)慣以及 從操作過程和操作角度來看，由于考慮到用戶使用的過渡階段這一特殊因素，盡管現(xiàn)在已經(jīng)有 版本的軟件開發(fā)工具，我們還是選擇使用 VB 版本的進(jìn)行編程，但是這并不影響我們開發(fā)的系統(tǒng)今后的升級(jí)問題，因?yàn)閺?VB 到 的升級(jí)，無需大量更改其結(jié)構(gòu)，只要更改少量程序就能完成。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。 在設(shè)計(jì)過程中，我們遵循設(shè)計(jì)的步驟和原理，如模塊化、抽象、逐步求精這些 步驟和啟發(fā)性原則等。 經(jīng)過對(duì)各模塊間的關(guān)系進(jìn)行分析得下圖 商品入庫 庫存查詢 入庫批次 入庫時(shí)間 入庫商品編號(hào) 商品庫存管理 7 圖 功能模塊圖 貿(mào)易公司管理信息系統(tǒng) 商品信息管理 供應(yīng)商信息管理 庫存管理 銷售信息管理 商品信息修改 商品信息添加 商品信息刪除 銷售信息查詢 銷售信息修改 銷售信息添加 庫存查詢 庫存修改 商品入庫 供應(yīng)商修改 供應(yīng)商查找 供應(yīng)商添加 商品編號(hào) 生產(chǎn)日期 商品單價(jià) 商品數(shù)量 商品種類 商品名稱 入庫批次 銷售單價(jià) 銷售數(shù)量 銷售時(shí)間 銷售商品 生產(chǎn)廠商 入庫編號(hào) 入庫時(shí)間 供應(yīng)商名稱 聯(lián)系方式 供應(yīng)商地址 8 第 四 章 詳細(xì)設(shè)計(jì) 開發(fā)軟件介紹 Visual Basic 是 Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點(diǎn) [2]。 2) Enable 屬性：控制控 件的激活狀態(tài)灰色或可用。 6) Default 屬性 :決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時(shí)是否為可見 . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時(shí) ,此屬性值為該控件在數(shù)組的下標(biāo)值 . 12) DownPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。如 果是命令按鈕的控件是數(shù)組，則需要使用 Index 參數(shù)標(biāo)識(shí)該控件。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。 14) Autosize 屬性：決定控件是否自動(dòng)改變大小以顯示其全部內(nèi)容。 4) Enable 屬性：該控件為灰色時(shí)為 false,表示運(yùn)行時(shí)不可用。 8) Appearance 屬性：設(shè)置 /返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以 3D 效果顯示。 12) DataFormat 屬性：設(shè)置 /返回 DataFormat 對(duì)象，一個(gè)綁定對(duì)象將附加到它。 16) Font 屬性：設(shè)置 /返回字體屬性。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是： 關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。 建庫準(zhǔn)備 貿(mào)易 公司信息管理系統(tǒng)主要由 商品 信息表、 銷售 信息表、 庫存 信息表、 客戶信息表 及其相應(yīng)關(guān)系組成。下面舉例介紹第一范式 1NF、 第二范式 2NF、和第三范式 3NF。如果出現(xiàn)重復(fù)的屬性就可能需要定義一個(gè)新的實(shí)體，新的實(shí)體由重復(fù)的屬性構(gòu)成，新實(shí)體與原實(shí)體之間為一對(duì)多關(guān)系。簡而言之，第一范式就是 無重復(fù)的列。 第二范式 2NF要求實(shí)體的屬性完全依賴于主關(guān)鍵字，所謂完全依賴是指不能存在僅依賴主關(guān)鍵字一部分的屬性，如果存在那么這個(gè)屬性和主 關(guān)鍵字的這一部分應(yīng)該分離出來形成一個(gè)新的實(shí)體，新實(shí)體與原實(shí)體之間是一對(duì)多的關(guān)系，為實(shí)現(xiàn)區(qū)分通常需要為表加上一個(gè)列以存儲(chǔ)各個(gè)實(shí)例的惟一標(biāo)識(shí)，簡而言之第二范式就是非主屬性依賴于主屬性。那么在員工信息表中，列出部門編號(hào)后就不能再將部門名稱、部門簡介等與部門有關(guān)的信息再加入員工信息表中。 具體如下表 表 商品 信息表 列名 數(shù)據(jù)類型 可否為空 說明 B_ID_N Varchar NOT NULL 進(jìn)貨 B_ProviderId_N Numeric NOT NULL 供應(yīng)商 B_MerchandiseId_N Numeric NULL 商品 名稱 B_StockDate_D Datetime NULL 進(jìn)貨時(shí)間 B_Count_N Numeric NULL 購入量 B_StockPrice_N Numeri NULL 進(jìn)貨單價(jià) B_OperatorId_S Varchar NULL 操作員 13 表 庫存 信息表 列名 數(shù)據(jù)類型 可否為空 說明 M_Id_N Text NOT NULL 商品編號(hào) M_Name_S Text NOT NULL 商品名稱 M_Introduce_S Numeric NULL 商品介紹 M_TypeId_N Numeric NULL 商品類型 M_Storage_N Varchar NOT NULL 庫存量 M_Remark_R Text NULL 備注 表 商品銷售 信息表 列名 數(shù)據(jù)類型 可否為空 說 明 S_ID_N Varchar NOT NULL 銷售編號(hào) S_MerchandiseID_N e Numeric NOT NULL 商品編號(hào) S_RegDate_D Datetime NOT NULL 銷售日期 S_Count_N Numeric NOT NULL 售出數(shù)量 S_SellPrice_N Numeric NULL 單價(jià) S_OperatorId_S Text NULL 操作員 S_Remark_R Text NULL 備注 表 客戶信息表 列 名 數(shù)據(jù)類型 可否為空 說 明 customerNO char NOT NULL 客戶編號(hào) customerName char NULL 客戶姓名 customerSex char NULL 客戶性別 customerID char NULL 身份證號(hào)碼 customerTele char NULL 客戶聯(lián)系電話 customerType char NULL 客戶類型 customerMemo text NULL 備注 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn) 經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。注意：請(qǐng)將庫文件存入程序所在目錄。 amp。 amp。 ( 當(dāng)前用戶 : amp。 ) = Trim() Unload Me Else MsgBox 密碼或者用戶名不正確！ End If End If Else MsgBox 用戶名不能為空 ! End If End Sub Private Sub Form_Load() = 0 End Sub 18 2:商品入庫 表 : 圖 入庫窗口圖 代碼分析 : Dim Sql As String Dim RS As Dim RS1 As Private Sub cmdAdd_Click() 39。 and 入庫時(shí)間 =39。 and 入庫批次 = amp。 amp。 Trim() Sql = Sql amp。刪除 If Trim() And Trim() And Trim() Then Sql = select * from 入庫表 where 商品編號(hào) = amp。 Trim() Sql = Sql amp。 Trim() Sql = Sql amp。 39。 Trim() Sql = Sql amp。 39。 where 商品編號(hào) = amp。 Trim() Sql = Sql amp。批次 If Not IsNumeric(Trim()) And Trim() Then MsgBox 請(qǐng)輸入數(shù)字 ! End If End Sub Private Sub txtSum_KeyPress(KeyAscii As Integer) 39。 Trim() If = 0 Or = 3 _ Or = 4 Then Sql = Sql amp。 amp。添加 Dim i As Integer If Trim() And Trim() Then Sql = select 商品名稱 ,單價(jià) ,單位 from 商品表 where 商品編號(hào) = amp。 ,39。, amp。 Time Sql = Sql amp。 元 ,應(yīng)找金額為 amp。修改 Dim i As Integer, bln As Boolean If Trim() Then For i = 1 To If (i).Text = Trim() Then bln = True Exit For End If Next i If bln = True Then = Val() + Val((i).ListSubItems(2)) * _ (Val(Trim()) Val((i).ListSubItems(3))) = Format(, .) (i).ListSubItems(3).Text = Trim() Else MsgBox 列表中沒有！ End If Else MsgBox 主鍵不能為空 ! 25 End If End Sub Private Sub Command1_Click() End Sub Private Sub Form_Resize() 39。應(yīng)找金額 If Not IsNumeric(Trim()) And Trim()