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