【導(dǎo)讀】通過(guò)調(diào)查超市的經(jīng)營(yíng)現(xiàn)狀業(yè)務(wù)流程的基礎(chǔ)上，應(yīng)用MIS課程所學(xué)的知識(shí)，息管理現(xiàn)有的業(yè)務(wù)流程，運(yùn)用所學(xué)的知識(shí)和技術(shù)，在現(xiàn)代原理與方法的指導(dǎo)下，開(kāi)發(fā)，撰寫(xiě)設(shè)計(jì)報(bào)告。測(cè)試數(shù)據(jù)和系統(tǒng)試運(yùn)行數(shù)據(jù)資料。功能層次圖為主的網(wǎng)上圖書(shū)銷售管理系統(tǒng)邏輯模型。VisualFoxPro為載體，開(kāi)發(fā)商品管理以及信息修改的操作界面。在一個(gè)標(biāo)準(zhǔn)EXE工程環(huán)境。下，通過(guò)連接控件Data1的連接，手動(dòng)輸入添加入庫(kù)的商品的所有信息，點(diǎn)擊添加命令按鈕，此外，還提供了便捷。記錄可以逐條地查詢，也可以按屬性(商品編碼、商品名稱、商品單價(jià)、商品。數(shù)量)進(jìn)行分類的查詢。在窗體界面上添加命令按鈕，分別完成各命令按鈕的任務(wù)執(zhí)行編碼，從而實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的添加、查找、刪除、修改等操作。

　　

