物流管理信息系統(tǒng)課程設(shè)計(jì)(共38頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上目錄第一章 系統(tǒng)設(shè)計(jì)及開發(fā)的可行性分析1 .1經(jīng)濟(jì)可行性系統(tǒng)的初步調(diào)查1.1.1企業(yè)概況湖南長沙家潤多超市有限公司是由全國零售業(yè)前十強(qiáng)企業(yè)湖南友誼阿波羅股份有限公司全資控股的子公司。公司的第一家門店于2000年9月28日在長沙市朝陽區(qū)開業(yè)，至今在湖南省擁有家潤多朝陽店、千喜店、赤崗沖店、常德店、益陽店、岳陽店、瀏陽店、吉首店、衡陽店、郴州店等多家大型超市。家潤多超市從2000年10月開始在其供應(yīng)商中間推廣9448-SCM供應(yīng)鏈管理解決方案。家潤多的供應(yīng)商可通過9448網(wǎng)站的供應(yīng)鏈管理平臺(tái)，共同分享銷售、庫存、結(jié)算等商業(yè)數(shù)據(jù)，共同進(jìn)行品類分析和管理。該平臺(tái)在家潤多超市1

2、352家供應(yīng)商中，推廣率達(dá)到91。該平臺(tái)不僅幫助家潤多超市節(jié)省了大量的結(jié)算人力，也讓供應(yīng)商體會(huì)到了網(wǎng)絡(luò)技術(shù)帶來的便捷。2002年1月lO日，家潤多物流配送中心正式投入運(yùn)營。同時(shí)。公司向國內(nèi)知名商業(yè)ERP供應(yīng)商武漢富基公司購買了一套連鎖超市ERP管理軟件，對超市進(jìn)行信息化管理。在購買的軟件與家潤多運(yùn)作模式出現(xiàn)了一些不協(xié)調(diào)之后，超市于2004年開始，委托友誼阿波羅集團(tuán)旗下的遠(yuǎn)征軟件公司，根據(jù)家潤多超市本身的需求重新開發(fā)了一套超市管理信息系統(tǒng)。家潤多超市之所以能在競爭激烈的湖南商業(yè)圈內(nèi)立足不敗，與其在信息技術(shù)上的不斷革新是密不可分的。1.1.2組織結(jié)構(gòu)1 家潤多超市總體結(jié)構(gòu)家潤多超市采取總部、門店、

3、物流中心的整體架構(gòu)，總部統(tǒng)一管理、統(tǒng)一結(jié)算，物流中心統(tǒng)一采購。以總部為主體，在全省各縣市開設(shè)大型賣場(1)通過營運(yùn)部的管理以及對城市財(cái)務(wù)中心或地區(qū)配送中心的監(jiān)控實(shí)現(xiàn)對各門店的管理與控制；(2)通過統(tǒng)一的信息管理系統(tǒng)實(shí)現(xiàn)整體的統(tǒng)一；(3)通過計(jì)算機(jī)聯(lián)網(wǎng)方式實(shí)現(xiàn)信息數(shù)據(jù)的共享：總部財(cái)務(wù)部地區(qū)配送中心塊營運(yùn)部城市財(cái)務(wù)中心城市配送中心塊分店（1.n）分店出納圖1.1 家潤多超市總體框架圖2 家潤多總部的機(jī)構(gòu)設(shè)置總部是公司的管理機(jī)構(gòu)，是經(jīng)營決策部門，是整個(gè)系統(tǒng)運(yùn)營的信息控制中心。其職能是負(fù)責(zé)網(wǎng)點(diǎn)開發(fā)、商品開發(fā)、經(jīng)營計(jì)劃和發(fā)展戰(zhàn)略，財(cái)產(chǎn)和資金管理、成本核算、往來結(jié)算、稅收、利潤分配、流轉(zhuǎn)票據(jù)統(tǒng)一管理等。總

4、部的業(yè)務(wù)涉及財(cái)務(wù)部門、業(yè)務(wù)部門、供貨廠商、客戶、銀行等往來單位。收集、匯總、分析各門店的補(bǔ)貨、銷售信息和物流中心的庫存信息，及時(shí)與供貨廠商溝通，調(diào)整經(jīng)營策略，向物流中心下達(dá)配送、進(jìn)貨等指令，指導(dǎo)整個(gè)連鎖系統(tǒng)的經(jīng)營活動(dòng)。如下圖。人事部財(cái)務(wù)部門店出納工程部發(fā)展部咨詢部市場部營運(yùn)副總經(jīng)總經(jīng)理商品部城市財(cái)務(wù)中心門店維修部門店咨詢部營運(yùn)部門店（1.n）地方性采購門店運(yùn)營管理全國性采購門店人事部門店公關(guān)部圖1.2家潤多超市總部機(jī)構(gòu)圖(1) 入力資源部負(fù)責(zé)人事檔案管理、人員招聘考核、人員培訓(xùn)、人員考勤、工資計(jì)算。通過電腦網(wǎng)絡(luò)系統(tǒng)有權(quán)查閱各分店的人事檔案資料，可直接與分店人力資源部發(fā)生工作關(guān)系。(2) 資訊部

5、信息系統(tǒng)的需求分析，電腦系統(tǒng)的開發(fā)，電腦軟硬件的維護(hù)維修，操作流程的培訓(xùn)，保證總部與門店之間信息傳遞的順暢，可直接與門店電腦資訊部發(fā)生工作關(guān)系。(3) 財(cái)務(wù)部負(fù)責(zé)供應(yīng)商的結(jié)算、工資的發(fā)放、財(cái)務(wù)報(bào)表的制定、資金方面的管理。通過電腦網(wǎng)絡(luò)系統(tǒng)有權(quán)調(diào)閱、監(jiān)督門店或地區(qū)財(cái)務(wù)中心的相關(guān)財(cái)會(huì)報(bào)表，直接監(jiān)控公司在全省各地區(qū)的財(cái)務(wù)結(jié)算中心，可直接與門店財(cái)務(wù)部發(fā)生工作關(guān)系。(4) 發(fā)展部負(fù)責(zé)新店的選址及場地的談判。(5) 工程部負(fù)責(zé)新店的設(shè)計(jì)，工程實(shí)施及店內(nèi)設(shè)備，小資產(chǎn)的采購。(6) 商品部是賣場流通業(yè)務(wù)開展的主要部門，包括采購預(yù)算、新品的引進(jìn)、供應(yīng)商的碩士學(xué)位論文第3章湖南家潤多超市管理信息系統(tǒng)應(yīng)用現(xiàn)狀分析引進(jìn)

6、、淘汰及談判、商品的促銷、商品價(jià)格的交動(dòng)、門店銷售的分析。(7) 營運(yùn)部負(fù)責(zé)管理并控制各分店的營運(yùn)及分店賣場內(nèi)的貨架排面管理。(8) 市場部負(fù)責(zé)公司總體促銷策略、廣告宣傳的策劃，并對促銷效果作出分析、評估；對商品的進(jìn)銷存數(shù)據(jù)進(jìn)行詳細(xì)的分析，對商品、采購的業(yè)績加以評估。1.1.3現(xiàn)行系統(tǒng)存在的問題家潤多連鎖超市管理信息系統(tǒng)整個(gè)停留在功能全面的MIS系統(tǒng)層面，尤其沒能夠達(dá)到真正的管理信息系統(tǒng)所期望的輔助決策分析的功能，其根本原因在該系統(tǒng)在決策分析上是采用事務(wù)型處理而非分析性處理。如；物流中心在進(jìn)貨、補(bǔ)貨的問題上通常是依靠管理人員的判斷，或者干脆等到商品斷貨再補(bǔ)貨，這樣的方式受主觀因素影響嚴(yán)重，容易

7、引起商品的滯銷或脫銷。要達(dá)到科學(xué)選擇進(jìn)貨商品，優(yōu)化進(jìn)貨流程的目的，就必須對以往的商品銷售數(shù)據(jù)進(jìn)行分析，并在基礎(chǔ)上制定進(jìn)貨方案。管理信息系統(tǒng)是將企業(yè)所有資源進(jìn)行整臺(tái)集成管理，簡單的說是將企業(yè)的三大流：物流、資金流、信息流進(jìn)行全面一體化管理的管理信息系統(tǒng)。在一個(gè)缺乏決策支持系統(tǒng)的管理信息系統(tǒng)中，企業(yè)的資源無法達(dá)到最有效的使用。1.1.4新系統(tǒng)開發(fā)的條件基于舊的信息系統(tǒng)已經(jīng)不能滿足極潤多超市的發(fā)展要求，資金尚且足夠，研發(fā)新軟件的資金也足夠，技術(shù)上夜能給予很大的支持。家潤多超市已經(jīng)具備開發(fā)信系統(tǒng)的條件。1.2 系統(tǒng)開發(fā)的必要性1.2.1競爭：家潤多近幾年的經(jīng)營狀況并不是非常理想。在湖南地區(qū)，像沃爾瑪，

8、步步高，大潤發(fā)，家樂福等這樣的實(shí)力雄厚的大型超市林立其中。家潤多超市這樣一個(gè)起步晚，實(shí)力較弱的超市要在湖南繼續(xù)生存，謀求發(fā)展，改革勢在必行。舊的管理信息系統(tǒng)已經(jīng)跟不上時(shí)代的發(fā)展，滿足不了超市的發(fā)展，新管理信息系統(tǒng)的開發(fā)迫在眉睫。1.2.2采購、銷售、儲(chǔ)存：物流管理信息系統(tǒng)是指與物流活動(dòng)有關(guān)的信息。在物流活動(dòng)的管理與決策中，具有支持與保障的功能。對于超市的采購、銷售、儲(chǔ)存和財(cái)務(wù)四個(gè)方面來說，信息系統(tǒng)是必不可少的。如果事事都讓人去一步一步的來做，將會(huì)很費(fèi)時(shí)，費(fèi)力，費(fèi)錢。在采購管理、銷售管理、儲(chǔ)存管理、財(cái)務(wù)管理等活動(dòng)中，信息系統(tǒng)能起到支持保障功能。1.3 技術(shù)可行性分析在家潤多連鎖超市管理信息系統(tǒng)中

9、，業(yè)務(wù)系統(tǒng)采用了C，s結(jié)構(gòu)，網(wǎng)上的訂貨系統(tǒng)和遠(yuǎn)程決策系統(tǒng)采用BS結(jié)構(gòu)。系統(tǒng)是基于P 微處理器, Window s 2000 操作系統(tǒng)和VB6. 0, Off ice XP 的軟件環(huán)境, 能夠滿足系統(tǒng)開發(fā)的軟件要求, 安全可靠, 開發(fā)人員對其也容易熟練掌握。在IT行業(yè)中從業(yè)的工作人員一般都要求掌握計(jì)算機(jī)技術(shù)，具有一定的軟硬件基礎(chǔ)，會(huì)使用各種管理軟件，熟悉IT產(chǎn)品。因?yàn)椋械某袑T工的素質(zhì)要求比較高，從管理層到下面的銷售人員，都要求具有一定的計(jì)算機(jī)基礎(chǔ)，所以在新系統(tǒng)投入使用時(shí)，只要對員工進(jìn)行少量的培訓(xùn)，系統(tǒng)的功能和使用方法就基本上能夠是系統(tǒng)順利運(yùn)行。1.4 經(jīng)濟(jì)可行性研究1.4.1超市有能力承擔(dān)

