【正文】 r 應(yīng)用程序開發(fā)兩個(gè)方面的改進(jìn) ,使程序員能夠輕松自如地開發(fā)出功能卓越的各種數(shù)據(jù)庫(kù)和多媒體應(yīng)用程序 . Visual Basic 具有以下特點(diǎn) : (1)真正的面向?qū)ο缶幊?,使開發(fā)人員在進(jìn)行系統(tǒng)維護(hù)時(shí) ,只需要修改很少的代碼 ,同時(shí)也加快了系統(tǒng)的開發(fā)速度 . (2)可視化的編程以及向?qū)У墓δ?,使開發(fā)人 員不用加入太多代碼就可以開發(fā)出標(biāo)準(zhǔn)的windows 程序 . (3)數(shù)據(jù)訪問特性允許對(duì)包括 Microsoft SQL Server 和其他企業(yè)數(shù)據(jù)庫(kù)在內(nèi)的大部分?jǐn)?shù)據(jù)庫(kù)格式建立數(shù)據(jù)庫(kù)和前端應(yīng)用程序 . (4)通過(guò) AvtiveX技術(shù)可使用其他應(yīng)用程序提供的功能 .例如 Microsoft Word、 Microsoft Excel 及其他 Windows 應(yīng)用程序，甚至可以使用 Visual Basic 創(chuàng)建的應(yīng)用程序和對(duì)象。一個(gè)事務(wù)中可能包括了多個(gè)輸入和輸出操作，最終結(jié)果是從一個(gè)一致性狀態(tài)達(dá)到另一個(gè)一致性狀態(tài)，但在事務(wù)執(zhí)行期間，數(shù)據(jù)庫(kù)可能暫時(shí)處于一個(gè)不一致的狀態(tài)，利用封鎖技術(shù)可以有效的防止其 他事務(wù)讀不一致性的數(shù)據(jù)。 論文的內(nèi)容編排 本文是在對(duì)某企業(yè)的進(jìn)銷存管理流程分析的基礎(chǔ)上，利用軟件工程基本理論與方法對(duì)系統(tǒng)進(jìn)行了設(shè)計(jì)，然后用 VB 實(shí)現(xiàn)了這個(gè)進(jìn)銷存管理系統(tǒng)，最后對(duì)進(jìn)銷存管理系統(tǒng)進(jìn)行了軟件測(cè)試。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。 系統(tǒng)的數(shù)據(jù)流圖 為了便于對(duì)這個(gè)進(jìn)銷存系統(tǒng)進(jìn)行有效地分析和設(shè)計(jì) ,我們對(duì)進(jìn)銷存的業(yè)務(wù)流程進(jìn)行分析后 ,采用分層的方法得到了進(jìn)銷存管理系統(tǒng)的數(shù)據(jù)流圖 (DFD) (1)系統(tǒng)用戶管理模塊 當(dāng)日時(shí)間 事務(wù) 用戶信息 圖 （ a）系統(tǒng)用戶管理 模塊 總的數(shù)據(jù)流圖 D1用戶信息 事務(wù) 事務(wù) 用戶信息 圖 （ b）系統(tǒng)用戶管理模塊分解的數(shù)據(jù)流圖 操作員 接受事務(wù) 更新用戶信息 數(shù)據(jù)庫(kù) 操作員 1. 系統(tǒng)用戶管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 1 （ 2） 基本 信息管理 當(dāng)前日期 產(chǎn)品信息 事務(wù) 倉(cāng)庫(kù)信息 供貨商信息 業(yè)務(wù)員信息 圖 (a)基本信息管理模塊總的數(shù)據(jù)流圖 D2 產(chǎn)品 信息 事務(wù) 事務(wù) 產(chǎn)品信息 圖 （ b）產(chǎn)品信息管理模塊分解的數(shù)據(jù)流圖 （ 3） 進(jìn)貨信息管理 當(dāng)前日期 進(jìn)貨信息 事務(wù) 庫(kù)存 信息 進(jìn)貨定貨信息 圖 (a)進(jìn)貨信息管理模塊總的數(shù)據(jù)流圖 事務(wù) 事務(wù) 進(jìn)貨 庫(kù)存信息 信息 進(jìn)貨信息 D3 進(jìn)貨 信息 D4 庫(kù)存信息 (b)進(jìn)貨信息管理模塊 分解的數(shù)據(jù)流圖 更新產(chǎn)品信息 操作員 接受事務(wù) 數(shù)據(jù)庫(kù) 采購(gòu)業(yè)務(wù)員 接收事務(wù) 更新 進(jìn)貨信息 更新庫(kù)存信息 數(shù)據(jù)庫(kù) 操作員 2. 基本信息管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 采購(gòu)業(yè)務(wù)員 3. 進(jìn)貨信息管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 8 (4)銷售信息管理 當(dāng)前日期 庫(kù)存信息 出貨 訂單信息 事務(wù) 出貨單信息 圖 (a)銷售信息管理模塊總的數(shù)據(jù)流圖 事務(wù) 事務(wù) 銷售 庫(kù)存信息 信息 銷售信息 D5 銷售 信息 D6 庫(kù)存 信息 圖 (b)銷售信息管理模塊分解的數(shù)據(jù)流圖 （ 5） 庫(kù)存信息管理 當(dāng)前日期 轉(zhuǎn)庫(kù) 信息 事 務(wù) 盤點(diǎn)信息 庫(kù)存信息 圖 (a)庫(kù)存信息管理模塊總的數(shù)據(jù)流圖 D8 盤點(diǎn)信息 盤點(diǎn)信息 庫(kù)存信息 盤點(diǎn)信息 事務(wù) 事務(wù) 庫(kù)存信息 庫(kù)存信息 轉(zhuǎn)庫(kù)信息 D7 庫(kù)存信息 D9轉(zhuǎn)庫(kù)信息 圖 (b)庫(kù)存信息管理模塊分解的數(shù)據(jù)流圖 更新 銷售信息 銷售業(yè)務(wù)員 接收事務(wù) 更新庫(kù)存信息 數(shù)據(jù)庫(kù) 倉(cāng)庫(kù)管理員 接收事 務(wù) 更新 庫(kù)存清單 庫(kù)存盤點(diǎn) 庫(kù)存轉(zhuǎn)庫(kù) 數(shù)據(jù)庫(kù) 銷售業(yè)務(wù)員 4. 銷售信息管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 倉(cāng)庫(kù)管理員 5. 庫(kù)存信息管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 1 （ 6）生產(chǎn)信息管理 當(dāng)前日期 事務(wù) 生產(chǎn)計(jì)劃信息 配料信息 組裝信息 圖 (a)組裝信息管理 模塊 總的數(shù)據(jù)流圖 生產(chǎn)計(jì)劃信息 D10 生產(chǎn)計(jì)劃信息 生產(chǎn)計(jì)劃 信息 事務(wù) 事務(wù) 組裝信息 事務(wù) 配料信息 D11 配料信息 配料信息 D13 組裝信息 (b)組裝信息管理 模塊 分解的數(shù)據(jù)流圖 系統(tǒng)的 數(shù)據(jù)字典 數(shù)據(jù)描述 產(chǎn)品類別信息 =類別編號(hào) +類別名稱 產(chǎn)品信息 =產(chǎn)品編號(hào) +產(chǎn)品名稱 +計(jì)量 單位 +類別 +入庫(kù)價(jià)格 +分銷價(jià)格 +零售價(jià)格 +生產(chǎn)廠家 +更新日期 +備注信息 客戶信息 =客戶編號(hào) +客戶名稱 +地址 +郵政編碼 +電話號(hào)碼 +公司主頁(yè) +電子郵件地址 +稅號(hào) +銀行帳戶 +開戶銀行 +聯(lián)系人 +備注信息 供應(yīng)商信息 =供應(yīng)商編號(hào) +供應(yīng)商名稱 +地址 +郵政編碼 +電話號(hào)碼 +公司主頁(yè) +電子郵件地址 +稅號(hào) +銀行帳號(hào) +開戶銀行 +聯(lián)系人 +備注信息 業(yè)務(wù)員類別信息 =類別編號(hào) +類別名稱 業(yè)務(wù)員信息 =業(yè)務(wù)員編號(hào) +業(yè)務(wù)員姓名 +類別 +電話號(hào)碼 +家庭住址 +身份證號(hào)碼 +備注信息 倉(cāng)庫(kù)信息 =倉(cāng)庫(kù)編號(hào) +倉(cāng)庫(kù)名稱 生產(chǎn)管理員 接收事務(wù) 設(shè)置生產(chǎn)計(jì) 劃 設(shè) 置 配料信 息 組裝產(chǎn) 品 數(shù)據(jù)庫(kù) 生產(chǎn)管理員 6. 生產(chǎn)信息管理 數(shù)據(jù)庫(kù) 系統(tǒng)時(shí)間 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 10 進(jìn)貨訂單信息 =訂貨日期 +編號(hào) +業(yè)務(wù)員 +供應(yīng)商編號(hào) +產(chǎn)品編號(hào) +數(shù)量 +單價(jià) +折扣比例 +總金額 +備注信息 入庫(kù)單信息 =入庫(kù)日期 +編號(hào) +業(yè)務(wù)員 +供應(yīng)商編號(hào) +產(chǎn)品編號(hào) +數(shù)量 +單價(jià) +折扣比例 +總金額 +是否即時(shí)付款 +是否記帳 +預(yù)付比例 +備注信息 配料單信息 =配料單編號(hào) +設(shè)置日期 +產(chǎn)品編號(hào) +產(chǎn)品名稱 +產(chǎn)品計(jì)量單位 +配料編號(hào) +配料名稱 +配料計(jì)量單位 +配料數(shù)量 +配料單價(jià) +配料總金額 +業(yè)務(wù)員編號(hào) +備注信息 生產(chǎn)計(jì)劃信息 =計(jì)劃編號(hào) +計(jì)劃制定人 +計(jì)劃制定時(shí)間 +產(chǎn)品編號(hào) +產(chǎn)品名稱 +計(jì)量單位 +生產(chǎn)數(shù)量 +單價(jià) +總金額 +計(jì)劃起始 時(shí)間 +計(jì)劃結(jié)束時(shí)間 +備注信息 銷售出貨單信息 =銷售日期 +編號(hào) +業(yè)務(wù)員 +客戶編號(hào) +產(chǎn)品編號(hào) +數(shù)量 +單價(jià) +折扣比例 +總金額 +是否即時(shí)付款 +是否記帳 +預(yù)付 比例 +備注信息 庫(kù)存信息 =更新日期 +編號(hào) +倉(cāng)庫(kù)編號(hào) +產(chǎn)品編號(hào) +數(shù)量 +單價(jià) +總金額 +備注信息 轉(zhuǎn)倉(cāng)信息 =轉(zhuǎn)倉(cāng)日期 +編號(hào) +業(yè)務(wù)員 +轉(zhuǎn)出倉(cāng)庫(kù)編號(hào) +轉(zhuǎn)入倉(cāng)庫(kù)編號(hào) +產(chǎn)品編號(hào) +數(shù)量 +總金額 +備注信息 數(shù)據(jù)處理 表 用戶登錄 加工名稱 用戶登錄 輸入： 用戶名 用戶名、密碼 處理： 對(duì)用戶進(jìn)行判斷，如果 登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng) ，否則將停止程序的執(zhí)行。存取數(shù)據(jù)安全，因?yàn)?C/S 模式的平臺(tái)一般采用適于局域網(wǎng)、安全性好的局域網(wǎng)絡(luò)協(xié)議，如 Netbeui 協(xié)議，安全性有保證。 C/S 結(jié)構(gòu)是一種典型的二層結(jié)構(gòu)，按照各自實(shí)現(xiàn)功能的不同，將應(yīng)用程序分為兩大部分：一部分是用于處理數(shù)據(jù)庫(kù)，另一部分是用于處理應(yīng)用程序、請(qǐng)求服務(wù)，客戶部分負(fù)責(zé)執(zhí)行前臺(tái)功能，如管理用戶接口、數(shù)據(jù)處理和報(bào)告請(qǐng)求等。如果將來(lái)應(yīng)用需求發(fā)生變化時(shí)，應(yīng)保證系統(tǒng)的可修改性和可擴(kuò)充性。 功能設(shè)計(jì) 總體設(shè)計(jì)采用結(jié)構(gòu)化設(shè)計(jì)方法（ SD），結(jié)構(gòu)化設(shè)計(jì)方法設(shè)計(jì)是基于 模 塊化、自頂向下細(xì)化的設(shè)計(jì)原則的設(shè)計(jì)方法，在具體的設(shè)計(jì)中，根據(jù)基本 的模塊化設(shè)計(jì)原則 — “高內(nèi)聚低耦合”，將需求分析中所產(chǎn)生的數(shù)據(jù)流圖轉(zhuǎn)換為模塊結(jié)構(gòu)圖。一般進(jìn)貨分兩步：第一步到供應(yīng)商簽訂訂貨單，達(dá)成進(jìn)貨意向；第二步產(chǎn)品到貨并入庫(kù)，完成產(chǎn)品入庫(kù)單、庫(kù)存信息更新。盤點(diǎn)產(chǎn)品通過(guò)指定倉(cāng)庫(kù)或者產(chǎn)品名稱來(lái)完成。企業(yè)的經(jīng)濟(jì)狀況、經(jīng)營(yíng)狀況以及考慮到企業(yè)今后的發(fā)展來(lái)確定。經(jīng)過(guò)對(duì)企業(yè)進(jìn)銷存流程的分析，現(xiàn)做出本系統(tǒng)的數(shù)據(jù)流程圖如下圖 進(jìn)銷存管理系統(tǒng)設(shè)計(jì) 系統(tǒng)除了要實(shí)現(xiàn)某些具體的功能，對(duì)系統(tǒng)進(jìn)行初始化設(shè)置更是所有功能實(shí)現(xiàn)的基礎(chǔ)。 請(qǐng)輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 End If Next intCount If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = execute wz_setup 39。,39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If gintWZSmode = 1 Then MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 8 txtItem(intCount) = Next intCount txtItem(7) = Format(Now, yyyymmdd) mblChange = False Unload frmWZSetup 1 = select * from dm_wz ElseIf gintWZSmode = 2 Then Unload Me Unload frmWZSetup = select * from dm_wz End If End Sub Private Sub Combo1_Change(Index As Integer) mblChange = True End Sub 產(chǎn)品信息 管理 模塊產(chǎn)品信息設(shè)置運(yùn)行界面如 圖 所示 ： 圖 具體功能的實(shí)現(xiàn) 由于 有些功能實(shí)現(xiàn)起來(lái)比較簡(jiǎn)單，如應(yīng)收款項(xiàng)的收款 登記、應(yīng)付款項(xiàng)的付款登記、產(chǎn)品盤點(diǎn)；或者有些模塊功能相似，如各查詢模塊 ，所以 在本文僅詳細(xì)介紹了入庫(kù)單管理、組裝單管理、銷售單管理、 轉(zhuǎn)庫(kù)單管理 和 庫(kù)存信息查詢這五 個(gè)模塊的實(shí)現(xiàn)過(guò)程。 ) = Then Select Case i