【文章內(nèi)容簡介】 供貨單位字符型40可經(jīng)手人字符型20可單位備注型4“出貨信息”表的字段設(shè)置如下：字段名類型寬度可否為空默認(rèn)值說明出貨編號(hào)字符型8否主索引字段商品編號(hào)字符型6否普通索引字段出貨數(shù)量浮動(dòng)型8否1位小數(shù)出貨單價(jià)浮動(dòng)型8否1位小數(shù)出貨時(shí)間日期時(shí)間型8否接收人字符型20否經(jīng)手人字符型20可說明備注型4“庫存信息”表的字段設(shè)置如下：字段名類型寬度可否為空默認(rèn)值說明商品編號(hào)字符型6否主索引字段庫存數(shù)量浮動(dòng)型81位小數(shù)說明備注型4“用戶信息”表的字段設(shè)置如下：字段名類型寬度可否為空默認(rèn)值說明用戶名字符型20否主索引字段密碼字符型20否1位小數(shù)“系統(tǒng)設(shè)置“表的字段設(shè)置如下：字段名類型寬度可否為空默認(rèn)值說明商品類別字符型20否主索引字段 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn) 在需求分析、概念結(jié)構(gòu)設(shè)計(jì)的繼承上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)之后，我們就可以在visual Fox Pro數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。 實(shí)現(xiàn)數(shù)據(jù)庫的邏輯結(jié)構(gòu)的方式是直接使用visual Fox Pro的項(xiàng)目管理器來實(shí)現(xiàn)。下面將以本例中Jxcdata數(shù)據(jù)庫為實(shí)例，來說明.在Visual Foxpro主窗口選擇【文件】—【新建】菜單，打開“新建”對話框。在此對話框中的“文件類型”選項(xiàng)組中選中“項(xiàng)目”選項(xiàng)后單擊【新建文件】按鈕，打開“創(chuàng)建”對話框，在此對話框中選擇項(xiàng)目文件的保存位置并輸入項(xiàng)目名稱，單擊【保存】按鈕可保存項(xiàng)目并完成一個(gè)Visual Foxpro項(xiàng)目的創(chuàng)建。項(xiàng)目創(chuàng)建完成以后即可打開項(xiàng)目管理器，如下圖：新建數(shù)據(jù)庫如圖所示：在項(xiàng)目管理器中選擇Data 選項(xiàng)卡，在目錄樹中打開Jxcdata數(shù)據(jù)庫，選中“本地視圖”項(xiàng)，單擊[新建]按鈕，在打開的“新建本地視圖”對話框中單擊新建視圖按鈕，即可打開視圖設(shè)計(jì)器來設(shè)計(jì)本地視圖。設(shè)置好的視圖Inview，Outview,Storeview輸出結(jié)果分別如下： xxx大學(xué)畢業(yè)設(shè)計(jì) 第4章 各個(gè)功能模塊的創(chuàng)建4 各個(gè)功能模塊的創(chuàng)建 建立功能模塊的目的在于：一個(gè)是使用者能簡單明了地掌握軟件功能，另 個(gè)是未開發(fā)的人貝也能輕松地進(jìn)行維護(hù)。根據(jù)本軟件的特點(diǎn)，本系統(tǒng)將分為3個(gè)功能模塊．它們是：信息管理模塊、日常操作模塊、信息查詢模塊。 在進(jìn)入各個(gè)功能模塊前，應(yīng)該給用戶提供一個(gè)選擇的界面，即系統(tǒng)的主界面。下面按系統(tǒng)計(jì)開發(fā)順序逐一介紹。 系統(tǒng)菜單的設(shè)計(jì) 系統(tǒng)主菜單的功能在于引導(dǎo)用戶進(jìn)入不同的功能模塊。本系統(tǒng)主菜單的界面為簡單起見，設(shè)計(jì)界面如圖所示。 界面的系統(tǒng)菜單又包含三個(gè)子菜單，分別為“日常操作”、“信息查詢”、“系統(tǒng)管理”，引導(dǎo)進(jìn)入個(gè)同的功能模塊。本例中的系統(tǒng)主菜單的結(jié)構(gòu)如下表所示：菜單菜單項(xiàng)結(jié)果命令信息管理(\A)商品信息管理(\P)命令Do form proAdmin日常操作(\D)商品進(jìn)貨操作(\I)命令DO FORM Iinact\_商品出貨操作(\O)命令DO FORM OutAct信息查詢(\S)進(jìn)貨信息查詢(\I)命令DO FORM Inseach\_出貨信息查詢(\O)命令DO FORM OutSeach\_庫存信息查詢(\S)命令DO FORM StoreSearch系統(tǒng)管理(\M)修改密碼(\M)命令DO FORM SetPass\_關(guān)于系統(tǒng)(\A)DO \_退出系統(tǒng)(\E)CLEAR EVENTS“Splash”表單“Splash”表單是程序中比較常見的一種界面，一般作為程序的第一個(gè)界面顯示給用戶，在該界面中顯示程序的名稱，創(chuàng)建人，版本等信息?！癝plash”表單布局如下所示：“Splash”表單中計(jì)時(shí)器控件Time事件代碼為：*——移動(dòng)歡迎使用標(biāo)簽*——當(dāng)標(biāo)簽移動(dòng)到表單最右側(cè)時(shí)IF = *移動(dòng)到最左側(cè) =THISFORM. +1ENDIF*使“超市進(jìn)銷存管理系統(tǒng)”變色*隨機(jī)生成顏色i=tnt(RAND()*255)j=tnt(RAND()*255)k=tnt(RAND()*255) 身份驗(yàn)證界面的設(shè)計(jì) 因?yàn)楸鞠到y(tǒng)的特殊性，本系統(tǒng)各處會(huì)涉及到密碼即身份驗(yàn)證。如用戶身份驗(yàn)證等。 用戶身份驗(yàn)證界面設(shè)計(jì) “系統(tǒng)登錄表單”的用戶驗(yàn)證界面如圖所示。接下來，我們?yōu)楦骺丶顚懯录憫?yīng)?！跋到y(tǒng)登錄“表單中“確定”按鈕的“Click”事件代碼：*精確比較SET EXACT ON*判斷是否輸入用戶名IF ALLTRIM（）“” MESSAGEBOX(“請輸入用戶名”，48，“進(jìn)銷存管理系統(tǒng)”) ReturnENDIF*獲取輸入的信息USER__N=ALLTRIM()USER__P=ALLTRIM()*定義邏輯變量is_user,用于判斷是否為合法用戶LOCAL IsUuserIsUuser=.F.*遍歷用表中所有的記錄*判斷輸入的用戶名稱和用戶密碼是否存在SELECT用戶信息GO TOPDO () *尋找與輸入的用戶名和密碼匹配的記錄 IS User=(USER_N=).AND.(USER_P=) *如果找到 IF IS_USER EXIT ELSE SKIP ENDIF ENDDO *如果正確 IF IS——USER *保存登錄用戶 cCurUser=ALLTRIM() *調(diào)用主界面 DO FORM MainForm *推出當(dāng)前表單 *如果登錄不正確ELSE MESSAGEBOX(“用戶名或用戶密碼不正確!”,0+16,”進(jìn)銷存管理系統(tǒng)”)=”” =”” ENDIF*模糊比較SER EXACT OFF“ 取消”按鈕的”Click”事件代碼如下:*釋放登錄表單*清除事件循環(huán)Clear EVENTS*退出Visual FoxProQUIT至此,”系統(tǒng)登錄”表單創(chuàng)建完成。 創(chuàng)建“修改密碼”表單首先要?jiǎng)?chuàng)建表單界面，在表單中添加3個(gè) 標(biāo)簽控件，4個(gè) 文本框控件，2個(gè)按鈕控件，布局如下：然后向“修改密碼”表單中添加“確定”按鈕的“Click”事件代碼如下：SET EXACT ON*進(jìn)入數(shù)據(jù)檢查*檢查原密碼SELECT 用戶信息LOCATE FOR ALLTRIM(用戶名)=ALLTRIM()。 .(密碼)=ALLTRIM()() MESSAGEBOX(“原密碼錯(cuò)誤,請重新輸入”,48”進(jìn)銷存管理系統(tǒng)”)RETURNENDIF*如果”密碼”欄為空IF EMPTY(ALLTRIM()).(ALLTRIM())MESSAGEBOX(“密碼不能為空”,48,”進(jìn)銷存管理系統(tǒng)”)RETURNENDIF*如果兩次密碼不一致IF ALLTRIM()ALLTRIM()MESSAGEBOX(“密碼與確認(rèn)密碼不一致”,48,”進(jìn)銷存管理系統(tǒng)”)RETURNENDIF*獲取表單中各數(shù)據(jù)項(xiàng)的值sName=ALLTRIM()sPass=ALLTRIM()*確定對話框YN=MESSAGEBOX(“確定保存”,4+32,”進(jìn)銷存管理系統(tǒng)”)*如果確認(rèn)IF YN=6*修改密碼UPDATE 用戶信息 SET 密碼=sPass WHERE 用戶名=sNameMESSAGEBOX(“密碼修改成功”,64,”進(jìn)銷存管理系統(tǒng)”)ENDIFSTE EXACT OFF“修改密碼”表單中”取消”按鈕的功能設(shè)計(jì)是被單擊退出當(dāng)前表單,該按鈕的”Click”時(shí)間代碼如下: 信息管理模塊設(shè)計(jì)本模塊由“商品信息管理”功組成，該功能由“商品信息管理”和“輸入查詢條件”表單完成?！吧唐沸畔⒐芾怼北韱巍吧唐沸畔⒐芾怼北韱谓缑嫒缦聢D：“商品信息管理”表單中的“CheckEmpty”方法代碼如下：*如果商品信息為空 IF EOF().().ORRECCOUNT()=0=.F.=.F. =.F. =.F.=.F.=.F. =.F.=.F. ReturnENDIF*—如果“商品消息”表只有一條記錄IF RECCOUNT（