超市管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)

1、超市管理系統(tǒng) 設(shè)計者： 指導(dǎo)老師：1、 緒論1.1 超市銷售系統(tǒng)概述超市銷售系統(tǒng)是針對超級市場的銷售而開發(fā)的。超市銷售系統(tǒng)的使用，能轉(zhuǎn)變超市的工作方式，有效提高銷售速度和服務(wù)水平，提高客戶對超市的信任度和滿意度，改善客戶關(guān)系。運(yùn)用超市銷售系統(tǒng)，在銷售商品時實(shí)行出口一次性付款，做到快速準(zhǔn)確。運(yùn)用超市銷售系統(tǒng)，超市內(nèi)部實(shí)現(xiàn)現(xiàn)代化管理，能夠準(zhǔn)確把握每一種商品的銷售動態(tài)，可以防止商品斷檔或過量儲備，商品開發(fā)方向、進(jìn)貨的適時化都可通過超市銷售系統(tǒng)來完成。超市銷售系統(tǒng)將手工已編制好的銷售賬目或根據(jù)原始超市銷售直接在系統(tǒng)內(nèi)制作超市銷售信息，同時可對輸入的超市銷售信息進(jìn)行修改、查詢等操作，這種集約化的銷售管理

2、模式便于超市銷售信息的收集、整理和加工，又便于操作員的需求信息在最短的時間內(nèi)得到反饋，同時超市銷售系統(tǒng)可自動分析各種商品銷售變化規(guī)律，商品銷售結(jié)構(gòu)、居民消費(fèi)變化等，從而為合理進(jìn)貨、經(jīng)營、加工、庫存、銷售等提供科學(xué)決策的依據(jù)。1.2應(yīng)用背景最初的超市資料管理，都是靠人力來完成的。但近幾年我國超市經(jīng)營規(guī)模日趨擴(kuò)大，銷售額和門店數(shù)量大幅度增加，而且許多超市正在突破以食品為主的傳統(tǒng)格局，向品種多樣化發(fā)展。小型超市在業(yè)務(wù)上需要處理大量的庫存信息，還要時刻更新產(chǎn)品的銷售信息，不斷添加商品信息，并對商品各種信息進(jìn)行統(tǒng)計分析。因此，在超市管理中引進(jìn)現(xiàn)代化的辦公軟件，實(shí)現(xiàn)超市龐大商品的控制和傳輸，從而方便銷售行

3、業(yè)的管理和決策，為超市和超市管理人員解除后顧之憂。1.3設(shè)計目標(biāo)超市銷售系統(tǒng)主要實(shí)現(xiàn)以下目標(biāo)：1、信息管理功能：能夠即時瀏覽、添加、刪除、修改和查詢員工、商品及供貨商相關(guān)信息。2、日常工作管理：對超市的進(jìn)貨進(jìn)行管理與登記。3、銷售管理：包括客戶結(jié)賬、營業(yè)利潤分析、銷售查詢和銷售商品單，對整個超市的銷售過程進(jìn)行有效的分析與管理。4、更新信息：由于商品信息的即時性很強(qiáng)，要求所有商品可以隨時被更新、添加或刪除等。5、提高服務(wù)滿意度。1.4 系統(tǒng)技術(shù)分析超市銷售系統(tǒng)主要采用了Delphi技術(shù)和SQL Server 2000數(shù)據(jù)庫，分別從Delphi技術(shù)的特點(diǎn)、應(yīng)用范圍，以及SQL Server 200

4、0數(shù)據(jù)庫的發(fā)展、特點(diǎn)和應(yīng)用等方面進(jìn)行簡述，以明確開發(fā)系統(tǒng)所使用的技術(shù)有足夠的可行性和明顯的針對性，并能滿足系統(tǒng)移植性能的要求。1.4.1 Delphi技術(shù)簡介Delphi 7是著名的Borland（現(xiàn)Inprise）公司開發(fā)的快速、可視化程序開發(fā)工具?！罢嬲某绦騿T用C+，聰明的程序員用Delphi”，這句話是對Delphi最經(jīng)典、最實(shí)在的描述。Delphi被稱為第四代編程語言，它具有簡單、高效、功能強(qiáng)大的特點(diǎn)。和VC相比，Delphi更簡單、更易于掌握，但是在功能上卻絲毫不遜色；和VB相比，Delphi則功能更強(qiáng)大、更實(shí)用?？梢哉fDelphi同時兼?zhèn)淞薞C功能強(qiáng)大和VB簡單易學(xué)的特點(diǎn)，它一直

