【正文】 return Endif *— 如果按扭標題為“刪除” =” 刪除 ” *— 確 認對話框 Yn=messagebox(“ 確認刪除 ” ， 4+32，“進銷存管理系統” ) 如果確認 Ifyn=6 *— 刪除記錄 Select 商品信息 Delef pack Endif Endif “退出”按鈕的“ Click” 事件代碼如下： 至此，“商品信息管理”表單創(chuàng)建完成。 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 34 *__從“出貨信息”中生成進貨編號后 4 位 SELECT 出貨信息 SETORDERTO 出貨編號 SETFRLTERTO SETFRLTERTOTTOD（出貨信息 .出貨時間） ==DATE() GOBOTTOM IF 出貨信息 .出貨編號 ==”” RighNo=“ 0000” ELSE RighNo=Substr(出貨信息 .出貨編號、 7） ENDIF *對后 4位增 1 RighNo=AutoAdd(RightNo) *完整編號 FullNo=LeftNo+RightNo *在表單中顯示 出貨編號 .Value=FullNo 出貨時間 .Value=datetime() 出貨數量 .Value=0 出貨單價 .Value=0 經手人 .Value=”” 接收人 .Value=”” 商品編號 .Value=”” *刷新表單 添加“商品出貨操作”表單的“確定 ” 按鈕的事件代碼： *獲取表單中的數據 OutNo=ALLTRIM( 出貨編號 .Value PNo= 商品編號 .Value 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 35 OutCount= 出貨數量 .Value OutPrice= 出貨單價 .Value OutTime= 出貨時間 .Value OutPerson=ALLTRIM( 經手人 .Value. OutDanwei=ALLTRIM( 接收人 .Value. OutNote= 說明 .Value *如果商品編號為空 IFPNo==”” MESSAGEBOX(“商品編號為空或錯誤” ,48,”進銷存管理系統” ) 商品編號 .SetFocus Return ENDIF *檢查商品 編號合法性 DIMENSIONRecNum(1) RecNum=2 SELECTCOUNT(*)FROM 商品信息 WHERE 商品編號 =PNoINTOARRAYRecNum IFRecNum1 MESSAGEBOX(“商品編號錯誤” ,48,”進銷存管理系統” ) 商品編號 .SetFocus ENDIF *如果沒有庫存 庫存數量 .Value=0 MESSAGEBOX(“該商品沒有庫存” ,48,”進銷存管理系統” ) 商品編號 .Value=”” 商品編號 .SetFocus Return ENDIF *如果出貨數量小于 0 或者大于庫存數量 IFOutCount=0 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 36 MESSAGEBOX(“出貨數量錯誤” ,48,”進銷存管理系統” ) 出貨數量 .SetFocus Return ENDIF *如果進貨單價小于 0 IFOutPrice=0 MESSAGEBOX(“出貨單價錯誤” ,48,”進銷存管理系統” ) 出貨單價 .SetFocus Return ENDIF *如果經手人為空 IFOutPerson==”” MESSAGEBOX(“經手人不能為空” ,48,”進銷存管理系統” ) 經手人 .SetFocus Return ENDIF *在進貨信息表中插入記錄 BEGINTRANS INSERTINT 出貨信息VALUES(OutCount,PNo,OutCount,OutPrice,OutTime， OutDanWeiOutPerson,OutNote) *更新庫存信息表 UPDATE 庫存信息 SET 庫存數量 =庫存數量 OutCountWHERE 商品編號 =pNo ENDTRANS *如果選中了復選框 =1 REPORTFORMOutViewFOR出貨編號 = .ValuePREVIEW ENDIF *對話框 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 37 MESSAGEBOX(“出貨成功” ,64,”進銷存管理系統” ) *初始化表單 “商品出貨操作”表單的“取消 ” 按鈕的事件代碼 : 至此“商品出貨操作”表單創(chuàng)建完成。 畢業(yè)設計 第 5 章 系統的編譯和發(fā)行 42 5 系統的編譯和發(fā)行 超市進銷存管理系統中所需要各種類型文件創(chuàng)建完成后就可以設置項目的信息，項目信息中的“附加圖標”屬性是一個比較重要的屬性，在此屬性中設置的圖標再將項目編譯形成可執(zhí)行程序后將作為程序的圖標。這對我來講是莫大的鼓舞和激勵，使我對自己的價值有了重新的認識和定位，在今后的擇業(yè)方向上也有了明確的目標。 在論文即將完成之際，我的心情無法平靜，從開始進入課題到論文的順利完成，有多少可敬的師長、同學、朋友給了我無言的幫助，在這里請接受我誠摯的謝意 !最后我還要感謝培養(yǎng)我長大含辛茹苦的父母，謝謝你們 ! 畢業(yè)設計 45 參考文獻 [1]盧湘鴻《 程序設計基礎》， 2021 年 10 月由清華出版社出版 [2]史濟民《 FoxPro 及其應用系統開發(fā)》清華大學出版社， 1998 年 3月出版 [3]鄭阿奇《 VisualFoxPro 實用教程》 ,電子工業(yè)出版社， 2021 年 4 月出版 [4]劉甫迎、黨晉 蓉、周紹敏 .VisualFoxPro 中文版教程 .重慶 .重慶大學出版社 .1997 [5]劉甫迎、周紹敏、黨晉蓉 .VisualFoxPro 關系數據庫導論 .成都 .四川科技出版社 .1997 [6]劉甫迎、林智 .FoxPro 關系數據庫 ()中文版 .成都 .成都科技大學出版社 .1992 [7]軟中國有限公司 . 程序員指南 .北京 .北京希望電腦公司 .1998 。我僅以超市進銷存管理系統為例，對 vfp設計軟件進行了初步的學習和探索，在此期間雖然與到了很多困難，但經過他人的幫助和指導都得到了很好的解決，這也更激起了我對 vfp 設計軟件的學習興趣，以后我會繼續(xù)對其進行更為深入的學習和探索。SearchFilter *刷新表單 “出貨信息查詢”表單打印事件代碼： REPRTFORMOUTVIEWFORSEARCHFILTERPREVIEW 至此， “出貨信息查詢”表單創(chuàng)建完成?？丶季秩缦拢? 添加“ AUTOADD’ 函數代碼： *— 作用：使“ 000000XX”形式的編號自動加 1 FUNCTIONAUTOADD(nCode) *獲取字符串長度 nLen=Len(nCode) *將字符型轉換為數值型，即獲取非 0部分的數值 nCode=VAL(nCode) *非 0部分數字加 1 nCode=nCode+1 *— 轉換為字符型 nCode=ALLTRIM(STR(nCode)) *— 獲取轉換后的字符長度 nLength=LEN(nCode) *— 在數字之前加上前置 “ 0” 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 33 nZero=” 0000000000” nCode=SUBSTR(nZero,1,nLennLength)+nCode *— 返回結果 RETURNnCode ENDFUNC “商品出貨操作”表單 創(chuàng)建表單界面：在項目管理器中新建一個表單為“商品出貨表單 ” ,命名為：”“ OutAct”，將將“進貨信息”表，“商品信息”表和“庫存信息表”添加到表單的數據環(huán)境中，從數據環(huán)境中將要在表單中顯示的字段拖到表單中，并做適當調整，然后添加一個復選框控件，兩個按鈕控件，創(chuàng)建好的表單布局如下圖： 添加“商品 出貨操作”表單的“ INIIT” 事件代碼： *— 使用當前日期生成進貨編號前 6 位 LeftNo=SUBSTR(ALLTRIM(STR(YEAR(date())))、 3)； +ALLTRIM（ STR（ MONTH（ date()））） 。 “商品信息管理”表單 “商品信息管理”表單界面如下圖： “商品信息管理”表單中的“ CheckEmpty” 方法代碼如下： *如果商品信息為空 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 23 IFEOF().().ORRECCOUNT()=0 =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. Return ENDIF *— 如果“商品消息”表只有一條記錄 IFRECCOUNT（） =1 =.F. =.F. =.F. =.F. Return ENDIF *— 如果記錄指針位于第 1 條記錄并且處于“瀏覽”狀態(tài) IFBOF（） .()==.F. =.F. =.F. =.T. =.T. Rerurn ENDIF *— 如果記錄指針位于最后 1條并且處于“瀏覽”狀態(tài) IFBOF（） .()==.F. 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 24 =.T. =.T. =.F. =.F. Rerurn ENDIF *— 如果處于“瀏覽”狀態(tài)并且記錄指針位于表中部 =.F..()()RECCUNT() =.T. =.T. =.T. =.T. Rerurn ENDIF “商品信息管理”表單