超市信息管理系統(tǒng)畢業(yè)論文.doc

I 超市信息管理系統(tǒng) 摘 要 超市信息管理系統(tǒng)是典型的信息管理系統(tǒng)。 ，該系統(tǒng)主要包括后臺數(shù)據(jù) 庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于后臺數(shù)據(jù)庫建立 和維護，建成了數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于前端 應(yīng)用程序的開發(fā)則提供了強大的數(shù)據(jù)操作功能，界面友好、使用簡單方便 等特點，我們使用了 SQL Server 2000 數(shù)據(jù)庫為開發(fā)工具，VB 編程語言作 為開發(fā)平臺，并利用 ADO 數(shù)據(jù)接口技術(shù)，實現(xiàn)超市的管理、收銀等功能。 關(guān)鍵詞： 超市信息管理系統(tǒng)； SQL Server； ADO 目 錄 摘摘 要要.I 第第 1 章章 系統(tǒng)分析系統(tǒng)分析.1 1.1 系統(tǒng)開發(fā)目的1 1.2 系統(tǒng)開發(fā)背景1 1.2.1應(yīng)用范圍1 1.2.2 開發(fā)工具.1 1.3 項目確立2 第第 2 章章 需求分析需求分析.2 2.1 功能需求2 2.1.1 基本功能劃分.2 2.1.3基本功能實現(xiàn)3 2.1.4.報表需求4 2.1.5用戶界面需求4 2.2 性能需求4 2.2.1 系統(tǒng)安全性.4 2.2.2 系統(tǒng)的完整性.4 第第 3 章章 系統(tǒng)概要設(shè)計系統(tǒng)概要設(shè)計.5 3.1 基本設(shè)計概念5 3.2 結(jié)構(gòu)6 3.3 數(shù)據(jù)庫設(shè)計7 第第 4 章章 系統(tǒng)詳細設(shè)計系統(tǒng)詳細設(shè)計.7 4.1 數(shù)據(jù)表詳細設(shè)計7 4.2 系統(tǒng)功能詳細設(shè)計.11 4.2.1 管理員端.11 第第 5 章章 結(jié)結(jié) 論論.19 致致 謝謝.20 附錄附錄 A: 附加圖附加圖22 附錄附錄 B: 主要源程序主要源程序23 1 第 1 章 系統(tǒng)分析 在系統(tǒng)開發(fā)之前，我們要對整個系統(tǒng)進行簡單的分析。 1.1 系統(tǒng)開發(fā)目的 （1）大大提高超市的運作效率； （2）通過全面的信息采集和處理，輔助提高超市的決策水平； （3）使用本系統(tǒng)，可以迅速提升超市的管理水平，為降低經(jīng)營成本， 提高效益，增強超市擴張力， 提供有效的技術(shù)保障。 （4）可在應(yīng)用范圍較廣的 WINDOWS 系列操作系統(tǒng)上使用。除此以 外，系統(tǒng)還應(yīng)可通過訪問權(quán)限控制以及數(shù)據(jù)備份功能，確保數(shù)據(jù)的安全性。 1.2 系統(tǒng)開發(fā)背景 21 世紀，超市的競爭也進入到了一個全新的領(lǐng)域，競爭已不再是規(guī) 模的競爭，而是技術(shù)的競爭、管理的競爭、人才的競爭。技術(shù)的提升和管 理的升級是超市業(yè)的競爭核心。零售領(lǐng)域目前呈多元發(fā)展趨勢，多種業(yè)態(tài)： 超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在 激烈的競爭中擴大銷售額、降低經(jīng)營成本、擴大經(jīng)營規(guī)模，成為超市營業(yè) 者努力追求的目標。 1.2.1 應(yīng)用范圍 本系統(tǒng)適用于各種小型超市，可以方便的進行管理。 1.2.2 開發(fā)工具 本系統(tǒng)是以 Windows 系統(tǒng)為操作平臺，用 VB 編程語言和 SQLServer，數(shù)據(jù)庫來實現(xiàn)超市信息管理系統(tǒng)所需功能的。 2 ADO 接口技術(shù)用來連接數(shù)據(jù)庫和前段應(yīng)用程序。 1.3 項目確立 針對超市的特點，為了幫助超市解決現(xiàn)在面臨的問題，提高小型超 市的競爭力，我們將開發(fā)以下系統(tǒng)：前臺銷售系統(tǒng)、后臺管理系統(tǒng)，其中 這兩個子系統(tǒng)又包含其它一些子功能。 第 2 章 需求分析 目前，我們城市的許多大型超市或者是小型超市，由于貨品日益增多， 顧客群體越來越大，他們的管理產(chǎn)生了許多的不便。面對這樣的情況我們 設(shè)計了這樣一個系統(tǒng)。 2.1 功能需求 本課題主要實現(xiàn)的是超市信息管理系統(tǒng)設(shè)計系統(tǒng)時應(yīng)進可能的方便 員工操作，貼近客戶。系統(tǒng)在實現(xiàn)上應(yīng)具有以下功能。 2.1.1 基本功能劃分 主要分為兩個功能端，收銀端和管理員端。 2.1.2 功能描述 首先是管理員端，管理員是后臺的運行者和使用者。因此管理員端 有很多功能，登陸只允許管理員自己才能進入，商品管理主要對已有商品 進行查詢、修改，商品入貨查詢對入貨商品進行一些必要的查詢，庫存量 分析 和售貨管理主要是針對報表，人事管理是對售貨員和管理員一些本 身的信息進行管理，商品配置是對商品具體的添加、刪除等管理。 接下來是售貨員端，售貨員不需要管理太多信息，只需要銷售、結(jié) 3 帳、保存信息就行了。先登陸，然后有收費界面為了調(diào)出商品信息，結(jié)帳 后把信息進行保存，同時售貨員自己也可以對自己的密碼進行修改，這樣 是為了是系統(tǒng)的安全性提高。 2.1.3 基本功能實現(xiàn) 1、管理員端 主要實現(xiàn)功能： 登錄（按管理員號登錄） 商品管理（商品的入庫信息，商品修改（商品入庫 修改和商品單價修改） ） 商品入貨查詢（可以按具體商品和商品類別進行出 入貨查詢） 庫存量分析（顯示當前所有商品的庫存量） 售貨員管理（錄入，修改，刪除） 人事管理（管理員以及售貨員的添加，刪除，修改） 系統(tǒng)配置（商品類別配置：配置商品的大類） （具體商品配置：配置新的商品） 售貨查詢（售貨商品信息的查詢及報表的打印預(yù)覽） 退出系統(tǒng) 2、收銀臺端 主要實現(xiàn)功能： 登錄（按售貨員號登錄系統(tǒng)） 4 收費（輸入貨號，輸入數(shù)量，顯示金額） 結(jié)賬 （輸入錢數(shù)，顯示找零） 修改密碼（售貨員修改密碼） 退出系統(tǒng) 2.1.4.報表需求 超市信息管理系統(tǒng)的某些信息應(yīng)當能夠以報表形式打印出來。能夠 實現(xiàn)庫存量的報表和日售貨的報表。對于隨時進行調(diào)閱、打印非常方便的 功能實現(xiàn)。 2.1.5 用戶界面需求 超市信息管理系統(tǒng)應(yīng)提供簡單、層次關(guān)系明了、清晰的操作界面， 使用戶一目了然。盡可能的為用戶的登陸、查詢等功能操作提供方便。 2.2 性能需求 超市信息管理系統(tǒng)是一個綜合性的管理系統(tǒng)，它對此系統(tǒng)的要求也很 高的，要具有很好的銷售管理，庫存管理，職工信息管理，廠商信息管理 2.2.1 系統(tǒng)安全性 超市信息管理系統(tǒng)是一個需要較強安全性的系統(tǒng)，因為系統(tǒng)里有很 多關(guān)于貨物數(shù)量，銷售額和營業(yè)額的管理，因為與金錢有著密切的關(guān)系， 所以系統(tǒng)的安全使每個開發(fā)商和應(yīng)用上的都關(guān)注的事，因此對于系統(tǒng)的安 全性要進行重要管理。 5 2.2.2 系統(tǒng)的完整性 本系統(tǒng)在使用方面要快速、界面簡潔，各個功能的實現(xiàn)要完整，不能 有遺漏的功能。 第 3 章 系統(tǒng)概要設(shè)計 本系統(tǒng)除具有進、銷、存等基本功能外，還解決了一物多名，多產(chǎn)地、 按批號管理、自定義打印報表等用戶關(guān)心的問題。 1、保密的進貨價格、方便的拆包、打包功能、靈活的價格管理、便 捷的結(jié)款管理等功能極大的方便且改善了用戶的管理。 2.完善的權(quán)限管理機制保證了各部門權(quán)限的獨立性和一致性，確保系 統(tǒng)的安全性和可靠性。 3、清晰的報表、圖形分析使您更方使的統(tǒng)計和分析進銷情況、利潤 等問題。 3.1 基本設(shè)計概念 超市信息管理系 統(tǒng) 登 陸管理員主界面售貨員主界面 1. 登錄 與其他系統(tǒng)登錄一樣需要輸入用戶名和密碼，但不同的是，我們根據(jù) 超市的特殊性，可以設(shè)置成兩種權(quán)限，即管理員和售貨員，如果為管理員 則到管理員界面登錄，反之就到售貨員界面登錄，售貨員只管前臺銷售， 對商品的管理不得插手，而管理員不僅能夠管理商品二屆能夠到前臺進行 銷售，能夠?qū)κ圬泦T進行管理！ 2.售貨員主界面 3.管理員主界面 6 3.2 結(jié)構(gòu) 三管 理 員 商 品 管 理 商品 入貨 查詢 系 統(tǒng) 配 置 人 事 管 理 售 貨 查 詢 庫存量 分析 具體商 品查詢 商品類 別查詢 商品 入庫 信息 商 品 修 改 售貨員 管理 管理員 管理 商品類 別配 置 具體商 品配置 入 庫 修 改 單 價 修 改 其中商品管理要能夠管理商品入庫信息，能夠?qū)ι唐沸薷摹Ｉ唐啡胴?查詢能對具體商品和商品類別查詢，人事管理分為管理員管理和售貨員管 理，系統(tǒng)配置對商品類別配置和具體商品配置。 售貨員 系統(tǒng)登陸 收費 修改密碼 結(jié) 帳 7 3.3 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫使用 SQL Server2000 要建立貨物表、貨物日志表（定期備份） （統(tǒng)計） 、 售貨表（定期備份） 臨時表、入貨日志表、售貨員日志表、售貨員表、管理員表、 貨物類別 配置表、貨物配置表。只有建立好完整的這些表，才能實現(xiàn)系統(tǒng)的正確運 行，因為表是一個系統(tǒng)的關(guān)鍵之中的關(guān)鍵，所以要保證表與表之間不能出 現(xiàn)互斥的現(xiàn)象。 其次建立關(guān)系，貨物表，入貨日志表，貨物類別配置表。 還要建立視圖，分別是售貨員視圖，管理員視圖，和庫存量視圖。建 立好這么多的表、視圖等，就可以對系統(tǒng)進行詳細的設(shè)計了。 第 4 章 系統(tǒng)詳細設(shè)計 對于整個系統(tǒng)，詳細設(shè)計幾乎是要設(shè)計出系統(tǒng)所實現(xiàn)的所有功能， 每個方面都要想到，不能有沒有想到的功能，包括屆面的完整性和系統(tǒng)操 作的簡用簡單性，還要包括功能的實現(xiàn)，其中要實現(xiàn)整個業(yè)務(wù)的計算機管 理，管理中的各種情況要用計算機進行實施，售貨中的程序和流程要在計 算機使用的情況下，不能出現(xiàn)任何錯誤，而且保證其系統(tǒng)運行安全性，其 次各報表的編制和打印也由計算機完成。 4.1 數(shù)據(jù)表詳細設(shè)計 表 4.1 貨物表 8 表 4.2 貨物類別配置表 字段名數(shù)據(jù)類型大小 貨物類別號nvarchar255 貨物類別名varchar50 表 4.3 貨物配置表 字段名數(shù)據(jù)類型大小 貨物類別號nvarchar255 貨物號nvarchar255 貨物名nvarchar255 表 4.4 售貨員表 字段名數(shù)據(jù)類型大小 售貨員號nvarchar50 密碼nvarchar50 售貨員名nvarchar50 表 4.5 管理員表 字段名數(shù)據(jù)類型大小 字段名數(shù)據(jù)類型長度 貨物號nvachar125 貨物類別號nvachar255 單價money8 庫存量float8 貨物名nvachar 255 9 管理員號varchar50 密碼varchar50 管理員名varchar50 表 4.6 入貨日志表 字段名數(shù)據(jù)類型大小 數(shù)量float8 入貨價float8 入貨時間smalldat4 管理員號nvarchar255 貨物來源nvarchar255 編號float8 貨物名nvarchar255 貨物號nvarchar25 單價money8 貨物類別號nvarchar255 表 4.7 售貨員日志表 字段名數(shù)據(jù)類型大小 售貨員號varchar50 登陸時間datetime8 注銷時間datetimr8 前余額numeric9 營業(yè)額numeric9 現(xiàn)余額numeric9 標記char4 10 表 4.8 貨物部分信息表 字段名數(shù)據(jù)類型大小 貨物類別名nvarchar50 貨物名nvarchar255 貨物號nvarchar255 單價money8 表 4.9 臨時表 字段名數(shù)據(jù)類型大小 貨物號char10 貨物名char10 單價money8 貨物類別號char10 數(shù)量int4 出貨時間smalldat4 表 4.10 售貨表 字段名數(shù)據(jù)類型大小 貨物號nvarchar25 貨物類別號varchar50 單價numeric9 數(shù)量int4 出貨時間datetime8 貨物名char10 11 貨物類別配置表，貨物表，貨物部分信息表都是對貨物進行管理時用的表， 售貨表、臨時表、入貨日志表都是和庫存量有關(guān)系的表，管理員表和售貨 員表都是和人事管理有重要聯(lián)系的表。 4.2 系統(tǒng)功能詳細設(shè)計 對于整個系統(tǒng)，我們只須對前臺售貨員端和后臺管理員端進行詳細設(shè) 計，要確保功能的實現(xiàn)。 首先是登陸界面，點擊管理員或售貨員出現(xiàn)各自登陸界面，分別輸入 管理員號和密碼或者售貨員號和密碼進入兩個主要功能端。 4.2.1 管理員端 1.商品管理 商品管理分為商品入庫信息和商品修改，其中商品入庫信息是當你輸 入商品號，就會自動顯示出商品入貨價、單價、數(shù)量、貨物來源、商品名 和商品類別號。Adodc 連接的是數(shù)據(jù)庫中入貨日志表。商品修改包括入庫 修改和單價修改，入庫修改是對入庫的商品添加、修改、刪除，Adodc 連 接的是入貨日志表。單價修改只對商品的單價修改，Adodc 連接的是貨物 部分信息表。 2.商品入貨查詢 商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時通 過下拉列表框中選擇貨物類別名和時間段對這一類貨物查詢，Adodc 連接 的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名， 選中一個時間段，進行某個物品的查詢，結(jié)果還能顯示當前單價和庫存量， Adodc 連接的是視圖 1。主要實現(xiàn)查詢功能代碼如下： 12 Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), “000“) Adodc2.CommandType = adCmdText Dim strsql As String strsql = “select * from view1 where 貨物類別號=“ Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085“ End Sub Public Sub AddSpecItem(cboX As ComboBox, sd As String) Dim rs As New ADODB.Recordset If pubcnn.State = adStateClosed Then Call CreatConnection rs.Open “select * from 貨物配置表 where 貨物類別號=“ Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085“ End Sub 填充貨物名組合框 Public Sub AddSpecItem(cboX As ComboBox, sd As String) Dim rs As New ADODB.Recordset If pubcnn.State = adStateClosed Then Call CreatConnection rs.Open “select * from 貨物配置表 where 貨物類別號=“ & sd & “, pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then 24 cboX.Clear Exit Sub End If cboX.Clear Do Until rs.EOF cboX.AddItem rs(“貨物名“).Value cboX.ItemData(cboX.NewIndex) = rs(“貨物號“).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = Nothing End Sub 管理員登錄 If txtUserName.Text = “ Then MsgBox “管理員號不能為空“, vbExclamation txtUserName.SetFocus Exit Sub End If If txtPassword.Text = “ Then MsgBox “密碼不能為空“, vbExclamation txtPassword.SetFocus Exit Sub End If Static inerr As Integer Dim struser As String, strpass As String, strsql As String struser = Trim$(txtUserName.Text) strpass = Trim$(txtPassword.Text) strsql = “select * from 管理員表 where 管理員號 =“ & struser & “and 密碼=“ & strpass & “ With Adodc1 .CommandType = adCmdText .RecordSource = strsql .Refresh If .Recordset.EOF And .Recordset.BOF Then inerr = inerr + 1 25 If inerr = 3 Then MsgBox “對不起，您無權(quán)使用本系統(tǒng)?！? vbExclamation, “提示“ End Else MsgBox “用戶名或密碼錯誤，請重新輸入！“, vbExclamation, “提示“ End If Else 數(shù)據(jù)處理.Show Unload Me End If End With End Sub 人事管理界面 添加功能 If Option1.Value = True Then If Trim$(Text1.Text) = “ Then MsgBox “請輸入管理員號！“, vbExclamation Text1.SetFocus Exit Sub End If If Trim$(Text2.Text) = “ Then MsgBox “請輸入管理員名！“, vbExclamation Text2.SetFocus Exit Sub End If If Trim$(Text3.Text) = “ Then MsgBox “請輸入密碼！“, vbExclamation Text3.SetFocus Exit Sub End If If Trim$(Text4.Text) = “ Then MsgBox “請確認密碼！“, vbExclamation Text4.SetFocus Exit Sub 26 End If Dim glyh As String, glym As String, mm As String, qrmm As String glyh = Text1.Text glym = Text2.Text mm = Text3.Text qrmm = Text4.Text If mm 0 Then .MoveFirst .find “管理員號=“ & Text1.Text & “ If .EOF = True Then 檢查是否有同名用戶，若無，添加，若有，重新輸 入 .AddNew .Fields(“管理員號“).Value = glyh .Fields(“管理員名“).Value = glym .Fields(“密碼“).Value = mm .UpdateBatch MsgBox “此用戶添加成功！“, vbExclamation Adodc1.Refresh Adodc2.CommandType = adCmdText Adodc2.CursorLocation = adUseClient Adodc2.RecordSource = “ Adodc2.RecordSource = “select * from 管理員“ Adodc2.Refresh Else MsgBox “此用戶已存在！“, vbExclamation End If 27 End If End With Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text1.SetFocus End If End If 刪除功能 If Option2.Value = True Then If Adodc2.Recordset.RecordCount 0 Then Adodc2.CommandType = adCmdText Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount 0 Then Adodc2.Recordset.MoveLast End If Adodc2.Recordset.UpdateBatch Adodc1.Refresh Else MsgBox “沒有記錄！ “ End If End If 修改功能 If Option3.Value = True Then Dim pass As String If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.find “管理員號=“ & Text1.Text & “ If Adodc1.Recordset.EOF = True Then MsgBox “未查到該管理員!“ Else pass = InputBox(“請輸入密碼：“, “確認是否本人“) If pass = Adodc1.Recordset.Fields(“密碼“).Value Then 28 Command2.Enabled = True MsgBox “你有權(quán)修改密碼！“, vbExclamation Text1.Enabled = False Text2.Enabled = False Text3.Enabled = True Text4.Enabled = True Label1.Enabled = False Label2.Enabled = False Label3.Enabled = True Label4.Enabled = True Command1.Enabled = False Text3.SetFocus Label3.Caption = “新密碼“ Label4.Caption = “確認新密碼“ Else Command2.Enabled = False MsgBox “你無權(quán)修改密碼！“, vbExclamation Label1.Enabled = True Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Label2.Enabled = False Label3.Enabled = False Label4.Enabled = False Text1.Enabled = True Text1.Text = “ Command1.Enabled = True End If End If End If End If 商品入貨查詢界面 填充貨物類別名代碼 Dim sNo As String sNo = Format(Combo1.ItemData(Combo1.ListIndex), “000“) 29 Call AddSpecItem(Combo2, sNo) 填充貨物名代碼 Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), “000“) Adodc2.CommandType = adCmdText Dim strsql As String strsql = “select * from view1 where 貨物類別號=“ & s & “ and 入貨時間=“ & DTPicker1.Value & “ and 入貨時間=“ & DTPicker3.Value & “ and 入貨時間 0 Then Adodc2.Recordset.MoveFirst End If Do Until Adodc2.Recordset.EOF If Adodc1.Recordset.Fields(“貨物號“).Value = Adodc2.Recordset.Fields(“貨物號“). Value Then Adodc1.Recordset.Fields(“庫存量“).Value = Adodc1.Recordset.Fields(“庫存量“). 31 Value - Adodc2.Recordset.Fields(“數(shù)量“).Value Adodc1.Recordset.UpdateBatch Adodc2.Recordset.MoveNext Else Adodc2.Recordset.MoveNext End If Loop Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext Loop Adodc1.Recordset.UpdateBatch 實現(xiàn)清零功能 pubcnn.Execute “delete from 臨時表“ Adodc2.Refresh pubcnn.Close Text3.Text = 0 Text1.Text = “ Text2.Text = “ Set DataGrid1.DataSource = Nothing Command4.SetFocus