訂單管理系統(tǒng) 文檔

1、訂單管理信息系統(tǒng)一、系統(tǒng)概述 （一）系統(tǒng)開發(fā)及應(yīng)用背景 隨著社會(huì)經(jīng)濟(jì)的發(fā)展，社會(huì)的信息化程度越來越高，中小企業(yè)在信息化的過程中擔(dān)任了很重要的角色，其信息化速度也較快。隨著企業(yè)的發(fā)展，其對(duì)信息化的要求也越來越高，因此有必要使用一個(gè)完整的系統(tǒng)來管理企業(yè)的各種信息數(shù)據(jù)本次課程設(shè)計(jì)中我們小組通過開發(fā)一個(gè)完整的小型訂單管理系統(tǒng)來幫助企業(yè)制定和開發(fā)一份企業(yè)管理信息系統(tǒng)，訂單管理系統(tǒng)的總體任務(wù)是實(shí)現(xiàn)與訂單相關(guān)的各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。（二）、系統(tǒng)設(shè)計(jì)思想 設(shè)計(jì)中創(chuàng)建“訂單管理系統(tǒng)”的主要目的是實(shí)現(xiàn)對(duì)訂單信息的管理，然而規(guī)劃訂單管理必然會(huì)涉及下訂單的客戶，以及訂單中所涉及的產(chǎn)品，因此在系統(tǒng)中需要添加

2、客戶信息滾利和產(chǎn)品信息管理的功能。一個(gè)信息管理系統(tǒng)必然由一定的用戶來操作，要保證信息管理系統(tǒng)中信息正確，需要對(duì)能夠操作信息的用戶進(jìn)行管理，因此在操作中添加了用戶管理的功能。 信息管理系統(tǒng)中管理各種信息的目的是在于日后能夠?qū)ο到y(tǒng)中的信息進(jìn)行瀏覽、查詢和輸出，因此在系統(tǒng)中添加了信息瀏覽的功能。 因此，一個(gè)簡(jiǎn)單而完整的訂單管理系統(tǒng)至少應(yīng)該包含本系統(tǒng)中設(shè)計(jì)的信息管理、信息瀏覽和用戶管理3類功能。二、系統(tǒng)調(diào)查（一）系統(tǒng)目標(biāo)及功能 在本次課程設(shè)計(jì)中，我們小組確定開發(fā)的訂單管理信息所要完成的的功能有：1. 系統(tǒng)登錄控制，必須使用特定的用戶名和密碼登錄系統(tǒng)才能使用系統(tǒng)。 2. 產(chǎn)品信息管理，管理訂單所使用的產(chǎn)

3、品信息，可以瀏覽、增加、修改和刪除產(chǎn)品信息。3. 客戶信息管理，管理下訂單時(shí)客戶的的信息，可以瀏覽、增加、修改和刪除客戶信息4. 訂單信息管理，管理訂單的信息，可以瀏覽、增加、修改和刪除訂單信息，在增加訂單時(shí)需要使用的產(chǎn)品信息和客戶信息必須首先通過產(chǎn)品信息管理和客戶信息管理功能添加。5 . 客戶信息瀏覽，瀏覽系統(tǒng)中所有的客戶信息，可以使用制定的關(guān)鍵字來查詢相應(yīng)的客戶，并且可以使用報(bào)表的形式將查詢結(jié)果輸出。6 產(chǎn)品信息瀏覽，瀏覽系統(tǒng)中所有的產(chǎn)品信息，可以使用制定的關(guān)鍵字查詢相應(yīng)的產(chǎn)品，并且可以使用報(bào)表的形式將查詢結(jié)果輸出。7. 用戶權(quán)限管理，本系統(tǒng)中是吸納了簡(jiǎn)單的用戶權(quán)限管理，普通用戶僅能修改密

