【正文】 圖 57 “ 銷售單 ” 窗體 圖 57“銷售單”窗體 ，主要用于蘇寧電器 銷售時需要。 ，生成如圖所示的銷售單窗體，窗體 Name 屬性為fmSellList， Caption 屬性為“銷售單”。 3． 在新建立的連接上單擊右鍵，選擇【添加命令 】命令，打開新建命令的屬性 ，按其命令屬性設(shè)置 ，其中 SQL 語句為： Select 品名，單位，進貨數(shù)量，進貨，稅價合計，不含稅價，稅額 from 進貨單明細，商品清單 Where 進貨單明細．貨號＝商品清單．貨號 and 進貨單號＝（ select max(編號 ) from 進貨單） 4． 選擇【工程】｜【添加 Data Report】命令，將其增加的數(shù)據(jù)環(huán)境命名為 drOrderList. 38 將品名、單位、進貨數(shù)量、進價、稅價合計、不含稅價、稅額等各部分用鼠標(biāo)拖入數(shù)據(jù)報表中，調(diào)整位置，并增加相應(yīng)的 Label。設(shè)置連接屬性。 1． 選擇【工程】｜【添加 Data Enviroment】命令，為新增加的數(shù)據(jù)環(huán)境命名為deOrderList。 進貨時供貨商、商品一般需要填寫供貨商號和貨號，但這些號碼往往不容易記憶，因此需要按照拼音查詢，并從結(jié)果中選擇。 選擇【工程】｜【添加窗體】命令，新建一個窗體，將其 Name 屬性改為“ frmOrderList”，并為其添加如圖所示的控件。 用戶可以在 該模塊中修改已有客戶、增加一個新客戶或刪除現(xiàn)有的客戶的信息，在“客戶拼音”中輸入客戶的拼音編碼，單擊“查詢” 按鈕即可查詢出需要的供貨商。 用戶可以在該模塊中修改已有供貨 商、增加一個 新 供貨商或刪除現(xiàn)有的供貨商的信息，在“供貨商拼音”中輸入供貨商的拼音編碼，單擊“查詢” 按鈕即可查詢出需要的供貨商。 8． 在窗體上添加一個 ImageList 控件、一個 ToolBar 控件、一個 Lbe1 控件、一個TextBox 控件、一個 CommandButton 控件和一個 ComboBox 控件，其布局 如圖： 圖 53 “ 商品信息維護 ” 窗 體 圖 53 是 “ 商品信息維護 ” 的窗口，通過“拼音碼”、“編號”、“名稱”等關(guān)鍵字的搜索，可以查詢商品信息的基本資料，包括貨號、條形碼、拼音編碼、商品名稱、規(guī)格、單位、類別、進貨價等，可對現(xiàn)有記錄進行修改、刪除，還可新增記錄。彈出提示對話框數(shù)據(jù)窗體向?qū)瓿尚畔⑹占? 5． 在所示的對話框中，在【記錄源】下拉列表中選擇為“商品清單”選項，并把【可用字段】列表的所示字段都移向【選中字段】列表中，單擊【下一步】按鈕。 3． 在【連接信息】對話框的【 DSN】下拉列表中，選擇數(shù)據(jù)庫 sndqlink，輸入相應(yīng)的數(shù)據(jù)庫用戶名、用戶名和密碼，單擊【下一步】按鈕。 1． 選擇【工程】｜【添加窗體】命令，選擇【 VB 數(shù)據(jù)窗體向?qū)А浚瑒t出現(xiàn)數(shù)據(jù)窗體向?qū)υ挕? 1． 選擇【工程】 |【添加模塊】命令，新建一個模塊，將其 Name 屬性改為“ Global”。 代碼在附 錄 A 標(biāo)題為 1 系統(tǒng)登 錄 界面設(shè)計 利用 Visual 實現(xiàn)登錄系統(tǒng)的功能。 VisualBasic 中選擇 【工程】 | 【添加類模塊】命令，生成一個數(shù)據(jù)模塊并保存為“ ”文件。Z) MenuItemSellManage 創(chuàng)建數(shù)據(jù)訪問模塊 因為各個窗體均需要對數(shù)據(jù)庫進行訪問 ， 可以把與數(shù)據(jù)庫有關(guān)的一些操作放在一個類里實現(xiàn)，這樣可以對數(shù)據(jù)庫訪問更加簡單。Z) MenuItemDepot MenuItemSystem 系統(tǒng)管理 (amp。Z) MenuItemSellManage MenuItemDepot 庫存管理 (amp。Z) MenuItemOrder MenuItemSellManage 銷售管理 (amp。Z) MenuItemArchive MenuItemOrder 進貨管理 (amp。X) MenuItemArchive MenuItemSupplyInfo 供貨商資料維護 (amp。 表 52 單項屬性及 關(guān)系 對象 (控件 )名 Text 屬性 父級菜單項 MenuItemArchive 資料管理 (amp。 51所示。選擇“標(biāo)準(zhǔn) EXE”選項，單擊【確定】按鈕。 FROM 銷售單明細 as a， 銷售單 as b where = 加入歷史 insert into 銷售單歷史 select * from 銷售單 30 insert into 銷售單明細歷史 select * from 銷售單明細 清除銷售單 delete from 銷售單明細 delete from 銷售單 mit 31 第 5 章 程序開發(fā) 系統(tǒng)主 界面 窗體 實現(xiàn) 啟動 Microsoft Visual Basic ， 在主菜單中選擇【文件】 |【新建工程】 命令。+ ， ， ， ， 銷售數(shù)量 ， 銷售價 ， 合計 ， 銷售日期 ， 39。=sum(銷售數(shù)量 ) FROM 銷售單明細 GROUP BY 倉庫 ， 貨號 ) AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號 = 加入應(yīng)收款 INSERT INTO 應(yīng)收款 (編號 ， 銷售單號 ， 貨號 ， 客戶編號 ， 數(shù)量 ， 銷售價 ， 金額 ， 銷售日期 ， 狀態(tài) ) SELECT 39。 FROM 進貨單明細 as a， 進貨單 as b where = 加入歷史 insert into 進貨單歷史 select * from 進貨單 insert into 進貨單明細歷史 select * from 進貨單明細 清除進貨單 delete from 進貨單明細 delete from 進貨單 mit go CREATE PROCEDURE sf_銷售單 記帳人 char(10) = NULL AS begin transaction 修改庫存信息 UPDATE 庫存庫 SET 庫存數(shù)量 =庫存數(shù)量 數(shù)量 ALL， 庫存金額 =庫存單價 *(庫存數(shù)量 數(shù)量 ALL) FROM (SELECT 倉庫 ， 貨號 ， 39。+ ， ， ， ， 進貨數(shù)量 ， 進價 ， 計 ， 進貨日期 ， 39。=sum(稅價合計 ) FROM 進貨單明細 GROUP BY 倉庫 ， 貨號 ) AS LSJ WHERE 存庫 .倉庫 = AND 庫存庫 號 = 加入應(yīng)付款 INSERT INTO 應(yīng)付款 (編號 ， 進貨單號 ， 貨號 ， 供貨商號 ， 數(shù)量 ， 進貨單價 ， 金額 ，進貨日期 ， 狀態(tài) ) 29 SELECT 39。 = sum(稅價合計 )/sum(進貨數(shù)量 )， 39。=sum(進貨數(shù)量 )， 39。建庫腳本如下： 存儲過程 CREATE PROCEDURE sf_進貨單 記帳人 char(10) = NULL AS begin transaction 庫中沒有，增加記錄 INSERT INTO 庫存庫 (貨號 ， 倉庫 ， 庫存數(shù)量 ， 庫存金額 ， 庫存單價 ) SELECT DISTINCT ， ， 0， 0， 0 FROM 進 貨單明細 AS J left join 庫存庫 as k on ( = and = ) where is null 修改庫存信息 UPDATE 庫存庫 SET 庫存單價 =case when 庫存數(shù)量 =0 or(庫存數(shù)量 +數(shù)量 ALL)=0 then 進價 else(庫存金額 +稅價合計 ALL)/(庫存數(shù)量 +數(shù)量 ALL)end， 庫存數(shù)量 =庫存數(shù)量 +數(shù)量 ALL， 庫存金額 =case when 庫存數(shù)量 =0 or (庫存數(shù)量 +數(shù)量 ALL)=0 then 進價 *(庫 存數(shù)量 +數(shù)量 ALL)else(庫存金額 +稅價合計 ALL)end， 最新進價 =進價 FROM (SELECT 倉庫 ， 貨號 ， 39。完成后單擊【確 定】按鈕，即可完成數(shù)據(jù)庫的創(chuàng)建工作。 在 Windows 的【開始】菜單中選擇 SQL Server 的【企業(yè)管理器】，在【數(shù)據(jù)庫】項目上右擊，在彈出的快捷菜單中選擇【新建數(shù)據(jù)庫】菜單項，在出現(xiàn)的對話框中填寫數(shù)據(jù)庫的名稱等信息。 “進貨單” 數(shù)據(jù)表如下 ： 24 表 47 進貨單 字段 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 是否為空 1 編號 char 14 NOT NULL 2 供貨商號 char 10 NOT NULL 3 進貨日期 datetime NULL 4 業(yè)務(wù)員 char 10 NULL 5 制單人 char 10 NULL 6 驗收員 char 10 NULL 7 保管員 char 10 NULL 8 稅價合計 datetime (28， 6) NULL 9 稅額 datetime (28， 6) NULL 10 訂單號 char 14 NULL 創(chuàng)建數(shù)據(jù)庫 打開 SQL Server 企業(yè)管理器，新建一個數(shù)據(jù)庫，將其命名為 sndqbook。 “供貨商表” 數(shù)據(jù)表如下 ： 表 45 供貨商表 字段 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 是否 為空 23 1 供貨商號 char 10 NOT NULL 2 拼音編碼 char 40 NOT NULL 3 名稱 varchar 80 NULL 4 地址 varchar 80 NULL 5 郵編 char 6 NULL 6 地區(qū) varchar 12 NULL 7 類型 char 10 NULL 8 電話 varchar 20 NULL 9 傳真 varchar 20 NULL 10 銀行帳號 varchar 20 NULL 11 稅號 varchar 20 NULL 12 庫房地址 varchar 40 NULL 13 庫房電話 varchar 20 NULL 14 業(yè)務(wù)員 char 10 NULL 15 業(yè)務(wù)員部門 varchar 20 NULL 創(chuàng)建“客戶 信息 ”數(shù)據(jù)表 客戶表用于儲存客戶基本資料，包括客戶編號、拼音編號、名稱、聯(lián)系人、地址、郵編、地區(qū)、電話 等。 “商品表” 數(shù)據(jù)表如下 ： 表 43 商品表 字段 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 是否為空 1 貨號 char 14 NOT NULL 2 條形碼 char 14 NULL 3 拼音編碼 char 40 NULL 4 商品 名 稱 varchar 80 NULL 5 規(guī)格 varchar 40 NULL 6 單位 char 6 NOT NULL 7 類別 char 20 NULL 8 進貨價 decimal (28， 6) NULL 9 銷售價 decimal (28， 6) NULL 10 最低售價 decimal (28， 6) NULL 創(chuàng)建“銷售單”數(shù)據(jù)表 銷售單是蘇寧電器所銷售的商品的基本信息，包括編號、客戶編號、銷售日期、業(yè)務(wù)員、制單人、保管員等。 表 41 庫存表 字段 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 是否為空 1 貨號 char 14 NOT NULL 2 倉庫 varchar 20 NOT NULL 3 庫存數(shù)量 decimal (28， 6) NOT NULL 4 庫存金額 decimal (28， 6) NOT NULL 5 庫存單價 decimal (28， 6) NOT NULL 6 最新進價 decimal (28， 6) NULL 權(quán)限管理表用于設(shè)置各操作員使用系統(tǒng)的權(quán)限，為了方便設(shè)置，一般的應(yīng)用系統(tǒng)都是可以將操作人員分組的，將通用的權(quán)限賦予整個組，個別的權(quán)限單獨賦予個人，這樣可以大大減少權(quán)限管理的工作量。 圖 45 銷售單實體 E－ R 圖 6． 庫存表用于庫存中商品數(shù)量的基本信息，包括貨號、倉庫、庫存數(shù)量、庫存金額、庫存單價、最新進價。 圖 43 客戶信息實體 E－ R圖 4． “ 進貨單 ” 實體 ER圖是用于錄入企業(yè)的進貨單，如（編號、供貨商號、進貨日期、業(yè)務(wù)員、制單人、驗收員、保管員、稅價合計、不含稅價、稅額、訂單號等）一些基本信息。 圖 41 商品清單實體 E－ R圖 2.“ 供貨商清單 ” 實體 ER圖 是用來描述一個供貨商的基本信息的，如（供貨商號、拼音編碼、名稱、地址、郵編、區(qū)號、地區(qū)、類型、電話、傳真、 銀行帳號 、庫房地址、庫房電話、業(yè)務(wù)員、業(yè)務(wù)部門等 ）一些基本的信息。即 E— R 圖。 6.“更改密碼”供用戶更改自己的密碼。 5.“日志管理”用于維護系統(tǒng)的使用日志。 3.“數(shù)據(jù)備份”用于備份系 統(tǒng)數(shù)據(jù)庫。 庫存管理 庫存查詢 庫存轉(zhuǎn)庫 庫存盤點 報損報益 上下限設(shè)定 庫存上下限報警 歷史查詢 入庫單 17 圖 37 “ 系統(tǒng)管理 ” 功能模塊 各功能模塊實現(xiàn)的功能分別為： 1.“參數(shù)設(shè)置”用于設(shè)定系統(tǒng)定義的一些基礎(chǔ)參數(shù)或開關(guān)。 系統(tǒng)