【正文】 Is_User=(USER_N=員工信息 .姓名 ).AND.(USER_P=員工信息 .密 碼 ) IF IS_USER EXIT ELSE SKIP ENDIF ENDDO IF IS_USER cCurUser=ALLTRIM() DO FORM 歡迎界面 ELSE MESSAGEBOX(姓名或密碼不正確！ ,0+16,超市信息管理系統(tǒng) ) 36 = = ENDIF SET EXACT OFF 該段代碼的功能是當(dāng)管理員輸入的用戶名和密碼如果都正確時(shí)，單擊“進(jìn)入”按鈕，即可以進(jìn)入系統(tǒng)主界面。如果不正確，則將給出提示信息。 為“退出”按鈕添加代碼，在其 Click事件中添加如下代碼： 系統(tǒng)主界面 系統(tǒng)主界面是用戶進(jìn)入系統(tǒng)后接觸的主要界面，如圖 ，由它可以進(jìn)入各個(gè)功能模塊。主界面的設(shè)計(jì)在這里采用在頂層表單上添加下拉式菜單的方法來(lái)設(shè)計(jì)，即先設(shè)計(jì)一個(gè)下拉式菜單，然后將菜單添加到頂層表單上即可。 圖 主界面 該界面表 單的屬性設(shè)置和控件設(shè)置都比較簡(jiǎn)單，這里就不再詳細(xì)說(shuō)明，該界面設(shè)計(jì)過(guò)程 37 中用到了菜單，對(duì)菜單的設(shè)計(jì)做一下介紹。 在項(xiàng)目（超市管理系統(tǒng) .scx ）中新建菜單（菜單選項(xiàng) .mnx）供系統(tǒng)使用，如圖 所示。 38 39 圖 菜單選項(xiàng) 系統(tǒng)主界面是與用戶進(jìn)行交互的主界面，由它可以進(jìn)入各個(gè)功能模塊。下面代碼的功能是將菜單 main加載到頂層表單上，實(shí)現(xiàn)頂層表單對(duì)菜單的調(diào)用。雙擊表單，在表單的 Init事件中添加如下代碼： DO WITH this,.t. 信息 管理界面 該部分 界面對(duì) 超市 信息進(jìn)行管理，包括 商品信息 管理 、會(huì)員信息 管理 、商品類別管理、員工信息管理。 界面如圖 。 40 41 圖 信息 管理界面 設(shè)計(jì)類 設(shè)計(jì)類。在項(xiàng)目管理器中，單擊 Classes標(biāo)簽，然后單擊 New按鈕，在彈出的 New Class 42 對(duì)話框中的 Class Name文本框中輸入 ddd，在 Based On的下拉列表框中選擇 myclass，然后在 Store In 中選擇要保存的路徑，單擊 OK 按鈕進(jìn)入設(shè)計(jì)窗口，在該窗口中設(shè)置Buttoncount按鈕數(shù)目屬性，使其值為 4，調(diào)整好它們 位置及大小，并根據(jù)設(shè)計(jì)的 需要設(shè)置每個(gè)按鈕的 Caption屬性，最后的效果如圖 。 圖 新建類 下面為“第一個(gè)”、“前一個(gè)”、“后一個(gè)”和“尾一個(gè)”這 4個(gè)導(dǎo)航按鈕添加代碼，以實(shí)現(xiàn)它們的功能。 為“第一個(gè)”按鈕添加代碼，在其 Click事件中添加如下代碼： GO TOP 為“前一個(gè)”按鈕添加代碼，在其 Click事件中添加如下代碼： IF BOF() MESSAGEBOX(已經(jīng)是第一個(gè)記錄了！ ,系統(tǒng) ) ELSE SKIP 1 Endif 上面 代碼的功能是瀏覽當(dāng)前記錄的前一個(gè)記錄，如果已是第一條記錄，則給出提示信息。 為“后一個(gè)”按鈕添加代碼，在其 Click事件中添加如下代碼： IF eOF() MESSAGEBOX(已經(jīng)是最后一個(gè)記錄了！ ,系統(tǒng) ) ELSE SKIP Endif 上面代碼的功能是瀏覽當(dāng)前記錄的后一個(gè)記錄，如果已是最后一條記錄，則給出提示信息。 為“尾一個(gè)”按鈕添加代碼，在其 Click事件中添加如下代碼： 43 GO bott 至此，一個(gè)具有一定功能 的類就創(chuàng)建出來(lái)了。 日常操作 界面 該界面可以對(duì)超市的 進(jìn)存銷 信息進(jìn)行 管理 ，包括 進(jìn)貨信息管理 、庫(kù)存 信息管理 和銷售 信息管理 。由該界面可以進(jìn)入 進(jìn)貨管理 界面、庫(kù)存 管理 界面、銷售 管理 界面，分別對(duì) 進(jìn)貨 信息、庫(kù)存信息和銷售信息進(jìn)行 管理 ，如圖 為進(jìn)貨信息管理圖例 。 本界面需要選擇的數(shù)據(jù)表應(yīng)該有：供應(yīng)商，進(jìn)貨，庫(kù)存，商品，職員。選擇完成后，界面如下： 44 打開(kāi)“布局工具欄”，“表單控件工具欄”，“屬性”窗口： 認(rèn)識(shí)“表單控件工具欄”部分控件： 組合框 bo2 interactivechange event select商品 locate for 商品名稱 = 點(diǎn)擊 使“屬性”，“表單控件工具欄”，“布局工具欄”左邊出現(xiàn)√，用鼠標(biāo)選擇。 標(biāo)簽 文本框 按鈕 組合框 表格 形狀 線條 點(diǎn)擊 45 if found() =商品編號(hào) Endif 組合框 bo3 interactivechange event select供應(yīng)商 locate for 供應(yīng)商編號(hào) = if found() =供應(yīng)商名稱 Endif 組合框 bo4 interactivechange event select供應(yīng)商 locate for 供應(yīng)商名稱 = if found() =供應(yīng)商編號(hào) Endif “作廢“按鈕 click event DELETE “增加“按鈕 click event SELECT 進(jìn)貨 go bottom IF empty(alltrim()) MESSAGEBOX(請(qǐng)直接輸入信息 ！ ) else append blank endif “退出“按鈕 click event 46 表單（ form） init event set delete on ** =user_id ** =user_name =.f. =.f. 文本 框 text1 click event IF empty(alltrim()) =user_id endif text6 interactivechange event =* 庫(kù)存信息管理與銷售信息管理表單界面設(shè)計(jì)與進(jìn)貨信息管理界面設(shè)計(jì)方法雷同，在此就不一一列出了 該界面可以對(duì)超市的 各種 信息進(jìn)行 查詢 ，包括 進(jìn)貨信息查詢 、庫(kù)存 信息查詢、 銷售 信息查詢、會(huì)員信息查詢、員工信息查詢、商品信息查詢 。 如下圖： 進(jìn)貨信息查詢表單 在項(xiàng)目管理器中創(chuàng)建一個(gè)表單作為“進(jìn)貨信息查詢”表單，保存為“ Insearch” ,將“ Inview”視圖和“系統(tǒng)設(shè)置”表添加到表單的數(shù)據(jù)環(huán)境中。 47 在表單中添加一個(gè)表格控件，六個(gè)標(biāo)簽控件，五個(gè)文本框控件，一個(gè)組合框控件和兩個(gè)按鈕控件，如下圖： 創(chuàng)建 銷售 信息查詢表 單 “ 銷售 信息查詢”表單用來(lái)查詢出貨記錄，該表單提供了按照商品編號(hào)，商品名稱，商品類別，經(jīng)手人，接收人和出貨日期等多種 查詢方式。 在項(xiàng)目管理器中新建一個(gè)表單作為“ 銷售 信息查詢”表單，保存為“ Outsearch” ,將“ Outview”視圖和“系統(tǒng)設(shè)置”表添加到表單的數(shù)據(jù)環(huán)境中。 在表單中添加一個(gè)表格控件，一個(gè)組合框控件，五個(gè)文本框控件，六個(gè)標(biāo)簽控件和兩個(gè)命令按鈕控件，創(chuàng)建好的“ 銷售 信息查詢”表單如下圖： 添加“ 銷售 信息查詢”表單代碼： 48 *收集查詢條件 SearchFiler=” .T.” IFNOTEMPTY(ALLTRIM( .Value)) SearchFiler=SearchFiler+” AND” +ALLTRIM( .Value)+” s商品編號(hào)” ENDIF IFNOTEMPTY( .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( .Value)+” s商品名稱” ENDIF IFNOTEMPTY(ALLTRIM( .Value)) SearchFiler=SearchFiler+” AND” +ALLTRIM( .Value)+” s商品類別” ENDIF 49 IFNOTEMPTY( .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( .Value)+” s經(jīng)手人” ENDIF IFNOTEMPTY( .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( .Value)+” s接收人” ENDIF IFNOTEMPTY( .Value) nYear=YEAR( .Value) nmouth=MOUTH( .Value) Nday=DAY( .Value) sDate=ALLTRIM(STR(nYear))+” /” =alltrim(str(nDay)) SearchFilter=SearchFilter=” ANDTTOD(進(jìn)貨時(shí)間 )={“ +sDate+” }” ENDIF *設(shè) 置過(guò)濾條件 SELECTOutView SETFILTERTO SETFILTERTOamp。SearchFilter *刷新表單 “ 銷售 信息查詢”表單打印事件代碼： REPRTFORMOUTVIEWFORSEARCHFILTERPREVIEW 至此，“ 銷售 信息查詢”表單創(chuàng)建完成。 創(chuàng)建“庫(kù)存信息查詢”表單 50 “庫(kù)存信息查詢”表單用來(lái)查詢商品的庫(kù)存情況，該表單的創(chuàng)建方法與創(chuàng)建“進(jìn)貨信息查詢”表單和創(chuàng)建“出貨信息查詢”表單基本相同，所以不再列出其創(chuàng)建的具體步驟，創(chuàng)建好的“庫(kù) 存信息查詢”表單效果如圖： 類似設(shè)計(jì)員工信息 查詢 等 界面， 不再列舉。 說(shuō)明：“頁(yè)注腳”中“帳單金額”和“實(shí)收金額”文本框要進(jìn)行如下設(shè)置： 接下來(lái)界面如下： 點(diǎn)擊 點(diǎn)擊 點(diǎn)擊 51 設(shè)計(jì)“進(jìn)貨報(bào)表”報(bào)表、“入庫(kù)報(bào)表”報(bào)表、“庫(kù)存報(bào)表”報(bào)表、“銷售報(bào)表”報(bào)表，我們只以為“進(jìn)貨報(bào)表”報(bào)表、“銷售報(bào)表”報(bào)表為例，其它報(bào)表設(shè)計(jì)，設(shè)計(jì)后界面如下： （一）“進(jìn)貨報(bào)表”，“銷售報(bào)表”頁(yè)注腳： 點(diǎn)擊報(bào)表控件工具欄上的文本框按鈕 ?在報(bào)表界面上點(diǎn)擊 ,出現(xiàn)如下界面 : （二）“銷售報(bào)表”頁(yè)注腳： 52 點(diǎn)擊報(bào)表控件工具欄上的文本框按鈕 ?在報(bào)表界面上點(diǎn)擊 ,出現(xiàn)如下界面 : 主 程序設(shè)計(jì) 在項(xiàng)目（超市信息管理系統(tǒng) .scx ）中新建下列主要程序供系統(tǒng)使用： （系統(tǒng)主程序），用來(lái)設(shè)置系統(tǒng)界面、初始化系統(tǒng)環(huán)境、設(shè)置系統(tǒng)起始點(diǎn)、啟動(dòng)事件循環(huán)等，主要代碼如下： set dele on set talk off set safety off set date ansi set cent on set path to 超市管理系統(tǒng) open database 超市信息 do form 系統(tǒng)登錄 read events 53 項(xiàng)目連編與發(fā)布 完成了上述設(shè)計(jì)以后，可以通過(guò)項(xiàng)目管理器中的連編命令連編生成可執(zhí)行文件（超市管理系統(tǒng) .exe）并運(yùn)行，系統(tǒng)的執(zhí)行界面如圖所示。 54 可執(zhí)行文件的執(zhí)行界面 55 第 5 章 總結(jié) 經(jīng)過(guò)幾個(gè)星期的努力，我的設(shè)計(jì)也初見(jiàn)成效，感到甚是欣慰。通過(guò)本次設(shè)計(jì)，我對(duì) VFP的知識(shí)得到了進(jìn)一步的理解和學(xué)習(xí)，對(duì)數(shù)據(jù)庫(kù)的設(shè)計(jì)方法有了進(jìn)一步的掌握，理解上也進(jìn)一少得到深化。 我的設(shè)計(jì)項(xiàng)目－超市信息管理系統(tǒng)已經(jīng)完成。在這個(gè)項(xiàng)目的涉及過(guò)程中，我學(xué)到了很多以前沒(méi)有學(xué)習(xí)過(guò)的方法和技巧，更學(xué)會(huì)了怎樣 去查閱書(shū)籍、資料。最重要的是真實(shí)的體驗(yàn)到了獨(dú)立設(shè)計(jì)與創(chuàng)作的艱辛，使我對(duì)設(shè)計(jì)有了簡(jiǎn)單的理解和認(rèn)識(shí)，對(duì)我以后的生活和學(xué)習(xí)具有重要的引導(dǎo)和啟發(fā)作用。 vfp設(shè)計(jì)軟件是當(dāng)今社會(huì)三維設(shè)計(jì)的主流工具，采用模塊化設(shè)計(jì)方式，這樣可以保證設(shè)計(jì)者根據(jù)自己的需要選擇使用。我僅以超市進(jìn)銷存管理系統(tǒng)為例，對(duì) vfp設(shè)計(jì)軟件進(jìn)行了初步的學(xué)習(xí)和探索，在此期間雖然與到了很多困難，但經(jīng)過(guò)他人的幫助和指導(dǎo)都得到了很好的解決，這也更激起了我對(duì) vfp設(shè)計(jì)軟件的學(xué)習(xí)興趣，以后我會(huì)繼續(xù)對(duì)其進(jìn)行更為深入的學(xué)習(xí)和探索。 盡管我的作品還非常的不成熟，但他卻是 我第一次的嘗試，第一次走向獨(dú)立設(shè)計(jì)，第一次把自己的構(gòu)想變成虛擬的模擬仿真并實(shí)現(xiàn)了實(shí)際操作。這對(duì)我來(lái)講是莫大的鼓舞和激勵(lì)，使我對(duì)自己的價(jià)值有了重新的認(rèn)識(shí)和定位，在今后的擇業(yè)方向上也有了明確的目標(biāo)。 56 參考文獻(xiàn) 張立厚，張應(yīng)利、高京廣、陳鳴中 .管理信息系統(tǒng)（ MIS） .廣東世界圖書(shū)出版公司， 戴仕明，王映龍 .Visual FoxPro程序設(shè)計(jì)與應(yīng)用開(kāi)發(fā) [M].北京：清華大學(xué)出版社 ,2021 畢庶偉 .管理信息系統(tǒng)分析與設(shè)計(jì) .北京 :機(jī)械工業(yè)出版社 ,1992 鄭阿奇 .SQL Server實(shí)用教程 .電子工業(yè)出版社， 邵兵家等 . 客戶關(guān)系管理 . 清華大學(xué)出版社， 張基溫 .信息系統(tǒng)開(kāi)發(fā)案例 .北京 。清華大學(xué)出版社 ,1999