4、碼，而管理員則可以添加、修改、刪除用戶。（二）系統(tǒng)功能模塊劃分根據(jù)上述的系統(tǒng)功能分析，可以得出如圖1-1所示的系統(tǒng)功能模塊圖訂單管理系統(tǒng)信息管理模塊用戶管理模塊信息瀏覽模塊產(chǎn)品信息管理客戶信息管理訂單信息管理添加用戶修改用戶修改密碼刪除用戶用戶登錄產(chǎn)品信息瀏覽客戶瀏覽三、系統(tǒng)分析與設(shè)計(jì)（一）數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞直接對(duì)應(yīng)用系統(tǒng)的效率，以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該充分了解用戶各個(gè)方面的需要，包括現(xiàn)有的及將來可能增加的需求。數(shù)據(jù)庫(kù)設(shè)計(jì)一般包括如下幾個(gè)步驟。l

5、數(shù)據(jù)庫(kù)需求分析l 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)l 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)（二）數(shù)據(jù)庫(kù)需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)，以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的設(shè)計(jì)打下基礎(chǔ)。 通過上述系統(tǒng)功能分析，正對(duì)一般客戶管理信息系統(tǒng)的需求，總結(jié)出如下的需求信息。l 訂單信息涉及產(chǎn)品信息和客戶信息。l 產(chǎn)品信息和客戶信息中需要存在唯一字段。l 產(chǎn)品信息和客戶信息可以按幾種常用的信息查詢。l 產(chǎn)品信息、客戶信息、訂單信息應(yīng)該可以增加、修改、刪除和打印輸出。l 用戶信息中的用戶名必須是唯一的。l 用戶信息中必須包

6、含權(quán)限信息。經(jīng)過上述系統(tǒng)功能分析和需求總結(jié)，我們考慮到將來功能上的擴(kuò)展，涉及如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。n 產(chǎn)品信息，包含編號(hào)、品名、單位、單價(jià)、類別、產(chǎn)地以及說明等。n 客戶信息，包含編號(hào)、名稱、聯(lián)系人、電話、地址、郵編等。n 訂單信息，包含訂單編號(hào)、產(chǎn)品編號(hào)、產(chǎn)品數(shù)量、客戶編號(hào)、聯(lián)系人、聯(lián)系電話、送貨地址、下單日期以及說明等。n 用戶信息，包含賬號(hào)、密碼、姓名、部門以及管理等。（三）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)，這些實(shí)體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動(dòng)。本次課程

7、設(shè)計(jì)中，根據(jù)上面的設(shè)計(jì)規(guī)劃處的實(shí)體有：訂單信息實(shí)體、客戶信息實(shí)體、產(chǎn)品信息實(shí)體，以及用戶信息實(shí)體，各實(shí)體具體的描述E-R圖如下?！坝唵涡畔ⅰ?、“客戶信息”和“產(chǎn)品信息”實(shí)體之間的E-R圖如圖1-2客戶信息訂購(gòu)產(chǎn)品信息訂單信息“訂單信息”實(shí)體的E-R圖如圖1-3所示訂單信息訂單編號(hào)訂單總額下單日期客戶編號(hào)產(chǎn)品編號(hào) “產(chǎn)品信息”實(shí)體的E-R圖如圖1-4所示產(chǎn)品信息編號(hào)品名單位單價(jià)“客戶信息”實(shí)體的E-R圖如圖1-5所示客戶信息編號(hào)名稱聯(lián)系人地址“用戶信息”實(shí)體的E-R圖如圖1.6所示用戶信息賬號(hào)密碼姓名部門權(quán)限（四）數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)的概念結(jié)構(gòu)設(shè)計(jì)完畢后，就可以將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為實(shí)

