【正文】 區(qū)的完整代碼如下： % () () 39。該頁(yè)面主要完成 商品 信息的添加。 圖 6 商品 信息管理頁(yè)面設(shè)計(jì)效果 商品 信息管理頁(yè)面中涉及的 HTML 表單元素如表 3 所示。關(guān)鍵代碼如下： !include file= % set conn=() 39。創(chuàng)建記錄集對(duì)象 application(dsn) sql=select * from tab_gysinfo sql,conn,1,3 39。如果沒到記錄尾 sql=select max(id) as id from tab_spinfo sql,conn,1,3 str=myrs(id) spid=cint(mid(str,3,4))+1 spid=spamp。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。插入新記錄 sql,conn,1,3 % script language=javascript alert(商品信息添加成功！ )。 //重新定向指定頁(yè)面 /script 商品信息管理頁(yè)面的運(yùn)行結(jié)果如圖 7 所示。該頁(yè)面主要完成 商品信息的檢索 。 圖 8 商品 信息 查詢 頁(yè)面設(shè)計(jì)效果 商品 信息 查詢 頁(yè)面中涉及的 HTML 表單元素如表 4 所示。 利用 JavaScript 編寫檢測(cè)用戶輸入信息是否為空的函數(shù)，并通過(guò)單擊【查詢】按鈕調(diào)用該函 數(shù)，當(dāng)用戶輸入合法信息后，提交該表單。()。關(guān)鍵代碼如下： script language=javascript function list(){ []=new Option(all,all)。 () } /script 商品信息展示頁(yè)面檢索數(shù)據(jù)庫(kù)的程序代碼如下： % path=(path_info) set conn=() 39。創(chuàng)建記錄集對(duì)象 application(dsn) 39。查詢 if session(tj)== then 39。session(jname)amp。amp。39。模糊查詢 sql=select * from tab_spinfo where amp。 like 39。session(lname)amp。 end if if session(tj)=all then 39。分頁(yè) =5 39。獲取當(dāng)前頁(yè)碼 if page1 then page=1 if page then page= show rs,page 39。將記錄指針定位到指定頁(yè) for i=1 to if then exit for 39。 圖 9 商品信息查詢條件頁(yè)面運(yùn)行結(jié)果 圖 10 商品信息查詢結(jié)果頁(yè)面運(yùn)行結(jié)果 8 采購(gòu)管理主要功能模塊詳細(xì)設(shè)計(jì) 采購(gòu)管理可以有效管理整個(gè)企業(yè)的采購(gòu)業(yè) 務(wù)，用以提高采購(gòu)經(jīng)營(yíng)事務(wù)的效率，提高企業(yè)的經(jīng)濟(jì)效益，確保采購(gòu)工作質(zhì)量高效率、低成本執(zhí)行，使企業(yè)具有最佳的供貨狀態(tài)。 商品采購(gòu) 管理設(shè)計(jì) 用戶可以通過(guò)單擊菜單主導(dǎo)航 “采購(gòu)管理” /“商品采購(gòu)”超鏈接， 進(jìn) 入商品采購(gòu) 管理頁(yè)面。 商品采購(gòu)管 理頁(yè)面設(shè)計(jì)效果如圖 11 所示。 表 5 商品采購(gòu) 頁(yè)面中涉及的 HTML 表單 重要 元素 名稱 類型 含義 重要屬性 form1 form 表單 action= method=post id hidden 采購(gòu)單號(hào) value=%=session(auto)% cgdate text 采購(gòu)日期 value=%=date()% button button 【提交】按鈕 onclick=send() Submit reset 【重填】按鈕 class=btn_grey value=重填 生成采購(gòu)單號(hào)的相關(guān)代碼如下 ： % set conn=() 39。創(chuàng)建記錄集對(duì)象 set myrs=() 39。創(chuàng)建記錄集對(duì)象 application(dsn) 39。打開記錄集 str=myrs(id) cgid=cint(mid(str,7,5))+1 cgid=cgamp。cstr(cgid) else cgid=cgamp。10001 end if session(auto)=cgid 39。元 sl=cstr(sl)amp。元 if spname= or cs= or gg= or bz= or dw= or dj=0 or sl=0 or je=0 then 39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。插入新記錄 sql,conn,1,3 end if % script language=javascript alert(采購(gòu)信息保存成功！ )。彈出提示對(duì)話框 =。重新定向頁(yè)面 /script 商品采購(gòu)頁(yè)面的運(yùn)行結(jié)果如圖 12 所示。 用戶可以通過(guò)單擊菜單主導(dǎo)航 “采購(gòu)管理” /“采購(gòu)查詢”超鏈接， 進(jìn)入 采購(gòu)查詢 頁(yè)面。 采購(gòu)查詢 頁(yè)面設(shè)計(jì)效果如圖 13 所示。 表 6 采購(gòu)查詢 頁(yè)面中涉及的 HTML 表單元素 名稱 類型 含義 重要屬性 myform from 表單 action= method=post flag checkbox 復(fù)選框 class=noborder id=flag value=1 checked sel select 選擇查詢字段 option value=spname selected商品名稱 /option option value=cs廠商 /option tj select 選擇條件運(yùn)算符 option value== selected等于 /option option value=likeLIKE/option qname text 輸入查詢關(guān)鍵字 id=qname subb button 【查詢】按鈕 onClick=send() flag checkbox 復(fù)選框 class=noborder id=flag value=2 sdate text 起始日期 value=%=year(date)amp。?type=all39。顯示全部?jī)?nèi)容 sql=select * from tab_cgdan else flag=(flag) i=0 39。當(dāng)有一個(gè)條件時(shí)進(jìn)行相應(yīng)的處理 sel=(sel) tj=(tj) qname=(qname) i=1 flag_deal=inIF end if if instr(flag,2)0 then 39。創(chuàng)建 Session變量 session(sel)=sel session(tj)=tj session(qname)=qname session(sdate)=sdate session(edate)=edate end if 39。精確查詢 sql=select * from tab_cgdan where amp。 = 39。session(qname)amp。 else 39。session(sel)amp。%amp。%39。日期查詢 sql=select * from tab_cgdan where cgdate between 39。session(sdate)amp。 and 39。session(edate)amp。 case double 39。session(sel)amp。amp。39。amp。39。amp。39。多條件的模糊查詢 sql=select * from tab_cgdan where amp。 like 39。session(qname)amp。 and cgdate between 39。session(sdate)amp。 and 39。session(edate)amp。 end if case else () 39。彈出提示對(duì)話框 (1) 39。 圖 14 采購(gòu)查詢條件頁(yè)面運(yùn)行結(jié)果 圖 15 采購(gòu)查詢結(jié)果頁(yè)面運(yùn)行結(jié)果 9 系統(tǒng)設(shè)置主要功能模塊詳細(xì)設(shè)計(jì) 系統(tǒng)設(shè)置頁(yè)面主要是對(duì)操作員的信息進(jìn)行添加、修改、刪除的操作。 刪除操作員設(shè)計(jì) 用戶可以通過(guò)單擊菜單主導(dǎo)航 “系統(tǒng)設(shè)置” /“刪除操作員”超鏈接，進(jìn)入刪除操作員頁(yè)面，用 戶單擊“刪除操作員”圖片鏈接進(jìn)行操作員的刪除操作。 圖 33 刪除操作員頁(yè)面的設(shè)計(jì)效果 首先進(jìn)行判斷當(dāng)前用戶是否具備刪除操作員的權(quán)限，完整代碼如下： !include file=../conn/ % set rs=() sql=select * from userlist where name=39。session(name)amp。 and quan=39。 sql,conn,1,3 if then% script language=javascript alert(對(duì)不起！您沒有這個(gè)權(quán)限 ) //彈出提示對(duì)話框 (1) //返回上一級(jí)頁(yè)面 /script %() end if () 39。將數(shù)據(jù)集在系統(tǒng)內(nèi)存中清除 % 首先通過(guò)查詢語(yǔ)句檢索 userlist 數(shù)據(jù)表中的全部數(shù)據(jù)，并按照權(quán)限進(jìn)行順序排序，檢索數(shù)據(jù)庫(kù)表中是否有該操作員的信息， 如果沒有檢索到，則彈出相應(yīng)的信息提示，代碼如下： % set rs=() sql=select * from userlist order by quan 39。 =。如果變量“ quan”的值為 a，那么權(quán)限為系統(tǒng)管理員；如果變量“ quan”的值為 c，那么權(quán)限為普通管理員。 a href=?id=%=rs(id)%img src=../images/ width=22 height=22 border=0/a 操作員信息刪除主要是根據(jù)傳遞的參數(shù)（ 本例是操作員信息的 id 號(hào)，參數(shù)名稱為 id），將數(shù)據(jù)庫(kù)中對(duì)應(yīng)的數(shù)據(jù)刪除，其程序代碼如下： !include file=../conn/ % qID=(id) if qID then (script language=39。if(!confirm(39。)){=39。}/script) 39。amp。39。刪除指定記錄 (sql) if err0 then (script language=39。alert(39。)。39。javascript39。操作員信息刪除成功 !39。=39。/script) end if else () end if% 刪除操作員頁(yè)面的運(yùn)行結(jié)果如圖 34 所示。 表 表 tab_ruku_main 的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 描述 rkID varchar 30 入庫(kù) ID pzs float 8 品種數(shù) je money 8 金額 sf money 8 實(shí)付 gysname varchar 100 供應(yīng)商名稱 rkdate datetime 8 入庫(kù)時(shí)間 czy varchar 30 操作員 jsr varchar 30 經(jīng)手人 jsfs varchar 10 結(jié)算方式 （ 2） tab_ruku_detail（入庫(kù)信息明細(xì)表） 入庫(kù)信息明細(xì)表主要用來(lái)保存商品的入庫(kù)票號(hào)信息，該表結(jié)構(gòu)如表 所示。 表 表 tab_kucun 的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 描述 id varchar 30 商品 ID spname varchar 50 商品名稱 jc varchar 25 商品簡(jiǎn) 稱 cd varchar 50 產(chǎn)地 gg varchar 50 規(guī)格 bz varchar 50 包裝 dw varchar 10 單位 dj money 8 單價(jià) kcsl int 4 庫(kù)存數(shù)量 （ 4） tab_sell_main（銷售信息主表） 銷售信息主表用于保存銷售商品的銷售信息，該表結(jié)構(gòu)如表 所