【正文】 password=replace(trim((password)),39。,39。39。) 39。獲取密碼 ,并加密 Md5_Pass=password Sys_CheckCode=replace(trim(Request(Sys_CheckCode)),39。,) 39。獲取驗證碼 if username= or password= then 39。判斷用戶名和密碼是否正確 scriptalert( 用 戶 名 和 密 碼 不 能 為 空 ！ )。 =。/script end if if Sys_CheckCodeCStr(session(CheckCode)) then scriptalert(驗證碼不正確，請刷新后重新登陸 ! )。 =。/script end if set rs=() sql=select * from Users where loginid=39。amp。usernameamp。39。and pwd=39。amp。Md5_Passamp。39。 sql,conn,1,3 if not then 39。登錄成功 gonghaoID=Rs(gonghao) =120 Session(AdminID)=gonghaoID39。保存員工工號 Session(adminName)=Rs(name) 39。保存員工姓名 Session(adminLoginId)=Rs(loginid) 39。保存員工登錄帳號名 set rst=() 39。讀取權(quán)限 sql=select * from Quanxian where gonghao=39。amp。gonghaoIDamp。39。 sql,conn,1,3 if not () then LoginArray= () Session(LoginArray)=LoginArray 39。用數(shù)組方式保存員工操作權(quán)限 else scriptalert( 權(quán)限讀取錯誤 !)。 =。/script end if set rst=nothing () 39。驗證成功 ,跳轉(zhuǎn)主頁面 else 39。登錄失敗 scriptalert( 密碼錯誤或者無此用戶！ )。 =。/script end if set rs=nothing end if if request(Action)=LoginOut then Session(AdminID)= 39。用戶安全注銷，結(jié)束會話 20 Session(adminName)= Session(adminLoginId)= Session(LoginArray)= end if % 圖 32 用戶身份驗證算法 商品信息管理模塊的實現(xiàn) 商品分類 對商品分類可以便于對商品的管理， 本系統(tǒng)中采用二級 商 品 分 類的方法，一級類別描述 產(chǎn)品所屬的大致類別，二級類別則在一級類別的基礎(chǔ)上，對商 品進行細(xì)致的劃分。 跳轉(zhuǎn)到系統(tǒng)主頁 輸入用戶名和密碼及驗證碼 用戶名或密碼 是否為空 驗證碼是否正確 用戶名或密碼 是否 正確 用戶信息數(shù)據(jù)庫 密碼錯誤或者無此用戶 商品 信息數(shù)據(jù)庫 驗證錯誤，請重新登錄 密碼或 用戶名不能為空 是 否 否 是 是 否 21 商品分類包括對商品類型的增加，修改和刪除， 商品類型增加的界面如圖33所示。 圖 33 增加商品類型 用戶輸入類型信息增加后會在數(shù)據(jù)庫中增加相應(yīng)的記錄，其實現(xiàn)代碼是： set rst=() sql=insert into Spfenlei(fenleiname,fenleimatou,beizhu)amp。_ values(39。amp。fenleinameamp。39。,upper(39。amp。fenleimatouamp。39。),39。amp。beizhuamp。39。) sql,Conn 用戶輸入類型信息修改后會在數(shù)據(jù)庫中對相應(yīng)的記錄進行更新，其實現(xiàn)代碼是： sql=update Spfenlei set fenleiname=39。amp。fenleinameamp。39。,amp。_ fenleimatou=upper(39。amp。fenleimatouamp。39。), beizhu=39。amp。beizhuamp。39。 where amp。_ id=39。amp。idamp。39。 sql,Conn 刪除商品類型的實現(xiàn)代碼是： sql=Delete From Spfenlei Where id=39。amp。idamp。39。 sql,Conn 商品增加 用戶在系統(tǒng)初期時會錄入商品詳細(xì)信息，其錄入界面如圖 34所示。 商品編號是根據(jù)當(dāng)前日期自動生成的唯一編號，不能由用戶修改。類型為商品的實際類型，如果當(dāng)前列表中無該類型可點擊右邊的 [增加類型 ]增加商品類型。商品供貨商可以直接雙擊選擇相應(yīng)的供貨商，該 供貨商是已經(jīng)在客戶管理中增加的。商品增加是將商品信息增加到數(shù)據(jù)庫中，首先是檢查該商品是否已經(jīng)存在，其實現(xiàn)代碼是： set rs=(select * from [Shangpin] where bianhao =39。amp。bianhaoamp。39。) if not ( or ) then ... 39。報錯處理 如果沒有該商品就將其添加到商品信息表中和商品倉庫表中，代碼是： 22 sql=insert into Shangpin (fenleiname,bianhao,name,xinghao,danwei,amp。_ gonghuoshang,beizhu) values(39。amp。fenleiname amp。39。,39。amp。bianhao amp。39。,39。amp。nameamp。_ amp。39。, 39。 amp。 xinghao amp。39。,39。 amp。 danwei amp。39。,39。 amp。 gonghuoshang amp。39。,39。 amp。beizhu amp。39。) sql,Conn 39。增加商品信息表資料 sqlck=insert into Spcangku(bianhao,name,fenleiname,xinghao,danwei,amp。_ gonghuoshang,shuliang,jiage,jiagehe,beizhu) values(39。amp。bianhaoamp。39。,amp。_ 39。amp。nameamp。39。,39。amp。fenleinameamp。39。,39。amp。xinghaoamp。39。,39。amp。danweiamp。39。,39。amp。gonghuoshangamp。_ amp。39。,39。amp。shuliangamp。39。,amp。jiageamp。,amp。jiageheamp。,39。amp。beizhuamp。39。) sqlck,Conn 39。增加商品倉庫信息表資料 圖 34 商品增加 商品修改 商品修改可以在商品列表中選擇對應(yīng)的商品進行修改， 商品修改界面如圖35所示。 圖 35 商品修改 23 商品修改是對相應(yīng)的商品信息進行更新，即更新其商品信息表和商品倉庫表，代碼是： sql=update shangpin set name=39。amp。nameamp。39。,fenleiname=39。amp。fenleinameamp。_ amp。39。,xinghao=39。amp。xinghaoamp。39。,danwei=39。amp。danweiamp。39。,gonghuoshang=39。amp。gonghuoshamp。_ angamp。39。,beizhu=39。amp。beizhuamp。39。 where bianhao=39。amp。bianhaoamp。 39。 sql,Conn 39。修改商品信息表資料 sql=update Spcangku set name=39。amp。nameamp。39。,fenleiname=39。amp。fenleinameamp。_ amp。39。,xinghao=39。amp。xinghaoamp。39。,danwei=39。amp。danweiamp。39。,gonghuoshang=39。amp。gonghuosamp。_ hangamp。39。,beizhu=39。amp。beizhuamp。39。 where bianhao=39。amp。bianhaoamp。 39。 sql,Conn 39。修改商品倉庫信息表資料 商品刪除 商品刪除可以在商品列表中選擇對應(yīng)的商品進行刪除， 商品刪除即刪除商品信息表和商品倉庫表中相應(yīng)的商品，代碼是： sql=delete from shangpin where bianhao=39。amp。bianhaoamp。39。 sql,Conn 39。刪除商品信息表資料 sql=delete from spcangku where bianhao=39。amp。bianhaoamp。39。 sql,Conn 39。刪除商品倉庫信息表資料 商品查詢 商品查詢可以滿足用戶對商品多種關(guān)鍵字類型進行模糊查詢， 包括商品名稱，商品編號，商品類型和商品供貨商四種類型的關(guān)鍵字。其 查詢 界面如圖 36所示。 圖 36 商品 信息 查詢 商品查詢是根據(jù)關(guān)鍵字進行模糊查詢，實現(xiàn)代碼是： key=Trim(Request(key)) 39。關(guān)鍵字 name=Trim(Request(name)) 39。查詢類型 if not (key = or name=) then set rs = () sql=select * from shangpin where amp。nameamp。 like 39。%amp。 key amp。%39。 Order by idamp。_ desc sql,conn,0,2,1 else 39。報錯 ? end if 24 商品進貨管理模塊的實現(xiàn) 商品 入庫 當(dāng)根據(jù)采購單進貨時可在商品入庫中錄入進貨 信息并入庫，其界面如圖 37所示。 圖 37 商品入庫 在該界面中可以一次為同一供貨商提供的商品 添加最多 10 條商品記錄， 而且分別添加 到商品入庫單中和入庫基本信息表中，其實現(xiàn)代碼是： set rck=()39。在 Rudujiben庫中增加入庫記錄 sql=insert into Rukujiben (rkbianhao,rkghsbianhao,rkghsname,rkshijian,amp。_ rkflag,rkcaigouyuan,rkfangshi,rkzongji,beizhu) values( 39。amp。rkbianhaoamp。39。,amp。_ 39。amp。rkghsbianhaoamp。39。,39。amp。rkghsnameamp。39。,39。amp。rkshijianamp。39。,39。amp。rkflagamp。39。,39。amp。rkcaamp。_ igouyuanamp。39。,39。amp。rkfangshiamp。39。,convert(money,39。amp。rkzongjiamp。39。),39。amp。beizhuamp。39。) sql,Conn 因為最多可同時為同一供貨商提供的商品添加 10 條記錄，所以當(dāng)不足 10條記錄時在增加時 會產(chǎn)生空值，所以添加記錄時排除空值記錄，其代碼如下： for i=1 to 10 39。在 Rukudan 庫中增加商品詳情入庫單 if rkshangpinbianhao([i])= then exit for 39。當(dāng)?shù)?N 條記錄為空時 ,直接跳出循環(huán) ,無需插入無效記錄！ set rst=() sql=insert into Rukudan(rkbianhao,rkshangpinbianhao,rkshangpinname,amp。_ rkfenleiname,rkshangpinxinghao,rkshanpindanwei,rkshuliang,rkjiage,rkjiaamp。_ gehe) values(39。amp。rkbianhaoamp。39。,39。amp。rkshangpinbianhao([i])amp。39。,39。amp。rkshangamp。_ pinname([i])amp。39。,39。amp。rkfenleiname([i])amp。39。,39。amp。rkshangpinxinghao([i])amp。39。, amp。_ 25 39。amp。rkshangpindanwei([i])amp。39。,39。amp。rkshuliang([i])amp。39。,convert(money,39。amp。rkjiamp。_ age([i])amp。39。),convert(money,39。amp。rkjiagehe([i])amp。39。)) sql,Conn set rst=nothing next 如果是直接審核入庫那將增加庫存， 根據(jù)入庫單編號查出商品編 號 以及數(shù)量然后循環(huán) UPDATE 更新值 。 if rkflag=是 then set rs = () sql=select * from Rukudan where rkbianhao=39。amp。rkbianhaoamp。39。 sql,conn,0,2,1 for i=1 to 10 if or then exit for bianhao=rs(rkshangpinbianhao) shuliang=rs(rkshuliang) jiage=rs(rkjiage) set rst=() sql=update Spcangku set shuliang=shuliang+39。amp。shuliangamp。39。,amp。_ jiage=amp。jiageamp。 where bianhao=39。amp。bianhaoamp。39。 sql ,conn sql=update Spcangku set jiagehe=jiage*shuliang where bianhao=amp。_ 39。amp。bianhaoamp。39。 sql ,conn set rst=nothing next end if 商品 入庫審核 商品入庫審核可對商品入庫操作進行再次審核，以保證商品的正確入庫，如果審核不通過可刪除本次入庫操作。并且可以查看已通過審核的入庫單，且可根據(jù)實際情況執(zhí)行反審核入庫，即將已審核入庫的商品進行出庫操作。 入庫審核的實現(xiàn)代碼如下： set rst=() 39。添加倉庫的商品數(shù)量 sql=update Spcangku set shuliang=shuliang+39。amp。shuliangamp。39。,jiage=amp。_ amp。jiageamp。 where bianhao=39。amp。bianhaoamp。39。 sql ,conn sql=update Spcangku set jiagehe=jiage*shuliang where bianhao=amp。_ 39。amp。bianhaoamp。39。 sql ,conn 39。對通過審核的入庫單增加標(biāo)志“是” sql=update rukujiben set rkflag=39。amp。flagamp。39。 where rkbianhao=amp。_ 39。amp。rkbianhaoamp。39。 and id=39。amp。idamp。39。 26 sql ,conn 商品 庫存警示 商品庫存警示會在商品的庫存超過或者低于預(yù)先設(shè)定好的限值時報警，提示用戶進行相應(yīng)操作，使商品庫存達(dá)到最大合理化。 其實現(xiàn)代碼為： sql=select * from Spcangku where shuliangshangxian1 or shuliangxiaxianamp。_ +1 Order by id desc 39。顯示庫存超過或者低于預(yù)先設(shè)定好的限值 sql,conn,0,2,1 ?? 39。根據(jù)當(dāng)前庫存量來顯示庫存警示是短線還是超儲 shuliang=rs(shuliang) 39。當(dāng)前庫存量 shangxian=rs(shangxian)1 39。庫存上限 xiaxian=rs(xiaxian)+1 39。庫存下限 if shuliangxiaxian then (短線 ) else (超儲 ) end if 初次商品添加時會自動將庫存上限設(shè)置為 10000，下限設(shè)置為 0，所以用戶要根據(jù)實際情況修改限值。 商品銷售管理模塊的實現(xiàn) 商品 銷售價格 當(dāng)有新商品入庫后，應(yīng)對其零售價格進行設(shè)置；當(dāng)根據(jù)商品銷售情況對商品價格作出調(diào)整時應(yīng)對商品價格進行修改。商品銷售價格設(shè)置界面 如圖 38 所示。 圖 38 商品價格設(shè)置 設(shè)置商品零售價格后對其數(shù)據(jù)庫進行修改，代碼如下： bianhao=Trim((bianhao)) 39。商品編號 lsjiage=(lsjiage) 39。零售單價 set rs=() sql=update Spcangku set lsjiage=amp。lsjiageamp。 where bianhao=39。amp。 bianhao amp。 39。 sql,Conn 27 set rst=() sql=update Spcangku set lsjiagehe=lsjiage*shuliang where bianhao=amp。_ 39。amp。 bianhao amp。 39。 sql,Conn 商品 銷售開單 商品銷售開單實現(xiàn)前臺面向顧客銷售商品，將銷售信息錄入數(shù)據(jù)庫，并且可根據(jù)促銷活動對商品打折。銷售金額會自動進行計算，可直接審核出庫或者選擇稍后審核后出庫。銷售開單的界面 以及實現(xiàn)代碼 和商品入庫的類似， 只是所操作的數(shù)據(jù)庫不同， 在此省略 。 商品 銷售查詢 商品銷售查詢可以為用戶提供對商品銷售 兩 種關(guān)鍵字類型的模糊查詢，包括商品銷售單號和商品銷售日期兩種類型的關(guān) 鍵字。 按商品銷售單號查詢的實