5、是程序員至愛的編程工具。Delphi具有以下幾個特性：基于窗體和面向?qū)ο蟮姆椒?、高速的編譯器、強(qiáng)大的數(shù)據(jù)庫支持、與Windows編程緊密結(jié)合、強(qiáng)大而成熟的組件技術(shù)。但最重要的還是Object Pascal語言，它才是一切的根本。Object Pascal語言是在Pascal語言的基礎(chǔ)上發(fā)展起來的，簡單易學(xué)2。1.4.2 SQL Server 2000技術(shù)簡介超市銷售系統(tǒng)的開發(fā)選擇了Microsoft SQL Server2000數(shù)據(jù)庫。SQL適用于中小型事物處理及客戶端/服務(wù)端結(jié)構(gòu)的應(yīng)用系統(tǒng)，它功能強(qiáng)大操作簡便，日益為廣大數(shù)據(jù)庫用戶所喜愛，越來越多的開發(fā)工具提供了與SQL Server的接口。

6、SQL Server最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同開發(fā)的，于1988 年推出了第一個OS/2 版本，在Windows NT 推出后，Microsoft與Sybase在SQL Server的開發(fā)上就分道揚(yáng)鑣了，Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上，專注于開發(fā)、推廣SQL Server 的Windows NT 版本3。SQL Server 2000是Microsoft公司推出的SQL Server數(shù)據(jù)庫管理系統(tǒng)的最新版本，是一個分布式的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，具有客戶機(jī)/服務(wù)器體系結(jié)構(gòu)，采用了Transact-s

7、ql的sql語言在客戶機(jī)與服務(wù)器間傳遞客戶機(jī)的請求與服務(wù)器的處理結(jié)果。SQL Server 2000能夠滿足今天的商業(yè)環(huán)境要求不同類型的數(shù)據(jù)庫解決方案，它是一種應(yīng)用廣泛的數(shù)據(jù)庫管理系統(tǒng)，具有許多顯著的優(yōu)點(diǎn)：易用性、適合分布式組織的可伸縮性、用于決策支持的數(shù)據(jù)倉庫功能、與許多其他服務(wù)器軟件緊密關(guān)聯(lián)的集成性、良好的性價比等4。性能、可伸縮性及可靠性是基本要求，而進(jìn)入市場時間也非常關(guān)鍵，除這些核心企業(yè)品質(zhì)外，SQL Server 2000還為您的數(shù)據(jù)管理與分析帶來了靈活性，允許單位在快速變化的環(huán)境中從容響應(yīng)，從而獲得競爭優(yōu)勢。該版本繼承了SQL Server 7.0 版本的優(yōu)點(diǎn)，同時又比它增加了許多

8、更先進(jìn)的功能，具有使用方便、可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)?？煽缭綇倪\(yùn)行Microsoft Windows 98的膝上型電腦到運(yùn)行Microsoft Windows 2000的大型多處理器的服務(wù)器等多種平臺使用。MSSQL Server不但可以應(yīng)用于大中型數(shù)據(jù)庫管理中，建立分布式關(guān)系數(shù)據(jù)庫，并且也可以開發(fā)桌面數(shù)據(jù)庫。事實(shí)上，SQL Server數(shù)據(jù)庫處理的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫模式，盡管如此，相信大家都可以輕易的發(fā)現(xiàn)，在SQL Server的數(shù)據(jù)庫處理方式，則是使用面向?qū)ο蟮牟僮鞣绞脚c精神，也就是說，SQL Server的所有功能，都可以基于系統(tǒng)已經(jīng)建立好的一些對象來達(dá)成，是相當(dāng)OO

9、（面向?qū)ο螅┑囊粋€系統(tǒng)結(jié)構(gòu)。SQL Server企業(yè)管理器是 SQL Server的主要管理工具，它提供了一個遵從 MMC 標(biāo)準(zhǔn)的用戶界面，使用戶得以：1、定義 SQL Server實(shí)例組。2、將個別服務(wù)器注冊到組中。3、為每個已注冊的服務(wù)器配置所有 SQL Server選項。4、在每個已注冊的服務(wù)器中創(chuàng)建并管理所有 SQL Server數(shù)據(jù)庫、對象、登錄、用戶和權(quán)限。5、在每個已注冊的服務(wù)器上定義并執(zhí)行所有 SQL Server管理任務(wù)。6、通過喚醒調(diào)用 SQL 查詢分析器，交互地設(shè)計并測試SQL語句、批處理和腳本。它支持中小型數(shù)據(jù)庫、多用戶的高性能和事物處理，支持分布式數(shù)據(jù)庫和分布處理，能