8、際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。使用Visual FoxPro 開發(fā)直接使用其自帶的數(shù)據(jù)庫(kù)，訂單管理系統(tǒng)中使用的各個(gè)數(shù)據(jù)表的字段設(shè)置如下。用戶信息表（UserInfo）的字段設(shè)置如表1-1所示。產(chǎn)品信息表（ProductInfo）的字段設(shè)置如表1-2所示客戶信息表（ClientInfo）的字段設(shè)置如表1-3所示訂單信息表（OrderInfo）的字段設(shè)置如表1-4所示（五）創(chuàng)建訂單管理信息系統(tǒng)項(xiàng)目在Visual FoxPro項(xiàng)目主窗口中選擇【文件】中新建命令，選擇新建項(xiàng)目OFA。項(xiàng)目創(chuàng)建后即可打開項(xiàng)目管理器，如表單1-1所示。四、程序設(shè)計(jì)(一）創(chuàng)建可視化類信息管理模塊中所使用的表單中都使用到

9、了移動(dòng)記錄工具欄和命令按鈕工具欄，若分別添加，其屬性和代碼將是一件很繁瑣的事，因此在本次課程設(shè)計(jì)中將首先創(chuàng)建可視類，然后在表單中添加創(chuàng)建的可視化類，就減少了工作量，又保證了組員間風(fēng)格的一致。在本次試驗(yàn)中共需創(chuàng)建“移動(dòng)記錄工具欄”類和“命令按鈕工具欄”這兩個(gè)類。 1、創(chuàng)建“移動(dòng)記錄工具欄”類 （1）創(chuàng)建可視類打開項(xiàng)目管理器，切換到“類”選項(xiàng)卡，單擊該選項(xiàng)卡的新建，在“新建類”對(duì)話框的“類名”文本框中輸入可視化類的名稱“MOVERECORD”,在“派生于”下拉列表框中選擇要新建的基類“COMMANDGROUP”，單擊“存儲(chǔ)于”文本框右側(cè)的按鈕，打開“另存為”對(duì)話框，選擇存儲(chǔ)位置，以及可視類庫(kù)的名稱

10、，并將可視類庫(kù)命名為“ADMINBUTTON”設(shè)置完畢后，單擊“確定”就完成了可視類的創(chuàng)建，打開了類設(shè)計(jì)器。在可視化類中設(shè)置類的“BUTTONCOUNT屬性值為4，并修改類及類中按鈕的屬性如表1-5所示。 “移動(dòng)記錄工具欄”類的屬性設(shè)置控件名稱屬性屬性取值moverecordbutton4height40width320按鈕Frontbold.T.Forecolor0,0,255Height30width65cmdtopCaption首記錄tooltiptext到第一條記錄cmdpreCaption上一個(gè)tooltiptext到上一條記錄CmdnxtCaption下一個(gè)tooltiptext到

11、下一條記錄cmdbtmCaption末記錄tooltiptext到最后一條記錄可視化類“移動(dòng)記錄工具欄”及其中的控件后，可視類的效果如下圖1-7 （2）添加代碼在本次實(shí)例中當(dāng)鼠標(biāo)移動(dòng)到按鈕上方時(shí)鼠標(biāo)指針變?yōu)樽远x形狀，這需要在按鈕的“MOUSEMOVE”事件中添加代碼來指定鼠標(biāo)的指針形狀，代碼如程1.1所示LPARAMETERS nButton, nShift, nXCoord, nYCoordThis.MousePointer = 99&鼠標(biāo)指針為自定義形狀This.MouseIcon = SYS(5)+h_point.cur&指定鼠標(biāo)的指針“首記錄”按鈕的click 代碼GO TOP&到首

12、記錄THISFORM.REFRESH&刷新表單“移動(dòng)記錄工具欄”類中的“上一個(gè)”按鈕的click 代碼如程1.2所示*如果到了數(shù)據(jù)表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首記錄,48,移動(dòng)記錄)ELSE*如果數(shù)據(jù)指針不位于數(shù)據(jù)表首部 SKIP-1ENDIF*刷新表單THISFORM.REFRESH“移動(dòng)記錄工具欄”類中的“下一個(gè)”按鈕的click 代碼如程1.3所示*如果記錄指針位于數(shù)據(jù)表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末記錄,48,移動(dòng)記錄)*如果記錄指針不位于數(shù)據(jù)表末尾ELSE &記

