【文章內(nèi)容簡介】 ml。 charset=gb2312 /head frameset rows=99,* cols=* framespacing=0 frameborder=no border=0 frame src= frameborder=no scrolling=no frame src= name=mainF scrolling=auto /frameset noframesbody /body/noframes /html 菜單子導(dǎo) 航區(qū)的關(guān)鍵代碼如下： % =true =0 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 13 – 頁 if session(ulogin)yes then 39。判斷是否登錄 () 39。重新定向頁面 () end if % a href= onClick=Fsubmenu(39。基礎(chǔ) 39。)基礎(chǔ)信息 /a|a href= onClick=Fsubmenu(39。采購 39。)采購管理 /a|a href= onClick=Fsubmenu(39。庫存 39。)庫存管理 /a|a href= onClick=Fsubmenu(39。銷售 39。)商品銷售 /a|a href= onClick=Fsubmenu(39。查詢 39。)查詢統(tǒng)計(jì) /a|a href= onClick=Fsubmenu(39。往來 39。)往來管理 /a|a href= onClick=Fsubmenu(39。系統(tǒng) 39。)系統(tǒng)設(shè)置 /a script language=JavaScript var today=new Date()。 var month=()+1 if (()==1) {( +()+年 +month+月 +()+日 星期一 )。} if (()==2) {( +()+年 +month+月 +()+日 星期二 )。} if (()==3) {( +()+年 +month+月 +()+日 星期三 )。} if (()==4) {( +()+年 +month+月 +()+日 星期四 )。} if (()==5) {( +()+年 +month+月 +()+日 星期五 )。} if (()==6) {( +()+年 +month+月 +()+日 星期六 )。} if (()==0) {( +()+年 +month+月 +()+日 星期日 )。} /script ...... script language=javascript function Fsubmenu(value){ switch (value){ case 基礎(chǔ) : =a href=39。jcxx/39。 target=39。mainF39?？蛻粜畔⒐芾?/a|a href=39。jcxx/39。 target=39。mainF39。商品信息管理 /a|a href=39。jcxx/39。 target=39。mainF39。供應(yīng)商信息管理 /a|a href=39。jcxx/39。 target=39。mainF39。客戶信息查詢 /a|a href=39。jcxx/39。 target=39。mainF39。商品信息查詢 /a|a href=39。jcxx/39。 target=39。mainF39。供應(yīng)商信息查詢 /a。 break。 case 采購 : //類型為采購時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。cggl/39。 target=39。mainF39。商品采購 /a|a href=39。cggl/39。 target=39。mainF39。采購查詢 /a。 break。 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 14 – 頁 case 庫存 : //類型為庫存時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。kcgl/39。 target=39。mainF39。商品入庫 /a|a href=39。kcgl/39。 target=39。mainF39。商品入庫退貨 /a|a href=39。kcgl/39。 target=39。mainF39。庫存查詢 /a|a href=39。kcgl/39。 target=39。mainF39。價(jià)格調(diào)整 /a。 break。 case 銷售 : //類型為銷售時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。spxs/39。 target=39。mainF39。商品銷售 /a|a href=39。spxs/39。 target=39。mainF39。商品銷售退貨 /a|a href=39。jcxx/39。 target=39。mainF39。 break。 case 查詢 : //類型為 查詢時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。cxtj/39。 target=39。mainF39。銷售信息查詢 /a|a href=39。cxtj/39。 target=39。mainF39。銷售退貨查詢 /a|a href=39。cxtj/39。 target=39。mainF39。商品入庫查詢 /a|a href=39。cxtj/39。 target=39。mainF39。入庫退貨查詢 /a|a href=39。cxtj/39。 target=39。mainF39。商品銷售排行 /a|a href=39。cxtj/39。 target=39。mainF39。年銷售額分析 /a。 break。 case 往來 : //類型為往來時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。wlgl/ysgl/39。 target=39。mainF39。商品銷售結(jié)賬/a|a href=39。wlgl/ysgl/39。 target=39。mainF39。入庫退貨結(jié)賬 /a|a href=39。wlgl/ysgl/39。 target=39。mainF39。銷售結(jié)賬查詢 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。商品入庫結(jié)賬 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。銷售退貨結(jié)賬 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。入 庫結(jié)賬查詢 /a。 break。 case 系統(tǒng) : //類型為系統(tǒng)時(shí)，進(jìn)入相應(yīng)的處理頁面 =a href=39。xtsz/39。 target=39。mainF39。添加操作員 /a|a href=39。xtsz/39。 target=39。mainF39。更改操作員密碼 /a|a href=39。xtsz/39。 target=39。mainF39。刪除操作員 /a。 break。 } } /script 退出導(dǎo)航區(qū)的完整代碼如下： % () () 39。父窗口重新定向到登錄頁面 % 7 基礎(chǔ)信息主要功能模塊詳細(xì)設(shè)計(jì) 商品 信息管理設(shè)計(jì) 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 15 – 頁 用戶可以通過單擊菜單主導(dǎo)航 “ 基礎(chǔ)信息 ” /“商品 信息管理 ”超鏈接， 進(jìn)入 商品 信息管理頁面。該頁面主要完成 商品 信息的添加。 商品 信息管理頁面設(shè)計(jì)效果如圖 6 所示。 圖 6 商品 信息管理頁面設(shè)計(jì)效果 商品 信息管理頁面中涉及的 HTML 表單元素如表 3 所示。 表 3 商品 信息管理頁面中涉及的 HTML 表單元素 名稱 類型 含義 重要屬性 form1 form 表單 action= method=post sel select 供應(yīng)商全稱 %while not % option value=%=rs(name)%%=rs(name)%/option % wend% memo text 備注 onkeyup=if (==13){send()} subb button 【保存信息】按鈕 onclick=send() Res reset 【清除重寫】按鈕 onclick=res() 利用 JavaScript 編寫檢測用戶輸入信息是否合法的函數(shù)，并通過單擊【保存信息】按鈕調(diào)用該函數(shù)，當(dāng)用戶輸入合法信息后，提交該表單。關(guān)鍵代碼如下： !include file= % set conn=() 39。創(chuàng)建數(shù)據(jù)庫對象 set rs=() 39。創(chuàng)建記錄集對象 application(dsn) sql=select * from tab_gysinfo sql,conn,1,3 39。打開記錄集 % 商品 信息添加時(shí)的數(shù)據(jù)處理頁主要是 將 用戶提交的表單信息 保存到數(shù)據(jù)庫中， 數(shù) 據(jù)處理頁的程序代碼如下： % 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 16 – 頁 spname=trim(request(spname)) jc=trim(request(jc)) cd=trim(request(cd)) dw=trim(request(dw)) gg=trim(request(gg)) bz=trim(request(bz)) ph=trim(request(ph)) pzwh=trim(request(pzwh)) gysname=trim(request(gysname)) memo=trim(request(memo)) set conn=() set rs=() set myrs=() set rec=() application(dsn) sql=select id from tab_spinfo sql,conn,1,3 if not then 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。spid else spid=sp1001 end if sql=insert into tab_spinfo(id,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo) values(39。amp。spidamp。39。,39。amp。spnameamp。39。,39。amp。jcamp。39。,39。amp。cdamp。39。,39。amp。dwamp。39。,39。amp。ggamp。39。,39。amp。bzamp。39。,39。amp。phamp。39。,39。amp。pzwhamp。39。,39。amp。gysnameamp。39。,39。amp。memoamp。39。) 39。插入新記錄 sql,conn,1,3 % script language=javascript alert(商品信息添加成功！ )。 //彈出對話框 =。 //重新定向指定頁面 /script 商品信息管理頁面的運(yùn)行結(jié)果如圖 7 所示。 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 17 – 頁 圖 7 商品信息管理頁面的運(yùn)行結(jié)果 商品信息查詢 設(shè)計(jì) 用戶可以通過單擊菜單主導(dǎo)航 “ 基礎(chǔ)信息 ” /“商品信息查詢”超鏈接， 進(jìn)入 商品信息查詢 頁面。該頁面主要完成 商品信息的檢索 。 商品信息查詢 頁面設(shè)計(jì)效果如圖 8 所示。 圖 8 商品 信息 查詢 頁面設(shè)計(jì)效果 商品 信息 查詢 頁面中涉及的 HTML 表單元素如表 4 所示。 表 4 商品 信息 查詢 頁面中涉及的 HTML 表單元素 名稱 類型 含義 重要屬性 myform form 表單 action= method=post target=mainF sel select 選擇查詢字段 option value=spname selected商品名稱 /option ?? option value=gg規(guī)格 /option tsel select 選擇條件運(yùn)算符 option value== selected等于 /option option value=likeLIKE/option qname text 輸入查詢關(guān)鍵字 id=qname onkeyup=ti