10、夠?qū)崿F(xiàn)安全性和完整性控制，具有可移植性、可兼容性和可聯(lián)結(jié)性，它具有良好的數(shù)據(jù)管理能力和良好的開發(fā)性5。2、總體方案設(shè)計2.1 設(shè)計原理1、模塊化模塊是構(gòu)成程序的基本構(gòu)件，模塊化就是把程序劃分成獨(dú)立命名且可獨(dú)立訪問的模塊，每個模塊完成一個子功能，把這些模塊集成起來構(gòu)成一個整體，可以完成指定的功能滿足用戶需求。采用模塊化原理可以使軟件結(jié)構(gòu)清晰，不僅容易設(shè)計也容易閱讀和理解。該系統(tǒng)正是采用模塊化的原理，將整個系統(tǒng)分成四個主要模塊，每個模塊都有它獨(dú)立的功能，整個超市銷售系統(tǒng)結(jié)構(gòu)清晰，用戶容易理解和操作。2、抽象當(dāng)考慮對任何問題的模塊化解法時，可以提出許多抽象的層次，系統(tǒng)設(shè)計過程的每一步都是對軟件解法的

11、抽象層次的一次精化，在可行性研究階段，是對整個超市銷售系統(tǒng)的抽象，在需求分析階段，是對超市銷售系統(tǒng)功能的抽象。3、逐步求精逐步求精是對整個設(shè)計過程的細(xì)化，由可行性研究到需求分析，再到總體設(shè)計和詳細(xì)設(shè)計，每一步都對超市銷售系統(tǒng)進(jìn)行了細(xì)化，這樣使超市銷售系統(tǒng)的結(jié)構(gòu)越來越清晰，功能越來越完善。4、信息隱藏和局部化在超市銷售系統(tǒng)的設(shè)計過程中，涉及到許多數(shù)據(jù)信息，有的信息對于不需要它的模塊來說是不能訪問的，需要隱藏起來，而局部化有助于實(shí)現(xiàn)信息隱藏，該系統(tǒng)正是運(yùn)用了這一原理來進(jìn)行設(shè)計的。5、模塊獨(dú)立該系統(tǒng)的各個模塊之間沒有過多的相互作用，每個模塊的功能都比較獨(dú)立，這樣的軟件容易開發(fā)出來。系統(tǒng)的各模塊都相對

12、獨(dú)立，修改設(shè)計和程序需要的工作量比較小，錯誤傳播范圍小，需要擴(kuò)充功能時能夠插入模塊，這樣系統(tǒng)比較容易測試和維護(hù)。2.2 功能模塊設(shè)計模塊化是指解決一個復(fù)雜問題時自頂向下逐層把軟件系統(tǒng)劃分成若干個模塊的過程。每個模塊完成一個特定的功能，所有的模塊都按某種方法組織起來，成為一個整體，完成整個系統(tǒng)所要求的功能。根據(jù)前面在可行性分析時對系統(tǒng)提出的要求以及在需求分析階段提出的系統(tǒng)功能需求，將系統(tǒng)結(jié)構(gòu)分成四個模塊：基本信息管理模塊、日常工作管理模塊、銷售管理模塊、統(tǒng)計報表模塊，每個模塊的具體功能如下：1、信息管理模塊：實(shí)現(xiàn)對員工、商品、供貨商、會員等基本信息管理的功能，讓管理層對整個超市的人事及商品有詳細(xì)

