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

上傳人:good****022 文檔編號(hào):116525492 上傳時(shí)間:2022-07-05 格式:DOC 頁(yè)數(shù):34 大?。?.75MB
收藏 版權(quán)申訴 舉報(bào) 下載
超市信息管理系統(tǒng)畢業(yè)論文.doc_第1頁(yè)
第1頁(yè) / 共34頁(yè)
超市信息管理系統(tǒng)畢業(yè)論文.doc_第2頁(yè)
第2頁(yè) / 共34頁(yè)
超市信息管理系統(tǒng)畢業(yè)論文.doc_第3頁(yè)
第3頁(yè) / 共34頁(yè)

下載文檔到電腦,查找使用更方便

15 積分

下載資源

還剩頁(yè)未讀,繼續(xù)閱讀

資源描述:

《超市信息管理系統(tǒng)畢業(yè)論文.doc》由會(huì)員分享,可在線閱讀,更多相關(guān)《超市信息管理系統(tǒng)畢業(yè)論文.doc(34頁(yè)珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、I 超市信息管理系統(tǒng) 摘 要 超市信息管理系統(tǒng)是典型的信息管理系統(tǒng)。 ,該系統(tǒng)主要包括后臺(tái)數(shù)據(jù) 庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于后臺(tái)數(shù)據(jù)庫(kù)建立 和維護(hù),建成了數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于前端 應(yīng)用程序的開(kāi)發(fā)則提供了強(qiáng)大的數(shù)據(jù)操作功能,界面友好、使用簡(jiǎn)單方便 等特點(diǎn),我們使用了 SQL Server 2000 數(shù)據(jù)庫(kù)為開(kāi)發(fā)工具,VB 編程語(yǔ)言作 為開(kāi)發(fā)平臺(tái),并利用 ADO 數(shù)據(jù)接口技術(shù),實(shí)現(xiàn)超市的管理、收銀等功能。 關(guān)鍵詞: 超市信息管理系統(tǒng); SQL Server; ADO 目 錄 摘摘 要要.I 第第 1 章章 系統(tǒng)分析系統(tǒng)分析.1 1.1 系統(tǒng)開(kāi)發(fā)目的1

2、 1.2 系統(tǒng)開(kāi)發(fā)背景1 1.2.1應(yīng)用范圍1 1.2.2 開(kāi)發(fā)工具.1 1.3 項(xiàng)目確立2 第第 2 章章 需求分析需求分析.2 2.1 功能需求2 2.1.1 基本功能劃分.2 2.1.3基本功能實(shí)現(xiàn)3 2.1.4.報(bào)表需求4 2.1.5用戶界面需求4 2.2 性能需求4 2.2.1 系統(tǒng)安全性.4 2.2.2 系統(tǒng)的完整性.4 第第 3 章章 系統(tǒng)概要設(shè)計(jì)系統(tǒng)概要設(shè)計(jì).5 3.1 基本設(shè)計(jì)概念5 3.2 結(jié)構(gòu)6 3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)7 第第 4 章章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì).7 4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)7 4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì).11 4.2.1 管理員端.11 第第 5 章章 結(jié)結(jié) 論

3、論.19 致致 謝謝.20 附錄附錄 A: 附加圖附加圖22 附錄附錄 B: 主要源程序主要源程序23 1 第 1 章 系統(tǒng)分析 在系統(tǒng)開(kāi)發(fā)之前,我們要對(duì)整個(gè)系統(tǒng)進(jìn)行簡(jiǎn)單的分析。 1.1 系統(tǒng)開(kāi)發(fā)目的 (1)大大提高超市的運(yùn)作效率; (2)通過(guò)全面的信息采集和處理,輔助提高超市的決策水平; (3)使用本系統(tǒng),可以迅速提升超市的管理水平,為降低經(jīng)營(yíng)成本, 提高效益,增強(qiáng)超市擴(kuò)張力, 提供有效的技術(shù)保障。 (4)可在應(yīng)用范圍較廣的 WINDOWS 系列操作系統(tǒng)上使用。除此以 外,系統(tǒng)還應(yīng)可通過(guò)訪問(wèn)權(quán)限控制以及數(shù)據(jù)備份功能,確保數(shù)據(jù)的安全性。 1.2 系統(tǒng)開(kāi)發(fā)背景 21 世紀(jì),超市的競(jìng)爭(zhēng)也進(jìn)入到了一

