1、課程設(shè)計(jì)任務(wù)書20112012 學(xué)年第一學(xué)期專業(yè)班級(jí)： 計(jì)算機(jī)應(yīng)用技術(shù) 學(xué)號(hào)： 姓名： 課程名稱： 數(shù)據(jù)庫(kù)系統(tǒng)與應(yīng)用 完成期限：自2011年12月12日至2011年12月18日 共 1 周課程設(shè)計(jì)題目 數(shù)據(jù)庫(kù)倉(cāng)庫(kù)管理系統(tǒng)課程設(shè)計(jì) 設(shè)計(jì)目的:倉(cāng)庫(kù)形態(tài)具有種種優(yōu)點(diǎn)，但在目前狀況下，它仍存在零售業(yè)企業(yè)所共有的落后的一面，如：不能有效地管理每種商品，收款結(jié)算速度慢，而且在倉(cāng)庫(kù)管理中，商品的進(jìn)、銷、存等決策以經(jīng)驗(yàn)為主，缺乏實(shí)時(shí)分析功能，管理人員對(duì)及時(shí)傳遞資料的要求始終得不到滿足。而該系統(tǒng)則可以方便的實(shí)現(xiàn)商品的錄入，查詢，添加，刪除等功能。使操作更簡(jiǎn)便效率 功能要求： 綜合運(yùn)用所學(xué)的數(shù)據(jù)庫(kù)基本知識(shí)，并能通

2、過查閱相關(guān)文獻(xiàn)材料，獨(dú)立完成該課題的設(shè)計(jì)開發(fā)工作。要求根據(jù)本課題設(shè)計(jì)出合理的數(shù)據(jù)結(jié)構(gòu)，并實(shí)現(xiàn)商品的錄入，查詢，修改，刪除等功能。 一、設(shè)計(jì)的任務(wù)：完成教學(xué)管理系統(tǒng)中主要模塊的設(shè)計(jì)和實(shí)現(xiàn)。 二、開發(fā)工具：Visual FoxPro6.0 / Visual FoxPro8.0 三、進(jìn)度安排：第17周進(jìn)行課程設(shè)計(jì)、設(shè)計(jì)說明書的撰寫和課程設(shè)計(jì)答辯。 四、參考資料： 1 陶宏才.數(shù)據(jù)庫(kù)原理及設(shè)計(jì).北京：清華大學(xué)出版社，20012 范立南.SQL Server 2000 實(shí)用教程.北京： 清華大學(xué)出版社，20033 李香敏.SQL Server 2000 編程員指南.北京：北京希望電子出版社。4 王丙義，

3、胡鴻. 數(shù)據(jù)庫(kù)原理與Visual Foxpro應(yīng)用. 北京：中國(guó)鐵道出版計(jì)劃答辯時(shí)間： 2011 年 12 月 18 日指導(dǎo)教師（簽字）： 2011 年 月 日目 錄第1章 引言- 1 -第2章 需求分析- 1 -2.1系統(tǒng)概述- 1 -2.2運(yùn)行環(huán)境- 1 -2.3功能需求描述- 1 -第3章 總體設(shè)計(jì)- 2 -3.1系統(tǒng)設(shè)計(jì)- 2 -3.2系統(tǒng)模塊結(jié)構(gòu)圖- 2 -3.3模塊設(shè)計(jì)- 3 -3.4數(shù)據(jù)庫(kù)設(shè)計(jì)- 4 -3.4數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)- 5 -第4章 詳細(xì)設(shè)計(jì)- 7 -4.1功能選擇界面的設(shè)計(jì)- 7 -4.2設(shè)備入庫(kù)模塊的設(shè)計(jì)- 8 -4.3設(shè)備出庫(kù)模塊的設(shè)計(jì)- 10 -4.4 設(shè)備還庫(kù)

4、模塊的設(shè)計(jì)- 11 -4.5 設(shè)備需求模塊的設(shè)計(jì)- 12 -4.6 設(shè)備采購(gòu)模塊的設(shè)計(jì)- 13 -4.7 顯示報(bào)表模塊的設(shè)計(jì)- 14 -第5章 系統(tǒng)的編譯和發(fā)行- 16 -5.1 設(shè)置主文件- 16 -5.2 構(gòu)造主文件- 16 -5.3 在.app和.exe文件中包含和排除文件- 16 -第6章 小結(jié)- 17 -6.1系統(tǒng)的功能和特點(diǎn)- 17 -6.2存在的問題與改進(jìn)方向- 17 -6.3自我體會(huì)- 18 -參考文獻(xiàn)- 19 -附錄1：部分程序源代碼- 19 -附錄2：程序運(yùn)行界面：- 28 -第1章 引言企業(yè)的物資供應(yīng)管理往往是很復(fù)雜的，煩瑣的。由于所掌握的物資種類眾多，訂貨，管理，發(fā)放的

5、渠道各有差異，各個(gè)企業(yè)之間的管理體制不盡相同，各類統(tǒng)計(jì)計(jì)劃報(bào)表繁多，因此物資管理必須實(shí)現(xiàn)計(jì)算機(jī)化，而且必須根據(jù)企業(yè)的具體情況制定相應(yīng)的方案。倉(cāng)庫(kù)管理部門是企業(yè)中的一個(gè)重要部門,每天都有大量的業(yè)務(wù)在這里產(chǎn)生。對(duì)于一個(gè)現(xiàn)代化的企業(yè)來說,如何把倉(cāng)庫(kù)部門每天發(fā)生的業(yè)務(wù)如實(shí)的記錄下來,保證倉(cāng)庫(kù)有條理地進(jìn)行,同時(shí)確保相關(guān)數(shù)據(jù)的安全,信息處理的高效,并保證系統(tǒng)的實(shí)用性強(qiáng),這是要本系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)的基本要求，并要求在每一步驟的設(shè)計(jì)過程中都能生動(dòng)清晰地有所體現(xiàn)。第2章 需求分析2.1系統(tǒng)概述管理信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)軟硬件資源，手工作業(yè)，分析、計(jì)劃、控制和決策模型以及數(shù)據(jù)庫(kù)的人-機(jī)系統(tǒng)。它能提供信息支持企業(yè)或組織