13、錄指針下移 SKIPENDIF*刷新表單THISFORM.REFRESH()“末記錄”按鈕的click 代碼如程1.4所示GO BUTTOM &到數(shù)據(jù)末尾THISFORM.REFRESH &刷新表單“移動(dòng)記錄工具欄”類中的4個(gè)按鈕設(shè)定是，根據(jù)表單中數(shù)據(jù)記錄指針的位置不同，禁用或者啟用不同的按鈕，所以需將判斷及操作代碼添加到“移動(dòng)記錄工具欄”類的“refresh”事件中，具體代碼如程1.5所示*如果數(shù)據(jù)表為空或者只有一條記錄IF BOF() .AND. EOF() .OR. RECCOUNT()=1 THIS.Cmdtop.ENABLED=.F. THIS.Cmdpre.ENABLED=.F.

14、THIS.Cmdnxt.ENABLED=.F. THIS.Cmdbtm.ENABLED=.F.ENDIF*如果在記錄指針在數(shù)據(jù)表的末尾IF RECNO()=RECCOUNT() .OR. EOF() THIS.Cmdtop.ENABLED=.T. THIS.Cmdpre.ENABLED=.T. THIS.Cmdnxt.ENABLED=.F. THIS.Cmdbtm.ENABLED=.F.ELSE*如果記錄指針在數(shù)據(jù)表的首部 IF RECNO()=1 .OR. BOF() THIS.Cmdtop.ENABLED=.F. THIS.Cmdpre.ENABLED=.F. THIS.Cmdnxt.EN

15、ABLED=.T. THIS.Cmdbtm.ENABLED=.T. ELSE*如果記錄指針不在數(shù)據(jù)表的首部也不在尾部 THIS.Cmdtop.ENABLED=.T. THIS.Cmdpre.ENABLED=.T. THIS.Cmdnxt.ENABLED=.T. THIS.Cmdbtm.ENABLED=.T. ENDIFENDIF這樣，“移動(dòng)記錄工具欄”類就創(chuàng)建完畢!2、創(chuàng)建“命令按鈕工具欄”類由于前面已詳細(xì)介紹了“移動(dòng)記錄工具欄”類的創(chuàng)建，這里就不再一一介紹了，按照之前我們?cè)O(shè)想設(shè)置好類及按鈕的屬性后，“命令按鈕工具欄”類的效果如圖1-8與“移動(dòng)記錄工具欄”類相同，當(dāng)鼠標(biāo)移動(dòng)到按鈕上方時(shí)，鼠標(biāo)指

16、針要使用自定義鼠標(biāo)指針，所以也要添加該類中的按鈕的“mousemove”事件代碼如上。由于“命令按鈕工具欄”類在各個(gè)表單中的效果相同，即可首先彈出一個(gè)確認(rèn)話框，如果確認(rèn)則退出當(dāng)前表單，所以退出按鈕的“click”事件代碼如程1.6所示LOCAL YN&聲明本地變量*確認(rèn)對(duì)話框YN=MESSAGEBOX(確定退出,4+32,訂單管理系統(tǒng))IF YN=6&如果確認(rèn)THIS.PARENT.PARENT.RELEASEENDIF 至此，“命令按鈕工具欄”類創(chuàng)建完成。（二）創(chuàng)建系統(tǒng)主表單本次課程設(shè)計(jì)中，使用.PRG程序作為主程序,由該程序設(shè)置運(yùn)行的環(huán)境,并調(diào)用系統(tǒng)登錄表單,系統(tǒng)通過后顯示系統(tǒng)LOGO表單