4、個(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 開(kāi)發(fā)工具 本系統(tǒng)是以 Windows 系統(tǒng)為操作平臺(tái),用 VB 編程語(yǔ)言和 SQLServer,數(shù)據(jù)庫(kù)來(lái)實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。 2 ADO 接口技術(shù)用來(lái)連接數(shù)據(jù)庫(kù)和前段應(yīng)用程序。 1.3 項(xiàng)目

5、確立 針對(duì)超市的特點(diǎn),為了幫助超市解決現(xiàn)在面臨的問(wèn)題,提高小型超 市的競(jìng)爭(zhēng)力,我們將開(kāi)發(fā)以下系統(tǒng):前臺(tái)銷售系統(tǒng)、后臺(tái)管理系統(tǒng),其中 這兩個(gè)子系統(tǒng)又包含其它一些子功能。 第 2 章 需求分析 目前,我們城市的許多大型超市或者是小型超市,由于貨品日益增多, 顧客群體越來(lái)越大,他們的管理產(chǎn)生了許多的不便。面對(duì)這樣的情況我們 設(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)行者和使用

6、者。因此管理員端 有很多功能,登陸只允許管理員自己才能進(jìn)入,商品管理主要對(duì)已有商品 進(jìn)行查詢、修改,商品入貨查詢對(duì)入貨商品進(jìn)行一些必要的查詢,庫(kù)存量 分析 和售貨管理主要是針對(duì)報(bào)表,人事管理是對(duì)售貨員和管理員一些本 身的信息進(jìn)行管理,商品配置是對(duì)商品具體的添加、刪除等管理。 接下來(lái)是售貨員端,售貨員不需要管理太多信息,只需要銷售、結(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ù)

7、信息,商品修改(商品入庫(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)表形式打印

8、出來(lái)。能夠 實(shí)現(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è)開(kāi)發(fā)商和應(yīng)用上的都關(guān)注的事,因此對(duì)于系統(tǒng)的安

9、 全性要進(jìn)行重要管理。 5 2.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)心的問(wè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) 等問(wèn)題。 3.1 基本設(shè)計(jì)概念 超市信息管理系 統(tǒng) 登 陸管理員主界面售

10、貨員主界面 1. 登錄 與其他系統(tǒng)登錄一樣需要輸入用戶名和密碼,但不同的是,我們根據(jù) 超市的特殊性,可以設(shè)置成兩種權(quán)限,即管理員和售貨員,如果為管理員 則到管理員界面登錄,反之就到售貨員界面登錄,售貨員只管前臺(tái)銷售, 對(duì)商品的管理不得插手,而管理員不僅能夠管理商品二屆能夠到前臺(tái)進(jìn)行 銷售,能夠?qū)κ圬泦T進(jìn)行管理! 2.售貨員主界面 3.管理員主界面 6 3.2 結(jié)構(gòu) 三管 理 員 商 品 管 理 商品 入貨 查詢 系 統(tǒng) 配 置 人 事 管 理 售 貨 查 詢 庫(kù)存量 分析 具體商 品查詢 商品類 別查詢 商品 入庫(kù) 信息 商 品 修 改 售貨員 管理 管理員 管理 商品類 別配 置 具體商 品

11、配置 入 庫(kù) 修 改 單 價(jià) 修 改 其中商品管理要能夠管理商品入庫(kù)信息,能夠?qū)ι唐沸薷?。商品入?查詢能對(duì)具體商品和商品類別查詢,人事管理分為管理員管理和售貨員管 理,系統(tǒng)配置對(duì)商品類別配置和具體商品配置。 售貨員 系統(tǒng)登陸 收費(fèi) 修改密碼 結(jié) 帳 7 3.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)象

