手機(jī)銷(xiāo)售信息管理系統(tǒng)

1、手機(jī)銷(xiāo)售信息管理系統(tǒng) 1、 設(shè)計(jì)目的 銷(xiāo)售管理信息系統(tǒng)作為信息管理系統(tǒng)的一個(gè)分支，已逐漸成為企業(yè)信息化建設(shè)的重要組成部分，為企業(yè)管理分布在全國(guó)網(wǎng)點(diǎn)提供了一個(gè)功能強(qiáng)大，安裝部署方便，使用成本低廉，操作簡(jiǎn)捷的實(shí)時(shí)銷(xiāo)售管理系統(tǒng)，不僅能夠促進(jìn)銷(xiāo)售業(yè)務(wù)的拓展，提高銷(xiāo)售運(yùn)作的效益，也為最終實(shí)現(xiàn)有效的“供應(yīng)鏈管理”和更加廣泛的“電子商務(wù)”奠定了基礎(chǔ)。無(wú)論是一個(gè)銷(xiāo)售公司還是一個(gè)銷(xiāo)售商店，都有很多的銷(xiāo)售數(shù)據(jù)需要管理，手工管理這些繽紛復(fù)雜的數(shù)據(jù)的方式已經(jīng)不適應(yīng)時(shí)代的潮流，實(shí)現(xiàn)數(shù)據(jù)規(guī)范化、自動(dòng)化的電腦管理，是一個(gè)管理規(guī)范、運(yùn)作高效的企事業(yè)單位的必然要求。所以為了實(shí)現(xiàn)各銷(xiāo)售單位高效管理而設(shè)計(jì)這個(gè)手機(jī)銷(xiāo)售信息管理系統(tǒng)。

2、手機(jī)銷(xiāo)售信息管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)，從根本上解決整個(gè)商品銷(xiāo)售流程中數(shù)據(jù)處理效率低，處理能力差等操作過(guò)程中表現(xiàn)出來(lái)的不足之處。方便對(duì)商品資料、銷(xiāo)售業(yè)績(jī)等進(jìn)行高效的管理。使用該程序，管理層可以及時(shí)查詢(xún)、管理商品，還可以對(duì)當(dāng)前銷(xiāo)售業(yè)績(jī)進(jìn)行一些統(tǒng)計(jì)，給出統(tǒng)計(jì)表格，以便全面掌握商品的銷(xiāo)售情況。二、設(shè)計(jì)任務(wù)本系統(tǒng)主要考慮了最為普遍的銷(xiāo)售管理需求 進(jìn)貨時(shí)入庫(kù)登記，以便日后查看和統(tǒng)計(jì)進(jìn)貨情況。 銷(xiāo)售時(shí)把相應(yīng)數(shù)量的商品從現(xiàn)存商品庫(kù)中減去，并記錄于另一個(gè)銷(xiāo)售庫(kù)中，以便日后產(chǎn)看和統(tǒng)計(jì)銷(xiāo)售信息。 是銷(xiāo)售就難免會(huì)有顧客退貨情況發(fā)生，因此還需建立一個(gè)相應(yīng)的退貨管理，把退回的貨加入現(xiàn)存商品庫(kù)，在從銷(xiāo)售庫(kù)中減去，進(jìn)行退貨登記。

3、 還要能夠隨時(shí)查看各種信息表格，如員工信息、進(jìn)貨信息、銷(xiāo)售信息、退貨信息。 除了以上一些基本的需求外，實(shí)際公司用來(lái)進(jìn)行決策和管理分析的數(shù)據(jù)才是用得最多的數(shù)據(jù)，因此還需要有一些相應(yīng)的關(guān)于以上數(shù)據(jù)統(tǒng)計(jì)信息，如希望查看各個(gè)信息段（如果近日，本月，本年度）的進(jìn)貨和銷(xiāo)售情況，以便以后的運(yùn)作進(jìn)行一個(gè)準(zhǔn)確的預(yù)測(cè)和正確的決斷。 為了調(diào)動(dòng)員工的積極性，員工的薪水應(yīng)該和他的銷(xiāo)售情況掛上鉤，因此還要能夠準(zhǔn)確查看各員工的銷(xiāo)售情況，以便對(duì)他們的業(yè)績(jī)進(jìn)行考核和評(píng)比。這個(gè)系統(tǒng)是針對(duì)一般的銷(xiāo)售公司都有的以上需求而設(shè)計(jì)的，可以有效的管理數(shù)據(jù)，主要功能有： 交易管理：進(jìn)貨登記管理、銷(xiāo)售登記管理、退貨登記管理； 進(jìn)貨統(tǒng)計(jì)管理：近日