10、系統(tǒng)開發(fā)費(fèi)用開發(fā)新系統(tǒng)的工作是一項(xiàng)間距復(fù)雜的工作，它的投資主要是人力和物力的投資。對于本系統(tǒng)的開發(fā)者來說，其主要投資還是在人力和物力兩個(gè)方面。如果是企業(yè)自己安排人手開發(fā)系統(tǒng)的話，其主要的投資還是在人力資源上，從系統(tǒng)的業(yè)務(wù)需求調(diào)查到系統(tǒng)的分析編碼制作都是需要巨大的人力投入的。軟件企業(yè)作為一個(gè)簡短的高科技產(chǎn)業(yè)，其員工要求都比一般企業(yè)的要求要高，而且對系統(tǒng)開發(fā)及軟件產(chǎn)業(yè)了解比較多，所以在自我開發(fā)管理系統(tǒng)的過程中，企業(yè)自己比較容易安排人手，這樣就可以為企業(yè)借閱大部分的額外開支。同時(shí)軟件就其它產(chǎn)品來說，屬于高端行業(yè)，無論是產(chǎn)品的價(jià)格還是質(zhì)量都比較高，而經(jīng)營產(chǎn)品的經(jīng)銷商或者是商家都要求有雄厚的資金支持。所

11、以，在系統(tǒng)的開發(fā)過程中，企業(yè)完全有能力承擔(dān)開發(fā)費(fèi)用。1.4.2新系統(tǒng)將為企業(yè)帶來經(jīng)濟(jì)效益銷售管理系統(tǒng)是一個(gè)信息化、智能化和先進(jìn)管理理念的集合體。而銷售管理是一個(gè)動(dòng)態(tài)過程，在其運(yùn)行過程中要采取多項(xiàng)措施。所以在管理中獲得經(jīng)濟(jì)效益是一個(gè)綜合效益，要對它進(jìn)行直接定量的分析是比較困難的。一般新系統(tǒng)帶來的經(jīng)濟(jì)效益是簡介的，其最主要的表現(xiàn)就是能夠及時(shí)地了解超市每日的銷售情況，據(jù)此還可實(shí)現(xiàn)短缺商品的配送。而其它一些繁瑣的食物都通過新系統(tǒng)來加以分析解決，不僅節(jié)省了大量的時(shí)間，還為企業(yè)的各項(xiàng)決策提供了寶貴的資料，為企業(yè)帶來巨大的經(jīng)濟(jì)效益。第二章 系統(tǒng)分析2.1 需求分析把握市場動(dòng)向，提高銷售利潤是企業(yè)的最終目標(biāo)。

