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

　　

【正文】 職 工 信 息確 認(rèn) 職 工 信 息刪 除 職 工 信 息刪 除 操 作 結(jié) 果 圖 523 職工信息刪除時(shí)序圖 6. 供貨商信息管理模塊 在超市引進(jìn)商品時(shí)，首先查詢已有的供貨商信息，然后按照供貨商信息采購商品；或者從新的供貨商那里引進(jìn)新的商品，此時(shí)，要把新供貨商信息添加到供貨商清單中。有時(shí)，不再從某一供貨商那里采購商品時(shí)，此時(shí)要把 供貨商信息刪掉。當(dāng)供貨商信息有變化時(shí)，就需要對供貨商信息進(jìn)行維護(hù)等。 (1)供貨商信息管理模塊用例圖，如圖 524 所示： 管 理 者查 詢 供 貨 商 信 息添 加 新 供 貨 商 信 息刪 除 供 貨 商 信 息修 改 供 貨 商 信 息 圖 524 供貨商信息管理用例圖 (2)供貨商信息管理模塊活動(dòng)圖，如圖 525 所示： 遼寧警官高等專科學(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 供 貨 商 管 理添 加 供 貨 商 信 息修 改 供 貨 商 信 息刪 除 供 貨 商 信 息輸 入 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息保 存查 詢 欲 修 改 的 信 息輸 入 新 的 供 貨 商 信 息確 認(rèn) 信 息保 存 供 貨 商 信 息輸 入 欲 刪 除 的 供 貨 商 信 息確 認(rèn) 刪 除 信 息從 數(shù) 據(jù) 庫 表 中 刪 除 供 貨 商 信 息查 詢輸 入 查 詢 信 息確 認(rèn) 查 詢 信 息 圖 525 供貨商信息管理活動(dòng)圖 (3)供貨商信息管理查詢時(shí)序圖，如圖 526 所示： 管 理 員 供 貨 商 管 理 界 面 確 認(rèn) 供 貨 商 清 單輸 入 管 理 帳 號(hào)供 貨 商 查 詢 信 息查 詢 供 貨 商 信 息查 詢 操 作 結(jié) 果 圖 526 供貨商信息管理查詢時(shí)序圖 (4)供貨商信息管理刪除時(shí)序圖，如圖 527 所示： 遼寧警官高等?？茖W(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 管 理 員 輸 入 信 息 界 面 刪 除 供 貨 商 清 單輸 入 欲 刪 除 的 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息刪 除 供 貨 商 信 息刪 除 操 作 結(jié) 果 圖 527 供貨商信息管理刪除時(shí)序圖 (5)供貨商信息管理添加時(shí)序圖，如圖 528 所示： 管 理 員 輸 入 供 貨 商 信 息 添 加 供 貨 商 清 單輸 入 新 供 貨 商 基 本 信 息確 認(rèn) 新 供 貨 商 基 本 信 息保 存 新 供 貨 商 基 本 信 息添 加 操 作 結(jié) 果 圖 528 供貨商信息管理添加時(shí)序圖 (6)供貨商信息管理修改時(shí)序圖，如圖 529 所示： 遼寧警官高等專科學(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 管 理 員 輸 入 信 息 界 面 修 改 供 貨 商 清 單輸 入 欲 修 改 的 供 貨 商 信 息確 認(rèn) 供 貨 商 信 息保 存 供 貨 商 信 息修 改 操 作 結(jié) 果 圖 529 供貨商信息管理修改時(shí)序圖 7. 系統(tǒng)管理模塊 系統(tǒng)用戶管理：在系統(tǒng)實(shí)行多用戶管理時(shí) ，本模塊將為系統(tǒng)開辟多個(gè)系統(tǒng)用戶，并能對其進(jìn)行簡單的信息維護(hù)，用戶名變更和密碼修改。 退出：選擇退出系統(tǒng)，將關(guān)閉整個(gè)系統(tǒng)，結(jié)束本次使用。 遼寧警官高等專科學(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 第六章 主要代碼 4． 1系統(tǒng)實(shí)現(xiàn)步驟 在完成了系統(tǒng)的需求分析和設(shè)計(jì)之后，就進(jìn)入系統(tǒng)的實(shí)現(xiàn)階段。小型超市管理系統(tǒng) 的實(shí)現(xiàn)步驟如下： (1)創(chuàng)建數(shù)據(jù)庫 ①建立數(shù)據(jù)庫名 ②建立數(shù)據(jù)庫下數(shù)據(jù)表 ③創(chuàng)建立數(shù)據(jù)庫表的約束 (2)創(chuàng)建項(xiàng)目 ①創(chuàng)建各窗體，并設(shè)置窗體之間屬性 ②為主窗體上菜單添加代碼 ③為各從窗體上按鈕添加代碼 (3)創(chuàng)建數(shù)據(jù)庫連接 (4)創(chuàng)建公用模塊， 數(shù)據(jù)訪問模塊、數(shù)據(jù)訪問支持模塊、程序中需要的數(shù)據(jù)實(shí)體模塊。 (5)創(chuàng)建信息管理模塊 包括員工信息管理模塊、商品信息管理模塊、供貨商信息管理模塊、會(huì)員信息管理 模塊、進(jìn)貨信息管理模塊、銷售信息管理模塊、退貨信息管理模塊、調(diào)價(jià)信息管理模塊、 會(huì)員卡充值管理模塊等。 (6)進(jìn)行整個(gè)系統(tǒng)編碼的調(diào)試與修改 4． 2創(chuàng)建數(shù)據(jù)庫 4． 2． 1創(chuàng)建數(shù)據(jù)庫 啟動(dòng)Ⅳ iicrosoft SQL Server的查詢分析器后，輸入以下語句并單擊工具欄中的運(yùn) 行按鈕，創(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ù)庫中添加一個(gè)數(shù)據(jù)文件員工信 息表文件 Staff，需運(yùn)行以下代碼。 遼寧警官高等?？茖W(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 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、會(huì)員信息表 VIP、進(jìn)貨 (入庫 )信 息表 Prouduct ln、銷售信息表 Sales、供貨商信息表 Suppl iers、調(diào)價(jià)記錄表 Price Adjustment、會(huì)員卡充值記錄表 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)建主鍵約束了?？梢酝ㄟ^運(yùn)行以下代碼： ALTER TABLE Staff ADD CONSTAINT PK． — Staff PRIMARY KEY CLUSTERED(Staff_ID) GO 創(chuàng)建外鍵約束了。進(jìn)貨 (入庫 )信息表 ProuductIn的 Staff_ID與員工信息表文件 Staff的 StaffID互為參照關(guān)系，可以通過運(yùn)行以下代碼，創(chuàng)建外鍵約束。： USE CSGL Go ALTER TAB[． E ProlJduc t I n 遼寧警官高等?？茖W(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 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)的用戶來說， 這些列名不易理解。可以用以下命令來設(shè)置列標(biāo)題。 SELECT Staff_ID AS員工編號(hào)， 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)建項(xiàng)目 4。 3． 1 創(chuàng)建小型超市管理系統(tǒng)的項(xiàng)目 market 在建立了數(shù)據(jù)庫后，就可以創(chuàng)建小型超市管理系統(tǒng)的項(xiàng)目文件了。首先啟動(dòng) Delphi 7，保存項(xiàng)目文件名為 market． dpr。 4． 3． 2創(chuàng)建小型超市管理系統(tǒng)中的各個(gè)模塊 本系統(tǒng)包含如下幾個(gè)模塊： DataAeccess提供數(shù)據(jù)訪問模塊 DataHelpAeccess提供數(shù)據(jù)訪問支持模塊 Commom提供程序中需要的數(shù)據(jù)實(shí)體模塊 StaffGL提供員工信息管理模塊 ProuductGL提供商品信息管理模塊 Suppliers提供供貨商信息管理模塊 VIPGLGL提供會(huì)員信息管理模塊 ProuductInGL提供進(jìn)貨信息管理模塊 Sales提供銷售信息管理模塊 ProuductBackGL提供退貨信息管理模塊 PriceAdjustmentGL提供調(diào)價(jià)信息管理模塊 RechangeableGL 提供會(huì)員卡充值管理模塊 遼寧警官高等專科學(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 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ù)器為本 地計(jì)算機(jī)，如需要設(shè)置不同的數(shù)據(jù)庫服務(wù)器，則要改動(dòng)上訴連接字符串的 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 遼寧警官高等專科學(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 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： 一 遼寧警官高等?？茖W(xué)校高職計(jì)算機(jī)畢業(yè)設(shè)計(jì)（論文） 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個(gè)類： TProuduct、 TVIP、