13、的了解，這個模塊包括“員工管理”、“商品管理”、“供貨商管理”三個功能模塊。(1)員工信息管理，這個模塊對超市的所有員工的信息進(jìn)行登記管理，包括添加、修改、刪除、查詢操作。(2)商品信息管理和供貨商信息管理，這兩個模塊功能同員工信息管理模塊。2、日常工作管理：實(shí)現(xiàn)對整個超市的日常工作管理的功能，使整個超市的工作井然有序，這個模塊包括 “進(jìn)貨管理”一個功能模塊。 (1)進(jìn)貨管理，這個模塊對超市所購進(jìn)的商品進(jìn)行登記。3、銷售管理模塊：是系統(tǒng)最主要的模塊，對商品的銷售進(jìn)行一條龍管理，能夠?qū)γ咳丈唐蜂N售信息進(jìn)行輸入、查詢、統(tǒng)計等操作。這個模塊包括 “營業(yè)利潤分析”、“客戶結(jié)賬”、“銷售查詢”三個模塊。

14、 (1)營業(yè)利潤分析，這個模塊通過對商品銷售的分析，得出各種商品的所得利潤及整個超市公司的收益。同時幫助超市經(jīng)營者掌握和分析營銷情況，及時做出正確決策。(2)客戶結(jié)賬，超市在銷售商品時，對客戶所購買商品的信息進(jìn)行登記，并結(jié)算客戶銷售金額。(3)銷售查詢，這個模塊實(shí)現(xiàn)對銷售商品、銷售金額等的查詢功能。功能模塊如圖4.1所示。圖4.1超市銷售系統(tǒng)功能模塊圖2.3 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是信息管理的基礎(chǔ)，其結(jié)構(gòu)直接關(guān)系到各種功能的實(shí)現(xiàn)和程序運(yùn)行的效率，進(jìn)行數(shù)據(jù)庫設(shè)計首先必須準(zhǔn)確了解與分析用戶需求（包括數(shù)據(jù)與處理）11。根據(jù)上一章的需求分析，建立了一個數(shù)據(jù)庫名為：超市管理系統(tǒng)的數(shù)據(jù)庫，其中有六個數(shù)據(jù)表。員工

15、信息表：此表中記錄了員工的所有信息，管理員通過此表對員工進(jìn)行添加、刪除、修改管理，也可通過此表查詢某個員工的信息，此表的主鍵為“員工編號”。其結(jié)構(gòu)如表4.1所示。表4.1員工信息表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空員工編號Char(10)否員工姓名char(10)否性別char(2)否身份證號Char(18)否家庭住址Varchar(30)否聯(lián)系電話char(20)否職務(wù)Varchar(10)否商品信息表：此表記錄了超市的所有商品信息，管理人員可以通過此表對商品進(jìn)行添加、刪除、修改等操作，在進(jìn)貨管理、客戶結(jié)賬過程中，都涉及到對此表的操作，此表的主鍵是商品編號。其結(jié)構(gòu)如表4.2所示。表4.

16、2商品信息表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空商品編號Char(20)否商品名稱Char(20)否商品類型Char(10)否供貨商編號Char(20)否進(jìn)價Char(10)否售價Char(10)否備注Char (16)是入庫信息表：此表主要記錄進(jìn)貨商品的相關(guān)信息，以方便以后管理員查看進(jìn)貨信息，此表的主鍵是RK_ID。其結(jié)構(gòu)如表4.4所示。表4.4入庫信息表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空進(jìn)貨單號Char(20)否商品編號Char(20)否供貨商名稱Char(30)否進(jìn)貨數(shù)量Char(10)否進(jìn)價Char(10)否進(jìn)貨時間Char(20)否經(jīng)手人Char(10)否銷售信息表：此表記

17、錄了超市所有商品銷售記錄，營業(yè)利潤分析通過此表進(jìn)行分析統(tǒng)計，銷售詳細(xì)單也是通過此表打印的。其結(jié)構(gòu)如表4.5所示。表4.5銷售信息表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空流水賬號Char(20)否商品編號Char(20)否商品名稱Char(30)否單價Char(10)否數(shù)量Char(10)否總價Char(19)否銷售日期Char(10)否收銀員Char(10)否供貨商信息表：此表記錄了所有供貨商的基本信息，其結(jié)構(gòu)如表4.6所示。表4.6供貨商信息表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空供貨商編號Char(10)否供貨商名稱Char(30)否聯(lián)系人Char(10)否聯(lián)系電話Char(20)否聯(lián)

