【導(dǎo)讀】息量也成倍增長。超市時時刻刻都需要對商品各種信息進行統(tǒng)計分析。的超市管理系統(tǒng)功能過于強大而造成操作繁瑣降低了小超市的工作效率?，F(xiàn)對進貨、銷售及員工信息等實現(xiàn)全面、動態(tài)、及時的管理。本文系統(tǒng)的分析了軟件開發(fā)的背景以過程；首先介紹了軟件的開發(fā)環(huán)境，以及具體界面的設(shè)計和功能。

　　

【正文】 職 工 信 息確 認(rèn) 職 工 信 息刪 除 職 工 信 息刪 除 操 作 結(jié) 果 圖 523 職工信息刪除時序圖 6. 供貨商信息管理模塊 在超市引進商品時，首先查詢已有的供貨商信息，然后按照供貨商信息采購商品；或者從新的供貨商那里引進新的商品，此時，要把新供貨商信息添加到供貨商清單中。有時，不再從某一供貨商那里采購商品時，此時要把 供貨商信息刪掉。當(dāng)供貨商信息有變化時，就需要對供貨商信息進行維護等。 (1)供貨商信息管理模塊用例圖，如圖 524 所示： 管 理 者查 詢 供 貨 商 信 息添 加 新 供 貨 商 信 息刪 除 供 貨 商 信 息修 改 供 貨 商 信 息 圖 524 供貨商信息管理用例圖 (2)供貨商信息管理模塊活動圖，如圖 525 所示： 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） 供 貨 商 管 理添 加 供 貨 商 信 息修 改 供 貨 商 信 息刪 除 供 貨 商 信 息輸 入 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息保 存查 詢 欲 修 改 的 信 息輸 入 新 的 供 貨 商 信 息確 認(rèn) 信 息保 存 供 貨 商 信 息輸 入 欲 刪 除 的 供 貨 商 信 息確 認(rèn) 刪 除 信 息從 數(shù) 據(jù) 庫 表 中 刪 除 供 貨 商 信 息查 詢輸 入 查 詢 信 息確 認(rèn) 查 詢 信 息 圖 525 供貨商信息管理活動圖 (3)供貨商信息管理查詢時序圖，如圖 526 所示： 管 理 員 供 貨 商 管 理 界 面 確 認(rèn) 供 貨 商 清 單輸 入 管 理 帳 號供 貨 商 查 詢 信 息查 詢 供 貨 商 信 息查 詢 操 作 結(jié) 果 圖 526 供貨商信息管理查詢時序圖 (4)供貨商信息管理刪除時序圖，如圖 527 所示： 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） 管 理 員 輸 入 信 息 界 面 刪 除 供 貨 商 清 單輸 入 欲 刪 除 的 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息刪 除 供 貨 商 信 息刪 除 操 作 結(jié) 果 圖 527 供貨商信息管理刪除時序圖 (5)供貨商信息管理添加時序圖，如圖 528 所示： 管 理 員 輸 入 供 貨 商 信 息 添 加 供 貨 商 清 單輸 入 新 供 貨 商 基 本 信 息確 認(rèn) 新 供 貨 商 基 本 信 息保 存 新 供 貨 商 基 本 信 息添 加 操 作 結(jié) 果 圖 528 供貨商信息管理添加時序圖 (6)供貨商信息管理修改時序圖，如圖 529 所示： 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） 管 理 員 輸 入 信 息 界 面 修 改 供 貨 商 清 單輸 入 欲 修 改 的 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息保 存 供 貨 商 信 息修 改 操 作 結(jié) 果 圖 529 供貨商信息管理修改時序圖 7. 系統(tǒng)管理模塊 系統(tǒng)用戶管理：在系統(tǒng)實行多用戶管理時 ，本模塊將為系統(tǒng)開辟多個系統(tǒng)用戶，并能對其進行簡單的信息維護，用戶名變更和密碼修改。 退出：選擇退出系統(tǒng)，將關(guān)閉整個系統(tǒng)，結(jié)束本次使用。 遼寧警官高等專科學(xué)校高職計算機畢業(yè)設(shè)計（論文） 第六章 主要代碼 4． 1系統(tǒng)實現(xiàn)步驟 在完成了系統(tǒng)的需求分析和設(shè)計之后，就進入系統(tǒng)的實現(xiàn)階段。小型超市管理系統(tǒng) 的實現(xiàn)步驟如下： (1)創(chuàng)建數(shù)據(jù)庫 ①建立數(shù)據(jù)庫名 ②建立數(shù)據(jù)庫下數(shù)據(jù)表 ③創(chuàng)建立數(shù)據(jù)庫表的約束 (2)創(chuàng)建項目 ①創(chuàng)建各窗體，并設(shè)置窗體之間屬性 ②為主窗體上菜單添加代碼 ③為各從窗體上按鈕添加代碼 (3)創(chuàng)建數(shù)據(jù)庫連接 (4)創(chuàng)建公用模塊， 數(shù)據(jù)訪問模塊、數(shù)據(jù)訪問支持模塊、程序中需要的數(shù)據(jù)實體模塊。 (5)創(chuàng)建信息管理模塊 包括員工信息管理模塊、商品信息管理模塊、供貨商信息管理模塊、會員信息管理 模塊、進貨信息管理模塊、銷售信息管理模塊、退貨信息管理模塊、調(diào)價信息管理模塊、 會員卡充值管理模塊等。 (6)進行整個系統(tǒng)編碼的調(diào)試與修改 4． 2創(chuàng)建數(shù)據(jù)庫 4． 2． 1創(chuàng)建數(shù)據(jù)庫 啟動Ⅳ iicrosoft SQL Server的查詢分析器后，輸入以下語句并單擊工具欄中的運 行按鈕，創(chuàng)建小型超市管理系統(tǒng)數(shù)據(jù)庫后，數(shù)據(jù)庫名為 CSGL， 所有參數(shù)采用默認(rèn)值。 CREATE DATABASE CSGL GO 4． 2． 2創(chuàng)建表 創(chuàng)建小型超市管理系統(tǒng)數(shù)據(jù)庫 CSGL后，向 CSGL數(shù)據(jù)庫中添加一個數(shù)據(jù)文件員工信 息表文件 Staff，需運行以下代碼。 遼寧警官高等專科學(xué)校高職計算機畢業(yè)設(shè)計（論文） USE CSGL GO CREATE TABLE Staff ( Staff_ID INT NOT NULL IDENTITY(1， 1) PRIMARY KEY Staff_Name CHAR(i 0) NOT NULL。 Staff— Password VARCHAR50)NOT NULL， Staff_Ri ght CHAR(2)NOT NULL， Staff_Sex CHAR(2)NoT NULL。 Staff_Phone CHAR(20)NOT NULL， Staff_Duty CHAR(20)NOT NULL， ) Go 參照上述代碼，依次建立商品信息表 Prouduct、會員信息表 VIP、進貨 (入庫 )信 息表 Prouduct ln、銷售信息表 Sales、供貨商信息表 Suppl iers、調(diào)價記錄表 Price Adjustment、會員卡充值記錄表 Rechangeable、商品退貨表 ProuductBack等。 4． 2． 3向表中添加數(shù)據(jù) 創(chuàng)建了數(shù)據(jù)庫表后，就可以開始輸入數(shù)據(jù)了?？梢酝ㄟ^建立小型超市管理系統(tǒng)后的 的各表的輸入界面向小型超市管理系統(tǒng)數(shù)據(jù)庫 CSGL系統(tǒng)添加數(shù)據(jù)。 4． 2． 4創(chuàng)建約束 創(chuàng)建了數(shù)據(jù)庫表后，就可以創(chuàng)建主鍵約束了。可以通過運行以下代碼： ALTER TABLE Staff ADD CONSTAINT PK． — Staff PRIMARY KEY CLUSTERED(Staff_ID) GO 創(chuàng)建外鍵約束了。進貨 (入庫 )信息表 ProuductIn的 Staff_ID與員工信息表文件 Staff的 StaffID互為參照關(guān)系，可以通過運行以下代碼，創(chuàng)建外鍵約束。： USE CSGL Go ALTER TAB[． E ProlJduc t I n 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） ADD CONSTAINT FK StaffⅡ ) FOREIGN KEY(Staff ID) REFERENCES Staff(Staff ID) GO 4． 2． 5設(shè)置列標(biāo)題 在默認(rèn)情況下，查詢結(jié)果返回的是表的列名。對于不熟悉數(shù)據(jù)庫結(jié)構(gòu)的用戶來說， 這些列名不易理解?？梢杂靡韵旅顏碓O(shè)置列標(biāo)題。 SELECT Staff_ID AS員工編號， Staff_Name AS員工姓名， Staff_Password AS密 碼， Staff_Right AS權(quán)限， StaffSex AS性別， Staff— Phone AS聯(lián)系電話， Staff_Duty AS職務(wù)； 4． 3創(chuàng)建項目 4。 3． 1 創(chuàng)建小型超市管理系統(tǒng)的項目 market 在建立了數(shù)據(jù)庫后，就可以創(chuàng)建小型超市管理系統(tǒng)的項目文件了。首先啟動 Delphi 7，保存項目文件名為 market． dpr。 4． 3． 2創(chuàng)建小型超市管理系統(tǒng)中的各個模塊 本系統(tǒng)包含如下幾個模塊： DataAeccess提供數(shù)據(jù)訪問模塊 DataHelpAeccess提供數(shù)據(jù)訪問支持模塊 Commom提供程序中需要的數(shù)據(jù)實體模塊 StaffGL提供員工信息管理模塊 ProuductGL提供商品信息管理模塊 Suppliers提供供貨商信息管理模塊 VIPGLGL提供會員信息管理模塊 ProuductInGL提供進貨信息管理模塊 Sales提供銷售信息管理模塊 ProuductBackGL提供退貨信息管理模塊 PriceAdjustmentGL提供調(diào)價信息管理模塊 RechangeableGL 提供會員卡充值管理模塊 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） 4． 3． 3創(chuàng)建數(shù)據(jù)訪問支持模 塊 本系統(tǒng)采用統(tǒng)一數(shù)據(jù)連接管理， DataAeccess模塊在 config． pas中的 CSGLConfig 定義連接管理類，采用 getConnectionStr方法來改變連接。其數(shù)據(jù)庫連接字符串為： class function CSGLConfig． getConnect ionStr： begin result： =’ Provider=SQLOLEDB． 1： Password=sa； Persist Security Info=True： User ID=sa： Initial Catalog=CSGL； Data Source=(10cal)’： end； sa是 SQLServer的系統(tǒng)管理員用戶，數(shù)據(jù)庫密碼為 sa。默認(rèn)的數(shù)據(jù)庫服務(wù)器為本 地計算機，如需要設(shè)置不同的數(shù)據(jù)庫服務(wù)器，則要改動上訴連接字符串的 Data Source 屬性。 定義連接管理類的代碼為： type CSGLConfig=class ／／定義連接管理類 public class function getConnectionStr： string： ／／定義類的方法，得到連接字 符串 end： 4． 3． 4創(chuàng)建數(shù)據(jù)操作模塊 數(shù)據(jù)庫操作模塊提供兩種數(shù)據(jù)訪問支 持方法： ExeSqlNoQuery和 ExeSqlQuery方法。 其中 ExeSqlNoQuery執(zhí)行沒有返回值的 sql語句，如果正確執(zhí)行則返回 true，否則返 回 false； ExeSqlQuery執(zhí)行有返回值的 sql語句，返回得到的 ADOQuery：以下是它們的 函數(shù)定義。 function ExeSqlQuery(sql： string)： TADOQuery： Var query： TADOQuery： begin try ／／判斷連接狀態(tài)是否關(guān)閉，若關(guān)閉則打開 if stClosed in DataM． ADOCon． State then 遼寧警官高等?？茖W(xué)校高職計算機畢業(yè)設(shè)計（論文） DataM． ADOCon． Open； query： 2TADOQuery． Create(ni l)： query． Connection： =DataM． ADOCon： query． Close； query． SOL． Clear： query． SOL． Add(sql)： query． Open： except result： =nil： end： result： =query； end： function ExeSqlNoOuery(sql： string)： boolean： Var query： TADOQuery： ref： integer； begin ref： =O； ／／判斷連接狀態(tài)是否關(guān)閉，若關(guān)閉則打開 if stClosed in DataM． ADOCon． State then DataM． ADOCon． Open： query： 2TADOQuery． Create(ni l)： query． Connec t i on： =DataM． ADOCon： query． Close； DataM． ADOCon． Beg i nTrans： try query． SOL． Clear： query． SOL． Add(sql)： ref： 2query． ExecSQL：／／影響的行數(shù) DataM． ADOCon． Commi tTrans： except DataM． ADOCon． Rol lbackTrans： 一 遼寧警官高等專科學(xué)校高職計算機畢業(yè)設(shè)計（論文） query： =nil： result： =false： end： if refO then result： =true else result： =false： end： 4． 3． 5創(chuàng)建小型超市管理系統(tǒng)中的類模塊 本系統(tǒng)包含如下類模塊： type TStaff=class StaffID： integer： StaffName： string： StaffPassword： str i ng： StaffRight： string： StaffSex： string： StaffPhone： string： StaffDuty： string： end： 這一類的定義與表 3． 1員工信息表的結(jié)構(gòu)相對應(yīng)。 另外定義 8個類： TProuduct、 TVIP、