6、的運(yùn)行、管理和決策功能。2.2運(yùn)行環(huán)境處理器：Intel Pentium 166 mx 或更高內(nèi)存： 32MB以上硬盤空間：1GB以上顯卡：SVGA顯示適配器2.3功能需求描述 l 倉(cāng)庫(kù)管理各種信息的輸入，包括入庫(kù)、出庫(kù)、還庫(kù)、需求信息的輸入等。l 倉(cāng)庫(kù)管理各種信息的查詢、修改和維護(hù)。l 設(shè)備采購(gòu)報(bào)表的生成。l 在庫(kù)存管理中加入最高儲(chǔ)備和最低儲(chǔ)備字段，對(duì)倉(cāng)庫(kù)中的物資設(shè)備實(shí)現(xiàn)監(jiān)控和報(bào)警。l 企業(yè)各個(gè)部門的物資需求的管理。l 操作日志的管理。l 倉(cāng)庫(kù)管理的使用幫助。第3章 總體設(shè)計(jì)3.1系統(tǒng)設(shè)計(jì)1. 系統(tǒng)目標(biāo)設(shè)計(jì)系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)企業(yè)物資設(shè)備管理的系統(tǒng)化，規(guī)范化和自動(dòng)化，從而達(dá)到提高企業(yè)物資

7、管理的效率的目的。2. 開發(fā)設(shè)計(jì)思想倉(cāng)庫(kù)管理的特點(diǎn)是信息處理量比較大。所管理的物資設(shè)備種類繁多，而且由于入庫(kù)單，出庫(kù)單，需求單等單據(jù)發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計(jì)的方式各不相同。因此在管理上實(shí)現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會(huì)出現(xiàn)信息的重復(fù)傳遞，單據(jù)，報(bào)表種類繁多，各個(gè)部門管理規(guī)格不統(tǒng)一等問題。在本系統(tǒng)的設(shè)計(jì)過程中，為了克服以上困難，滿足計(jì)算機(jī)管理的需要，我們采取了下面的一些原則： 統(tǒng)一各種原始的單據(jù)的格式，統(tǒng)一帳目和報(bào)表的格式。 刪除不必要的管理冗余，實(shí)現(xiàn)管理規(guī)范化、科學(xué)化。 程序代碼標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確認(rèn)軟件的可維護(hù)行和實(shí)用性。 界面盡量簡(jiǎn)單化，做到實(shí)用、方便，盡量滿足企業(yè)中

8、不同層次員工的需要。 建立操作日志，系統(tǒng)自動(dòng)記錄所進(jìn)行的各種操作。3.2系統(tǒng)模塊結(jié)構(gòu)圖倉(cāng)庫(kù)管理系統(tǒng)系統(tǒng)模塊輸入模塊維護(hù)模塊查看模塊報(bào)表模塊幫助模塊打印設(shè)置日志管理入庫(kù)模塊出庫(kù)模塊還庫(kù)模塊需求模塊3.3模塊設(shè)計(jì)按照前面的分析，我們將管理系統(tǒng)的邏輯模塊統(tǒng)一到6個(gè)實(shí)際功能模塊中，如圖所示。切換面板用于切換不同的操作，每項(xiàng)具體操作結(jié)束后，都會(huì)返回到切換面板。設(shè)備入庫(kù)設(shè)備出庫(kù)設(shè)備還庫(kù)設(shè)備需求設(shè)備采購(gòu)顯示報(bào)表 切換面板下面對(duì)各模塊的作用進(jìn)行說明：1. 設(shè)備入庫(kù)模塊：添加設(shè)備到庫(kù)存中。2. 設(shè)備出庫(kù)模塊：將設(shè)備從庫(kù)存取出并記錄。3. 設(shè)備還庫(kù)模塊：將歸并到庫(kù)存的設(shè)備保存到數(shù)據(jù)庫(kù)。4. 設(shè)備需求模塊：記錄各部

9、門的設(shè)備需求。5. 設(shè)備采購(gòu)模塊：記錄要采購(gòu)的設(shè)備。6. 切換面板：用于切換到不同的操作，如設(shè)備入庫(kù)、設(shè)備出庫(kù)等。7. 顯示報(bào)表：顯示庫(kù)存過多、庫(kù)存不足等信息。 3.4數(shù)據(jù)庫(kù)設(shè)計(jì)倉(cāng)庫(kù)現(xiàn)有庫(kù)存各部門需求企業(yè)總體生產(chǎn)計(jì)劃匯總處理設(shè)備采購(gòu)設(shè)備出庫(kù)設(shè)備入庫(kù)設(shè)備還庫(kù)在仔細(xì)調(diào)查企業(yè)倉(cāng)庫(kù)物資設(shè)備管理過程的基礎(chǔ)上，得到本系統(tǒng)所處理的時(shí)間流程如圖所示：數(shù)據(jù)流程圖在本設(shè)計(jì)中，通過對(duì)企業(yè)倉(cāng)庫(kù)管理的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如下：1. 設(shè)備代碼信息。包括的數(shù)據(jù)項(xiàng)有設(shè)備號(hào)、設(shè)備名稱。2. 現(xiàn)有庫(kù)存信息。包括的數(shù)據(jù)項(xiàng)有現(xiàn)有設(shè)備、現(xiàn)有數(shù)目、總數(shù)目、最大庫(kù)存、最小庫(kù)存等。3. 設(shè)備使用信息。包括的數(shù)據(jù)項(xiàng)有使用