4、進(jìn)貨統(tǒng)計(jì)，本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本年度進(jìn)貨統(tǒng)計(jì)； 銷(xiāo)售統(tǒng)計(jì)管理：今日銷(xiāo)售統(tǒng)計(jì)、本月銷(xiāo)售統(tǒng)計(jì)、本季度銷(xiāo)售統(tǒng)計(jì)、本年度銷(xiāo)售統(tǒng)計(jì)； 員工的銷(xiāo)售業(yè)績(jī)的考核；三 、設(shè)計(jì)內(nèi)容系統(tǒng)需求在系統(tǒng)開(kāi)發(fā)上，我們選取的工具是Microsoft Visual Basic，數(shù)據(jù)庫(kù)采用Microsoft SQL Server 2005 。本系統(tǒng)總體的功能是實(shí)現(xiàn)手機(jī)銷(xiāo)售公司管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。主要功能有： 系統(tǒng)登陸：用戶登陸、添加用戶、修改密碼、退出系統(tǒng)； 交易管理：進(jìn)貨登記、銷(xiāo)售登記、退貨登記進(jìn)貨登記包括進(jìn)貨廠商登記，如果是新的進(jìn)貨廠商，可以在此登記入庫(kù)。進(jìn)貨和銷(xiāo)售的主要交易都是在此進(jìn)行，每次交易（包括進(jìn)

5、貨，銷(xiāo)售和退貨）都需要對(duì)商品名、生產(chǎn)廠商、商品型號(hào)、單價(jià)、數(shù)量、總金額、交易日期、經(jīng)手業(yè)務(wù)員編號(hào)等各項(xiàng)進(jìn)行記錄。 進(jìn)貨統(tǒng)計(jì)：今日進(jìn)貨統(tǒng)計(jì)、本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本年度進(jìn)貨統(tǒng)計(jì)。其中每次進(jìn)貨統(tǒng)計(jì)都是統(tǒng)計(jì)都是按照進(jìn)貨廠商和進(jìn)貨金額順序排列的。使用一個(gè)表格顯示所選時(shí)間段的全部進(jìn)貨數(shù)據(jù)，包括進(jìn)貨編號(hào)、商品名、生產(chǎn)廠商、產(chǎn)品型號(hào)、單價(jià)、數(shù)量、總金額、進(jìn)貨日期、業(yè)務(wù)員編號(hào)等；再使用另一個(gè)表格顯示分別從各個(gè)廠商進(jìn)貨的金額，還有一個(gè)文本框用于顯示此時(shí)間段的總進(jìn)貨金額。 銷(xiāo)售統(tǒng)計(jì)：今日銷(xiāo)售統(tǒng)計(jì)、本月銷(xiāo)售統(tǒng)計(jì)、本季度銷(xiāo)售統(tǒng)計(jì)、本年度銷(xiāo)售統(tǒng)計(jì)等。其次每次銷(xiāo)售統(tǒng)計(jì)都是按產(chǎn)品廠商和銷(xiāo)售金額順序排列的，用戶可以一

6、目了然的看出各種型號(hào)的產(chǎn)品的銷(xiāo)售額。使用一個(gè)表格顯示所選時(shí)間段的全部銷(xiāo)售數(shù)據(jù)，包括銷(xiāo)售編號(hào)，商品名、生產(chǎn)廠商、產(chǎn)品型號(hào)、單價(jià)、數(shù)量、總金額、銷(xiāo)售日期、業(yè)務(wù)員編號(hào)等；再使用一個(gè)表分別顯示各個(gè)廠商產(chǎn)品的銷(xiāo)售金額，還有一個(gè)文本框用于顯示此時(shí)間段的總銷(xiāo)售金額。 業(yè)績(jī)查看：實(shí)現(xiàn)個(gè)員工銷(xiāo)售情況的統(tǒng)計(jì)，可以一次性顯示所有員工的銷(xiāo)售情況，也可以根據(jù)員工的編號(hào)查看各個(gè)員工的銷(xiāo)售情況。 查看數(shù)據(jù)表：實(shí)現(xiàn)各種數(shù)據(jù)表的瀏覽，包括進(jìn)貨表，銷(xiāo)售表，退貨表，員工表，進(jìn)貨廠商表。瀏覽時(shí)此數(shù)據(jù)表的所有信息全部顯示。如果是員工信息或進(jìn)貨商信息有變化，還可以對(duì)員工表和進(jìn)貨商表進(jìn)行修改，其他的表格則不能進(jìn)行修改，防止有人制造假數(shù)據(jù)。

