【文章內(nèi)容簡介】 型 寬 度 可否為空 默認(rèn)值 說 明 商品編號(hào) 字符型 6 否 主索引字段 條形碼 字符型 14 可 商品名稱 字符型 40 否 商品單位 字符型 6 否 商品單價(jià) 浮動(dòng)型 6 否 1位小數(shù) 產(chǎn)地 字符型 40 類別 字符型 20 說明 備注型 4 “進(jìn)貨信息”表的字段設(shè)置如表 32 所示： 表 32“進(jìn)貨信息”表 字段名 類 型 寬 度 可否為空 默認(rèn)值 說 明 進(jìn)貨編號(hào) 字符型 10 否 主索引字段 商品編號(hào) 字符型 6 否 普通索引字段 進(jìn)貨數(shù)量 浮動(dòng)型 8 否 1位小數(shù) 進(jìn)貨單價(jià) 浮動(dòng)型 8 否 1位小數(shù) 進(jìn)貨時(shí)間 日期時(shí)間型 8 否 供貨單位 字符型 40 可 經(jīng)手人 字符型 20 可 說明 備注型 4 “用戶信息”表的字段設(shè)置如表 33 所示： 表 33“用戶信息”表 字段名 類 型 寬 度 可否為空 默認(rèn)值 說 明 用戶名 字符型 20 否 主索引字段 密碼 字符型 20 否 1位小數(shù) “系統(tǒng)設(shè)置”表的字段設(shè)置如表 34 所示： 表 34“系統(tǒng)設(shè)置”表 字段名 類 型 寬 度 可否為空 默認(rèn)值 說 明 商品類別 字符型 20 否 主索引字段 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 11 “出貨信息”表的字段設(shè)置如表 35 所示： 表 35“出貨信息”表 字段名 類 型 寬 度 可否為空 默認(rèn)值 說 明 出貨編號(hào) 字符型 8 否 主索引字段 商品編號(hào) 字符型 6 否 普通索引字段 出貨數(shù)量 浮動(dòng)型 8 否 1位小數(shù) 出貨單價(jià) 浮動(dòng)型 8 否 1位小數(shù) 出貨時(shí)間 日期時(shí)間型 8 否 接手人 字符型 20 否 經(jīng)手人 字符型 20 可 說明 備注型 4 “庫存信息”表的字段設(shè)置如表 36 所示： 表 36“庫存信息”表 字段名 類 型 寬 度 可否為空 默認(rèn)值 說 明 商品編號(hào) 字符型 6 否 主 索引字段 庫存數(shù)量 浮動(dòng)型 8 1位小數(shù) 說明 備注型 4 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 12 4 系統(tǒng)實(shí)現(xiàn) 本系統(tǒng)是采用 Visual FoxPro 制作的，是當(dāng)今比較流行的可視化工具 ,它不像 Visual Basic 一樣需要借助其它的數(shù)據(jù)庫來完成某個(gè)軟件開發(fā)。它有自帶的數(shù)據(jù)庫，不僅可以簡化數(shù)據(jù)庫管理，而且能使應(yīng)用程序的開發(fā)流程更為合理。 Visual FoxPro 使組織數(shù)據(jù)、定義數(shù)據(jù)庫規(guī)則和建立應(yīng)用程序等工作變得簡單易行。利用可視化的設(shè)計(jì)工具和向?qū)?，用戶可以快速創(chuàng)建表單和打印報(bào)表等。 Visual FoxPro 還提供了一個(gè)集成化的系統(tǒng)開發(fā)環(huán)境。它不僅支持過程式編程技術(shù)，而且在語言方面作了強(qiáng)大的擴(kuò)充，支持面向?qū)ο罂梢暬幊碳夹g(shù)，并擁有功能強(qiáng)大的可視化程序設(shè)計(jì)工具。目前， Visual FoxPro 是用戶收集信息、查詢數(shù)據(jù)、創(chuàng)建集成數(shù)據(jù)庫系統(tǒng)，進(jìn)行實(shí)用系統(tǒng)開發(fā)較為理想的工具軟件 [8]。此系統(tǒng)運(yùn)行范圍非常廣泛，對(duì)于一般的操作系統(tǒng)它都可以運(yùn)行，比如： Windows 9 Windows 202 Windows XP 等操作系統(tǒng)。 功能模塊的實(shí)現(xiàn) 系統(tǒng)首頁功能的實(shí)現(xiàn) 系統(tǒng)主頁表單用來顯示本系統(tǒng)的設(shè)計(jì)者 ,主要功能就是調(diào)用本系統(tǒng)的登錄表單，它由主程序啟動(dòng)，當(dāng)用戶單擊“進(jìn)入”按鈕后，將打開系統(tǒng)登錄表單，當(dāng)用戶單擊“取消”按鈕時(shí)，系統(tǒng)就會(huì)退出 Visual Foxpro 表單。運(yùn)行結(jié)果如圖 所示： 圖 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 13 在運(yùn)行時(shí)我們可以看見一些特殊的效果，如：“歡迎使用”可以向右慢慢移動(dòng)。我們只要在表單中加一時(shí)鐘，并在時(shí)鐘的 timer 事件中編如下代碼： if = =0 else =+1 endif 我們還可以看見大標(biāo)題“超市商品管理系統(tǒng)”在不斷的閃不同的顏色，這只要在時(shí)鐘的 timer 事件中編如下代碼： i=int(rand()*255) j=int(rand()*255) k=int(rand()*255) =rgb(i,j,k) 如點(diǎn)擊“進(jìn)入 ” 則只需 在表單的“進(jìn)入 ” 按鈕的“ click” 事件中編如下代碼： do form logon 系統(tǒng)登錄功能的實(shí)現(xiàn) 每個(gè)系統(tǒng)都有自己的用戶名和密碼，以防他人偷窺。同樣本系統(tǒng)主要是為用戶的方便管理，如查看月收入、月支出等。所以本系統(tǒng)也有它的專用密碼。只有擁有此密碼的用戶才有權(quán)去觀賞此系統(tǒng)。此登錄表單的運(yùn)行結(jié)果如圖 所示： 圖 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 14 系統(tǒng)主界面功能的實(shí)現(xiàn) 主表單的作用如下： (1)作為程序主窗口。 (2)裝載主菜單。 (3)裝載狀態(tài)欄。 具體窗口運(yùn)行結(jié)果如圖 所示： 圖 在這里，每個(gè)功能模塊上的圖片都能不斷變化，因?yàn)樗鼈兌际怯?flash 制作的。只要當(dāng)用戶輸入正確的戶名和密碼時(shí)，點(diǎn)擊“確定”按鈕就會(huì)調(diào)用此表單。語句為： do form 主程序 .scx 商品信息管理功能的實(shí)現(xiàn) 商品信息管理功能主要實(shí)現(xiàn)商品編輯、查詢等功能。 運(yùn)行結(jié)果如圖 所示： 圖 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 15 在此表單中，使用了 2 個(gè)自定義表單屬性“ oldrecord” 和“ formmode” ： (1)“ oldrecord” 屬性：初始值為 0，用來保存表單狀態(tài)改變之前，“商品信息”表 中 的記錄指針的位置。 (2)“ formmode” 屬性：初始值為 .F.,用來標(biāo)記表單中記錄的修改情況。 另外還自定義 2個(gè)表單方法“ checkempty” 和“ setmode” ： (1)“ checkempty” 方法：用來檢測(cè)“商品信息 ” 表是否為空，以及該表中的記錄指 針的位置，并根據(jù)情況對(duì)表單的控件屬性做出相應(yīng)的操作。 (2)“ setmode” 方法：根據(jù)自定義屬性“ formmode” 的值來設(shè)置表單中控件的屬性。 調(diào)用此表單的語句當(dāng)然也不例外： do form proadmin 商品信息查詢功能的實(shí)現(xiàn) 從商品信息管理表單中看出我 們可以對(duì)商品進(jìn)行瀏覽、查詢、修改等，當(dāng)我們點(diǎn)擊“查詢”按鈕時(shí)，彈出一對(duì)話框，在這里我們可以按多種字段進(jìn)行查詢商品。具體運(yùn)行結(jié)果如圖 所示： 圖 商品進(jìn)貨功能的實(shí)現(xiàn) “超市商品管理系統(tǒng)”中的日常操作模塊包括“商品進(jìn)貨操作”和“商品出貨操作”功能，分別由“商品進(jìn)貨操作”“商品出貨操作”表單來完成。但進(jìn)貨操作和出貨操作過程基本相同，在這里我們只介紹“商品進(jìn)貨操作”過程。 “商品進(jìn)貨操作”表單主要用來進(jìn)行商品進(jìn)貨操作，其具體的運(yùn)行結(jié)果如圖 所示： 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 16 圖 在這里，我們需要?jiǎng)?chuàng)建 autoadd 函數(shù)，因?yàn)椤俺猩唐饭芾硐到y(tǒng) ” 的“進(jìn)貨信息 ”表中的“進(jìn)貨編號(hào) ” 定為一個(gè) 10 位的編號(hào)，其中前 6 位由當(dāng)前系統(tǒng)日期的“年 ” “月 ”“日 ” 各 2 位數(shù)字組成，后 4 位從“ 0001” 開始遞增?！?autoadd” 函數(shù)的作用是將類似于“ 00000XX” 形式的字符串遞增。實(shí)現(xiàn)此過程的具體代碼如下： *作用：使“ 00000XX” 形式的編號(hào)自動(dòng)加 1 FUNCTION AUTOADD(NCODE) *獲取字符串長度 nlen=nlen(ncode) *將字符型轉(zhuǎn)換為數(shù)值型，即獲取非 0部分的數(shù)值 ncode=val(ncode) *非 0部分?jǐn)?shù)字加 1 ncode=ncode+1 *轉(zhuǎn)換為字符型 ncode=alltrim(str(ncode)) *獲取轉(zhuǎn)換后的字符串的長度 nlength=len(ncode) *在數(shù)字之前加上前置“ 0” nzero=“ 0000000000” ncode=substr(nzero,1,nlennlength)+ncode 忻州師范學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)系本科畢業(yè)設(shè)計(jì)（論文） 17 return ncode endfunc 進(jìn)貨信息查詢功能的實(shí)現(xiàn) “超市商品管理系統(tǒng)”中的信息查詢模塊由“進(jìn)貨信息查詢”、“出貨信息查詢”、“庫存信息查詢” 3 個(gè)功能組成，分別由“進(jìn)貨記錄查詢”、“出貨記錄查詢”、“庫存記錄查詢” 3個(gè) 表單完成。因?yàn)樗鼈?3個(gè)的過程基本相同，所以我們這里只介紹“進(jìn)貨信息查詢”表的實(shí)現(xiàn)過程?！斑M(jìn)貨信息查詢”表單用來