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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

22、eControl組件的屬性：右擊此組件，在彈出的菜單中選擇NewPage，將其 Caption屬性設置成“員工信息”，相同的方法添加“商品信息”、“供貨商信息”、“商品信息”三個頁面；設置DataSource組件的屬性：DataSource1設置DataSetADOQuery1，DataSource2設置DataSetADOQuery1，DataSource3設置DataSetADOQuery1 ；設置DBGrid組件的屬性：DBGrid1設置DataSourceDataSource1, DBGrid2設置DataSourceDataSource2, DBGrid3設置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、話,職務)'); 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 日常工作管理模塊的設計與實現(xiàn)進貨管理的功能主要是將購進的商品進行入庫。在入庫時由工作人員將商品信息輸入到入庫信息表中，然后系統(tǒng)將入庫的商品的名稱與庫存里的商品信息比較，如果能找到相同的名稱，則說明庫存里有這種商品，只要相應增加這種商品的庫存量，如果找不到，則說明原來庫存里沒有

26、這種商品，則要增加這種商品的一系列信息。進貨的信息會顯示在窗體上的數(shù)據(jù)表中。進貨窗體如圖3.5所示。圖5.3進貨管理窗體主要代碼如下：（1）、進貨主要代碼ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('insert into 進貨信息表'); ADOQuery2.SQL.Add('(進貨單號,商品編號,商品名稱,供貨商名稱,進貨數(shù)量,進價,進貨時間,經(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 進貨信息表'); ADOQuery2.Open; showmessage('入庫成功！');ADOQuery2.Close; ADOQ

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

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

31、入到銷售窗口中，系統(tǒng)自動根據(jù)商品名稱把這種商品的相應商品價格和應付金額反饋到數(shù)據(jù)窗口中，客戶交錢后自動計算找零金額。其窗體如圖3.6所示圖3.6客戶結賬窗體其中關鍵代碼如下：1、 計算銷售金額的關鍵代碼： 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、往銷售表中添加客戶此次銷售的信息的關鍵代碼：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 利潤分析的設計與實現(xiàn)利潤分析模塊主要是對超市的收入進行統(tǒng)計與分析，根據(jù)四個不同的分析條件，得出相應條件下銷

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

36、39;+ComboBox5.Text+'-'+'%' SQL:='時間 like '+Quotedstr(SQL);圖3.7營業(yè)利潤分析窗體3、按季度統(tǒng)計的關鍵代碼：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、