歡迎來到裝配圖網(wǎng)! | 幫助中心 裝配圖網(wǎng)zhuangpeitu.com!
裝配圖網(wǎng)
ImageVerifierCode 換一換
首頁(yè) 裝配圖網(wǎng) > 資源分類 > DOC文檔下載  

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

  • 資源ID:37096241       資源大?。?span id="9oaauqk" class="font-tahoma">1.75MB        全文頁(yè)數(shù):34頁(yè)
  • 資源格式: DOC        下載積分:15積分
快捷下載 游客一鍵下載
會(huì)員登錄下載
微信登錄下載
三方登錄下載: 微信開放平臺(tái)登錄 支付寶登錄   QQ登錄   微博登錄  
二維碼
微信掃一掃登錄
下載資源需要15積分
郵箱/手機(jī):
溫馨提示:
用戶名和密碼都是您填寫的郵箱或者手機(jī)號(hào),方便查詢和重復(fù)下載(系統(tǒng)自動(dòng)生成)
支付方式: 支付寶    微信支付   
驗(yàn)證碼:   換一換

 
賬號(hào):
密碼:
驗(yàn)證碼:   換一換
  忘記密碼?
    
友情提示
2、PDF文件下載后,可能會(huì)被瀏覽器默認(rèn)打開,此種情況可以點(diǎn)擊瀏覽器菜單,保存網(wǎng)頁(yè)到桌面,就可以正常下載了。
3、本站不支持迅雷下載,請(qǐng)使用電腦自帶的IE瀏覽器,或者360瀏覽器、谷歌瀏覽器下載即可。
4、本站資源下載后的文檔和圖紙-無水印,預(yù)覽文檔經(jīng)過壓縮,下載后原文更清晰。
5、試題試卷類文檔,如果標(biāo)題沒有明確說明有答案則都視為沒有答案,請(qǐng)知曉。

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