10、的設(shè)備、使用部門、數(shù)目、使用時(shí)間、出庫(kù)時(shí)狀態(tài)。4. 設(shè)備采購(gòu)信息。包括的數(shù)據(jù)項(xiàng)有采購(gòu)的設(shè)備、采購(gòu)員、供應(yīng)商、采購(gòu)數(shù)目、采購(gòu)時(shí)間等。5. 設(shè)備歸還信息。包括的數(shù)據(jù)項(xiàng)有歸還設(shè)備、歸還部門、歸還數(shù)目、歸還時(shí)間、經(jīng)手人等。6. 設(shè)備需求信息。包括的數(shù)據(jù)項(xiàng)有需求的部門、需求設(shè)備、需求數(shù)目、需求時(shí)間等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。3.4數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。本設(shè)計(jì)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有庫(kù)存實(shí)體、入庫(kù)實(shí)體、出庫(kù)實(shí)體、采購(gòu)實(shí)體、還庫(kù)實(shí)體、需求實(shí)體。倉(cāng)庫(kù)管理

11、系統(tǒng)數(shù)據(jù)庫(kù)中的各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示。每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。1. 設(shè)備代碼表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空設(shè)備名稱字符型（50）可為空2. 設(shè)備入庫(kù)表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空入庫(kù)時(shí)間（主鍵）日期型（8）可為空供應(yīng)商字符型（50）可為空供應(yīng)商電話字符型（15）可為空入庫(kù)數(shù)量數(shù)值型（20）可為空價(jià)格字符型（10）可為空采購(gòu)員字符型（20）可為空3. 設(shè)備出庫(kù)表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空出庫(kù)時(shí)間（主鍵）日期型（8）可為空使用部門字符型（50）可為空出庫(kù)狀況數(shù)值型（20）可為空經(jīng)手人字符型（20）可

12、為空出庫(kù)數(shù)量數(shù)值型（10）不能為空領(lǐng)取人字符型（50）可為空用途字符型（50）可為空4. 現(xiàn)有庫(kù)存表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空現(xiàn)有庫(kù)存數(shù)值型（20）可為空最大庫(kù)存數(shù)值型（20）可為空最小庫(kù)存數(shù)值型（20）可為空總數(shù)數(shù)值型（20）可為空5. 部門需求表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空部門名稱字符型（20）不能為空需要數(shù)量數(shù)值型（20）可為空需求開始時(shí)間日期型（8）可為空需求結(jié)束時(shí)間日期型（8）可為空6. 設(shè)備還庫(kù)表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空還庫(kù)時(shí)間日期型（8）不能為空倉(cāng)庫(kù)管理員數(shù)值型（20）可為空歸還數(shù)量數(shù)

13、值型（20）可為空歸還人字符型（10）可為空7. 操作日志表：列名數(shù)據(jù)類型可否為空操作員字符型（50）不能為空操作內(nèi)容字符型（50）不能為空操作時(shí)間日期型（8）可為空8. 設(shè)備采購(gòu)計(jì)劃表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空現(xiàn)有庫(kù)存數(shù)值型（20）可為空總庫(kù)存數(shù)值型（20）可為空最大庫(kù)存數(shù)值型（20）可為空購(gòu)買數(shù)量數(shù)值型（20）可為空供應(yīng)商字符型（20）不能為空價(jià)格字符型（10）可為空計(jì)劃采購(gòu)時(shí)間（主鍵）日期型（8）可為空第4章 詳細(xì)設(shè)計(jì)4.1功能選擇界面的設(shè)計(jì)這一模塊的主要功能是作為系統(tǒng)主界面為進(jìn)入本系統(tǒng)不同功能界面選擇提供一個(gè)接口，使用一個(gè)窗口來實(shí)現(xiàn)這一功能。首先建立一個(gè)表單，設(shè)

14、取“caption”屬性為“倉(cāng)庫(kù)管理”。在該表單上添加6個(gè)“按鈕”控件，它們的“caption”屬性分別為“設(shè)備入庫(kù)”，“設(shè)備出庫(kù)”，“設(shè)備還庫(kù)”，“部門需求”，“設(shè)備采購(gòu)”，“顯示報(bào)表”。然后在表單上添加“圖象控件”，并設(shè)其“stretch”屬性為“2-strech（擴(kuò)展）”，“pictrue”屬性為圖片所在的位置，本例中為“c:倉(cāng)庫(kù)管理001.jpg”。1. 在“comm.and1”(“caption”屬性為“設(shè)備入庫(kù)”)控件的“click”事件中添加如下代碼：do form 設(shè)備入庫(kù)表thisform.release2. 在“comm.and2”(“caption”屬性為“設(shè)備出庫(kù)”)控