18、系地址Char(30)否備注Char(250)是用戶登錄表：此表主要記錄了員工的密碼信息，可進(jìn)行相關(guān)查詢，修改。此表的主鍵是用戶編號。其結(jié)構(gòu)如表4.8所示。表4.8 會員充值記錄表的結(jié)構(gòu)字段名數(shù)值類型（長度）是否允許為空員工編號Char(20)否密碼Char(10)是職務(wù)Varchar(10)是2.4 小結(jié)這一部分主要是對超市銷售系統(tǒng)進(jìn)行總體設(shè)計，得出設(shè)計此系統(tǒng)的原理以及功能模塊，設(shè)計出此系統(tǒng)的數(shù)據(jù)庫，為下面進(jìn)行系統(tǒng)詳細(xì)設(shè)計奠定基礎(chǔ)。3、系統(tǒng)詳細(xì)設(shè)計與實(shí)現(xiàn)通過前部分的分析與設(shè)計，接下來進(jìn)行系統(tǒng)的詳細(xì)設(shè)計，詳細(xì)設(shè)計的根本目標(biāo)是確定應(yīng)該怎樣具體地實(shí)現(xiàn)所要求的系統(tǒng)，主要任務(wù)是設(shè)計出程序的“藍(lán)圖”，再

19、根據(jù)這個藍(lán)圖寫出實(shí)際的程序代碼。3.1 系統(tǒng)窗口的設(shè)計與實(shí)現(xiàn)進(jìn)入系統(tǒng)，首先會出現(xiàn)系統(tǒng)窗口，分別有“系統(tǒng)介紹”，“用戶登錄”，“關(guān)于我們”，“退出系統(tǒng)”的功能鍵指導(dǎo)用戶使用本系統(tǒng)。窗體上的組件位置如圖3.1所示。 圖3.1系統(tǒng)窗體設(shè)計界面3.2 登錄窗體的設(shè)計與實(shí)現(xiàn)為了提高系統(tǒng)的安全性，在超市銷售系統(tǒng)的登錄界面設(shè)置用戶以及密碼。用戶登錄窗體很簡單，首先在用戶輸入框輸入用戶身份，再輸入用戶名，然后對應(yīng)輸入口令，程序?qū)⑴c用戶數(shù)據(jù)庫連接，確認(rèn)用戶是其中一員，并輸入了正確的口令，然后進(jìn)入主界面，否則警告出錯，讓用戶重新輸入。窗體上的組件位置如圖3.2所示 圖3.2登錄窗體設(shè)計界面登錄的關(guān)鍵代碼如下：AD

20、OQuery1.SQL.Text := 'select * from 用戶登錄表 where 員工編號='+QuotedStr(Edit1.Text);(Trim(ADOQuery1.FieldByName('職務(wù)').AsVariant)='老板')Trim(ADOQuery1.FieldByName('用戶名').AsVariant)=Trim(edit2.Text)Trim(ADOQuery1.FieldByName(職務(wù)). AsVariant)=Trim(edit3.Text)3.3 主窗體模塊的設(shè)計與實(shí)現(xiàn)主窗體模塊主要

21、是完成系統(tǒng)功能模塊的劃分。超市銷售系統(tǒng)主窗體包括四個下拉菜單：基本信息管理菜單、日常工作管理菜單、銷售管理菜單、統(tǒng)計表菜單，考慮到有些功能是經(jīng)常使用的，另外在窗體上設(shè)置了快捷按鈕，以便操作更快捷。在設(shè)置該窗體時主要是設(shè)置MainMeun組件的屬性。雙擊MainMeun組件，建立如下的下拉選單:基本信息管理日常工作管理銷售管理密碼管理密碼信息修改密碼客戶結(jié)賬營業(yè)利潤分析銷售查詢進(jìn)貨管理員工管理商品管理供貨商管理3.4 基本信息管理模塊的設(shè)計與實(shí)現(xiàn)基本信息管理模塊實(shí)現(xiàn)了對員工、供貨商、商品信息的添加、修改、刪除、查詢等功能。該模塊窗體上的組件位置如圖3.4所示圖3.4基本信息窗體設(shè)計界面設(shè)置Pag

22、eControl組件的屬性：右擊此組件，在彈出的菜單中選擇NewPage，將其 Caption屬性設(shè)置成“員工信息”，相同的方法添加“商品信息”、“供貨商信息”、“商品信息”三個頁面；設(shè)置DataSource組件的屬性：DataSource1設(shè)置DataSetADOQuery1，DataSource2設(shè)置DataSetADOQuery1，DataSource3設(shè)置DataSetADOQuery1 ；設(shè)置DBGrid組件的屬性：DBGrid1設(shè)置DataSourceDataSource1, DBGrid2設(shè)置DataSourceDataSource2, DBGrid3設(shè)置DataSourceDa

