【導(dǎo)讀】效率，以及今后系統(tǒng)的功能拓展等。具有運行效率、開發(fā)周期短、擴展能力強、技術(shù)規(guī)。設(shè)計、數(shù)據(jù)庫設(shè)計、系統(tǒng)程序設(shè)計。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、系統(tǒng)的功能結(jié)構(gòu)圖。分析了系統(tǒng)所需的各種數(shù)據(jù)。庫存管理模塊、系統(tǒng)維護。在系統(tǒng)的實現(xiàn)中，給出了實現(xiàn)窗體中相應(yīng)的功能控件的事件。及代碼,以及菜單實現(xiàn)的方法。通過對日常操作的查詢，用戶可以掌握貨品流通情況，并能夠?qū)ω浧非?。此外，通過帳戶信息的管理，系統(tǒng)確保正常使用時的安全穩(wěn)定性。

　　

【正文】 了兩個存儲過程，分別實現(xiàn)進(jìn)貨時增加庫存、產(chǎn)生應(yīng)付款和銷售時減少庫存、產(chǎn)生應(yīng)收款的功能。建庫腳本如下： 存儲過程 CREATE PROCEDURE sf_進(jìn)貨單 @記帳人 char(10) = NULL AS begin transaction 庫中沒有，增加記錄 INSERT INTO 庫存庫 (貨號 ， 倉庫 ， 庫存數(shù)量 ， 庫存金額 ， 庫存單價 ) SELECT DISTINCT ， ， 0， 0， 0 FROM 進(jìn) 貨單明細(xì) AS J left join 庫存庫 as k on ( = and = ) where is null 修改庫存信息 UPDATE 庫存庫 SET 庫存單價 =case when 庫存數(shù)量 =0 or(庫存數(shù)量 +數(shù)量 ALL)=0 then 進(jìn)價 else(庫存金額 +稅價合計 ALL)/(庫存數(shù)量 +數(shù)量 ALL)end， 庫存數(shù)量 =庫存數(shù)量 +數(shù)量 ALL， 庫存金額 =case when 庫存數(shù)量 =0 or (庫存數(shù)量 +數(shù)量 ALL)=0 then 進(jìn)價 *(庫 存數(shù)量 +數(shù)量 ALL)else(庫存金額 +稅價合計 ALL)end， 最新進(jìn)價 =進(jìn)價 FROM (SELECT 倉庫 ， 貨號 ， 39。數(shù)量 ALL39。=sum(進(jìn)貨數(shù)量 )， 39。進(jìn)價 39。 = sum(稅價合計 )/sum(進(jìn)貨數(shù)量 )， 39。稅價合計 ALL39。=sum(稅價合計 ) FROM 進(jìn)貨單明細(xì) GROUP BY 倉庫 ， 貨號 ) AS LSJ WHERE 存庫 .倉庫 = AND 庫存庫 號 = 加入應(yīng)付款 INSERT INTO 應(yīng)付款 (編號 ， 進(jìn)貨單號 ， 貨號 ， 供貨商號 ， 數(shù)量 ， 進(jìn)貨單價 ， 金額 ，進(jìn)貨日期 ， 狀態(tài) ) 29 SELECT 39。付 39。+ ， ， ， ， 進(jìn)貨數(shù)量 ， 進(jìn)價 ， 計 ， 進(jìn)貨日期 ， 39。應(yīng)付 39。 FROM 進(jìn)貨單明細(xì) as a， 進(jìn)貨單 as b where = 加入歷史 insert into 進(jìn)貨單歷史 select * from 進(jìn)貨單 insert into 進(jìn)貨單明細(xì)歷史 select * from 進(jìn)貨單明細(xì) 清除進(jìn)貨單 delete from 進(jìn)貨單明細(xì) delete from 進(jìn)貨單 mit go CREATE PROCEDURE sf_銷售單 @記帳人 char(10) = NULL AS begin transaction 修改庫存信息 UPDATE 庫存庫 SET 庫存數(shù)量 =庫存數(shù)量 數(shù)量 ALL， 庫存金額 =庫存單價 *(庫存數(shù)量 數(shù)量 ALL) FROM (SELECT 倉庫 ， 貨號 ， 39。數(shù)量 ALL39。=sum(銷售數(shù)量 ) FROM 銷售單明細(xì) GROUP BY 倉庫 ， 貨號 ) AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號 = 加入應(yīng)收款 INSERT INTO 應(yīng)收款 (編號 ， 銷售單號 ， 貨號 ， 客戶編號 ， 數(shù)量 ， 銷售價 ， 金額 ， 銷售日期 ， 狀態(tài) ) SELECT 39。收 39。+ ， ， ， ， 銷售數(shù)量 ， 銷售價 ， 合計 ， 銷售日期 ， 39。應(yīng)收 39。 FROM 銷售單明細(xì) as a， 銷售單 as b where = 加入歷史 insert into 銷售單歷史 select * from 銷售單 30 insert into 銷售單明細(xì)歷史 select * from 銷售單明細(xì) 清除銷售單 delete from 銷售單明細(xì) delete from 銷售單 mit 31 第 5 章 程序開發(fā) 系統(tǒng)主 界面 窗體 實現(xiàn) 啟動 Microsoft Visual Basic ， 在主菜單中選擇【文件】 |【新建工程】 命令。將彈出【新建工程】對話框。選擇“標(biāo)準(zhǔn) EXE”選項，單擊【確定】按鈕。 ，并將其命名為“ ”，使用菜單編輯器為主窗體添加一個主菜單，布局如圖： 圖 51 系統(tǒng)主窗體 圖 51 為系統(tǒng)的主窗體 ， 菜單欄中有 “ 資料管理 ” 、“進(jìn)貨管理”、“銷售管理”、“庫存管理 ” 、“系統(tǒng)管理”等一級菜單 ， 下面會對他們的子菜單 做詳細(xì)介紹 。 51所示。 表 51 窗體屬性設(shè)置 對象 (控件 )名 屬 性 取值 (說明 ) frmMain Name fmMain frmMain Caption 蘇寧電器信息化 管理 系統(tǒng) frmMain IsMdiContainer True frmMain StartPosition CenterScreen 32 frmMain WindowState Maximized ，開始編輯如表 52 結(jié)構(gòu)的菜單。 表 52 單項屬性及 關(guān)系 對象 (控件 )名 Text 屬性 父級菜單項 MenuItemArchive 資料管理 (amp。V) MainMenu MenuItemGoodsInfo 商品資料維護 (amp。X) MenuItemArchive MenuItemSupplyInfo 供貨商資料維護 (amp。Y) MenuItemArchive MenuItemClientInfo 客戶資料維護 (amp。Z) MenuItemArchive MenuItemOrder 進(jìn)貨管理 (amp。W) MainMenu MenuItemOrderList 進(jìn)貨單 (amp。Z) MenuItemOrder MenuItemSellManage 銷售管理 (amp。X) MainMenu MenuItemSellList 銷售單 (amp。Z) MenuItemSellManage MenuItemDepot 庫存管理 (amp。Y) MainMenu MenuItemDepotSearch 庫存管理 (amp。Z) MenuItemDepot MenuItemSystem 系統(tǒng)管理 (amp。Z) MenuItemSellManage MenuItemManageRight 權(quán)限管理 (amp。Z) MenuItemSellManage 創(chuàng)建數(shù)據(jù)訪問模塊 因為各個窗體均需要對數(shù)據(jù)庫進(jìn)行訪問 ， 可以把與數(shù)據(jù)庫有關(guān)的一些操作放在一個類里實現(xiàn)，這樣可以對數(shù)據(jù)庫訪問更加簡單。 ODBC 數(shù)據(jù)源管理器中添加一個 SQL Server 系統(tǒng) DSN 數(shù)據(jù)源，該數(shù)據(jù)源指向前面創(chuàng)建的 sndqbook 數(shù)據(jù)庫，名稱為“ sndqlink”。 VisualBasic 中選擇 【工程】 | 【添加類模塊】命令，生成一個數(shù)據(jù)模塊并保存為“ ”文件。 中的內(nèi)容。 代碼在附 錄 A 標(biāo)題為 1 系統(tǒng)登 錄 界面設(shè)計 利用 Visual 實現(xiàn)登錄系統(tǒng)的功能。在用戶輸入“用戶號”和“密碼”后對用戶的輸入進(jìn)行驗證，并記錄登錄用戶的用戶名和用戶號，供系統(tǒng)使用。 1． 選擇【工程】 |【添加模塊】命令，新建一個模塊，將其 Name 屬性改為“ Global”。并為其添加以下代碼： 2． 選擇【工程】 |【 添加窗體 】 命令，新建一個窗體，將其 Name 屬性改為“ frmLogin”， 33 并為其添加如圖： 3． 登陸界面代碼在附錄 A標(biāo)題為 2 圖 52 “ 用戶登錄 ” 窗體 實現(xiàn)商品信息 維護 界面 利 用 Visual Basic 是數(shù)據(jù)庫窗體向向?qū)瓿梢粋€數(shù)據(jù)操作窗體的設(shè)計，以及如何對數(shù)據(jù)庫進(jìn)行操作以實現(xiàn)商品資料維護功能。 1． 選擇【工程】｜【添加窗體】命令，選擇【 VB 數(shù)據(jù)窗體向?qū)А?，則出現(xiàn)數(shù)據(jù)窗體向?qū)υ挕? 2． 單擊【下一步】按鈕，在【數(shù)據(jù)庫類型】窗體中選擇 Remote(ODBC)選項，單擊【下一步】按鈕。 3． 在【連接信息】對話框的【 DSN】下拉列表中，選擇數(shù)據(jù)庫 sndqlink，輸入相應(yīng)的數(shù)據(jù)庫用戶名、用戶名和密碼，單擊【下一步】按鈕。 4． 在所示對話框中【窗體名稱為】文本框中輸入“ frmGoodInfo”，在【窗體布局】列表框中選擇“網(wǎng)絡(luò)（數(shù)據(jù)表）”，在【邦定類型】列表中選擇“ ADO 數(shù)據(jù)控件”選，然后單擊【下一步】按鈕。 5． 在所示的對話框中，在【記錄源】下拉列表中選擇為“商品清單”選項，并把【可用字段】列表的所示字段都移向【選中字段】列表中，單擊【下一步】按鈕。 6． 在所示對話框中，清除所有選中的復(fù)選框，單擊【下一步】按鈕。彈出提示對話框數(shù)據(jù)窗體向?qū)瓿尚畔⑹占? 7． 單擊【完成按鈕】，彈出所示對話框中鉤選 Microsoft Windows Common Controls 34 復(fù)選框，然后 單擊【確定】按鈕即可。 8． 在窗體上添加一個 ImageList 控件、一個 ToolBar 控件、一個 Lbe1 控件、一個TextBox 控件、一個 CommandButton 控件和一個 ComboBox 控件，其布局 如圖： 圖 53 “ 商品信息維護 ” 窗 體 圖 53 是 “ 商品信息維護 ” 的窗口，通過“拼音碼”、“編號”、“名稱”等關(guān)鍵字的搜索，可以查詢商品信息的基本資料，包括貨號、條形碼、拼音編碼、商品名稱、規(guī)格、單位、類別、進(jìn)貨價等，可對現(xiàn)有記錄進(jìn)行修改、刪除，還可新增記錄。 9． 為窗體 frmGoodInfo 的 Load 事 件添加事件響應(yīng)代碼 在附錄 A標(biāo)題為 ： 3 10． 為按鈕 btnSearch 的 Click 事件添加事件響應(yīng)函數(shù) 附錄 A 標(biāo)題為 ： 4 實現(xiàn)供貨商資料維護功能 界面 采用數(shù)據(jù)庫窗體向?qū)Мa(chǎn)生供貨商資料維護窗體，并在窗體上分別添加一個 ToolBar控件、一個 Label 控件、一個 TextBox 控件和一個 CommandButton 控件，如圖： 35 圖 54 “ 供貨商資料維護 ” 窗體 圖 54 為“供貨商管理” 的窗體，主要用于供貨商資料和基本信息 ，包括供貨商號、拼音編碼、名稱、地址、郵編、地區(qū)、類型等 。 用戶可以在該模塊中修改已有供貨 商、增加一個 新 供貨商或刪除現(xiàn)有的供貨商的信息，在“供貨商拼音”中輸入供貨商的拼音編碼，單擊“查詢” 按鈕即可查詢出需要的供貨商。 實現(xiàn)客戶資料維護 界面 采用數(shù)據(jù)庫窗體向?qū)Мa(chǎn)生供貨商資料維護窗體，在選擇記錄源為“客戶清單”， 并在窗體上分別添加一個 ToolBar 控件、一個 Label 控件、一個 TextBox 控件和一個CommandButton 控件，如圖： 36 圖 55 “ 客戶資料維護 ” 窗體 圖 55 為“客戶資源共享料維護”的窗體，主要用于客戶基本資料，包括客戶編號、拼音編號、名稱、聯(lián)系人、地址、郵編、地區(qū) 、電話等。 用戶可以在 該模塊中修改已有客戶、增加一個新客戶或刪除現(xiàn)有的客戶的信息，在“客戶拼音”中輸入客戶的拼音編碼，單擊“查詢” 按鈕即可查詢出需要的供貨商。 界面 進(jìn)貨功能是指從供貨商處進(jìn)貨，同時增加庫存并產(chǎn)生應(yīng)付款。 選擇【工程】｜【添加窗體】命令，新建一個窗體，將其 Name 屬性改為“ frmOrderList”，并為其添加如圖所示的控件。 37 圖 56 “ 進(jìn)貨單 ” 窗體 圖 56“進(jìn)貨單”窗體，主要用于蘇寧電器 供貨商處進(jìn)貨，同時增加庫存并產(chǎn)生應(yīng)付款 ，包括編號、供貨商號、進(jìn)貨日期、業(yè)務(wù)員、制 單人、驗收員、保管員等。 進(jìn)貨時供貨商、商品一般需要填寫供貨商號和貨號，但這些號碼往往不容易記憶，因此需要按照拼音查詢，并從結(jié)果中選擇。 實現(xiàn)進(jìn)貨單據(jù)打印功能 Viusal Basic 的報表功能可以使用 DataReport 控件和 DataEnviroment 控件實現(xiàn)。 1． 選擇【工程】｜【添加 Data Enviroment】命令，為新增加的數(shù)據(jù)環(huán)境命名為deOrderList。 2． 在數(shù)據(jù)環(huán)境中單擊右鍵，選擇【添加連接】命令。設(shè)置連接屬性。并選擇默認(rèn)數(shù)據(jù)庫。 3． 在新建立的連接上單擊右鍵，選擇【添加命令 】命令，打開新建命令的屬性 ，按其命令屬性設(shè)置 ，其中 SQL 語句為： Select 品名，單位，進(jìn)貨數(shù)量，進(jìn)貨，稅價合計，不含稅價，稅額 from 進(jìn)貨單明細(xì)，商品清單 Where 進(jìn)貨單明細(xì)．貨號＝商品清單．貨號 and 進(jìn)貨單號＝（ select max(編號 ) from 進(jìn)貨單） 4． 選擇【工程】｜【添加 Data Report】命令，將其增加的數(shù)據(jù)環(huán)境命名為 drOrderList. 38 將品名、單位、進(jìn)貨數(shù)量、進(jìn)價、稅價合計、不含稅價、稅額等各部分用鼠標(biāo)拖入數(shù)據(jù)報表中，調(diào)整位置，并增加相應(yīng)的 Label。 實 現(xiàn)銷售 界面 銷售和 進(jìn)貨是兩個類似的功能，進(jìn)貨是從供貨商進(jìn)貨、增加庫存并產(chǎn)生應(yīng)付款。 ，生成如圖所示的銷售單窗體，窗體 Name 屬性為fmSellList， Caption 屬性為“銷售單”。該窗體與進(jìn)貨單窗體不一致的地方僅僅是控件的 Caption 屬性或 Name 屬性更改了。 圖 57 “ 銷售單 ” 窗體 圖 57“銷售單”窗體 ，主要用于蘇寧電器 銷