7、系統(tǒng)功能設(shè)計(jì)模塊對(duì)上述功能經(jīng)行集中，分塊，按照結(jié)構(gòu)化程序的要求，進(jìn)行分析，得到一下圖： 員工表中包括商品編號(hào)，員工姓名，員工電話，員工地址等字段，具體員工表（如表1）：employee（員工表）字段名數(shù)據(jù)類(lèi)型說(shuō)明員工編號(hào)varchar表示，自動(dòng)標(biāo)號(hào)，主鍵員工姓名varchar字段大小為8員工電話varchar字段大小為12員工地址varchar字段大小為50表1 現(xiàn)存貨物表中包括商品編號(hào)，生產(chǎn)廠商，商品名，型號(hào)，價(jià)格，數(shù)量，總金額，進(jìn)貨年，進(jìn)貨月，進(jìn)貨日，業(yè)務(wù)員編號(hào)，商品配件等字段，具體現(xiàn)存貨物表（如表2）：Good（現(xiàn)存表）字段名數(shù)據(jù)類(lèi)型說(shuō)明商品編號(hào)varchar表示，自動(dòng)標(biāo)號(hào)，主鍵產(chǎn)品廠商

8、varchar字段大小為20，外鍵商品名varchar字段大小為20型號(hào)varchar字段大小為20單價(jià) Money貨幣型數(shù)量Numeric數(shù)值型 總金額Money貨幣型進(jìn)貨年Smallint短整型進(jìn)貨月Smallint短整型進(jìn)貨日Smallint短整型業(yè)務(wù)員編號(hào)Int整型表2 已售商品表中包括有商品編號(hào)，生產(chǎn)廠商，商品名，型號(hào)，單價(jià)，數(shù)量，總金額，銷(xiāo)售年，銷(xiāo)售月，銷(xiāo)售日，業(yè)務(wù)員編號(hào)字段，顧客姓名，顧客x ，商品配件具體表格（如表3）：Sell（已售商品表）字段名數(shù)據(jù)類(lèi)型說(shuō)明商品編號(hào)varchar表示，自動(dòng)標(biāo)號(hào)，主鍵產(chǎn)品廠商varchar字段大小為20，外鍵商品名varchar字段大小為20型

9、號(hào)varchar字段大小為20單價(jià) Money貨幣型數(shù)量Numeric數(shù)值型總金額Money貨幣型銷(xiāo)售年Smallint短整型銷(xiāo)售月Smallint短整型銷(xiāo)售月Smallint短整型業(yè)務(wù)員編號(hào)Int整型表3 退貨表中包括有商品編號(hào)，生產(chǎn)廠商，商品名，型號(hào)，單價(jià)，數(shù)量，總金額，退貨年，退貨月，退貨日，業(yè)務(wù)員編號(hào)，顧客姓名，顧客x ，商品配件等字段，具體表格（如表4）：Retreat（退貨表）字段名數(shù)據(jù)類(lèi)型說(shuō)明商品編號(hào)varchar表示，自動(dòng)標(biāo)號(hào)，主鍵產(chǎn)品廠商varchar字段大小為20，外鍵商品名varchar字段大小為20型號(hào)varchar字段大小為20單價(jià) Money貨幣型數(shù)量Numeric

10、數(shù)值型總金額Money貨幣型退貨年Smallint短整型退貨月Smallint短整型退貨日Smallint短整型業(yè)務(wù)員編號(hào)Int整型表4 進(jìn)貨表中包括有廠商編號(hào)，廠商名稱(chēng)，法人代表，電話，廠商地址，商品名，商品配件，型號(hào)，單價(jià)，數(shù)量，總金額等字段，具體表格（如表5）：Manufacturer（廠商）字段名數(shù)據(jù)類(lèi)型說(shuō)明廠商編號(hào)varchar標(biāo)識(shí)，自動(dòng)編號(hào)，主鍵廠商名稱(chēng)Nvarchar唯一約束，字段大小為20法人代表Nvarchar字段大小為10廠商地址Nvarchar字段大小為100商品名Nvarchar字段大小為20型號(hào)Nvarchar字段大小為20單價(jià) Money貨幣型數(shù)量Numeric數(shù)值

