【文章內(nèi)容簡(jiǎn)介】 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 – 頁(yè) if session(ulogin)yes then 39。判斷是否登錄 () 39。重新定向頁(yè)面 () end if % a href= onClick=Fsubmenu(39?；A(chǔ) 39。)基礎(chǔ)信息 /a|a href= onClick=Fsubmenu(39。采購(gòu) 39。)采購(gòu)管理 /a|a href= onClick=Fsubmenu(39。庫(kù)存 39。)庫(kù)存管理 /a|a href= onClick=Fsubmenu(39。銷(xiāo)售 39。)商品銷(xiāo)售 /a|a href= onClick=Fsubmenu(39。查詢 39。)查詢統(tǒng)計(jì) /a|a href= onClick=Fsubmenu(39。往來(lái) 39。)往來(lái)管理 /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 采購(gòu) : //類(lèi)型為采購(gòu)時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =a href=39。cggl/39。 target=39。mainF39。商品采購(gòu) /a|a href=39。cggl/39。 target=39。mainF39。采購(gòu)查詢 /a。 break。 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 14 – 頁(yè) case 庫(kù)存 : //類(lèi)型為庫(kù)存時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =a href=39。kcgl/39。 target=39。mainF39。商品入庫(kù) /a|a href=39。kcgl/39。 target=39。mainF39。商品入庫(kù)退貨 /a|a href=39。kcgl/39。 target=39。mainF39。庫(kù)存查詢 /a|a href=39。kcgl/39。 target=39。mainF39。價(jià)格調(diào)整 /a。 break。 case 銷(xiāo)售 : //類(lèi)型為銷(xiāo)售時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =a href=39。spxs/39。 target=39。mainF39。商品銷(xiāo)售 /a|a href=39。spxs/39。 target=39。mainF39。商品銷(xiāo)售退貨 /a|a href=39。jcxx/39。 target=39。mainF39。 break。 case 查詢 : //類(lèi)型為 查詢時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =a href=39。cxtj/39。 target=39。mainF39。銷(xiāo)售信息查詢 /a|a href=39。cxtj/39。 target=39。mainF39。銷(xiāo)售退貨查詢 /a|a href=39。cxtj/39。 target=39。mainF39。商品入庫(kù)查詢 /a|a href=39。cxtj/39。 target=39。mainF39。入庫(kù)退貨查詢 /a|a href=39。cxtj/39。 target=39。mainF39。商品銷(xiāo)售排行 /a|a href=39。cxtj/39。 target=39。mainF39。年銷(xiāo)售額分析 /a。 break。 case 往來(lái) : //類(lèi)型為往來(lái)時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =a href=39。wlgl/ysgl/39。 target=39。mainF39。商品銷(xiāo)售結(jié)賬/a|a href=39。wlgl/ysgl/39。 target=39。mainF39。入庫(kù)退貨結(jié)賬 /a|a href=39。wlgl/ysgl/39。 target=39。mainF39。銷(xiāo)售結(jié)賬查詢 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。商品入庫(kù)結(jié)賬 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。銷(xiāo)售退貨結(jié)賬 /a|a href=39。wlgl/yfgl/39。 target=39。mainF39。入 庫(kù)結(jié)賬查詢 /a。 break。 case 系統(tǒng) : //類(lèi)型為系統(tǒng)時(shí)，進(jìn)入相應(yīng)的處理頁(yè)面 =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。父窗口重新定向到登錄頁(yè)面 % 7 基礎(chǔ)信息主要功能模塊詳細(xì)設(shè)計(jì) 商品 信息管理設(shè)計(jì) 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 15 – 頁(yè) 用戶可以通過(guò)單擊菜單主導(dǎo)航 “ 基礎(chǔ)信息 ” /“商品 信息管理 ”超鏈接， 進(jìn)入 商品 信息管理頁(yè)面。該頁(yè)面主要完成 商品 信息的添加。 商品 信息管理頁(yè)面設(shè)計(jì)效果如圖 6 所示。 圖 6 商品 信息管理頁(yè)面設(shè)計(jì)效果 商品 信息管理頁(yè)面中涉及的 HTML 表單元素如表 3 所示。 表 3 商品 信息管理頁(yè)面中涉及的 HTML 表單元素 名稱 類(lèi)型 含義 重要屬性 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 【清除重寫(xiě)】按鈕 onclick=res() 利用 JavaScript 編寫(xiě)檢測(cè)用戶輸入信息是否合法的函數(shù)，并通過(guò)單擊【保存信息】按鈕調(diào)用該函數(shù)，當(dāng)用戶輸入合法信息后，提交該表單。關(guān)鍵代碼如下： !include file= % set conn=() 39。創(chuàng)建數(shù)據(jù)庫(kù)對(duì)象 set rs=() 39。創(chuàng)建記錄集對(duì)象 application(dsn) sql=select * from tab_gysinfo sql,conn,1,3 39。打開(kāi)記錄集 % 商品 信息添加時(shí)的數(shù)據(jù)處理頁(yè)主要是 將 用戶提交的表單信息 保存到數(shù)據(jù)庫(kù)中， 數(shù) 據(jù)處理頁(yè)的程序代碼如下： % 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 16 – 頁(yè) 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。如果沒(méi)到記錄尾 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(商品信息添加成功！ )。 //彈出對(duì)話框 =。 //重新定向指定頁(yè)面 /script 商品信息管理頁(yè)面的運(yùn)行結(jié)果如圖 7 所示。 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 – 17 – 頁(yè) 圖 7 商品信息管理頁(yè)面的運(yùn)行結(jié)果 商品信息查詢 設(shè)計(jì) 用戶可以通過(guò)單擊菜單主導(dǎo)航 “ 基礎(chǔ)信息 ” /“商品信息查詢”超鏈接， 進(jìn)入 商品信息查詢 頁(yè)面。該頁(yè)面主要完成 商品信息的檢索 。 商品信息查詢 頁(yè)面設(shè)計(jì)效果如圖 8 所示。 圖 8 商品 信息 查詢 頁(yè)面設(shè)計(jì)效果 商品 信息 查詢 頁(yè)面中涉及的 HTML 表單元素如表 4 所示。 表 4 商品 信息 查詢 頁(yè)面中涉及的 HTML 表單元素 名稱 類(lèi)型 含義 重要屬性 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