17、,然后再試系統(tǒng)主表單,再由系統(tǒng)主表單調(diào)用其他表單完成系統(tǒng)提供的各個(gè)功能。1、創(chuàng)建系統(tǒng)主程序主程序是所編寫的程序的入口，其作用是設(shè)置程序的運(yùn)行環(huán)境，定義變量、常量，然后調(diào)用其他的表單，其代碼如程1.7所示*系統(tǒng)環(huán)境設(shè)置CLEARCLEAR ALLSET ESCAPE OFF& 禁止運(yùn)行的程序在按ESC鍵被中斷SET TALK OFF& 關(guān)閉命令顯示SET SAFETY OFF & 覆蓋時(shí)不要確認(rèn)SET STAT BAR OFF & 將狀態(tài)欄關(guān)閉SET SYSMENU OFF & 可關(guān)掉VFP系統(tǒng)菜單區(qū)域SET SYSMENU TO & 關(guān)閉系統(tǒng)菜單SET CENTURY ON & 顯示四位年代S

18、ET DATE ANSI& 指定日期表達(dá)式的顯示格式為yy.mm.dd*避免多次運(yùn)行程序*聲明API函數(shù)“FindWindow”DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowNamelpWindowName=訂單管理系統(tǒng)IF .NOT. FindWindow(0,lpWindowName)=0 &尋找窗口標(biāo)題 =MESSAGEBOX(程序已經(jīng)運(yùn)行了,48,訂單管理系統(tǒng)) QUIT ENDIF_Screen.Caption=lpWindowName*聲明全局變量PUBLIC cUser,IsA

19、dmin& 聲明全局變量，用來保存系統(tǒng)中的登錄用戶*調(diào)用登錄表單DO FORM Logon& 顯示登錄表單*進(jìn)入事物處理READ EVENTS2、創(chuàng)建系統(tǒng)主菜單打開項(xiàng)目管理器，切換到“其他”選項(xiàng)卡，在選項(xiàng)卡的類表框中選擇“菜單”選項(xiàng)，新建菜單如下：由于菜單不是單獨(dú)運(yùn)行，而是內(nèi)置在系統(tǒng)主表單中運(yùn)行，所以還需要設(shè)置菜單的常規(guī)選項(xiàng)。打開菜單設(shè)計(jì)器，選擇顯示中常規(guī)選項(xiàng)命令，打開“常規(guī)選項(xiàng)”對(duì)話框，在此對(duì)話框中選中“頂層表單”復(fù)選框，這樣菜單就可以與頂層表單一起運(yùn)行了。菜單設(shè)計(jì)完成后，還需要生成可執(zhí)行的菜單文件（.mpr文件），在菜單設(shè)計(jì)器中選擇菜單生成命令，打開“生成菜單”對(duì)話框，在此對(duì)話框中的“輸出