12、在企業(yè)管理日趨科學(xué)化的今天，如何準(zhǔn)確及時(shí)地進(jìn)行經(jīng)營決策是企業(yè)老總面臨的嚴(yán)峻問題。這要求決策者準(zhǔn)確及時(shí)地捕捉到銷售信息，分析銷售情況，隨時(shí)根據(jù)歷史的銷售情況，對下一步的經(jīng)營科學(xué)地進(jìn)行決策。銷售分析需要的基礎(chǔ)數(shù)據(jù)涉及到的模塊有銷售、庫存和財(cái)務(wù)，能夠圍繞銷售合同，歷史銷售數(shù)據(jù)、應(yīng)收款、財(cái)務(wù)、庫存等多角度進(jìn)行分析，并給出如銷售趨勢、產(chǎn)品需求趨勢等輔助決策信息。具體地，采用決策支持系統(tǒng)進(jìn)行銷售分析可以幫助企業(yè)解決的問題有：某段時(shí)聞內(nèi)的商品銷售情況分析；當(dāng)天商品銷售的時(shí)段分析：某商品在某段時(shí)間內(nèi)促銷的情況分析；同一種品如何根據(jù)不同情況制定不同的價(jià)格策略；產(chǎn)品銷售收入及獲利情況分析，何種產(chǎn)品在給定的分析條件