15、件的“click”事件中添加如下代碼：do form 設(shè)備出庫(kù)表thisform.release3. 在“comm.and3”(“caption”屬性為“設(shè)備還庫(kù)”)控件的“click”事件中添加如下代碼：do form 設(shè)備還庫(kù)表thisform.release4. 在“comm.and4”(“caption”屬性為“部門需求”)控件的“click”事件中添加如下代碼：do form 部門需求表thisform.release5. 在“comm.and5”(“caption”屬性為“設(shè)備采購(gòu)”)控件的“click”事件中添加如下代碼：do form 設(shè)備采購(gòu)表thisform.release

16、6. 在“comm.and6”(“caption”屬性為“顯示報(bào)表”)控件的“click”事件中添加如下代碼：do form 顯示報(bào)表thisform.release7. 在“form1”的屬性里選擇“autocenter”設(shè)置為“.T.-真”，同時(shí)將“backcolor”設(shè)置為“255,255,255”，“windowstate”設(shè)置為“0-普通”。8. 添加“form1”的“init”事件的代碼如下：set directory to c:倉(cāng)庫(kù)管理 *將程序的默認(rèn)的路徑指向資源所在的文件夾4.2設(shè)備入庫(kù)模塊的設(shè)計(jì)在設(shè)備入庫(kù)模塊中將實(shí)現(xiàn)設(shè)備數(shù)據(jù)的添加和入庫(kù)等功能。本模塊設(shè)計(jì)采用先用向?qū)杀韱?/p>

17、，然后用修改的方法實(shí)現(xiàn)。首先在項(xiàng)目管理器的文檔視圖下單擊“新建”按鈕，在接下來的向?qū)е校皵?shù)據(jù)庫(kù)和表”選擇“倉(cāng)庫(kù)管理”以及“設(shè)備入庫(kù)表”。值得注意的是，在結(jié)束表單向?qū)?，可選擇“保存表單以備將來使用”，“保存并運(yùn)行表單”，或者“保存表單并用表單設(shè)計(jì)器修改表單”。由于Visual FoxPro6.0向?qū)傻谋韱沃痪哂衅毡樾?，?duì)于當(dāng)前設(shè)計(jì)的倉(cāng)庫(kù)管理系統(tǒng)還需要一定的改變，因此以我們選擇“保存表單并用表設(shè)計(jì)器修改表單”。單擊“完成”按鈕系統(tǒng)提示保存表單，將表單保存為“設(shè)備入庫(kù)表.scx”，存于c:倉(cāng)庫(kù)管理目錄下。根據(jù)功能需求，把“cmdprint”、“”cmdexit、“cmdDelete”和“cm

18、dedit”的Visible屬性都設(shè)為“.F.-假”。添加2個(gè)命令按鈕，Caption屬性分別設(shè)為“修改庫(kù)存”和“回主界面”。在“回主界面”命令按鈕的click事件中添加代碼如下：thisform.releasedo form 倉(cāng)庫(kù)管理在修改庫(kù)存命令按鈕的click事件中添加代碼如下：select 現(xiàn)有庫(kù)存表 set order to 設(shè)備號(hào)seek getidif found() update 現(xiàn)有庫(kù)存表 set 現(xiàn)有庫(kù)存=(現(xiàn)有庫(kù)存+getnum) where (設(shè)備號(hào)=getid)else insert into 現(xiàn)有庫(kù)存表 (設(shè)備號(hào),現(xiàn)有庫(kù)存,最大庫(kù)存,最小庫(kù)存); ,thisform