12、。 其次建立關(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è)方面都要想到,不能有沒(méi)有想到的功能,包括屆面的完整性和系統(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 貨

13、物表 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 255 9 管理員號(hào)varch

14、ar50 密碼varchar50 管理員名varchar50 表 4.6 入貨日志表 字段名數(shù)據(jù)類型大小 數(shù)量float8 入貨價(jià)float8 入貨時(shí)間smalldat4 管理員號(hào)nvarchar255 貨物來(lái)源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)記char4 10 表 4.8

15、貨物部分信息表 字段名數(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 貨物名char10 11 貨物類別配置表,貨物表,貨物部分信息表都是對(duì)貨物進(jìn)行管理時(shí)用的表, 售貨表、臨時(shí)表、入貨日志表都是和

16、庫(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ù)量、貨物來(lái)源、商品名 和商品類別號(hào)。Adodc 連接的是數(shù)據(jù)庫(kù)中入貨日志表。商品修改包括入庫(kù) 修改和單價(jià)修改,入庫(kù)修改是對(duì)入庫(kù)的商品添加、修改、刪除,Adodc

17、 連 接的是入貨日志表。單價(jià)修改只對(duì)商品的單價(jià)修改,Adodc 連接的是貨物 部分信息表。 2.商品入貨查詢 商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時(shí)通 過(guò)下拉列表框中選擇貨物類別名和時(shí)間段對(duì)這一類貨物查詢,Adodc 連接 的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名, 選中一個(gè)時(shí)間段,進(jìn)行某個(gè)物品的查詢,結(jié)果還能顯示當(dāng)前單價(jià)和庫(kù)存量, Adodc 連接的是視圖 1。主要實(shí)現(xiàn)查詢功能代碼如下: 12 Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), “000“) Adodc2.C

18、ommandType = adCmdText Dim strsql As String strsql = “select * from view1 where 貨物類別號(hào)=“ 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 = adSt

19、ateClosed Then Call CreatConnection rs.Open “select * from 貨物配置表 where 貨物類別號(hào)=“ 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 = adSt

20、ateClosed Then Call CreatConnection rs.Open “select * from 貨物配置表 where 貨物類別號(hào)=“ & 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(“貨物號(hào)“).Value rs.Mov

21、eNext Loop cboX.ListIndex = 0 Set rs = Nothing End 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 Stri

22、ng, 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 in

23、err = inerr + 1 25 If inerr = 3 Then MsgBox “對(duì)不起,您無(wú)權(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 Text

24、1.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 Sub 26

25、 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 “管理員號(hào)=“ & Text1.Text & “ If .EOF = True Then 檢查是否有同名用戶,若無(wú),添加,若有,重新輸 入 .AddNew .Fields(“管理員號(hào)“).Value = glyh .Fields(“管理員名“).Valu

26、e = 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

27、 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.Record

28、Count 0 Then Adodc2.Recordset.MoveLast End If Adodc2.Recordset.UpdateBatch Adodc1.Refresh Else MsgBox “沒(méi)有記錄! “ 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

29、.Recordset.EOF = True Then MsgBox “未查到該管理員!“ Else pass = InputBox(“請(qǐng)輸入密碼:“, “確認(rèn)是否本人“) 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 =

30、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 “你無(wú)權(quán)修改密碼!“, vbExclamation Label1.Enabled = True Text2.Enabled = False Text3.Enabled = False Text4.Enab

31、led = 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) 填充貨物名代

32、碼 Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), “000“) Adodc2.CommandType = adCmdText Dim strsql As String strsql = “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

33、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ù)存量“). 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 實(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

展開(kāi)閱讀全文
溫馨提示:
1: 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔
關(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),我們立即給予刪除!