23、taSource3其中員工管理的主要代碼如下：1、 查詢按鈕的主要代碼如下：ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 員工信息表 where '+SQL; ADOQuery1.Open; 2、添加的主要代碼如下：ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into 員工信息表'); ADOQuery1.SQL.Add('(員工編號,姓名,性別,身份證號,家庭住址,聯(lián)系電

24、話,職務(wù))'); ADOQuery1.SQL.Add('values('+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(ComboBox1.Text)+','+QuotedStr(Edit3.Text)+','+QuotedStr(Edit4.Text)+','+QuotedStr(Edit5.Text)+','+QuotedStr(Edit6.Text)+ ')'); ADOQue

25、ry1.ExecSQL;3.添加的主要代碼如下： ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='delete from 員工信息表 where '+SQL; ADOQuery1.ExecSQL; ADOQuery1.Close;3.5 日常工作管理模塊的設(shè)計與實(shí)現(xiàn)進(jìn)貨管理的功能主要是將購進(jìn)的商品進(jìn)行入庫。在入庫時由工作人員將商品信息輸入到入庫信息表中，然后系統(tǒng)將入庫的商品的名稱與庫存里的商品信息比較，如果能找到相同的名稱，則說明庫存里有這種商品，只要相應(yīng)增加這種商品的庫存量，如果找不到，則說明原來庫存里沒有

