【正文】 在論文即將完成之際，我的心情無(wú)法平靜，從開(kāi)始進(jìn)入課題到論文的順利完成，有多少可敬的師長(zhǎng)、同學(xué)、朋友給了我無(wú)言的幫助，在這里請(qǐng)接受我誠(chéng)摯的謝意 !最后我還要感謝培養(yǎng)我長(zhǎng)大含辛茹苦的父母，謝謝你們 ! 畢業(yè)設(shè)計(jì) 45 參考文獻(xiàn) [1]盧湘鴻《 程序設(shè)計(jì)基礎(chǔ)》， 2021 年 10 月由清華出版社出版 [2]史濟(jì)民《 FoxPro 及其應(yīng)用系統(tǒng)開(kāi)發(fā)》清華大學(xué)出版社， 1998 年 3月出版 [3]鄭阿奇《 VisualFoxPro 實(shí)用教程》 ,電子工業(yè)出版社， 2021 年 4 月出版 [4]劉甫迎、黨晉 蓉、周紹敏 .VisualFoxPro 中文版教程 .重慶 .重慶大學(xué)出版社 .1997 [5]劉甫迎、周紹敏、黨晉蓉 .VisualFoxPro 關(guān)系數(shù)據(jù)庫(kù)導(dǎo)論 .成都 .四川科技出版社 .1997 [6]劉甫迎、林智 .FoxPro 關(guān)系數(shù)據(jù)庫(kù) ()中文版 .成都 .成都科技大學(xué)出版社 .1992 [7]軟中國(guó)有限公司 . 程序員指南 .北京 .北京希望電腦公司 .1998 。兩年多來(lái)， 虞老師 不僅在學(xué)業(yè)上給我 們 以精心指導(dǎo)，同時(shí)還在思想、生活上給我們 以無(wú)微不至的關(guān)懷，在此謹(jǐn)向 虞 老師致以誠(chéng)摯的謝意和崇高的敬意。 他 嚴(yán)肅的科學(xué)態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，深深地感染和激勵(lì)著我。這對(duì)我來(lái)講是莫大的鼓舞和激勵(lì)，使我對(duì)自己的價(jià)值有了重新的認(rèn)識(shí)和定位，在今后的擇業(yè)方向上也有了明確的目標(biāo)。我僅以超市進(jìn)銷(xiāo)存管理系統(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í)和探索。最重要的是真實(shí)的體驗(yàn)到了獨(dú)立設(shè)計(jì)與創(chuàng)作的艱辛，使我對(duì)設(shè)計(jì)有了簡(jiǎn)單的理解和認(rèn)識(shí)，對(duì)我以后的生活和學(xué)習(xí)具有重要的引導(dǎo)和啟發(fā)作用。 畢業(yè)設(shè)計(jì) 43 結(jié)束語(yǔ) 經(jīng)過(guò)兩個(gè)多月的緊張工作，我的設(shè)計(jì)項(xiàng)目－超市進(jìn)銷(xiāo)存管理系統(tǒng)已經(jīng)接近完成。 畢業(yè)設(shè)計(jì) 第 5 章 系統(tǒng)的編譯和發(fā)行 42 5 系統(tǒng)的編譯和發(fā)行 超市進(jìn)銷(xiāo)存管理系統(tǒng)中所需要各種類(lèi)型文件創(chuàng)建完成后就可以設(shè)置項(xiàng)目的信息，項(xiàng)目信息中的“附加圖標(biāo)”屬性是一個(gè)比較重要的屬性，在此屬性中設(shè)置的圖標(biāo)再將項(xiàng)目編譯形成可執(zhí)行程序后將作為程序的圖標(biāo)。SearchFilter *刷新表單 “出貨信息查詢(xún)”表單打印事件代碼： REPRTFORMOUTVIEWFORSEARCHFILTERPREVIEW 至此， “出貨信息查詢(xún)”表單創(chuàng)建完成。 在項(xiàng)目管理器中新建一個(gè)表單作為“出貨信息查詢(xún)”表單，保存為“ Outsearch” ,將“ Outview”視圖和“系統(tǒng)設(shè)置”表添加到表單的數(shù)據(jù)環(huán)境中。 創(chuàng)建“進(jìn)貨信息查詢(xún)”表單 在項(xiàng)目管理器中創(chuàng)建一個(gè)表單作為“進(jìn)貨信息查詢(xún)”表單，保存為“ Insearch” ,將“ Inview”視圖和“系統(tǒng)設(shè)置”表添加到表單的數(shù)據(jù)環(huán)境中。 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 34 *__從“出貨信息”中生成進(jìn)貨編號(hào)后 4 位 SELECT 出貨信息 SETORDERTO 出貨編號(hào) SETFRLTERTO SETFRLTERTOTTOD（出貨信息 .出貨時(shí)間） ==DATE() GOBOTTOM IF 出貨信息 .出貨編號(hào) ==”” RighNo=“ 0000” ELSE RighNo=Substr(出貨信息 .出貨編號(hào)、 7） ENDIF *對(duì)后 4位增 1 RighNo=AutoAdd(RightNo) *完整編號(hào) FullNo=LeftNo+RightNo *在表單中顯示 出貨編號(hào) .Value=FullNo 出貨時(shí)間 .Value=datetime() 出貨數(shù)量 .Value=0 出貨單價(jià) .Value=0 經(jīng)手人 .Value=”” 接收人 .Value=”” 商品編號(hào) .Value=”” *刷新表單 添加“商品出貨操作”表單的“確定 ” 按鈕的事件代碼： *獲取表單中的數(shù)據(jù) OutNo=ALLTRIM( 出貨編號(hào) .Value PNo= 商品編號(hào) .Value 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 35 OutCount= 出貨數(shù)量 .Value OutPrice= 出貨單價(jià) .Value OutTime= 出貨時(shí)間 .Value OutPerson=ALLTRIM( 經(jīng)手人 .Value. OutDanwei=ALLTRIM( 接收人 .Value. OutNote= 說(shuō)明 .Value *如果商品編號(hào)為空 IFPNo==”” MESSAGEBOX(“商品編號(hào)為空或錯(cuò)誤” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 商品編號(hào) .SetFocus Return ENDIF *檢查商品 編號(hào)合法性 DIMENSIONRecNum(1) RecNum=2 SELECTCOUNT(*)FROM 商品信息 WHERE 商品編號(hào) =PNoINTOARRAYRecNum IFRecNum1 MESSAGEBOX(“商品編號(hào)錯(cuò)誤” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 商品編號(hào) .SetFocus ENDIF *如果沒(méi)有庫(kù)存 庫(kù)存數(shù)量 .Value=0 MESSAGEBOX(“該商品沒(méi)有庫(kù)存” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 商品編號(hào) .Value=”” 商品編號(hào) .SetFocus Return ENDIF *如果出貨數(shù)量小于 0 或者大于庫(kù)存數(shù)量 IFOutCount=0 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 36 MESSAGEBOX(“出貨數(shù)量錯(cuò)誤” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 出貨數(shù)量 .SetFocus Return ENDIF *如果進(jìn)貨單價(jià)小于 0 IFOutPrice=0 MESSAGEBOX(“出貨單價(jià)錯(cuò)誤” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 出貨單價(jià) .SetFocus Return ENDIF *如果經(jīng)手人為空 IFOutPerson==”” MESSAGEBOX(“經(jīng)手人不能為空” ,48,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) 經(jīng)手人 .SetFocus Return ENDIF *在進(jìn)貨信息表中插入記錄 BEGINTRANS INSERTINT 出貨信息VALUES(OutCount,PNo,OutCount,OutPrice,OutTime， OutDanWeiOutPerson,OutNote) *更新庫(kù)存信息表 UPDATE 庫(kù)存信息 SET 庫(kù)存數(shù)量 =庫(kù)存數(shù)量 OutCountWHERE 商品編號(hào) =pNo ENDTRANS *如果選中了復(fù)選框 =1 REPORTFORMOutViewFOR出貨編號(hào) = .ValuePREVIEW ENDIF *對(duì)話(huà)框 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 37 MESSAGEBOX(“出貨成功” ,64,”進(jìn)銷(xiāo)存管理系統(tǒng)” ) *初始化表單 “商品出貨操作”表單的“取消 ” 按鈕的事件代碼 : 至此“商品出貨操作”表單創(chuàng)建完成?？丶季秩缦拢? 添加“ AUTOADD’ 函數(shù)代碼： *— 作用：使“ 000000XX”形式的編號(hào)自動(dòng)加 1 FUNCTIONAUTOADD(nCode) *獲取字符串長(zhǎng)度 nLen=Len(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)換后的字符長(zhǎng)度 nLength=LEN(nCode) *— 在數(shù)字之前加上前置 “ 0” 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 33 nZero=” 0000000000” nCode=SUBSTR(nZero,1,nLennLength)+nCode *— 返回結(jié)果 RETURNnCode ENDFUNC “商品出貨操作”表單 創(chuàng)建表單界面：在項(xiàng)目管理器中新建一個(gè)表單為“商品出貨表單 ” ,命名為：”“ OutAct”，將將“進(jìn)貨信息”表，“商品信息”表和“庫(kù)存信息表”添加到表單的數(shù)據(jù)環(huán)境中，從數(shù)據(jù)環(huán)境中將要在表單中顯示的字段拖到表單中，并做適當(dāng)調(diào)整，然后添加一個(gè)復(fù)選框控件，兩個(gè)按鈕控件，創(chuàng)建好的表單布局如下圖： 添加“商品 出貨操作”表單的“ INIIT” 事件代碼： *— 使用當(dāng)前日期生成進(jìn)貨編號(hào)前 6 位 LeftNo=SUBSTR(ALLTRIM(STR(YEAR(date())))、 3)； +ALLTRIM（ STR（ MONTH（ date()））） 。 “超市進(jìn)銷(xiāo)存管理系統(tǒng)“中的日常操作模塊包括“商品進(jìn)貨操作”和“商品出貨”操作功能，分別由“商品進(jìn)貨操作”表單和“商品出貨”表單來(lái)完成。向頁(yè)面中添加控件，如圖： 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 29 輸入查詢(xún)條件”表單中的“確定”按鈕的“ Click” 事件代碼： *— 聲明變量 LOCALFindStr,oldRecord,STable *— 如果沒(méi)有選擇查詢(xún)字段 ==”” MESSAGEBOX(“ 沒(méi)有選擇查詢(xún)字段 ” ,48,” 進(jìn)銷(xiāo)存管理系統(tǒng) ” ) *— 如果選擇了字段 *— 模糊比較 SETEXACTOFF SELECT 商品信息 *— 根據(jù)選項(xiàng)指定查詢(xún)條件 DOCASE =” 商品編號(hào) ” FindStr=”’” +ALLTRIM()=”’ $” +” 商品編號(hào) ” =” 商品名稱(chēng) ”