11、型總金額Money貨幣型進(jìn)貨年Smallint短整型進(jìn)貨月Smallint短整型進(jìn)貨日Smallint短整型表5 用戶表中包括編號(hào)，用戶名，密碼等字段，具體表格（如表6）：User（用戶表）字段名數(shù)據(jù)類(lèi)型說(shuō)明用戶編號(hào)varchar標(biāo)識(shí)用戶名Nvarchar字段大小為10密碼Nvarchar字段大小為10表6數(shù)據(jù)庫(kù)設(shè)計(jì)的主要任務(wù)是在DBMS(database management system)的支持下，按照應(yīng)用的要求，數(shù)據(jù)結(jié)構(gòu)的好壞將直接影響到系統(tǒng)的效率以及實(shí)現(xiàn)的效果。好的數(shù)據(jù)庫(kù)結(jié)構(gòu)會(huì)減少數(shù)據(jù)庫(kù)的存儲(chǔ)量、冗余度，數(shù)據(jù)的完整性和一致性比較高，系統(tǒng)具有較快的響應(yīng)速度，簡(jiǎn)化基于數(shù)據(jù)庫(kù)的應(yīng)用程序的實(shí)現(xiàn)

12、方法等。實(shí)體具體的描述如下：sell生產(chǎn)廠商商品名型號(hào)商品編號(hào)數(shù)量總金額銷(xiāo)售日期單價(jià)業(yè)務(wù)員編號(hào)生產(chǎn)廠商goods總金額業(yè)務(wù)員編號(hào)數(shù)量進(jìn)貨日期單價(jià)商品編號(hào)型號(hào)商品名Manufacturer商表廠商編號(hào)廠商名稱(chēng)法人代表電話廠商地址employeeyee員工姓名員工編號(hào)員工地址員工電話賣(mài)退貨退貨進(jìn)貨NMMNRetreat業(yè)務(wù)員編號(hào)退貨時(shí)間總金額廠商商品名單價(jià)型號(hào) 退貨編號(hào)數(shù)量MNMNE-R圖對(duì)應(yīng)的關(guān)系圖如下：4、 測(cè)試與評(píng)價(jià) 整個(gè)系統(tǒng)測(cè)試的時(shí)候出現(xiàn)了很多的問(wèn)題其中最關(guān)鍵的是連接數(shù)據(jù)的問(wèn)題，前期數(shù)據(jù)基本準(zhǔn)備妥當(dāng)，在連接過(guò)程中卻出現(xiàn)找不到數(shù)據(jù)源等類(lèi)似的錯(cuò)誤，經(jīng)過(guò)反復(fù)測(cè)試，原來(lái)是忘記配置數(shù)據(jù)源。連接數(shù)據(jù)庫(kù)

13、窗口：連接數(shù)據(jù)庫(kù)窗口使用windows身份登陸在做連接數(shù)據(jù)窗口的時(shí)候里面的代碼做出了很大的努力，提供了兩種連接數(shù)據(jù)庫(kù)的方式，在此采用的是用windows身份登陸可以免去輸入用戶名與密碼的麻煩。銷(xiāo)售登記實(shí)現(xiàn)窗口：在此功能基本實(shí)現(xiàn)了一個(gè)手機(jī)銷(xiāo)售登記的模塊，主要對(duì)庫(kù)存手機(jī)實(shí)現(xiàn)一個(gè)銷(xiāo)售登記的作用，實(shí)現(xiàn)對(duì)已售貨物表的一個(gè)修改。此功能的實(shí)現(xiàn)，可以對(duì)客戶的售后服務(wù)起到一個(gè)保障作用。查看業(yè)績(jī)實(shí)現(xiàn)窗口：此功能實(shí)現(xiàn)的是員工的銷(xiāo)售額統(tǒng)計(jì)，員工過(guò)多的話可以采用查詢(xún)單個(gè)員工號(hào)進(jìn)行查看。此項(xiàng)功能主要實(shí)現(xiàn)對(duì)員工銷(xiāo)售額的統(tǒng)計(jì)，也是整個(gè)公司的業(yè)績(jī)財(cái)務(wù)報(bào)表，通過(guò)此表可以更完善的發(fā)放員工的工資待遇。5、 結(jié)論通過(guò)對(duì)手機(jī)銷(xiāo)售信息管理