19、.入庫(kù)數(shù)量1.text1.value,1000,10)endifinsert into 操作日志表(操作員,操作內(nèi)容,操作時(shí)間);values (thisform.采購(gòu)員1.text1.value,設(shè)備入庫(kù),date()保存后運(yùn)行表單。4.3設(shè)備出庫(kù)模塊的設(shè)計(jì)在設(shè)備出庫(kù)模塊中將實(shí)現(xiàn)設(shè)備出庫(kù)數(shù)據(jù)的添加和修改庫(kù)存等功能。該模塊的功能和設(shè)備入庫(kù)的功能相似。在表單的左上角加上了顯示當(dāng)前時(shí)間的功能，添加標(biāo)簽label2的caption屬性設(shè)為“當(dāng)前時(shí)間”；添加label3的caption屬性設(shè)為空；為當(dāng)前表單的label3init事件添加如下代碼：this.caption=dtoc(date()該模塊具

20、體實(shí)現(xiàn)過程不再一一詳細(xì)說明。下面列出了表單中所用到控件的屬性值。1. Form1控件的主要屬性：屬性名稱屬性值Caption設(shè)備出庫(kù)表Autocenter.T.-真BackColor255.255.2552. ButtonSet1控件的主要屬性：控件名屬性名稱屬性值cmdExitVisible.F.-假cmdDeleteVisible.F.-假cmdPrintVisible.F.-假cmdEditVisible.F.-假Command1Caption修改庫(kù)存Command2Caption回主界面下面時(shí)設(shè)備出庫(kù)表單中“修改庫(kù)存”命令按鈕的click事件的代碼：select 現(xiàn)有庫(kù)存表*先在該表單

21、的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫(kù)存表set order to 設(shè)備號(hào)seek getid *在現(xiàn)有庫(kù)存表中查找設(shè)備號(hào)等于getid的紀(jì)錄if found() update 現(xiàn)有庫(kù)存表 set 現(xiàn)有庫(kù)存=(現(xiàn)有庫(kù)存-getnum) where (設(shè)備號(hào)=getid) *如果庫(kù)存表中有該項(xiàng)設(shè)備，則更新庫(kù)存表 insert into 操作日志表(操作員,操作內(nèi)容,操作時(shí)間); values (thisform.領(lǐng)取人1.text1.value,設(shè)備出庫(kù),date()else messagebox(出錯(cuò),1,錯(cuò)誤的設(shè)備號(hào))endif4.4 設(shè)備還庫(kù)模塊的設(shè)計(jì)在設(shè)備還庫(kù)模塊中將實(shí)現(xiàn)設(shè)備還庫(kù)數(shù)據(jù)的添加和修改庫(kù)存等功

22、能，按照前面介紹的步驟設(shè)計(jì)設(shè)備還庫(kù)表。設(shè)備還庫(kù)表所可能用到的控件的屬性如表所示：1. Form1控件的主要屬性：屬性名稱屬性值Caption設(shè)備還庫(kù)表Autocenter.T.-真BackColor255.255.2552. ButtonSet1控件的主要屬性：控件名屬性名稱屬性值cmdExitVisible.F.-假cmdDeleteVisible.F.-假cmdPrintVisible.F.-假cmdEditVisible.F.-假Command1Caption修改庫(kù)存Command2Caption回主界面下面是設(shè)備還庫(kù)表中“修改庫(kù)存”命令按鈕的click事件的代碼：select 現(xiàn)有庫(kù)存

23、表*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫(kù)存表 set order to 設(shè)備號(hào)seek getid *在現(xiàn)有庫(kù)存表中查找設(shè)備號(hào)等于getid的紀(jì)錄if found() update 現(xiàn)有庫(kù)存表 set 現(xiàn)有庫(kù)存=(現(xiàn)有庫(kù)存-getnum) where (設(shè)備號(hào)=getid) insert into 操作日志表(操作員,操作內(nèi)容,操作時(shí)間); values (thisform.歸還人1.text1.value,設(shè)備還庫(kù),date() *如果庫(kù)存表中有該項(xiàng)設(shè)備，則更新庫(kù)存表,同時(shí)更新操作日志else messagebox(出錯(cuò),1,錯(cuò)誤的設(shè)備號(hào))*如果沒有該設(shè)備號(hào)則報(bào)告出錯(cuò)信息 endif保存后運(yùn)行表

24、單。4.5 設(shè)備需求模塊的設(shè)計(jì)在設(shè)備需求模塊中將實(shí)現(xiàn)設(shè)備需求數(shù)據(jù)的添加和保存日志等功能。首先通過Visual Foxpro的表單向?qū)伤璧脑O(shè)備需求表單，選擇部門需求表的所有可用字段，然后為保持程序風(fēng)格的一致，繼續(xù)采用表單的陰影式和圖片按鈕的風(fēng)格。在“步驟3-排序次序”時(shí)。選擇設(shè)備號(hào)的升序排列。最后單擊“完成”按鈕，把表單保存在“c:倉(cāng)庫(kù)管理”目錄下，名為“設(shè)備需求.scx”。1. Form1控件的主要屬性：屬性名稱屬性值Caption部門需求表Autocenter.T.-真BackColor255.255.2552. ButtonSet1控件的主要屬性：控件名屬性名稱屬性值cmdExitV

25、isible.F.-假cmdDeleteVisible.F.-假cmdPrintVisible.F.-假cmdEditVisible.F.-假Command1Caption保存日志Command2Caption回主界面在表單設(shè)計(jì)器中，雙擊“保存日志”命令按鈕。添加click事件代碼如下：insert into 操作日志表 (操作員,操作內(nèi)容,操作時(shí)間) values (username,設(shè)備需求,date()雙擊回主界面命令按鈕，添加click事件代碼如下：thisform.releasedo form 倉(cāng)庫(kù)管理保存對(duì)表單所作的修改。4.6 設(shè)備采購(gòu)模塊的設(shè)計(jì)在設(shè)備采購(gòu)模塊中將實(shí)現(xiàn)設(shè)備采購(gòu)數(shù)據(jù)

26、的添加和保存日志等功能。1. 由數(shù)據(jù)表生成表單通過Visual Foxpro的表單向?qū)?，生成設(shè)備采購(gòu)計(jì)劃表單。在選擇數(shù)據(jù)庫(kù)和表時(shí)，選擇倉(cāng)庫(kù)管理數(shù)據(jù)庫(kù)和設(shè)備采購(gòu)計(jì)劃表。在選擇字段時(shí)，選擇所有可用字段，選擇陰影式和圖片按鈕作為設(shè)備采購(gòu)計(jì)劃表的樣式。選擇計(jì)劃采購(gòu)時(shí)間的升序排列作為設(shè)備采購(gòu)計(jì)劃表的索引。2. 為窗體修改和添加命令按鈕添加2個(gè)命令按鈕“保存日志”和“回主界面”。設(shè)置表單中控件的屬性。下面的表列出了需要修改的控件的名稱以及屬性值。1) Form1控件的主要屬性：屬性名稱屬性值Caption設(shè)備采購(gòu)表Autocenter.T.-真BackColor255.255.2552) ButtonSe

27、t1控件的主要屬性：控件名屬性名稱屬性值cmdExitVisible.F.-假cmdDeleteVisible.F.-假cmdPrintVisible.F.-假cmdEditVisible.F.-假Command1Caption保存日志Command2Caption回主界面3) 為按鈕添加click事件代碼：在表單設(shè)計(jì)器中，雙擊保存日志命令按鈕。添加click事件代碼如下：insert into 操作日志表 (操作員,操作內(nèi)容,操作時(shí)間);values (username,設(shè)備需求,date()*把設(shè)備需求寫入操作日志表中雙擊回主界面按鈕，添加click事件代碼如下：thisform.rele

28、ase*釋放本表單do form 倉(cāng)庫(kù)管理*運(yùn)行倉(cāng)庫(kù)管理界面4.7 顯示報(bào)表模塊的設(shè)計(jì)在該模塊中，一共要顯示3個(gè)報(bào)表，分別提供庫(kù)存不足，庫(kù)存過多和操作日志等信息。1. 設(shè)計(jì)顯示報(bào)表表單在空白表單中添加一個(gè)頁(yè)框控件，并按照下表設(shè)置頁(yè)框的屬性，同時(shí)在數(shù)據(jù)環(huán)境里添加現(xiàn)有庫(kù)存表和操作日志表?？丶麑傩悦Q屬性值Form1Caption顯示報(bào)表Pageframe1Caption3Pageframe1.Page1Caption庫(kù)存不足表Pageframe1.Page2Caption庫(kù)存過多表Pageframe1.Page3Caption操作日志分別為每個(gè)page添加一個(gè)表格grid1。設(shè)置表格控件的屬性，

29、如表所示：grid1控件的主要屬性表：控件名屬性名稱屬性值ReadOnly.T.-真RecordSourceType1-別名ColumnCount-1ReadOnly.T.-真RecordSourceType1-別名ColumnCount-1ReadOnly.T.-真RecordSourceType1-別名ColumnCount-12. 代碼設(shè)計(jì)定義的init事件運(yùn)行“顯示報(bào)表”表單，界面所圖所示：local Custs1select 設(shè)備號(hào),最大庫(kù)存,現(xiàn)有庫(kù)存 from 現(xiàn)有庫(kù)存表 where (現(xiàn)有庫(kù)存最大庫(kù)存) into cursor Custs1thisform.頁(yè)框.庫(kù)存過多.庫(kù)存過

30、多表.recordsource=Custs1定義Pageframe1.Page2.grid1的init事件local Custs2select 設(shè)備號(hào),最小庫(kù)存,現(xiàn)有庫(kù)存 from 現(xiàn)有庫(kù)存表 where (現(xiàn)有庫(kù)存最小庫(kù)存) into cursor Custs2thisform.頁(yè)框.庫(kù)存不足.庫(kù)存不足表.recordsource=Custs2定義Pageframe1.Page3.grid1的init事件local Custs3select * from 操作日志表 into cursor Custs3thisform.頁(yè)框.操作日志.操作日志表1.recordsource=Custs3運(yùn)行

31、“顯示報(bào)表”表單。第5章 系統(tǒng)的編譯和發(fā)行5.1 設(shè)置主文件用主圖標(biāo)標(biāo)記的文件是用戶在啟動(dòng).app或者.exe時(shí)被調(diào)用的文件。它可以是一個(gè)表單、菜單或者程序，建議使用程序作為主文件。5.2 構(gòu)造主文件如果主文件是一個(gè)程序，它將調(diào)用應(yīng)用程序框架中的各個(gè)功能組件，然后由這些組件調(diào)用應(yīng)用程序的其余部分。如果要建立一個(gè)簡(jiǎn)單的主程序，可以按下列步驟進(jìn)行。1. 現(xiàn)設(shè)置應(yīng)用環(huán)境界面。2. 建立初始用戶界面。3. 建立事件循環(huán)。4. 恢復(fù)環(huán)境，退出應(yīng)用程序。5.3 在.app和.exe文件中包含和排除文件如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項(xiàng)目中并設(shè)置為“包含”。那么這些文件變成只讀的，不能

32、修改。如果想修改這些文件，把它們放在項(xiàng)目中并設(shè)置為“排除”，然后作為獨(dú)立文件隨著應(yīng)用程序一起發(fā)布。在默認(rèn)情況下，Visual FoxPro6.0在嵌放的過程中排除了數(shù)據(jù)庫(kù)、表格、成為.ff的c庫(kù)文件和.app文件。建議除了一些特定的表格，最好不要包含這類文件。數(shù)據(jù)庫(kù)和表格需要變化和添加，而如果編譯后包含自.exe或者是.app文件中，由于這二個(gè)文件被創(chuàng)建后都是靜態(tài)的，因此被包含的文件也是靜態(tài)的和只讀的。把數(shù)據(jù)庫(kù)和表格包含在這些文件中很明顯會(huì)帶來問題。因?yàn)檫@些文件不能被包含在文件.exe或者是.app文件中，所以要在發(fā)布一個(gè)應(yīng)用程序之前為這些文件做好準(zhǔn)備。如要排除可修改的文件，首先在項(xiàng)目管理器中

