【導讀】存環(huán)節(jié)而開發(fā)的計算機應用軟件。通過它可以合理控制進銷存各個環(huán)節(jié)，實現(xiàn)管理的高效。率、實時性、安全性、科學化、現(xiàn)代化和智能化，全面提高企業(yè)競爭力。論文介紹了開發(fā)管理信息系統(tǒng)采用的兩種基本結構模式，即C/S與B/S的結構模式，涉及功能模塊的設計方法，其中部分源代碼已經(jīng)開放；論文的最后是總結。本系統(tǒng)最終測試表明：系統(tǒng)運行可靠、穩(wěn)定，操作方便，對信息的處理方便快。捷，滿足了企業(yè)的實際需求。系統(tǒng)的開發(fā)過程經(jīng)驗可供其他企業(yè)參考。

　　

【正文】 19 表單提交到處理頁后會驗證用戶登錄的身份，完整代碼如下： !include virtual= ! include file=Conn/ !包含數(shù)據(jù)庫連接文件 % =30 39。設置 Session 的過期時間為 30 分鐘 session(ulogin)=no ame=trim(request(username)) 39。獲取用戶名 pass=(PWD) 39。獲取密碼 pass=replace(pass,39。,) set conn=() set m=() 39。創(chuàng)建對象 application(dsn) 39。打開數(shù)據(jù)庫 set =conn =adcmdstoredproc =checklogin set mpf=(ame,advarchar,adparaminput,20) mpf set mps=(pass,advarchar,adparaminput,20) mps m(ame)=ame m(pass)=pass set rs= if then (script language=39。JavaScript39。alert(39。 請輸入正確的用戶名和密碼39。)。=39。39。/script)39。彈出提示對話框，并轉向指定頁面 else session(id)=rs(id) session(name)=rs(name) session(quan)=rs(quan) session(ulogin)=yes //跳 轉到管理頁面 end if % 在理解了 Session 的基礎上，我們知道上述代碼首先是把存儲用戶信息并與客戶端保持關聯(lián)的 Session(ulogin)初始化，賦予空值。在接收數(shù)據(jù)庫后，打開數(shù)據(jù)庫，取出標識符，把它賦給 Session(ulogin)。如果不存在該用戶，則彈出錯誤提示，并跳回到登錄頁面。 客商 信息功能模塊 實現(xiàn) 客商信息主要是對客戶信息、商品信息和供應商信息進行管理，可以方便迅速的了解有關客戶、商品和供 應商的基本信息。 企業(yè) 通過該功能模塊能夠節(jié)約時間， 提高效率 ，獲 華北水利水電學院畢業(yè)設計 20 得更多收益。 本部分主要介紹商品 信息管理 功能模塊 的 設計 。 用戶可以通過單擊菜單主導航 “ 客商 信息 ” /“商品 信息管理 ”超鏈接， 進入 商品 信息管理頁面。該頁面主要完成 商品 信息的添加。 商品 信息管理頁面設計效果如圖 35 所示。 圖 35 商品 信息管理頁面 利用 JavaScript 編寫檢測用戶輸入信息是否合法的函數(shù)，并通過單擊【保存信息】按鈕調用該函數(shù)，當用戶輸入合法信息后，提交該表單。關鍵代碼如下： !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ù)據(jù)處理頁主要是 將 用戶提交 的表單信息 保存到數(shù)據(jù)庫中， 數(shù)據(jù)處理頁的程序代碼如下： 華北水利水電學院畢業(yè)設計 21 % 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 //如果沒到記錄尾 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 采購管理功能模塊 實現(xiàn) 采購管理可以有效管理整個企業(yè)的采購業(yè)務，用以提高采購經(jīng)營事務的效率，提高企業(yè)的經(jīng)濟效益，確保采購工作質量高效率、低成本執(zhí)行，使企業(yè)具有最佳的供貨狀態(tài)。 主 華北水利水電學院畢業(yè)設計 22 要包括 商品采購和采購查詢兩 部分。 本部分 為 采購 查詢 模塊 設 計方法。 采購查詢是為采購員提供的對采購信息進行查詢的功能，以便跟蹤采購信息的執(zhí)行情況，為企業(yè)的采購決策 提供依據(jù)。 用戶可以通過單擊菜單主導航 “采購管理” /“采購查詢”超鏈接， 進入 采購查詢 頁面。該頁面主要完成 采購信息的檢索 。 采購查詢 頁面設計效果如圖 36 所示。 圖 36 采購查詢頁面 用戶可以在采購查詢頁面中的查詢部分，輸入一定的查詢條件，單擊【查詢】按鈕后，用戶添加查詢條件將被提交給本頁，本頁則將根據(jù)用戶提交的表單對數(shù)據(jù)庫進行檢索，并將查詢結果集通過信息展示部分輸出到瀏覽器中，數(shù)據(jù)處理頁的程序代碼如下： !include file=../conn/ % set rs=() if (type)=all then 39。顯示全部內容 sql=select * from tab_cgdan else flag=(flag) i=0 39。為變量賦初始值 if flag then if instr(flag,1)0 then 39。當有一個條件時進行相應 的處理 sel=(sel) tj=(tj) qname=(qname) i=1 flag_deal=inIF end if if instr(flag,2)0 then 39。當有兩個條件時進行相應的處理 sdate=(sdate) edate=(edate) i=i+1 flag_deal=inDate end if if i1 then flag_deal=double end if 華北水利水電學院畢業(yè)設計 23 session(flag)=flag_deal 39。創(chuàng)建 Session 變量 session(sel)=sel session(tj)=tj session(qname)=qname session(sdate)=sdate session(edate)=edate end if 39。查詢條 件判斷 select case session(flag) case inIF if session(tj)== then 39。精確查詢 sql=select * from tab_cgdan where amp。session(sel)amp。 = 39。amp。session(qname)amp。39。 else 39。模糊查詢 sql=select * from tab_cgdan where amp。session(sel)amp。 like 39。%amp。session(qname)amp。%39。 end if case inDate 39。日期查詢 sql=select * from tab_cgdan where cgdate between 39。amp。session(sdate)amp。39。 and 39。amp。session(edate)amp。39。 case double 39。多條件的精確查詢 if session(tj)== then sql=select * from tab_cgdan where amp。session(sel)amp。 = 39。amp。session(qname)amp。39。 and cgdate between 39。amp。session(sdate)amp。39。 and 39。amp。session(edate)amp。39。 else 39。多條件的模糊查詢 sql=select * from tab_cgdan where amp。session(sel)amp。 like 39。%amp。session(qname)amp。%39。 and cgdate between 39。amp。session(sdate)amp。39。 and 39。amp。session(edate)amp。39。 end if case else () 39。重新定向到指定頁面 end select end if sql,conn,1,3 if then% script language=JavaScript alert(沒有找到您要查詢的記錄 !) 39。彈出提示對話框 (1) 39。返回上一級頁面 /script %() end if% 華北水利水電學院畢業(yè)設計 24 庫存管理功能模塊 實現(xiàn) 庫存管理是企業(yè)管理的重要組成部分。在企業(yè)經(jīng)營活動中，庫存管理直接影響 到 采購、銷售部門的購、銷活動。 庫存管理能夠 加快企業(yè)資金 流動 速度 ， 在 保障供給的前提下 ，最大限度地降低壓庫資金 。庫存管理 直接牽動著企業(yè)的經(jīng)營效益。 企業(yè)進銷存 管理信息系統(tǒng)中的庫存管理模塊 包含商品入庫、商品入庫退貨、庫存查詢和價格調整四個功能。