《超市信息管理系統(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)用程序的開發(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 編程語(yǔ)言作 為開發(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)開發(fā)目的1

2、 1.2 系統(tǒng)開發(fā)背景1 1.2.1應(yīng)用范圍1 1.2.2 開發(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)開發(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)入到了一

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

5、確立 針對(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ì)這樣的情況我們 設(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ì)商品具體的添加、刪除等管理。 接下來是售貨員端，售貨員不需要管理太多信息，只需要銷售、結(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、出來。能夠 實(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è)開發(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)心的問題。 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) 登 陸管理員主界面售

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è)方面都要想到，不能有沒有想到的功能，包括屆面的完整性和系統(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 貨物來源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ù)量、貨物來源、商品名 和商品類別號(hào)。Adodc 連接的是數(shù)據(jù)庫(kù)中入貨日志表。商品修改包括入庫(kù) 修改和單價(jià)修改，入庫(kù)修改是對(duì)入庫(kù)的商品添加、修改、刪除，Adodc

17、 連 接的是入貨日志表。單價(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)查詢功能代碼如下： 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ì)不起，您無權(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 檢查是否有同名用戶，若無，添加，若有，重新輸 入 .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 “沒有記錄！ “ 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 “你無權(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