九九热最新网址,777奇米四色米奇影院在线播放,国产精品18久久久久久久久久,中文有码视频,亚洲一区在线免费观看,国产91精品在线,婷婷丁香六月天

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

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

  • 資源ID:37096241       資源大小:1.75MB        全文頁數(shù):34頁
  • 資源格式: 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)頁到桌面,就可以正常下載了。
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ù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于后臺(tái)數(shù)據(jù)庫建立和維護(hù),建成了數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于前端應(yīng)用程序的開發(fā)則提供了強(qiáng)大的數(shù)據(jù)操作功能,界面友好、使用簡(jiǎn)單方便等特點(diǎn),我們使用了 SQL Server 2000 數(shù)據(jù)庫為開發(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ù)庫設(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)營成本, 提高效益,增強(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):超市、倉儲(chǔ)店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在激烈的競(jìng)爭(zhēng)中擴(kuò)大銷售額、降低經(jīng)營成本、擴(kuò)大經(jīng)營規(guī)模,成為超市營業(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ù)庫來實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。2ADO 接口技術(shù)用來連接數(shù)據(jù)庫和前段應(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)行一些必要的查詢,庫存量分析 和售貨管理主要是針對(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)登錄) 商品管理(商品的入庫信息,商品修改(商品入庫修改和商品單價(jià)修改) ) 商品入貨查詢(可以按具體商品和商品類別進(jìn)行出入貨查詢) 庫存量分析(顯示當(dāng)前所有商品的庫存量) 售貨員管理(錄入,修改,刪除) 人事管理(管理員以及售貨員的添加,刪除,修改)系統(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)庫存量的報(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)的要求也很高的,要具有很好的銷售管理,庫存管理,職工信息管理,廠商信息管理2.2.1 系統(tǒng)安全性 超市信息管理系統(tǒng)是一個(gè)需要較強(qiáng)安全性的系統(tǒng),因?yàn)橄到y(tǒng)里有很多關(guān)于貨物數(shù)量,銷售額和營業(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)配置人事管理售貨查詢庫存量分析具體商品查詢商品類別查詢商品入庫信息商品修改售貨員管理管理員管理商品類別配 置具體商品配置入庫修改單價(jià)修改其中商品管理要能夠管理商品入庫信息,能夠?qū)ι唐沸薷摹I唐啡胴洸樵兡軐?duì)具體商品和商品類別查詢,人事管理分為管理員管理和售貨員管理,系統(tǒng)配置對(duì)商品類別配置和具體商品配置。售貨員系統(tǒng)登陸收費(fèi)修改密碼結(jié) 帳73.3 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫使用 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)系,貨物表,入貨日志表,貨物類別配置表。還要建立視圖,分別是售貨員視圖,管理員視圖,和庫存量視圖。建立好這么多的表、視圖等,就可以對(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庫存量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è)額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í)表、入貨日志表都是和庫存量有關(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.商品管理商品管理分為商品入庫信息和商品修改,其中商品入庫信息是當(dāng)你輸入商品號(hào),就會(huì)自動(dòng)顯示出商品入貨價(jià)、單價(jià)、數(shù)量、貨物來源、商品名和商品類別號(hào)。Adodc 連接的是數(shù)據(jù)庫中入貨日志表。商品修改包括入庫修改和單價(jià)修改,入庫修改是對(duì)入庫的商品添加、修改、刪除,Adodc 連接的是入貨日志表。單價(jià)修改只對(duì)商品的單價(jià)修改,Adodc 連接的是貨物部分信息表。2.商品入貨查詢商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時(shí)通過下拉列表框中選擇貨物類別名和時(shí)間段對(duì)這一類貨物查詢,Adodc 連接的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名,選中一個(gè)時(shí)間段,進(jìn)行某個(gè)物品的查詢,結(jié)果還能顯示當(dāng)前單價(jià)和庫存量,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í)把這類貨物信息與貨物表的庫存量中該物品相減,在售貨日志表中增加該類信息。收費(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)庫存量單價(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(庫存量).Value = Adodc1.Recordset.Fields(庫存量).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),我們立即給予刪除!