33、，選擇可修改的文件，然后從“項(xiàng)目”菜單中選擇“排除”命令。在一個(gè)文件被排除后，則在文件的左方加入一個(gè)排除符號(hào)。第6章 小結(jié)6.1系統(tǒng)的功能和特點(diǎn)一個(gè)完整的企業(yè)物資供應(yīng)管理系統(tǒng)應(yīng)該包括計(jì)劃管理，合同托收管理，倉(cāng)庫(kù)管理，定額管理，統(tǒng)計(jì)管理，財(cái)務(wù)管理等模塊。其中倉(cāng)庫(kù)管理是整個(gè)物資供應(yīng)管理系統(tǒng)的核心。管理信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)軟硬件資源，手工作業(yè)，分析、計(jì)劃、控制和決策模型以及數(shù)據(jù)庫(kù)的人-機(jī)系統(tǒng)。它能提供信息支持企業(yè)或組織的運(yùn)行、管理和決策功能。數(shù)據(jù)庫(kù)軟件用來管理數(shù)據(jù)的優(yōu)勢(shì)在于可以迅速?gòu)某汕先f(wàn)的數(shù)據(jù)中找到我們需要的數(shù)據(jù)，而查詢功能的設(shè)計(jì)也是數(shù)據(jù)庫(kù)應(yīng)用軟件設(shè)計(jì)過程中的重點(diǎn)也是難點(diǎn)。本設(shè)計(jì)過程中利用表