I超市信息管理系統(tǒng)摘 要超市信息管理系統(tǒng)是典型的信息管理系統(tǒng)。 ,該系統(tǒng)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于后臺(tái)數(shù)據(jù)庫(kù)建立和維護(hù),建成了數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于前端應(yīng)用程序的開發(fā)則提供了強(qiáng)大的數(shù)據(jù)操作功能,界面友好、使用簡(jiǎn)單方便等特點(diǎn),我們使用了 SQL Server 2000 數(shù)據(jù)庫(kù)為開發(fā)工具,VB 編程語言作為開發(fā)平臺(tái),并利用 ADO 數(shù)據(jù)接口技術(shù),實(shí)現(xiàn)超市的管理、收銀等功能。關(guān)鍵詞: 超市信息管理系統(tǒng); SQL Server; ADO 目 錄摘摘 要要.I第第 1 章章 系統(tǒng)分析系統(tǒng)分析.11.1 系統(tǒng)開發(fā)目的.11.2 系統(tǒng)開發(fā)背景.11.2.1應(yīng)用范圍.11.2.2 開發(fā)工具.11.3 項(xiàng)目確立.2第第 2 章章 需求分析需求分析.22.1 功能需求.22.1.1 基本功能劃分.22.1.3基本功能實(shí)現(xiàn).32.1.4.報(bào)表需求.42.1.5用戶界面需求.42.2 性能需求.42.2.1 系統(tǒng)安全性.42.2.2 系統(tǒng)的完整性.4第第 3 章章 系統(tǒng)概要設(shè)計(jì)系統(tǒng)概要設(shè)計(jì).53.1 基本設(shè)計(jì)概念.53.2 結(jié)構(gòu).63.3 數(shù)據(jù)庫(kù)設(shè)計(jì).7第第 4 章章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì).74.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì).74.2 系統(tǒng)功能詳細(xì)設(shè)計(jì).114.2.1 管理員端.11第第 5 章章 結(jié)結(jié) 論論.19致致 謝謝.20附錄附錄 A: 附加圖附加圖.22附錄附錄 B: 主要源程序主要源程序.231第 1 章 系統(tǒng)分析在系統(tǒng)開發(fā)之前,我們要對(duì)整個(gè)系統(tǒng)進(jìn)行簡(jiǎn)單的分析。1.1 系統(tǒng)開發(fā)目的(1)大大提高超市的運(yùn)作效率;(2)通過全面的信息采集和處理,輔助提高超市的決策水平;(3)使用本系統(tǒng),可以迅速提升超市的管理水平,為降低經(jīng)營(yíng)成本, 提高效益,增強(qiáng)超市擴(kuò)張力, 提供有效的技術(shù)保障。(4)可在應(yīng)用范圍較廣的 WINDOWS 系列操作系統(tǒng)上使用。除此以外,系統(tǒng)還應(yīng)可通過訪問權(quán)限控制以及數(shù)據(jù)備份功能,確保數(shù)據(jù)的安全性。1.2 系統(tǒng)開發(fā)背景 21 世紀(jì),超市的競(jìng)爭(zhēng)也進(jìn)入到了一個(gè)全新的領(lǐng)域,競(jìng)爭(zhēng)已不再是規(guī)模的競(jìng)爭(zhēng),而是技術(shù)的競(jìng)爭(zhēng)、管理的競(jìng)爭(zhēng)、人才的競(jìng)爭(zhēng)。技術(shù)的提升和管理的升級(jí)是超市業(yè)的競(jìng)爭(zhēng)核心。零售領(lǐng)域目前呈多元發(fā)展趨勢(shì),多種業(yè)態(tài):超市、倉(cāng)儲(chǔ)店、便利店、特許加盟店、專賣店、貨倉(cāng)等相互并存。如何在激烈的競(jìng)爭(zhēng)中擴(kuò)大銷售額、降低經(jīng)營(yíng)成本、擴(kuò)大經(jīng)營(yíng)規(guī)模,成為超市營(yíng)業(yè)者努力追求的目標(biāo)。1.2.1 應(yīng)用范圍本系統(tǒng)適用于各種小型超市,可以方便的進(jìn)行管理。1.2.2 開發(fā)工具 本系統(tǒng)是以 Windows 系統(tǒng)為操作平臺(tái),用 VB 編程語言和SQLServer,數(shù)據(jù)庫(kù)來實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。2ADO 接口技術(shù)用來連接數(shù)據(jù)庫(kù)和前段應(yīng)用程序。1.3 項(xiàng)目確立 針對(duì)超市的特點(diǎn),為了幫助超市解決現(xiàn)在面臨的問題,提高小型超市的競(jìng)爭(zhēng)力,我們將開發(fā)以下系統(tǒng):前臺(tái)銷售系統(tǒng)、后臺(tái)管理系統(tǒng),其中這兩個(gè)子系統(tǒng)又包含其它一些子功能。第 2 章 需求分析 目前,我們城市的許多大型超市或者是小型超市,由于貨品日益增多,顧客群體越來越大,他們的管理產(chǎn)生了許多的不便。面對(duì)這樣的情況我們?cè)O(shè)計(jì)了這樣一個(gè)系統(tǒng)。2.1 功能需求 本課題主要實(shí)現(xiàn)的是超市信息管理系統(tǒng)設(shè)計(jì)系統(tǒng)時(shí)應(yīng)進(jìn)可能的方便員工操作,貼近客戶。系統(tǒng)在實(shí)現(xiàn)上應(yīng)具有以下功能。2.1.1 基本功能劃分 主要分為兩個(gè)功能端,收銀端和管理員端。2.1.2 功能描述 首先是管理員端,管理員是后臺(tái)的運(yùn)行者和使用者。因此管理員端有很多功能,登陸只允許管理員自己才能進(jìn)入,商品管理主要對(duì)已有商品進(jìn)行查詢、修改,商品入貨查詢對(duì)入貨商品進(jìn)行一些必要的查詢,庫(kù)存量分析 和售貨管理主要是針對(duì)報(bào)表,人事管理是對(duì)售貨員和管理員一些本身的信息進(jìn)行管理,商品配置是對(duì)商品具體的添加、刪除等管理。 接下來是售貨員端,售貨員不需要管理太多信息,只需要銷售、結(jié)3帳、保存信息就行了。先登陸,然后有收費(fèi)界面為了調(diào)出商品信息,結(jié)帳后把信息進(jìn)行保存,同時(shí)售貨員自己也可以對(duì)自己的密碼進(jìn)行修改,這樣是為了是系統(tǒng)的安全性提高。2.1.3 基本功能實(shí)現(xiàn)1、管理員端 主要實(shí)現(xiàn)功能: 登錄(按管理員號(hào)登錄) 商品管理(商品的入庫(kù)信息,商品修改(商品入庫(kù)修改和商品單價(jià)修改) ) 商品入貨查詢(可以按具體商品和商品類別進(jìn)行出入貨查詢) 庫(kù)存量分析(顯示當(dāng)前所有商品的庫(kù)存量) 售貨員管理(錄入,修改,刪除) 人事管理(管理員以及售貨員的添加,刪除,修改)系統(tǒng)配置(商品類別配置:配置商品的大類) (具體商品配置:配置新的商品) 售貨查詢(售貨商品信息的查詢及報(bào)表的打印預(yù)覽) 退出系統(tǒng)2、收銀臺(tái)端 主要實(shí)現(xiàn)功能: 登錄(按售貨員號(hào)登錄系統(tǒng))4 收費(fèi)(輸入貨號(hào),輸入數(shù)量,顯示金額) 結(jié)賬 (輸入錢數(shù),顯示找零) 修改密碼(售貨員修改密碼) 退出系統(tǒng)2.1.4.報(bào)表需求 超市信息管理系統(tǒng)的某些信息應(yīng)當(dāng)能夠以報(bào)表形式打印出來。能夠?qū)崿F(xiàn)庫(kù)存量的報(bào)表和日售貨的報(bào)表。對(duì)于隨時(shí)進(jìn)行調(diào)閱、打印非常方便的功能實(shí)現(xiàn)。2.1.5 用戶界面需求 超市信息管理系統(tǒng)應(yīng)提供簡(jiǎn)單、層次關(guān)系明了、清晰的操作界面,使用戶一目了然。盡可能的為用戶的登陸、查詢等功能操作提供方便。2.2 性能需求 超市信息管理系統(tǒng)是一個(gè)綜合性的管理系統(tǒng),它對(duì)此系統(tǒng)的要求也很高的,要具有很好的銷售管理,庫(kù)存管理,職工信息管理,廠商信息管理2.2.1 系統(tǒng)安全性 超市信息管理系統(tǒng)是一個(gè)需要較強(qiáng)安全性的系統(tǒng),因?yàn)橄到y(tǒng)里有很多關(guān)于貨物數(shù)量,銷售額和營(yíng)業(yè)額的管理,因?yàn)榕c金錢有著密切的關(guān)系,所以系統(tǒng)的安全使每個(gè)開發(fā)商和應(yīng)用上的都關(guān)注的事,因此對(duì)于系統(tǒng)的安全性要進(jìn)行重要管理。52.2.2 系統(tǒng)的完整性 本系統(tǒng)在使用方面要快速、界面簡(jiǎn)潔,各個(gè)功能的實(shí)現(xiàn)要完整,不能有遺漏的功能。第 3 章 系統(tǒng)概要設(shè)計(jì)本系統(tǒng)除具有進(jìn)、銷、存等基本功能外,還解決了一物多名,多產(chǎn)地、按批號(hào)管理、自定義打印報(bào)表等用戶關(guān)心的問題。1、保密的進(jìn)貨價(jià)格、方便的拆包、打包功能、靈活的價(jià)格管理、便捷的結(jié)款管理等功能極大的方便且改善了用戶的管理。2.完善的權(quán)限管理機(jī)制保證了各部門權(quán)限的獨(dú)立性和一致性,確保系統(tǒng)的安全性和可靠性。3、清晰的報(bào)表、圖形分析使您更方使的統(tǒng)計(jì)和分析進(jìn)銷情況、利潤(rùn)等問題。3.1 基本設(shè)計(jì)概念超市信息管理系統(tǒng)登 陸管理員主界面售貨員主界面1. 登錄與其他系統(tǒng)登錄一樣需要輸入用戶名和密碼,但不同的是,我們根據(jù)超市的特殊性,可以設(shè)置成兩種權(quán)限,即管理員和售貨員,如果為管理員則到管理員界面登錄,反之就到售貨員界面登錄,售貨員只管前臺(tái)銷售,對(duì)商品的管理不得插手,而管理員不僅能夠管理商品二屆能夠到前臺(tái)進(jìn)行銷售,能夠?qū)κ圬泦T進(jìn)行管理!2.售貨員主界面3.管理員主界面63.2 結(jié)構(gòu) 三管理員商品管理商品入貨查詢系統(tǒng)配置人事管理售貨查詢庫(kù)存量分析具體商品查詢商品類別查詢商品入庫(kù)信息商品修改售貨員管理管理員管理商品類別配 置具體商品配置入庫(kù)修改單價(jià)修改其中商品管理要能夠管理商品入庫(kù)信息,能夠?qū)ι唐沸薷?。商品入貨查詢能?duì)具體商品和商品類別查詢,人事管理分為管理員管理和售貨員管理,系統(tǒng)配置對(duì)商品類別配置和具體商品配置。售貨員系統(tǒng)登陸收費(fèi)修改密碼結(jié) 帳73.3 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)使用 SQL Server2000要建立貨物表、貨物日志表(定期備份) (統(tǒng)計(jì)) 、 售貨表(定期備份)臨時(shí)表、入貨日志表、售貨員日志表、售貨員表、管理員表、 貨物類別配置表、貨物配置表。只有建立好完整的這些表,才能實(shí)現(xiàn)系統(tǒng)的正確運(yùn)行,因?yàn)楸硎且粋€(gè)系統(tǒng)的關(guān)鍵之中的關(guān)鍵,所以要保證表與表之間不能出現(xiàn)互斥的現(xiàn)象。 其次建立關(guān)系,貨物表,入貨日志表,貨物類別配置表。還要建立視圖,分別是售貨員視圖,管理員視圖,和庫(kù)存量視圖。建立好這么多的表、視圖等,就可以對(duì)系統(tǒng)進(jìn)行詳細(xì)的設(shè)計(jì)了。第 4 章 系統(tǒng)詳細(xì)設(shè)計(jì) 對(duì)于整個(gè)系統(tǒng),詳細(xì)設(shè)計(jì)幾乎是要設(shè)計(jì)出系統(tǒng)所實(shí)現(xiàn)的所有功能,每個(gè)方面都要想到,不能有沒有想到的功能,包括屆面的完整性和系統(tǒng)操作的簡(jiǎn)用簡(jiǎn)單性,還要包括功能的實(shí)現(xiàn),其中要實(shí)現(xiàn)整個(gè)業(yè)務(wù)的計(jì)算機(jī)管理,管理中的各種情況要用計(jì)算機(jī)進(jìn)行實(shí)施,售貨中的程序和流程要在計(jì)算機(jī)使用的情況下,不能出現(xiàn)任何錯(cuò)誤,而且保證其系統(tǒng)運(yùn)行安全性,其次各報(bào)表的編制和打印也由計(jì)算機(jī)完成。4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)表 4.1 貨物表8表 4.2 貨物類別配置表字段名數(shù)據(jù)類型大小貨物類別號(hào)nvarchar255貨物類別名varchar50表 4.3 貨物配置表字段名數(shù)據(jù)類型大小貨物類別號(hào)nvarchar255貨物號(hào)nvarchar255貨物名nvarchar255表 4.4 售貨員表字段名數(shù)據(jù)類型大小售貨員號(hào)nvarchar50密碼nvarchar50售貨員名nvarchar50表 4.5 管理員表字段名數(shù)據(jù)類型大小字段名數(shù)據(jù)類型長(zhǎng)度貨物號(hào)nvachar125貨物類別號(hào)nvachar255單價(jià)money8庫(kù)存量float8貨物名nvachar 2559管理員號(hào)varchar50密碼varchar50管理員名varchar50表 4.6 入貨日志表字段名數(shù)據(jù)類型大小數(shù)量float8入貨價(jià)float8入貨時(shí)間smalldat4管理員號(hào)nvarchar255貨物來源nvarchar255編號(hào)float8貨物名nvarchar255貨物號(hào)nvarchar25單價(jià)money8貨物類別號(hào)nvarchar255表 4.7 售貨員日志表字段名數(shù)據(jù)類型大小售貨員號(hào)varchar50登陸時(shí)間datetime8注銷時(shí)間datetimr8前余額numeric9營(yíng)業(yè)額numeric9現(xiàn)余額numeric9標(biāo)記char410表 4.8 貨物部分信息表字段名數(shù)據(jù)類型大小貨物類別名nvarchar50貨物名nvarchar255貨物號(hào)nvarchar255單價(jià)money8表 4.9 臨時(shí)表字段名數(shù)據(jù)類型大小貨物號(hào)char10貨物名char10單價(jià)money8貨物類別號(hào)char10數(shù)量int4出貨時(shí)間smalldat4表 4.10 售貨表字段名數(shù)據(jù)類型大小貨物號(hào)nvarchar25貨物類別號(hào)varchar50單價(jià)numeric9數(shù)量int4出貨時(shí)間datetime8貨物名char1011貨物類別配置表,貨物表,貨物部分信息表都是對(duì)貨物進(jìn)行管理時(shí)用的表,售貨表、臨時(shí)表、入貨日志表都是和庫(kù)存量有關(guān)系的表,管理員表和售貨員表都是和人事管理有重要聯(lián)系的表。4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì)對(duì)于整個(gè)系統(tǒng),我們只須對(duì)前臺(tái)售貨員端和后臺(tái)管理員端進(jìn)行詳細(xì)設(shè)計(jì),要確保功能的實(shí)現(xiàn)。首先是登陸界面,點(diǎn)擊管理員或售貨員出現(xiàn)各自登陸界面,分別輸入管理員號(hào)和密碼或者售貨員號(hào)和密碼進(jìn)入兩個(gè)主要功能端。4.2.1 管理員端1.商品管理商品管理分為商品入庫(kù)信息和商品修改,其中商品入庫(kù)信息是當(dāng)你輸入商品號(hào),就會(huì)自動(dòng)顯示出商品入貨價(jià)、單價(jià)、數(shù)量、貨物來源、商品名和商品類別號(hào)。Adodc 連接的是數(shù)據(jù)庫(kù)中入貨日志表。商品修改包括入庫(kù)修改和單價(jià)修改,入庫(kù)修改是對(duì)入庫(kù)的商品添加、修改、刪除,Adodc 連接的是入貨日志表。單價(jià)修改只對(duì)商品的單價(jià)修改,Adodc 連接的是貨物部分信息表。2.商品入貨查詢商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時(shí)通過下拉列表框中選擇貨物類別名和時(shí)間段對(duì)這一類貨物查詢,Adodc 連接的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名,選中一個(gè)時(shí)間段,進(jìn)行某個(gè)物品的查詢,結(jié)果還能顯示當(dāng)前單價(jià)和庫(kù)存量,Adodc 連接的是視圖 1。主要實(shí)現(xiàn)查詢功能代碼如下:12Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), 000)Adodc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號(hào)= & s & and 入貨時(shí)間= & DTPicker1.Value & and 入貨時(shí)間 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修改功能If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.find 管理員號(hào)= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理員! Else pass = InputBox(請(qǐng)輸入密碼:, 確認(rèn)是否本人) If pass = Adodc1.Recordset.Fields(密碼).Value Then Command2.Enabled = True MsgBox 你有權(quán)修改密碼!, vbExclamation16 5.系統(tǒng)配置系統(tǒng)配置包括貨物類別配置和具體貨物配置。貨物類別配置通過輸入貨物類別號(hào)和貨物名,實(shí)現(xiàn)功能包括添加新的貨物類別,刪除原有貨物類別、修改貨物類別名稱。Adodc1 連接的貨物類別配置表。具體貨物配置時(shí)通過在下拉列表框中選擇貨物類別號(hào),輸入貨物號(hào)和貨物名稱,實(shí)現(xiàn)包括添加新的貨物、刪除原有貨物、修改貨物信息的功能。Adodc2 連接的17是貨物配置表。兩個(gè)窗體都要顯示配置后的情況和之前的情況。6.售貨查詢售貨查詢主要是售貨日至表的打印預(yù)覽,便于讓其他高層領(lǐng)導(dǎo)查看每日售貨情況,所以還要連接一個(gè)數(shù)據(jù)報(bào)表 2。Adodc1 連接的是售貨表。7.退出退出只需單擊,就會(huì)卸載管理員端的主窗體,重新回到登陸界面。4.2.2 售貨員端1.收費(fèi)收費(fèi)界面需要輸入貨物號(hào)和數(shù)量,確認(rèn)后出現(xiàn)該貨物的信息同時(shí)出現(xiàn)總價(jià)及要收的金額。此時(shí)點(diǎn)擊結(jié)帳按鈕,出現(xiàn)結(jié)帳界面,界面顯示應(yīng)收金額,輸入現(xiàn)收金額后,單擊確定顯示找零及應(yīng)找余額,退出及卸載結(jié)帳窗體。最后清零,清零時(shí)把這類貨物信息與貨物表的庫(kù)存量中該物品相減,在售貨日志表中增加該類信息。收費(fèi)界面中 Adodc1 連接的貨物表,Adodc2 連接的是臨時(shí)表。連接貨物表主要是為了實(shí)現(xiàn)與臨時(shí)標(biāo)的連接。主要代碼如下:18If pubcnn.State = adStateClosed Then Call CreatConnection pubcnn.Execute insert into 臨時(shí)表 select 貨物號(hào) ,貨物名 ,單價(jià), 貨物類別號(hào),數(shù)量,入貨時(shí)間 from 入貨日志表 where 貨物號(hào)= & Trim$(Text1.Text) & pubcnn.Execute update 臨時(shí)表 set 數(shù)量= & Text2.Text & where 貨物號(hào)= & Trim$(Text1.Text) & pubcnn.Execute update 臨時(shí)表 set 出貨時(shí)間= & Date & where 貨物號(hào)= & Trim$(Text1.Text) & Adodc2.Refresh pubcnn.Close2.修改密碼修改密碼是售貨員可以隨時(shí)修改自己的密碼,以保證系統(tǒng)安全性。首先輸入原密碼,輸入新密碼,確認(rèn)新密碼后單擊確認(rèn),即可修改自己的密碼。Adodc 連接的是售貨員表。3.退出本系統(tǒng)單擊退出系統(tǒng)時(shí),卸載前臺(tái)管理員界面,回到出登陸主界面。4.2.3 公共模塊建立一個(gè)公共模塊,整個(gè)系統(tǒng)都能引用,這個(gè)模塊主要用于商品入貨查詢和收費(fèi)兩個(gè)窗體。Public pubcnn As New ADODB.ConnectionPublic Sub AddBusItem(cboX As ComboBox) Dim rs As New ADODB.RecordsetIf pubcnn.State = adStateClosed Then Call CreatConnection rs.Open select * from 貨物類別配置表, pubcnn, adOpenDynamic, adLockBatchOptimisticIf rs.RecordCount = 0 Then Exit Sub19Do Until rs.EOF cboX.AddItem rs(貨物類別名).ValuecboX.ItemData(cboX.NewIndex) = rs(貨物類別號(hào)).Valuers.MoveNext Adodc2.CommandType = adCmdText LoopcboX.ListIndex = 0 Set rs = NothingEnd SubPublic Sub CreatConnection()pubcnn.CursorLocation = adUseClient pubcnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085End SubPublic Sub AddSpecItem(cboX As ComboBox, sd As String)Dim rs As New ADODB.RecordsetIf pubcnn.State = adStateClosed Then Call CreatConnectionrs.Open select * from 貨物配置表 where 貨物類別號(hào)= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimisticIf rs.RecordCount = 0 ThencboX.ClearExit SubEnd IfcboX.ClearDo Until rs.EOFcboX.AddItem rs(貨物名).ValuecboX.ItemData(cboX.NewIndex) = rs(貨物號(hào)).Value rs.MoveNextLoop cboX.ListIndex = 0 Set rs = Nothing End Sub20 第 5 章 結(jié) 論在經(jīng)過 3 個(gè)星期的努力后,我們的系統(tǒng)終于完成了??粗覀円黄鹋Φ慕Y(jié)果,心里也有一些感慨想要說出來,這些做系統(tǒng)中的點(diǎn)點(diǎn)滴滴,都?xì)v歷在目。當(dāng)我們小組做超市信息管理系統(tǒng)時(shí),都不同程度的遇到了各種問題,在開始時(shí)我們因?yàn)楸淼慕⒂龅搅艘恍├щy,一些表現(xiàn)在看,建的也不是太好,主要是有些字段的屬性建立的不對(duì)應(yīng),字段大小也不完整,或太大或太小,因?yàn)橄到y(tǒng)功能不是太強(qiáng),所以表的毛病并沒有引起大的錯(cuò)誤。在編寫窗體的代碼時(shí),下拉列表框,是我們遇到另一個(gè)較大的問題,在苦苦思考一段時(shí)間后,建立了公共模塊,解決了這一問題。后來還有收費(fèi)清零時(shí),要把產(chǎn)生的記錄追加到兩個(gè)表中,在老師的提醒下建立了臨時(shí)表,又根據(jù)課本上的代碼的提示,終于完成。還有一些每個(gè)窗體貶值時(shí)都會(huì)遇到一些問題,大家在一起討論或查資料,或問同學(xué)、老師,都讓問題得到了最后的解決。從這次做課題的過程中,我意識(shí)到了團(tuán)隊(duì)的重要性,團(tuán)隊(duì)中各成員之間的信任是很重要的。同時(shí)也發(fā)現(xiàn)我掌握的知識(shí)是多么的有限,只有在以后的時(shí)間里多積累知識(shí),才能做好自己的工作。21參考文獻(xiàn)1 亓來濱 編 Visual Basic 程序設(shè)計(jì)(清華大學(xué)出版社)2005.12 史濟(jì)民 顧春華 李昌武 苑榮 編 軟件工程原理、方法與應(yīng)用3 劉勇 周學(xué)軍編著 SQL Server2000 基礎(chǔ)教程22附錄 A: 附加圖管理員密碼管理員號(hào)貨物貨物日志表單價(jià)貨物號(hào)姓名入貨價(jià)貨物類別號(hào)入貨時(shí)間貨物來源管理員號(hào)數(shù)量 售貨員上班下班售貨員名 密碼售貨員號(hào)管理包含銷售登錄換班貨物類別號(hào)貨物名 貨物號(hào)庫(kù)存量單價(jià)附圖 1.1 E-R 圖 23附錄 B: 主要源程序超市信息管理系統(tǒng)的主要程序公共模塊 Pubcnn 為公共變量Public pubcnn As New ADODB.Connection填充貨物類別名的組合框Public Sub AddBusItem(cboX As ComboBox) Dim rs As New ADODB.Recordset If pubcnn.State = adStateClosed Then Call CreatConnection rs.Open select * from 貨物類別配置表, pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then Exit Sub Do Until rs.EOF cboX.AddItem rs(貨物類別名).Value cboX.ItemData(cboX.NewIndex) = rs(貨物類別號(hào)).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = NothingEnd Sub建立連接Public Sub CreatConnection() pubcnn.CursorLocation = adUseClient pubcnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085End 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 貨物類別號(hào)= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then24 cboX.Clear Exit Sub End If cboX.Clear Do Until rs.EOF cboX.AddItem rs(貨物名).Value cboX.ItemData(cboX.NewIndex) = rs(貨物號(hào)).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = NothingEnd Sub管理員登錄If txtUserName.Text = Then MsgBox 管理員號(hào)不能為空, 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 管理員號(hào) = & struser & and 密碼= & strpass & With Adodc1 .CommandType = adCmdText .RecordSource = strsql .Refresh If .Recordset.EOF And .Recordset.BOF Then inerr = inerr + 125 If inerr = 3 Then MsgBox 對(duì)不起,您無權(quán)使用本系統(tǒng)。, vbExclamation, 提示 End Else MsgBox 用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入!, 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 請(qǐng)輸入管理員號(hào)!, vbExclamation Text1.SetFocus Exit Sub End If If Trim$(Text2.Text) = Then MsgBox 請(qǐng)輸入管理員名!, vbExclamation Text2.SetFocus Exit Sub End If If Trim$(Text3.Text) = Then MsgBox 請(qǐng)輸入密碼!, vbExclamation Text3.SetFocus Exit Sub End If If Trim$(Text4.Text) = Then MsgBox 請(qǐng)確認(rèn)密碼!, vbExclamation Text4.SetFocus Exit Sub26 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 qrmm Then MsgBox 密碼不一致,請(qǐng)核對(duì)后再輸入!, vbExclamation, 提示 Text4.SetFocus Else Adodc2.CommandType = adCmdText adodc1.RecordSource = select * from 管理員表 where 管理員名= & Text2.Text & adodc1.Refresh With Adodc1.Recordset If .RecordCount 0 Then .MoveFirst .find 管理員號(hào)= & Text1.Text & If .EOF = True Then 檢查是否有同名用戶,若無,添加,若有,重新輸入 .AddNew .Fields(管理員號(hào)).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 If27 End If End With Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End IfEnd 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 管理員號(hào)= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理員! Else pass = InputBox(請(qǐng)輸入密碼:, 確認(rèn)是否本人) If pass = Adodc1.Recordset.Fields(密碼).Value Then28 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 = 確認(rèn)新密碼 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 IfEnd If商品入貨查詢界面填充貨物類別名代碼Dim sNo As StringsNo = Format(Combo1.ItemData(Combo1.ListIndex), 000)29Call AddSpecItem(Combo2, sNo)填充貨物名代碼Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), 000)Adodc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號(hào)= & s & and 入貨時(shí)間= & DTPicker1.Value & and 入貨時(shí)間= & DTPicker3.Value & and 入貨時(shí)間 0 Then Adodc2.Recordset.MoveFirst End If Do Until Adodc2.Recordset.EOF If Adodc1.Recordset.Fields(貨物號(hào)).Value = Adodc2.Recordset.Fields(貨物號(hào)).Value Then Adodc1.Recordset.Fields(庫(kù)存量).Value = Adodc1.Recordset.Fields(庫(kù)存量).31Value - Adodc2.Recordset.Fields(數(shù)量).Value Adodc1.Recordset.UpdateBatch Adodc2.Recordset.MoveNext Else Adodc2.Recordset.MoveNext End If Loop Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext LoopAdodc1.Recordset.UpdateBatch實(shí)現(xiàn)清零功能 pubcnn.Execute delete from 臨時(shí)表 Adodc2.Refresh pubcnn.Close Text3.Text = 0 Text1.Text = Text2.Text = Set DataGrid1.DataSource = Nothing Command4.SetFocus

注意事項(xiàng)

本文(超市信息管理系統(tǒng)畢業(yè)論文)為本站會(huì)員(1888****888)主動(dòng)上傳,裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。 若此文所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng)(點(diǎn)擊聯(lián)系客服),我們立即給予刪除!

溫馨提示:如果因?yàn)榫W(wǎng)速或其他原因下載失敗請(qǐng)重新下載,重復(fù)下載不扣分。




關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!