14、系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)，從根本上解決整個(gè)商品銷(xiāo)售流程中數(shù)據(jù)處理效率低，處理能力差等操作過(guò)程中表現(xiàn)出來(lái)的不足之處。整個(gè)手機(jī)銷(xiāo)售信息管理系統(tǒng)方便了對(duì)商品資料、銷(xiāo)售業(yè)績(jī)等進(jìn)行高效的管理。通過(guò)對(duì)手機(jī)銷(xiāo)售信息管理系統(tǒng)的分析，設(shè)計(jì)，到最后的實(shí)現(xiàn)，基本上實(shí)現(xiàn)了系統(tǒng)預(yù)定的功能及需求。在系統(tǒng)分析階段，預(yù)定系統(tǒng)的主要功能有登錄系統(tǒng)，進(jìn)貨統(tǒng)計(jì)，銷(xiāo)售統(tǒng)計(jì)，交易管理，業(yè)績(jī)查看及查看數(shù)據(jù)表等六大主要模塊。其中最難解決的是交易管理模塊，包括進(jìn)貨登記，銷(xiāo)售登記及退貨登記管理。在實(shí)現(xiàn)這些功能中，遇到了許多的關(guān)系模塊之間的聯(lián)系問(wèn)題，通過(guò)大量的翻閱書(shū)籍最終得以實(shí)現(xiàn)整個(gè)手機(jī)管理信息系統(tǒng)。這次課程設(shè)計(jì)做的是手機(jī)銷(xiāo)售信息管理系統(tǒng)，這是第一次接

15、觸到如此系統(tǒng)的設(shè)計(jì)，也是第一次接觸到這么難的設(shè)計(jì)。由于第一次接觸，在開(kāi)發(fā)過(guò)程中可謂是困難重重，不知如何入手，不得不重回書(shū)本，通過(guò)翻閱大量的資料，和同學(xué)們一起討論，慢慢的有了一點(diǎn)點(diǎn)頭緒，仔細(xì)的分析題目，分析材料，在原由的基礎(chǔ)上進(jìn)行了改正，我最后還是運(yùn)行成功了，雖然還是經(jīng)過(guò)了一翻努力，當(dāng)然汗水還是留的很值，這次課程設(shè)計(jì)，不僅讓我對(duì)軟件工程這門(mén)課程有了更深入的研究、對(duì)很多重要的概念有了鞏固和掌握，還給了我今后做事的啟示。做事要塌實(shí)，不能想著一步登天，要有計(jì)劃，有目的的進(jìn)行做事。盲目真的不應(yīng)該再在我們新一代的大學(xué)生身上出現(xiàn)了，我們應(yīng)該認(rèn)真找到自己的缺點(diǎn)并且及時(shí)改正。 6、 致謝在這次的開(kāi)發(fā)當(dāng)中，可謂是

16、困難重重，由于在此之前都從未接觸過(guò)此類(lèi)系統(tǒng)開(kāi)發(fā)，所以很多的細(xì)節(jié)都未曾注意，導(dǎo)致后期出現(xiàn)了許多的不可預(yù)見(jiàn)性的錯(cuò)誤。最后在同學(xué)們和老師的幫助下，將問(wèn)題一個(gè)一個(gè)解決，特別是在彭老師的幫助下，將那些細(xì)節(jié)問(wèn)題一一解決。在此我要特別感謝幫助過(guò)我的同學(xué)以及彭老師的幫助，謝謝。附錄 源代碼清單：連接數(shù)據(jù)庫(kù)窗口代碼：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdConnect_Click() If OptionWindows.Value = True Then windows身份驗(yàn)證方式 connStr = Provider=SQLOL

17、EDB.1;Integrated Security=SSPI; _ + Persist Security Info=False;Initial Catalog= + Trim(cmbDatabase.Text) _ + ;Data Source= + Trim(cmbServer.Text) Else SQL Server身份驗(yàn)證方式 connStr = Provider=SQLOLEDB.1;Persist Security Info=False;User ID= _ + Trim(txtUser.Text) + ;Password= + Trim(txtPassword.Text) _ +