34、單向?qū)?qiáng)大的功能，輕松完成了數(shù)據(jù)的查詢功能。而且表單向?qū)傻牟樵児δ芊浅?qiáng)大，完全可以滿足數(shù)據(jù)庫(kù)應(yīng)用軟件的需要。為了快速開發(fā)高效的軟件，本設(shè)計(jì)中的多數(shù)表單的設(shè)計(jì)采用利用表單設(shè)計(jì)向?qū)?，然后在生成的表單的基礎(chǔ)上修改。6.2存在的問題與改進(jìn)方向界面設(shè)計(jì)相對(duì)單一，數(shù)據(jù)庫(kù)結(jié)構(gòu)不夠完美，代碼設(shè)計(jì)不夠完整而系統(tǒng)，本設(shè)計(jì)除了以簡(jiǎn)單實(shí)現(xiàn)其功能外，對(duì)VFP的掌握運(yùn)用不夠成熟和全面，對(duì)其數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)的操作有待提高，對(duì)VFP系統(tǒng)中工具欄的使用以及項(xiàng)目管理器、設(shè)計(jì)器、生成器的了解不到位，在表設(shè)計(jì)器中建立索引和在命令中使用索引等內(nèi)容學(xué)習(xí)起來不夠扎實(shí)，不會(huì)使用查詢?cè)O(shè)計(jì)器和向?qū)еR(shí)，在報(bào)表中使用控件以及連編應(yīng)用程序更

35、是難懂，其它的相對(duì)接觸也不是很多，不敢妄言發(fā)表看法。無論是針對(duì)何種系統(tǒng)的設(shè)計(jì)和查詢過程，都會(huì)把對(duì)表單設(shè)計(jì)放在比較引人注目的位置上，熟練掌握表單設(shè)計(jì)器以及常用表單控件的應(yīng)用知識(shí)外，還要對(duì)菜單設(shè)計(jì)的相應(yīng)細(xì)節(jié)和主要知識(shí)點(diǎn)重點(diǎn)處理，這部分設(shè)計(jì)由于直觀，充滿視覺沖擊力，直接影響到達(dá)到客戶理想中的實(shí)際要求！如果這一點(diǎn)完成得不夠令人滿意，恐怕間接地也會(huì)影響到用戶們對(duì)整個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)設(shè)計(jì)的質(zhì)量標(biāo)準(zhǔn)。另外還有對(duì)應(yīng)用程序的相互重視，一個(gè)好的系統(tǒng)，是系統(tǒng)的，還是非系統(tǒng)形式的，程序代碼的正確而持久性地執(zhí)行,操作,查詢，管理，備份，恢復(fù)等功能的實(shí)現(xiàn)對(duì)整個(gè)軟件開發(fā)生命周期起到關(guān)鍵性的作用?，F(xiàn)在的程序員未來的前景一片輝煌

36、，比如，目前廣泛使用的JAVA編程，編程，C#編程，本系統(tǒng)的主文件便是使用程序完成的來代替菜單設(shè)計(jì)。6.3自我體會(huì) 在整個(gè)計(jì)算機(jī)學(xué)科中，我所熱愛的就是數(shù)據(jù)管理技術(shù)一塊，同樣，我照樣報(bào)考了今年四月份的全國(guó)計(jì)算機(jī)等級(jí)考試四級(jí)數(shù)據(jù)庫(kù)工程師。正是一心執(zhí)著于對(duì)整個(gè)數(shù)據(jù)庫(kù)技術(shù)的深刻認(rèn)識(shí)和專研學(xué)問，而且眼下又要面臨大專生就業(yè)的嚴(yán)酷現(xiàn)實(shí)，更是希望找到一份從事數(shù)據(jù)庫(kù)項(xiàng)目的工作。我知道，數(shù)據(jù)庫(kù)技術(shù)是計(jì)算機(jī)科學(xué)與技術(shù)學(xué)科知識(shí)領(lǐng)域的一個(gè)重要組成部分，它的極速發(fā)展極大地促進(jìn)了基于計(jì)算機(jī)的數(shù)據(jù)管理技術(shù)在各領(lǐng)域的廣泛應(yīng)用。針對(duì)本設(shè)計(jì)結(jié)果來看，離我理想狀態(tài)下的信息管理系統(tǒng)距離巨遠(yuǎn)，對(duì)自身面臨的微不足道的境遇深感慚愧。自今往后