13、下的銷售量最大?決策支持系統(tǒng)根據(jù)企業(yè)需要解決的問題，幫助企業(yè)建立相應(yīng)的分析主題和分析指標(biāo)，從業(yè)務(wù)系統(tǒng)的基礎(chǔ)數(shù)據(jù)庫中抽取需要的數(shù)據(jù)，按預(yù)先建立的業(yè)務(wù)模型進(jìn)行分析決策，分析結(jié)果顯示直觀、形象。決策者只需要簡單地點(diǎn)取操作，便可以從決策支持強(qiáng)大的銷售分析工具中獲得所需的決策信息。2.2 組織結(jié)構(gòu)分析根據(jù)調(diào)查結(jié)果，企業(yè)人事部將安排專職人員對超市的銷售情況進(jìn)行監(jiān)督管理，也就說本銷售系統(tǒng)開發(fā)出來后會(huì)有專業(yè)人員來操作執(zhí)行。該管理軟件將根據(jù)用戶的需要銷售情況進(jìn)行查詢，并能打印詳細(xì)信息。銷售信息查詢銷售信息維護(hù)銷售信息盤點(diǎn)超市銷售系統(tǒng)圖2.1 組織結(jié)構(gòu)圖2.3業(yè)務(wù)流程分析根據(jù)分析，本系統(tǒng)業(yè)務(wù)流程主要包括如下內(nèi)容：

