【正文】 向上也有了明確的目標(biāo)。最重要的是真實(shí)的體驗(yàn)到了獨(dú)立設(shè)計(jì)與創(chuàng)作的艱辛，使我對設(shè)計(jì)有了簡單的理解和認(rèn)識，對我以后的生活和學(xué)習(xí)具有重要的引導(dǎo)和啟發(fā)作用。 畢業(yè)設(shè)計(jì) 第 5 章 系統(tǒng)的編譯和發(fā)行 42 5 系統(tǒng)的編譯和發(fā)行 超市進(jìn)銷存管理系統(tǒng)中所需要各種類型文件創(chuàng)建完成后就可以設(shè)置項(xiàng)目的信息，項(xiàng)目信息中的“附加圖標(biāo)”屬性是一個(gè)比較重要的屬性，在此屬性中設(shè)置的圖標(biāo)再將項(xiàng)目編譯形成可執(zhí)行程序后將作為程序的圖標(biāo)。 在項(xiàng)目管理器中新建一個(gè)表單作為“出貨信息查詢”表單，保存為“ Outsearch” ,將“ Outview”視圖和“系統(tǒng)設(shè)置”表添加到表單的數(shù)據(jù)環(huán)境中。 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 34 *__從“出貨信息”中生成進(jìn)貨編號后 4 位 SELECT 出貨信息 SETORDERTO 出貨編號 SETFRLTERTO SETFRLTERTOTTOD（出貨信息 .出貨時(shí)間） ==DATE() GOBOTTOM IF 出貨信息 .出貨編號 ==”” RighNo=“ 0000” ELSE RighNo=Substr(出貨信息 .出貨編號、 7） ENDIF *對后 4位增 1 RighNo=AutoAdd(RightNo) *完整編號 FullNo=LeftNo+RightNo *在表單中顯示 出貨編號 .Value=FullNo 出貨時(shí)間 .Value=datetime() 出貨數(shù)量 .Value=0 出貨單價(jià) .Value=0 經(jīng)手人 .Value=”” 接收人 .Value=”” 商品編號 .Value=”” *刷新表單 添加“商品出貨操作”表單的“確定 ” 按鈕的事件代碼： *獲取表單中的數(shù)據(jù) OutNo=ALLTRIM( 出貨編號 .Value PNo= 商品編號 .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= 說明 .Value *如果商品編號為空 IFPNo==”” MESSAGEBOX(“商品編號為空或錯(cuò)誤” ,48,”進(jìn)銷存管理系統(tǒng)” ) 商品編號 .SetFocus Return ENDIF *檢查商品 編號合法性 DIMENSIONRecNum(1) RecNum=2 SELECTCOUNT(*)FROM 商品信息 WHERE 商品編號 =PNoINTOARRAYRecNum IFRecNum1 MESSAGEBOX(“商品編號錯(cuò)誤” ,48,”進(jìn)銷存管理系統(tǒng)” ) 商品編號 .SetFocus ENDIF *如果沒有庫存 庫存數(shù)量 .Value=0 MESSAGEBOX(“該商品沒有庫存” ,48,”進(jìn)銷存管理系統(tǒng)” ) 商品編號 .Value=”” 商品編號 .SetFocus Return ENDIF *如果出貨數(shù)量小于 0 或者大于庫存數(shù)量 IFOutCount=0 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 36 MESSAGEBOX(“出貨數(shù)量錯(cuò)誤” ,48,”進(jìn)銷存管理系統(tǒng)” ) 出貨數(shù)量 .SetFocus Return ENDIF *如果進(jìn)貨單價(jià)小于 0 IFOutPrice=0 MESSAGEBOX(“出貨單價(jià)錯(cuò)誤” ,48,”進(jìn)銷存管理系統(tǒng)” ) 出貨單價(jià) .SetFocus Return ENDIF *如果經(jīng)手人為空 IFOutPerson==”” MESSAGEBOX(“經(jīng)手人不能為空” ,48,”進(jìn)銷存管理系統(tǒng)” ) 經(jīng)手人 .SetFocus Return ENDIF *在進(jìn)貨信息表中插入記錄 BEGINTRANS INSERTINT 出貨信息VALUES(OutCount,PNo,OutCount,OutPrice,OutTime， OutDanWeiOutPerson,OutNote) *更新庫存信息表 UPDATE 庫存信息 SET 庫存數(shù)量 =庫存數(shù)量 OutCountWHERE 商品編號 =pNo ENDTRANS *如果選中了復(fù)選框 =1 REPORTFORMOutViewFOR出貨編號 = .ValuePREVIEW ENDIF *對話框 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 37 MESSAGEBOX(“出貨成功” ,64,”進(jìn)銷存管理系統(tǒng)” ) *初始化表單 “商品出貨操作”表單的“取消 ” 按鈕的事件代碼 : 至此“商品出貨操作”表單創(chuàng)建完成。 “超市進(jìn)銷存管理系統(tǒng)“中的日常操作模塊包括“商品進(jìn)貨操作”和“商品出貨”操作功能，分別由“商品進(jìn)貨操作”表單和“商品出貨”表單來完成。 =.Ｔ . “ MyGroup” 命令組中的“編輯“按鈕”的“ Click” 事件代碼： *— 如果是作為“編輯”按扭時(shí) =” 編輯 ” *— 保存記錄指針位置 Select 商品信息 =reo() *— 使表單進(jìn)入“瀏覽”狀態(tài) =.t. Return 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 26 Endif *— 如果是作為“保存”按扭時(shí) =” 保存 ” *— 如果商品標(biāo)號為空 Ifempry(alltrm( 商品編號 .value)) Messagebox(“ 商品編號不能為空 ” ， 48，“進(jìn)銷存管 理系統(tǒng)” ) 商品編號 .setfocus Rerurn endif *— 如果商品名稱為空 Ifempty(alltrim( 商品名稱 .value)) Messagebox(“ 商品名稱不能為空 ” ， 48，“進(jìn)銷存管理系統(tǒng)” ) 商品名稱 .serfocus Return Endif *— 如果商品單位為空 Ifempty(alltrim( 商品單位 .value)) Messagebox(“ 商品單位不能為空 ” ， 48，“進(jìn)銷存管理系 統(tǒng)” ) 商品單位 .serfocus Return Endif *— 如果商品單位小于或者等于 0 商品單價(jià) .value=0 messagebox(“ 商品單位錯(cuò)誤 ” ， 48，“進(jìn)銷存管理系統(tǒng)” ) 商品單位 .serfocus Return Endif *— 確認(rèn)對話框 Yn=messagebox(“ 確認(rèn)保存 ” ， 4+32，“進(jìn)銷存管理系統(tǒng)” ) 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 27 *— 如果確認(rèn) Ifyn=6 *— 試圖保存 Iftableupdate(.f.)=.f. *— 如果保存失 敗 messsagebox(“ 商品編號錯(cuò)誤 ” ， 48，“進(jìn)銷存管理系統(tǒng)” ) 商品單位 .serfocus Return Endif *— 表單進(jìn)入“瀏覽”狀態(tài) =.f. Endif Endif “ MyGroup” 命令組中的“刪除”按鈕的“ Click” 事件代碼： *— 如果按扭標(biāo)題為“恢復(fù)” =” 恢復(fù) ” *— 確認(rèn)對話框 Yn=messagebox(“ 確認(rèn)取消對 記錄的修改 ” ， 4+32，“進(jìn)銷存管理系統(tǒng)” ) 如果確認(rèn) Ifyn=6 *— 恢復(fù)記錄 Tablerevert(.f.) Select 商品信息 *— 移動(dòng)記錄指針 0 Endif 畢業(yè)設(shè)計(jì) 第 4 章 各個(gè)功能模塊的創(chuàng)建 28 *— 回到“瀏覽”狀態(tài) =.f. Endif return Endif *— 如果按扭標(biāo)題為“刪除” =” 刪除 ” *— 確 認(rèn)對話框 Yn=messagebox(“ 確認(rèn)刪除 ” ， 4+32，“進(jìn)銷存管理系統(tǒng)” ) 如果確認(rèn) Ifyn=6 *— 刪除記錄 Select 商品信息 Delef pack Endif Endif “退出”按鈕的“ Click” 事件代碼如下： 至此，“商品信息管理”表單創(chuàng)建完成。 創(chuàng)建“修改密碼”表單 首先要?jiǎng)?chuàng)建表單界面，在表單中添加 3 個(gè)標(biāo)簽控件， 4 個(gè)文本框控件， 2 個(gè)按鈕控件，布局如下： 然后向“修改密碼”表單中添加“確定”按鈕的“ Click” 事件代碼如下： SETEXACTON *進(jìn)入數(shù)據(jù)檢查 *檢查原密碼 SELECT 用戶信息 LOCATEFORALLTRIM(用戶名 )=ALLTRIM( 用戶名 .Value)。如用戶身份驗(yàn)證等。本系統(tǒng)主菜單的界面為簡單起見，設(shè)計(jì)界面如圖所示。根據(jù)本軟件的特點(diǎn)，本系統(tǒng)將分為 3個(gè)功能模塊．它們是：信息管理模塊、日常操作模塊、信息查詢模塊。下面將以本例中 Jxcdata 數(shù)據(jù)庫為實(shí)例，來說明 . 畢業(yè)設(shè)計(jì) 第 3 章 數(shù)據(jù)庫設(shè)計(jì) 13 在 VisualFoxpro 主窗口選擇【文件】 — 【新建】菜單，打開“新建”對話框。 超市進(jìn)銷存管理系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)結(jié)果幾個(gè)表格每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，然后進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。 銷售信息，包含出貨編號，商品編號，出貨單位，出貨數(shù)量，出貨編號，經(jīng)手人及說明等。 (2)銷售信息中要包含商品信息。確定每個(gè)表中要保存哪些信息，一個(gè)信息為一個(gè)字段。每個(gè)表通過形成一定關(guān)系的公共字段與另外的表聯(lián)系。 (3)商品進(jìn)貨管理，商品銷售管理。