26、這種商品，則要增加這種商品的一系列信息。進(jìn)貨的信息會顯示在窗體上的數(shù)據(jù)表中。進(jìn)貨窗體如圖3.5所示。圖5.3進(jìn)貨管理窗體主要代碼如下：（1）、進(jìn)貨主要代碼ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('insert into 進(jìn)貨信息表'); ADOQuery2.SQL.Add('(進(jìn)貨單號,商品編號,商品名稱,供貨商名稱,進(jìn)貨數(shù)量,進(jìn)價,進(jìn)貨時間,經(jīng)手人)'); ADOQuery2.SQL.Add('values(:JH_ID,'+QuotedStr(Edit1.Text)+ &

27、#39;,'+QuotedStr(Edit2.Text)+ ','+QuotedStr(Edit3.Text)+ ','+QuotedStr(Edit4.Text)+ ','+QuotedStr(Edit5.Text)+ ',:Time,'+QuotedStr(ComboBox1.Text)+ ')'); ADOQuery2.Parameters.ParamByName('JH_ID').Value:=formatdatetime('yyyyMMdd',Date)+forma

28、tdatetime('hhmmss',now(); ADOQuery2.Parameters.ParamByName('Time').Value:=FormatdateTime('ddddd',now); ADOQuery2.ExecSQL; ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('select * from 進(jìn)貨信息表'); ADOQuery2.Open; showmessage('入庫成功！');ADOQuery2.Close; ADOQ

29、uery2.SQL.Clear; ADOQuery2.SQL.Text:='select * from 進(jìn)貨信息表 where '+SQL; ADOQuery2.Open;（2）、向combobox組件中自動添加表中內(nèi)容的代碼如下(以向combobox4中添加自動添加商品的名稱為例)：ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from 員工信息表 where 職務(wù)=''進(jìn)貨員''');ADOQuery1.Open;ComboBox1.Clear;

30、for i:=0 to ADOQuery1.RecordCount-1 dobegin combobox1.Items.Add(ADOQuery1.FieldByName('姓名').AsString); ADOQuery1.Next;end;3.6 銷售管理模塊的設(shè)計與實(shí)現(xiàn)銷售管理模塊是超市銷售系統(tǒng)的最主要也是最重要的模塊，所有與銷售有關(guān)的功能都在此模塊當(dāng)中，此模塊所產(chǎn)生的數(shù)據(jù)也是數(shù)據(jù)庫中數(shù)量最大的最重要的數(shù)據(jù)。此模塊主要包括四個子模塊：客戶結(jié)賬模塊、利潤分析模塊、銷售查詢模塊。3.6.1 客戶結(jié)賬模塊的設(shè)計與實(shí)現(xiàn)客戶結(jié)賬模塊是顧客在購買商品時，由收銀員將顧客購買的商品名稱輸

31、入到銷售窗口中，系統(tǒng)自動根據(jù)商品名稱把這種商品的相應(yīng)商品價格和應(yīng)付金額反饋到數(shù)據(jù)窗口中，客戶交錢后自動計算找零金額。其窗體如圖3.6所示圖3.6客戶結(jié)賬窗體其中關(guān)鍵代碼如下：1、 計算銷售金額的關(guān)鍵代碼： Pay_M:=0;for i:=0 to j dobegin Pay_M:=Pay_M+Alli;end;Edit3.Text:=Floattostr(Pay_M);change:=strtofloat(Edit4.Text)-Pay_M;Edit5.Text:=Floattostr(change);2、往銷售表中添加客戶此次銷售的信息的關(guān)鍵代碼：ADOQuery2.Close; ADOQu

32、ery2.SQL.Clear; ADOQuery2.SQL.Add('insert into 銷售信息表'); ADOQuery2.SQL.Add('(流水賬號,商品編號,商品名稱,單價,數(shù)量,總計,時間,收銀員)'); ADOQuery2.SQL.Add('values(:sale_ID,'+QuotedStr(Edit1.Text)+',:C_Name,:S_P,'+QuotedStr(Edit2.Text)+',:Total,:Time,'+QuotedStr(ComboBox1.Text)+ ')&

33、#39;); ADOQuery2.Parameters.ParamByName('sale_ID').Value:=Sale_ID;ADOQuery2.Parameters.ParamByName('C_Name').Value:=ADOQuery1.FieldByName('商品名稱').AsString ;ADOQuery2.Parameters.ParamByName('S_P').Value:=ADOQuery1.FieldByName('售價').AsString ;ADOQuery2.Parameter

34、s.ParamByName('Total').Value:=Floattostr(strtofloat(ADOQuery1.FieldByName('售價').AsString)*strtofloat(Edit2.Text) ;ADOQuery2.Parameters.ParamByName('Time').Value:=FormatdateTime('ddddd',now); ADOQuery2.ExecSQL;3.6.2 利潤分析的設(shè)計與實(shí)現(xiàn)利潤分析模塊主要是對超市的收入進(jìn)行統(tǒng)計與分析，根據(jù)四個不同的分析條件，得出相應(yīng)條件下銷

35、售商品的數(shù)量、銷售商品的總成本、銷售商品的總收入和利潤收入。其中銷售商品的數(shù)量則是將不同條件下的每次銷售商品的數(shù)量相加，總成本是不同條件下的每次銷售商品的進(jìn)價總和，總收入是不同條件下的每次銷售商品的售價總和，利潤則是將不同條件下的總收入減去總成本。利潤分析窗體如圖3.7所示。1、按日統(tǒng)計的關(guān)鍵代碼：SQL:=ComboBox1.Text+'-'+ComboBox2.Text+'-'+ComboBox3.Text; SQL:='時間='+Quotedstr(SQL);2、按月統(tǒng)計的關(guān)鍵代碼：SQL:= ComboBox4.Text+'-&#

36、39;+ComboBox5.Text+'-'+'%' SQL:='時間 like '+Quotedstr(SQL);圖3.7營業(yè)利潤分析窗體3、按季度統(tǒng)計的關(guān)鍵代碼：begin if Trim(ComboBox7.Text)='第一季度' then begin SQL:='時間 like '+Quotedstr(ComboBox6.Text+'-'+'1'+'-'+'%'); SQL:=SQL+' or '+'時間 like &

37、#39;+Quotedstr(ComboBox6.Text+'-'+'2'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'3'+'%'); end; if Trim(ComboBox7.Text)='第二季度' then begin SQL:='時間 like '+Quotedstr(ComboBox6.Text+'-'+'4'

38、;+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'5'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'6'+'%'); end; if Trim(ComboBox7.Text)='第三季度' then begin SQL:='時間 like

39、 '+Quotedstr(ComboBox6.Text+'-'+'7'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'8'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'9'+'%'); end; if Trim(Combo

40、Box7.Text)='第四季度' then begin SQL:='時間 like '+Quotedstr(ComboBox6.Text+'-'+'10'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'11'+'%'); SQL:=SQL+' or '+'時間 like '+Quotedstr(ComboBox6.Text+'-'+'12'+'%'); end;4、