【正文】 判斷是否輸入用戶名 IFALLTRIM（ ） “” MESSAGEBOX(“ 請輸入用戶名 ” ， 48，“進(jìn)銷存管理系統(tǒng)” ) Return ENDIF *獲取輸入的信息 USER__N=ALLTRIM() USER__P=ALLTRIM() *定義邏輯變量 is_user,用于判斷是否為合法用戶 LOCALIsUuser IsUuser=.F. *遍歷用表中所有的記錄 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 19 *判斷輸入的用戶名稱和用戶密碼是否存在 SELECT 用戶信息 GOTOP () *尋找與輸入的用戶名和密 碼匹配的記錄 ISUser=(USER_N=用戶信息 .用戶名 ).AND.(USER_P=用戶信息 .密碼 ) *如果找到 IFIS_USER EXIT ELSE SKIP ENDIF ENDDO *如果正確 IFIS—— USER *保存登錄用戶 cCurUser=ALLTRIM() *調(diào)用主界面 DOFORMMainForm *推出當(dāng)前表單 *如果登錄不正確 ELSE MESSAGEBOX(“ 用戶 名或用戶密碼不正確 !” ,0+16,” 進(jìn)銷存管理系統(tǒng) ” ) =”” =”” ENDIF *模糊比較 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 20 SEREXACTOFF “ 取消 ” 按鈕的 ” Click” 事件代碼如下 : *釋放登錄表單 *清除事件循環(huán) ClearEVENTS *退出 VisualFoxPro QUIT 至此 ,” 系統(tǒng)登錄 ” 表單創(chuàng)建完成。 .(密碼 )=ALLTRIM( 原密碼 .Value) 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 21 () MESSAGEBOX(“ 原密碼錯誤 ,請重新輸入 ” ,48” 進(jìn)銷存管理系統(tǒng) ” ) 原密碼 .SetFocus RETURN ENDIF *如果 ” 密碼 ” 欄為空 IFEMPTY(ALLTRIM( 新密碼 .Value)).(ALLTRIM( .VALRE)) MESSAGEBOX(“ 密碼不能為空 ” ,48,” 進(jìn)銷存管理系統(tǒng) ” ) 新密碼 .SetFocus RETURN ENDIF *如果兩次密碼不一致 IFALLTRIM( 新密碼 .Value)ALLTRIM( 確認(rèn)密碼 .VALUE) MESSAGEBOX(“ 密碼與確認(rèn)密碼不一致 ” ,48,” 進(jìn)銷存管理系統(tǒng) ” ) 新密碼 .Setfocus RETURN ENDIF *獲取表單中各數(shù)據(jù)項的值 sName=ALLTRIM( 用戶名 .Value) sPass=ALLTRIM( 新密碼 .Value) *確定對話框 YN=MESSAGEBOX(“ 確定保存 ” ,4+32,” 進(jìn)銷存管理系統(tǒng) ” ) *如果確認(rèn) IFYN=6 *修改密碼 UPDATE 用戶信息 SET 密碼 =sPassWHERE 用戶名 =sName MESSAGEBOX(“ 密碼修改成功 ” ,64,” 進(jìn)銷存管理系統(tǒng) ” ) 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 22 ENDIF STEEXACTOFF “ 修改密碼 ” 表單中 ” 取消 ” 按鈕的功能設(shè)計是被單擊退出當(dāng)前表單 ,該按鈕的 ” Click” 時間代碼如下 : 本模塊由“商品信息管理”功組成，該功能由“商品 信息管理”和“輸入查詢條件”表單完成。 =.f. 相應(yīng)地，如果要使表單進(jìn)入“修改”狀態(tài)，則只需要使用如下代碼即可。 “輸入查詢條件”表單 在項目管理器中新建一個表單作為“輸入查詢條件”表單，保存為“ Searchkey” ,在表單中添加一個文本框控件，一個組合框控件，兩個標(biāo)簽 控件和兩個按鈕控件。FindStr GOTOP *— 循環(huán) () *— 刷新“商品信息管理”表單 *— 將表單最小化 =1 IFMESSAGEBOX(“是本筆記錄嗎？”， 4+32,“進(jìn)銷存管理系統(tǒng)”） =6 *— 已找到指定的記錄 EXIT ELSE *— 未找到指定的記錄 SKIP *— 刷新“商品信息管理”表單 ENDIF *— 將表單還原 =0 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 31 ENDDO *— 如果到了表的末尾 IFEOF() MESSAGEBOX（“未找到指定的記錄”， 48，“進(jìn)銷存管理系統(tǒng)”） *— 回到原紀(jì)錄 GOoldRecord ENDIF *— 清楚過濾條件 SETFILTERTO *— 刷新“商品信息管理”表單 *— 退出當(dāng)前表單 ENDIF “輸入查詢條件”表單中的“取消”按鈕的“ Click” 事件代碼： 至此，“輸入查詢條件”表單創(chuàng)建完成。 “商品進(jìn)貨操作”表單 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 32 創(chuàng)建表單界面：添加一個復(fù)選框和兩個按鈕控件，將“進(jìn)貨信息”表，“商品信息”表和“庫存信息表”添加到表單的 數(shù)據(jù)環(huán)境中。 +ALLTRIM(STR(DAY(date())))。 “超市進(jìn)銷存管理系統(tǒng)”中的信息查詢模塊由“進(jìn)貨信息查詢”，“出貨信息查詢”和“庫存信息查詢” 3 個功能組成，分別由“進(jìn)貨記錄查詢”，出貨記錄查詢“，”庫存記錄查詢“ 3個表單完成。 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 38 在表單中添加一個表格控件，六個標(biāo)簽控件，五個文本框控件，一個組合框控件和兩 個按鈕控件，如下圖： 創(chuàng)建“出貨信息查詢”表 單 “出貨信息查詢”表單用來查詢出貨記錄，該表單提供了按照商品編號，商品名稱，商品類別，經(jīng)手人，接收人和出貨日期等多種查詢方式。 在表單中添加一個表格控件，一個組合框控件，五個文本框控件，六個標(biāo)簽控件和兩個命令按鈕控件，創(chuàng)建好的“出貨信息查詢”表單如下圖： 添加“出貨信息查詢”表單代碼： 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 39 *收集查詢條件 SearchFiler=”.T.” IFNOTEMPTY(ALLTRIM( 商品編號 .Value)) SearchFiler=SearchFiler+” AND” +ALLTRIM( 商品編號 .Value)+” s商品編號” ENDIF IFNOTEMPTY( 商品名稱 .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( 商品名稱 .Value)+” s商品名稱” ENDIF IFNOTEMPTY(ALLTRIM( 商品類別 .Value)) SearchFiler=SearchFiler+” AND” +ALLTRIM( 商品類別 .Value)+” s商品類別” ENDIF 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 40 IFNOTEMPTY( 經(jīng)手人 .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( 經(jīng)手人 .Value)+” s 經(jīng)手人” ENDIF IFNOTEMPTY( 接收人 .Value) SearchFiler=SearchFiler+” AND” +ALLTRIM( 接收人 .Value)+” s 接收人” ENDIF IFNOTEMPTY( 進(jìn)貨日期 .Value) nYear=YEAR( 進(jìn)貨日期 .Value) nmouth=MOUTH( 進(jìn)貨日期 .Value) Nday=DAY( 進(jìn)貨日期 .Value) sDate=ALLTRIM(STR(nYear))+” /” =alltrim(str(nDay)) SearchFilter=SearchFilter=” ANDTTOD(進(jìn)貨時間 )={“ +sDate+” }” ENDIF *設(shè)置過濾條件 SELECTOutView SETFILTERTO SETFILTERTOamp。 創(chuàng)建“庫存信 息查詢”表單 “庫存信息查詢”表單用來查詢商品的庫存情況，該表單的創(chuàng)建方法與創(chuàng)建“進(jìn)貨信息查詢”表單和創(chuàng)建“出貨信息查詢”表單基本相同，所以不再列出其創(chuàng)建的具體步驟，創(chuàng)建好的“庫存信息查詢”表單效果如圖： 畢業(yè)設(shè)計 第 4 章 各個功能模塊的創(chuàng)建 41 至此， 超市進(jìn)銷存管理系統(tǒng)已創(chuàng)建完成。 將項目連編成為可執(zhí)行程序后，將連編成的可執(zhí)行程序，數(shù)據(jù) 庫和表文件復(fù)制到一個指定的文件夾后，即可以使用該文件夾作為源文件夾，然后使用 中文版自帶的“安裝向?qū)А眮戆惭b程序。在這個項目的涉及過程中，我學(xué)到了很多以前沒有學(xué)習(xí)過的方法和技巧，更學(xué)會了怎樣去查閱書籍、資料。 vfp 設(shè)計軟件是當(dāng)今社會三維設(shè)計的主流工具，采用模塊化設(shè)計方式，這 樣可以保證設(shè)計者根據(jù)自己的需要選擇使用。 盡管我的作品還非常的不成熟，但他卻是我第一次的嘗試，第一次走向獨立設(shè)計，第一次把自己的構(gòu)想變成虛擬的模擬仿真并實現(xiàn)了實際操作。 在這項設(shè)計的完 成過程中，得到了虞泉老師的精心指導(dǎo)和幫助，在此深表感謝！ 畢業(yè)設(shè)計 44 致謝 本 次設(shè)計 是在我的導(dǎo)師 虞泉老師 的親切關(guān)懷和悉心指導(dǎo)下完成的。從課題的選擇到項目的最終完成， 虞 老師都始終給予我細(xì)心的指導(dǎo)和不懈的支持。 在此，我還要感謝在一起愉快的度過 大學(xué) 生活的各位同 學(xué) ，正是由于你們的幫助和支持，我才能克服一個一個的困難和疑 惑，直至本 設(shè)計 的順利完成