14、顧客發(fā)訂單給銷售部門銷售部門經(jīng)過訂單檢查，把不合格的訂單反饋給客戶對合格的訂單，通過核對庫存記錄，缺貨訂單通過缺貨統(tǒng)計(jì)，向采購部門發(fā)出缺貨通知，并登記缺貨記錄；對于可供貨訂單，登記客戶檔案，開出備貨單，通知倉庫備貨。保存訂單數(shù)據(jù)，并進(jìn)行銷售統(tǒng)計(jì)。銷售部門業(yè)務(wù)流程圖：銷售人員顧客采購員不合格訂單訂單發(fā)貨票庫存信息到貨通知單缺貨單圖2.2 銷售部業(yè)務(wù)流程圖2.4數(shù)據(jù)流程分析根據(jù)調(diào)查結(jié)果繪出銷售系統(tǒng)數(shù)據(jù)流程圖如下： 2.4.1 0層數(shù)據(jù)流程圖顧客檔案P0業(yè)務(wù)處理顧客訂貨銷售統(tǒng)計(jì)表庫存記錄圖2.3 0層數(shù)據(jù)流程圖2.4.2 1層數(shù)據(jù)流程圖校驗(yàn)數(shù)據(jù)缺貨通知P2缺貨統(tǒng)計(jì)缺貨貨單少供貨貨單P3備貨處理庫存記

15、錄銷售統(tǒng)計(jì)表P1可供貨貨單不合格貨單缺貨貨單顧客檔案顧客貨單校驗(yàn)數(shù)據(jù)圖2.4 1層數(shù)據(jù)流程圖2.4.3 2層數(shù)據(jù)流程圖S1.1顧客D1.1新顧客登記表P1.1登錄新顧客的數(shù)據(jù)F1.1顧客檔案S2.1供應(yīng)商D2.1發(fā)貨通知P2.1處理發(fā)貨單F2.1發(fā)貨單S3.1倉庫D3.1備貨單P3.1處理備貨單F3.1庫存記錄銷售統(tǒng)計(jì)表F3.2S3.2超市D3.2發(fā)貨單P3.2銷售統(tǒng)計(jì)圖2.5 2層數(shù)據(jù)流程圖第三章 系統(tǒng)設(shè)計(jì)3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)根據(jù)系統(tǒng)分析的結(jié)果，本系統(tǒng)分為四個(gè)子模塊：定貨處理模塊、缺貨處理模塊、提貨處理模塊和系統(tǒng)管理模塊，如圖所示：超市銷售管理系統(tǒng)系統(tǒng)管理模塊提貨處理模塊進(jìn)貨處理模塊訂貨處

16、理模塊增加庫存量輸入進(jìn)貨單用戶設(shè)置系統(tǒng)初始化缺貨記錄登記庫存記錄修改確定能否提供貨輸入并檢驗(yàn)訂單讀庫存記錄缺貨訂單處理可供貨處理減少庫存量3.1 系統(tǒng)總體結(jié)構(gòu)功能圖3.2代碼設(shè)計(jì)登陸頁面：<HTML><HEAD><Title>index.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="As

17、p Studio 1.0"><script language="javascript">function validate( ) /檢查用戶名或密碼不能為空if(document.login.username.value.length=0)|(document.login.password.value.length=0)alert("用戶名和密碼都不能為空！");return false;return true;</script></HEAD><BODY><center>請先選擇

18、登錄身份再登錄<form name="login" onsubmit="return validate()" action="logincheck.asp" method="post">選擇登錄身份：<select name="position" SelectedIndex=1><option value="user">顧客身份</option><option value="manager">管理