20、文件”文本框中輸入生成的可執(zhí)行的菜單文件位置，單擊確定按鈕即可。3、 創(chuàng)建用戶管理模塊“訂單管理系統(tǒng)”中設(shè)計(jì)的用戶管理模塊包括系統(tǒng)登錄、密碼修改、添加用戶、修改用戶和刪除用戶5項(xiàng)功能，其中修改和刪除用戶功能在集成在一個(gè)表單中，下面分別介紹：（1） 創(chuàng)建“系統(tǒng)登錄”表單 設(shè)置表單一些基本屬性之后，創(chuàng)建好的表單效果如下把用戶信息表（userinfo）添加到數(shù)據(jù)環(huán)境中，之后便添加代碼?！按_定”按鈕的“click”事件代碼如程1.8所示*改為精確比較SET EXACT ON * 試圖登錄次數(shù)自動(dòng)加1 THISFORM.i=THISFORM.i+1 IF EMPTY(ALLTRIM(賬號(hào))MESSAGE

21、BOX(請(qǐng)輸入賬號(hào)名稱,48,訂單管理系統(tǒng))THISFORM.txt賬號(hào).SetFocusELSE SELECT UserInfo LOCATE FOR ALLTRIM(賬號(hào))=ALLTRIM(THISFORM.txt賬號(hào).VALUE) &查找用戶*用戶名和密碼正確IF FOUND() .AND. ALLTRIM(密碼)=ALLTRIM(THISFORM.txt密碼.VALUE) CUser=賬號(hào)&將登錄用戶的姓名存儲(chǔ)到全局變量中 IsAdmin=管理 THISFORM.RELEASE() DO FORM LOGO &執(zhí)行Logo表單ELSE*用戶名和密碼錯(cuò)誤IF THISFORM.i3 &如

22、果次數(shù)小于3MESSAGEBOX(賬號(hào)或密碼錯(cuò)誤,請(qǐng)重新輸入,48,訂單管理系統(tǒng))THISFORM.txt賬號(hào).VALUE=THISFORM.txt密碼.VALUE=THISFORM.txt賬號(hào).SETFOCUSELSE &如果已登錄3次MESSAGEBOX(密碼錯(cuò)誤三次,系統(tǒng)無法啟動(dòng),48,訂單管理系統(tǒng)) THISFORM.RELEASE &退出表單 CLEAR EVENTS &結(jié)束事件循環(huán) QUIT&退出Visual FoxPro ENDIFENDIFENDIF*改為模糊比較SET EXACT OFF“取消”按鈕的“click”事件代碼如程1.9所示*聲明本地變量LOCAL YN*確認(rèn)對(duì)話

23、框YN=MESSAGEBOX(確定退出,4+32,訂單管理系統(tǒng))*如果確認(rèn)IF YN=6 THISFORM.RELEASE&退出當(dāng)前表單 CLEAR EVENTS&結(jié)束事務(wù)處理 QUIT&退出Visual FoxProENDIF（2） 創(chuàng)建“修改密碼”表單將“用戶信息表”添加到表單數(shù)據(jù)環(huán)境中，其代碼添加介于篇幅就不詳細(xì)介紹了。同上“修改用戶表單與刪除用戶表單”也不一一介紹了。（3） 創(chuàng)建“修改密碼”表單將“用戶信息表”添加到表單數(shù)據(jù)環(huán)境中，其代碼添加介于篇幅就不詳細(xì)了。4、 創(chuàng)建信息瀏覽表單（1）創(chuàng)建“產(chǎn)品信息瀏覽”表單命名為“proselect”將“產(chǎn)品信息”表添加到表單的數(shù)據(jù)環(huán)境中，IF

24、.NOT. EMPTY(ALLTRIM(THISFORM.txt產(chǎn)品編號(hào).Value)SelTJ=SelTJ + AND + ALLTRIM(THISFORM.txt產(chǎn)品編號(hào).Value) + $ 編號(hào)ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.txt產(chǎn)品名稱.VALUE)SelTJ=SelTJ + AND + ALLTRIM(THISFORM.txt產(chǎn)品名稱.Value)+ $ 品名ENDIFSELECT ProductInfoSET FILTER TOSET FILTER TO &SelTJ添加“產(chǎn)品信息瀏覽”表單的“init”事件代碼如程2.1所示PARAM

25、ETERS cFormModeTHISFORM.FormMode=cFormModePUBLIC SelTJSelTJ=.T.SELECT ProductInfoSET FILTER TOIF THISFORM.FormMode=cBrowseTHISFORM.Grid1.Column1.Header1.Caption=編號(hào)THISFORM.CmdPrint.Visible=.T.THISFORM.CAPTION=產(chǎn)品信息瀏覽ELSEIF THISFORM.FormMode=cSelectTHISFORM.Grid1.Column1.Header1.Caption=編號(hào)（雙擊選擇）THISFO

26、RM.CmdPrint.Visible=.F.THISFORM.CmdExit.Left=THISFORM.CmdExit.Left-35THISFORM.CAPTION=產(chǎn)品信息選擇ENDIFENDIFTHISFORM.Refresh當(dāng)“產(chǎn)品信息瀏覽”表單作為“產(chǎn)品信息選擇”表單時(shí)在表單推出是要向調(diào)用的該表單的表單返回值，即添加一個(gè)“return”語(yǔ)句，添加“產(chǎn)品信息瀏覽”表單的“unload”事件代碼如程2.2所示IF THISFORM.FormMode=cSelectReturn THISFORM.SelectedProENDIF當(dāng)“產(chǎn)品信息瀏覽”表單作為“產(chǎn)品信息選擇”表單時(shí)，在表格控

27、件的第一列中雙擊時(shí)即可選擇該條記錄，并將該記錄的“編號(hào)”字段值返回給調(diào)用表單，添加“產(chǎn)品信息瀏覽”表單的表格控件的第一列文本框的“dblclick”事件，代碼如程2.3所示If thisform.formmode=”cselect” thisform.selectedpro=alltrim(this.value) thisform.releaseendif 查看按鈕的“click”代碼如程2.4所示SelTJ=.T.THISFORM.Refresh“打印”按鈕的“click”代碼如程2.5所示REPORT FORM ProductInfo Preview FOR &SelTJ“退出”按鈕的“c

28、lick”代碼如程2.6所示YN=MESSAGEBOX(確定退出,4+32,訂單管理系統(tǒng))IF YN=6IF THISFORM.FormMode=cSelectTHISFORM.SelectedPro=ENDIFTHISFORM.ReleaseENDIF 至此，“產(chǎn)品信息管理”表單創(chuàng)建完畢。（2）創(chuàng)建“產(chǎn)品信息瀏覽”表單由于它與上“產(chǎn)品信息管理”相似，這里就不再介紹了。5、 創(chuàng)建信息管理模塊（1）創(chuàng)建產(chǎn)品信息管理表單將“產(chǎn)品信息”表添加到表單數(shù)據(jù)環(huán)境中，把之前創(chuàng)立的兩個(gè)類控件添加到表單中，由于在這里還使用了一個(gè)自定義方法“modecontrol”,其代碼如程2.7Local BeModify,

29、BeBrowseBeModify=THISFORM.bModifyBeBrowse=THISFORM.bBrowseTHISFORM.txt編號(hào).ReadOnly=.NOT. BeModifyTHISFORM.txt品名.ReadOnly=.NOT. BeModifyTHISFORM.txt單位.ReadOnly=.NOT. BeModifyTHISFORM.txt單價(jià).ReadOnly=.NOT. BeModifyTHISFORM.txt類別.ReadOnly=.NOT. BeModifyTHISFORM.txt產(chǎn)地.ReadOnly=.NOT. BeModifyTHISFORM.txt說明

30、.ReadOnly=.NOT. BeModifyTHISFORM.ProMoveRec.Enabled=.NOT. BeModifyTHISFORM.ProAdminButton.CmdAdd.Enabled=.NOT. BeModifyTHISFORM.ProAdminButton.CmdMod.Enabled=.NOT. BeModifyTHISFORM.ProAdminButton.CmdDel.Enabled=.NOT. BeModifyTHISFORM.ProAdminButton.CmdPri.Enabled=.NOT. BeModifyTHISFORM.ProAdminButto

31、n.CmdExit.Enabled=.NOT. BeModifyTHISFORM.ProAdminButton.CmdSave.Enabled=BeBrowseTHISFORM.ProAdminButton.Cmdccl.Enabled=BeBrowse“產(chǎn)品信息管理”表單的“init”事件代碼2.8*選擇“產(chǎn)品信息”表所在的工作區(qū)SELECT ProductInfo*清除工作區(qū)中可能存在的過濾條件SET FILTER TO*如果“產(chǎn)品信息”表為空IF EOF() AND BOF() OR RECCOUNT()=0*表單進(jìn)入“數(shù)據(jù)表為空”狀態(tài)THISFORM.bModify=.T.THISFORM.bBrowse=.F.THISFORM.ModeControlTHISFORM.ProAdminButton.CmdAdd.Enabled=.T.THISFORM.ProAdminbutton.CmdExit.Enabled=.T.ELSE*表單進(jìn)入瀏覽狀態(tài)THISFORM.bModify=.F.THISFORM.