18、 ;Initial Catalog= + Trim(cmbDatabase.Text) + ;Data Source= _ + Trim(cmbServer.Text) End If On Error GoTo errConnect If conn.State = adStateOpen Then End If connStr MsgBox 連接數(shù)據(jù)庫(kù)成功！, vbOKOnly + vbExclamation, 提示 顯示登錄窗體 Unload Me Exit SuberrConnect: MsgBox Err.Description, vbOKOnly + vbExclamation, 提示

19、End SuPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me)End SubPrivate Sub OptionSqlServer_Click() If OptionSqlServer.Value = True Then lblUser.Enabled = True lblPassword.Enabled = True txtUser.Enabled = True txtPassword.Enabled = True End IfEnd SubPrivate Sub OptionWindows_Click() If OptionWindows.V

20、alue = True Then lblUser.Enabled = Falsed = False txtUser.Enabled = False txtPassword.Enabled = False End IfEnd Sub銷(xiāo)售登記代碼：Private Sub cmdReset_Click()t = txtFc.Text = txtType.Text = txtPrice.Text = txtQuantity.Text = xt = txtmon.Text = txtday.Text = txtem.Text = txtmoney.Text = End SubPrivate Sub cm

21、dSell_Click() txtGoodsNo.Enabled = False If txtFc.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)廠商名稱(chēng)！, vbOKOnly + vbInformation, 注意ocus Exit Sub ElseIf txtName.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)商品名稱(chēng)！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtType.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)商品型號(hào)！, vbOKOnly + vbInformation, 注意 txtTyp Exit Sub ElseIf t

22、xtPrice.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)商品價(jià)格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtQuantity.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)商品數(shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtyear.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)銷(xiāo)售年份！, vbOKOnly + vbInformation, 注意 txtyear.SetFocus Exit Sub ElseIf txtmon.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)銷(xiāo)售月份

23、！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtday.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)銷(xiāo)售日！, vbOKOnly + vbInformation, 注意 txtday.SetFocus Exit Sub ElseIf txtem.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)業(yè)務(wù)員姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtmoney.Text = Then MsgBox 請(qǐng)?zhí)顚?xiě)總金額！, vbOKOnly + vbInformation, 注意 txtm Exit

24、 Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名= & txtName.Text & _ and 生產(chǎn)廠商= & txtFc.Text & and 型號(hào)= & txtType.Text & cation = adUseClient 設(shè)定游標(biāo)類(lèi)型 rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic If rs_check.EOF = True Then MsgBox 對(duì)不起，此商品型號(hào)已無(wú)貨！請(qǐng)選擇其他型！, vbOKOnl

25、y + vbInformation, 注意 Exit Sub(5) Val(txtQuantity.Text) Then MsgBox 此型號(hào)商品不足！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlsell As String sqlsell = select * from sell rs_add.Open sqlsell, conn, adOpenKeyset, adLockPessimistic 添加入銷(xiāo)售表 rs rs_add.Fields(5) = Val(txtQuantity.Text) rs_add.Fields(6)

26、 = Val(txtmoney.Text) rs 從現(xiàn)存商品表中減去 Dim oldquantity As Long 用于存放goods表中原來(lái)的此商品數(shù)量 Dim oldmoney As Long 用于存放goods表中原來(lái)的此商品進(jìn)貨總額 oldquantity = rs_check.Fields(5) oldmoney = rs_check.Fields(6) rs_check.Fields(5) = oldquantity - Val(txtQuantity.Text) rs_check.Fields(6) = oldmoney - (rs_check.Fields(4) * Val(

27、txtQuantity.Text) MsgBox 銷(xiāo)售成功！, vbOKOnly + vbExclamation, 注意End SubPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me)End Sub業(yè)績(jī)查詢(xún)代碼：Private Sub cmdallem_Click() allem = True Call ShowGradeEnd SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdquery_Click() allem = False Call ShowGradeEnd SubPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me) Adodc1.ConnectionString = connStr allem = True Call ShowGradeEnd SubPrivate Sub ShowGrade() If allem = False Then Dim strsql As String 下面的sql語(yǔ)句從sell表和employee表中顯示特定員工號(hào)的員