19、員身份</option></select><br>姓名：<input name="username" type="text"><br>密碼：<input name="password" type="password"><br><input type="submit" value="登錄"><br></form>如果沒有賬號，請點(diǎn)擊下面的注冊按鈕<for

20、m name="regist" action="regist.asp" method="post"><br><input type="submit" value="注冊"></form><br></center><%></BODY></HTML>獲取數(shù)據(jù)：<HTML><HEAD><Title>logincheck.asp</Title><ME

21、TA http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="Asp Studio 1.0"><script language="vbscript">dim name,password</script></HEAD><BODY><%name=trim(Request("username

22、") '獲取用戶名password=trim(Request("password") '獲取用戶密碼set conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"set rs=Server.CreateObject("ADODB.Recordset")if(request("position")="user") then'選擇用戶表還是管理員表strsql = "s

23、elect * from user where username='"& name &" 'and password= '"& password &"'"elsestrsql = "select * from manager where username='"& name &" 'and password= '"& password &"'"end ifrs.

24、open strsql,connif rs.eof thenresponse.Redirect"error.asp"else if(request("position")="user") then '如果登錄身份是顧客，則跳轉(zhuǎn)到顧客頁面response.Redirect "user.asp"elseresponse.Redirect"manager.asp"end ifend ifrs.Closeconn.Close%></BODY></HTML>系統(tǒng)檢查：

25、<HTML><HEAD><Title>logincheck.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="Asp Studio 1.0"><script language="vbscript">dim name,password</s

26、cript></HEAD><BODY><%'請?jiān)谶@里輸入您的ASP代碼name=trim(Request("username") '獲取用戶名password=trim(Request("password") '獲取用戶密碼set conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"set rs=Server.CreateObject("ADODB.Recordset"

27、;)if(request("position")="user") then'選擇用戶表還是管理員表strsql = "select * from user where username='"& name &" 'and password= '"& password &"'"elsestrsql = "select * from manager where username='"& name

28、 &" 'and password= '"& password &"'"end ifrs.open strsql,connif rs.eof thenresponse.Redirect"error.asp"else if(request("position")="user") then '如果登錄身份是顧客，則跳轉(zhuǎn)到顧客頁面response.Redirect "user.asp"elseresponse.Redirect

29、"manager.asp"end ifend ifrs.Closeconn.Close%></BODY></HTML>顧客使用：<HTML><HEAD><Title>user.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="Asp Stud

30、io 1.0"></HEAD><BODY><center><h1>用戶訂貨頁面</h1></center><%set conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"set rs=Server.CreateObject("ADODB.Recordset")strsql = "select * from products"rs.open strsql,

31、conn%><table border=1><tr><%for i=0 to rs.fields.count-1'顯示記錄集的字段數(shù)%><th><%=rs(i).name '顯示字段名%></th><%next%></tr><%while not rs.eof%><tr><% for i=0 to rs.fields.count-1%><td><%=rs(i)'顯示字段值%></td><%ne

32、xt%></tr><%rs.movenextwendrs.closeconn.close%></table><form action="userupdate.asp" method="post">訂單產(chǎn)品ID號：<input type="text" name="id"><br>訂貨數(shù)量：<input type="text" name="count"><br><input

33、 type="submit" value="提交訂單"></form></BODY></HTML>顧客購買商品<HTML><HEAD><Title>userupdate.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content=&

34、quot;Asp Studio 1.0"><script language="vbscript">dim id,count,minus</script></HEAD><BODY><%'請?jiān)谶@里輸入您的ASP代碼id=trim(Request("id")count=trim(Request("count")set conn=Server.CreateObject("ADODB.connection")conn.Open"mydat

35、a"set rs=Server.CreateObject("ADODB.Recordset")if (isnumeric(id)and(isnumeric(count) then'判斷輸入的是否是數(shù)字if (id=cstr(cint(id) and (id>0)and (count=cstr(cint(count) and (count>0)then'判斷輸入的是否是正整數(shù)sql1="select * from products where id="& idrs.Open sql1,connif rs.eof

36、 then%><script language="vbscript">msgbox "輸入的ID號不存在！請重新輸入"</script><center><h1>訂貨失??！</h1><a href="user.asp">返回重新訂</a></center><%elseminus=CInt(rs.fields("庫存量")-countif minus<0 then%><script langua

37、ge="vbscript">msgbox "庫存量不足，請重新輸入"</script><center><h1>訂貨失??！</h1><a href="user.asp">返回重新訂</a></center><%else sql="update products set 庫存量=庫存量-"& count &" where id="& idconn.Execute sql%>訂

38、貨成功！<a href="user.asp">返回繼續(xù)訂</a><%end ifend ifelse %><script language="vbscript">msgbox "輸入的ID或者訂貨數(shù)量為非正整數(shù)！請重新輸入"</script><center><h1>訂貨失??！</h1><a href="user.asp">返回重新訂</a></center><%end ifels

39、e %><script language="vbscript">msgbox "輸入的ID或者訂貨數(shù)量不是數(shù)字！請重新輸入"</script><center><h1>訂貨失?。?lt;/h1><a href="user.asp">返回重新訂</a></center><%end ifconn.Close%></BODY></HTML>管理員使用：<HTML><HEAD><Tit

40、le>manager.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="Asp Studio 1.0"></HEAD><BODY><center><h1>管理員操作頁面</h1></center><%'請?jiān)谶@里輸入您的A

41、SP代碼set conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"set rs=Server.CreateObject("ADODB.Recordset")strsql = "select * from products"rs.open strsql,conn%><table border=1><tr><%for i=0 to rs.fields.count-1'顯示記錄集的字段數(shù)%><t

42、h><%=rs(i).name '顯示字段名%></th><%next%></tr><%while not rs.eof%><tr><% for i=0 to rs.fields.count-1%><td><%=rs(i)'顯示字段值%></td><%next%></tr><%rs.movenextwendrs.closeconn.close%></table><form name="f1&

43、quot; action="managerupdate.asp" method="post"><!- 修改單價(jià)或者庫存量 ->將ID號為<input type="text" name="id">的產(chǎn)品的<select name="option" SelectedIndex=1><option value="單價(jià)（元）">單價(jià)(元)</option><option value="庫存量"

44、>庫存量</option></select>改為<input type="text" name="newvalue"><br><input type="submit" value="修改"></form><form name="f2" action="addproduct.asp" method="post">增加一種產(chǎn)品，請輸入對應(yīng)項(xiàng)：<br><t

45、able border=1><tr><th>名稱</th><th>單價(jià)（元）</th><th>計(jì)量方式</th><th>庫存量</th><th>類別</th></tr><tr><td><input type="text" name="name"></td><td><input type="text" name="

46、DJ"></td><td><input type="text" name="JLFS"></td><td><input type="text" name="KCL"></td><td><input type="text" name="sort"></td></tr></table><input type=&quo

47、t;submit" value="添加"></form></BODY></HTML>管理員修改已有商品信息：<HTML><HEAD><Title>managerupdate.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content=&quo

48、t;Asp Studio 1.0"><script language="vbscript"> dim id,op,newvalue</script></HEAD><BODY><%id=trim(Request("id") '獲取id號op=trim(Request("option") '獲取選擇項(xiàng)newvalue=trim(Request("newvalue") '獲取新值set conn=Server.CreateObj

49、ect("ADODB.connection")conn.Open"mydata"if (isnumeric(id)and isnumeric(newvalue) thenif(id=cstr(cint(id)and (cint(id)>0)and (newvalue=cstr(cint(newvalue)and (cint(newvalue)>0) thenset rs=Server.CreateObject("ADODB.Recordset")sql1="select id,庫存量 from products

50、where id="& idrs.Open sql1,connif rs.eof then%><script language="vbscript">msgbox "輸入的ID號不存在！請重新輸入"</script><center><h1>修改失??！</h1><a href="manager.asp">返回重新修改</a></center><%else sql="update products set

51、 "& op &"="& newvalue &" where id="& idconn.Execute sql%><center><h1>修改成功！</h1><a href="manager.asp">返回繼續(xù)修改</a></center><%end ifelse %><script language="vbscript">msgbox "輸入的ID或者修

52、改數(shù)量為非正整數(shù)！請重新輸入"</script><center><h1>修改失??！</h1><a href="manager.asp">返回重新修改</a></center><%end ifelse %><script language="vbscript">msgbox "輸入的ID或者修改數(shù)量不是數(shù)字！請重新輸入"</script><center><h1>修改失??！</h1

53、><a href="manager.asp">返回重新修改</a></center><%end if conn.Close%></BODY></HTML>管理員添加新商品：<HTML><HEAD><Title>addproduct.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><ME

54、TA name="Generator" content="Asp Studio 1.0"><script language="vbscript"> dim name,DJ,JLFS,KCL,sort,flag1,flag2</script></HEAD><BODY><%'請?jiān)谶@里輸入您的ASP代碼name=trim(Request("name") '獲取新增產(chǎn)品的名稱DJ=trim(Request("DJ") '

55、獲取新增產(chǎn)品的單價(jià)JLFS=trim(Request("JLFS") '獲取新增產(chǎn)品的計(jì)量方式KCL=trim(Request("KCL")sort=trim(Request("sort")flag1=trueflagr2=trueif (name="") or (DJ="") or(JLFS="") or(KCL="")or(sort="") then'每項(xiàng)均不能為空flag1=falseend ifif isnume

56、ric(DJ) and isnumeric(KCL) then'單價(jià)大于0，庫存量大于0if(DJ>0) and (KCL>0) thenflag2=trueend ifend ifset conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"set rs=Server.CreateObject("ADODB.Recordset")sql1="select * from products where 名稱='"&

57、 name &"'"rs.Open sql1,connif not flag1 then%><script language="vbscript">msgbox "每項(xiàng)數(shù)據(jù)都需要輸入！請重新輸入"</script><center><h1>增加失敗！</h1><a href="manager.asp">返回重新增加</a></center><%else if not flag2 then%>

58、;<script language="vbscript">msgbox "單價(jià)和庫存量輸入有誤！請重新輸入"</script><center><h1>增加失??！</h1><a href="manager.asp">返回重新增加</a></center><%else if rs.eof thensql="insert into products (名稱,單價(jià)（元）,計(jì)量方式,庫存量,類別) values('"

59、& name &"',"& DJ &",'"& JLFS &"',"& KCL &",'"& sort &"')"conn.Execute sql%><center><h1>增加成功！</h1><a href="manager.asp">返回查看數(shù)據(jù)</a></center><

60、;%else %><script language="vbscript">msgbox "該產(chǎn)品已經(jīng)存在，不需要增加"</script><center><h1>增加失敗！</h1><a href="manager.asp">返回管理員操作頁面</a></center><%end ifend if end ifconn.Close%></BODY></HTML>增加顧客用戶：<HTML>&

61、lt;HEAD><Title>adduser.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator" content="Asp Studio 1.0"></HEAD><BODY><center><h1>增加用戶成功！</h1></center>&

62、lt;%name=trim(Request("username") '獲取用戶名password=trim(Request("password") '獲取用戶密碼set conn=Server.CreateObject("ADODB.connection")conn.Open"mydata"sql="insert into user (username,password) values('"& name &"','"&a

63、mp; password &"')"conn.Execute sqlconn.Close%></BODY></HTML>檢查添加顧客輸入信息是否符合規(guī)定：<HTML><HEAD><Title>regist.asp</Title><META http-equiv="Content-Type" content="text/html; charset=gb2312"><META name="Generator"

64、 content="Asp Studio 1.0"><script language="javascript">function validate( ) /檢查兩次輸入的密碼是不是一樣if(NamePass()if(document.f.password.value!=document.f.password2.value)alert("兩次輸入的密碼不一致！");return false;return true;else return false;function NamePass( ) /檢查用戶名或密碼不能為空if(document.f.username.value.length=0)|(document.f.password.value.length=0)alert("用戶名和密碼都不能為空！");return false;return true