37、，我愿認(rèn)真學(xué)好數(shù)據(jù)庫(kù)技術(shù)，確定結(jié)合自身?xiàng)l件發(fā)展的可行性目標(biāo)，圍繞著這一目標(biāo)切實(shí)做出一番事業(yè)來！參考文獻(xiàn)陶宏才.數(shù)據(jù)庫(kù)原理及設(shè)計(jì).北京：清華大學(xué)出版社，2001范立南.SQL Server 2000 實(shí)用教程.北京： 清華大學(xué)出版社，2003李香敏.SQL Server 2000 編程員指南.北京：北京希望電子出版社，2004王丙義，胡鴻. 數(shù)據(jù)庫(kù)原理與Visual Foxpro應(yīng)用. 北京：中國(guó)鐵道出版社,2005附錄1：部分程序源代碼1. 密碼修改表單的修改按鈕的click事件源代碼：if empty(thisform.text4.value) mess=messagebox(用戶名不能為空

38、！,48,警告)else if empty(thisform.text1.value) mess=messagebox(舊密碼不能為空！,48,警告) else if empty(thisform.text2.value) mess=messagebox(新密碼不能為空！,48,警告) else if empty(thisform.text3.value) mess=messagebox(重復(fù)密碼不能為空！,48,警告) else if alltrim(thisform.text2.value)alltrim(thisform.text3.value) or len(alltrim(thisf

39、orm.text2.value)len(alltrim(thisform.text3.value) mess=messagebox(二次密碼不一致！,48,警告) else locate for alltrim(用戶名)=alltrim(thisform.text4.value) and alltrim(密碼)=alltrim(thisform.text1.value) if eof() mess=messagebox(密碼錯(cuò)誤，系統(tǒng)將取消你的修改權(quán)利！,48,警告) thisform.release else repl 密碼 with alltrim(thisform.text3.value

40、) mess=messagebox(密碼修改成功！,48,信息) thisform.release endif2. 添加操作員表單的最首按鈕的click事件源代碼：go top3. 添加操作員表單的上一個(gè)按鈕的click事件源代碼：skip-1if bof()? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！,48,信息窗口)go topendif4. 添加操作員表單的下一個(gè)按鈕的click事件源代碼：skipif eof()? chr(7) =messagebox(警告，這已經(jīng)是最后一條記錄！,48,信息窗口)go bottomendif5. 添加操作員表單的最末按鈕的cl

41、ick事件源代碼：go bottom6. 主要控件的源代碼清單：1) 主程序源代碼：SET TALK offset sysmenu off set cent on _screen.windowstate=2_screen.icon=iconshappy.ico _screen.maxbutton=0_screen.minbutton=1_screen.closable=.f.modify window screen nocloseMODIFY WINDOW SCREEN TITLE 倉(cāng)庫(kù)管理信息系統(tǒng) ZOOM WINDOW SCREEN MAX set default to datado fo

42、rm 登錄表單read eventsclearclose allreturnendif2) 登錄表單的確定按鈕控件的click源代碼：locate for alltrim(用戶名)=alltrim(bo1.value) and alltrim(密碼)=alltrim(thisform.text1.value) if !eof() if alltrim(級(jí)別)=管理員 public jb,username jb=1 username=alltrim(bo1.value) else public jb,username jb=0 username=alltrim(bo1.value) endif

43、do menu.mpr thisform.release do form 倉(cāng)庫(kù)管理else#define missmatch_loc 用戶或口令錯(cuò)，請(qǐng)重新登錄！wait window missmatch_loc timeout 1bo1.value=thisform.text1.value=numcount=numcount+1 if numcount=4 numcount=0 mess =messagebox(三次口令錯(cuò)，將退出程序！,4+16+2,退出) clear event release thisform endif endif3) 密碼修改表單的修改按鈕的click事件源代碼：if

44、 empty(thisform.text4.value) mess=messagebox(用戶名不能為空！,48,警告)else if empty(thisform.text1.value) mess=messagebox(舊密碼不能為空！,48,警告) else if empty(thisform.text2.value) mess=messagebox(新密碼不能為空！,48,警告) else if empty(thisform.text3.value) mess=messagebox(重復(fù)密碼不能為空！,48,警告) else if alltrim(thisform.text2.valu

45、e)alltrim(thisform.text3.value) or len(alltrim(thisform.text2.value)len(alltrim(thisform.text3.value) mess=messagebox(二次密碼不一致！,48,警告) else locate for alltrim(用戶名)=alltrim(thisform.text4.value) and alltrim(密碼)=alltrim(thisform.text1.value) if eof() mess=messagebox(密碼錯(cuò)誤，系統(tǒng)將取消你的修改權(quán)利！,48,警告) thisform.re

46、lease else repl 密碼 with alltrim(thisform.text3.value) mess=messagebox(密碼修改成功！,48,信息) thisform.release endif4) 添加操作員表單的最首按鈕的click事件源代碼：go top5) 添加操作員表單的上一個(gè)按鈕的click事件源代碼：skip-1if bof()? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！,48,信息窗口)go topendif6) 添加操作員表單的下一個(gè)按鈕的click事件源代碼：skipif eof()? chr(7) =messagebox(警告，

47、這已經(jīng)是最后一條記錄！,48,信息窗口)go bottomendif7) 添加操作員表單的最末按鈕的click事件源代碼：go bottom8) 添加操作員表單的修改按鈕的click事件源代碼：if mand5.caption=修改thisform.text1.readonly=.f.thisform.text2.readonly=.f.thisform.text3.readonly=.f.bo1.readonly=.f.mand5.caption=保存mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.man

48、d6.enabled=.f.mand7.enabled=.f.mand8.enabled=.f.elsemand5.caption=修改thisform.text1.readonly=.t.thisform.text2.readonly=.t.thisform.text3.readonly=.t.bo1.readonly=.t.mand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t.mand6.enabled=.t.mand7.enabled=.t.mand8.enabled=.t.endif9) 添加操作員表單的添加按鈕的click事件源代碼：if mand6.caption=添加thisform.text1.readonly=.f.thisform.text2.readonly=.f.thisform.text3.readonly=.f.bo1.readonly=.f.mand6.caption=保存mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.mand5.enabled=.f.mand7.enabled=.f.mand8.enabled=.f.appe blanelsemand6.c