畢業(yè)論文--影片管理程序論文

1、摘要2第一章緒論3§1.1課題來源3§ 1.2項目確定3§ 1.3本文所做工作5第二章 影片租借系統(tǒng)設(shè)計分析5§2.1需求分析5§2.2系統(tǒng)功能模塊劃分8§2.3系統(tǒng)功能調(diào)查8第三章數(shù)據(jù)庫設(shè)計11第四章系統(tǒng)功能模塊設(shè)計13§4.1主控模塊13§4.2分控模塊13第五章 程序設(shè)計及說明17第六章系統(tǒng)特點與運行環(huán)境17第七章結(jié)束語18參考文獻 附錄1部分源程序附錄2部分報樣式隨著計算機技術(shù)的飛速發(fā)展，計算機在商業(yè)管理中廣泛普及，利用計算機實 現(xiàn)對影片租借管理是工作所需，也是辦工自動化、現(xiàn)代化的內(nèi)容之一，并且可以 提高影

2、像店的檔次。本系統(tǒng)就是要將一個彫像店的各項工作流程，用計算機來實 現(xiàn)的過程。本系統(tǒng)采用visual foxpro 6.0開發(fā)完成，采用模塊化設(shè)計。整個系統(tǒng)從符合操作簡便、界而友好、靈活、實用、安全的要求岀發(fā)，完成 查詢、租借、歸還、結(jié)賬、會員管理的全過程，包括影片岀租后岀租表的建立、 會員證的掛失、出租和歸還引起影片出租狀態(tài)的修改、影片資料查詢、統(tǒng)計等工 作以及新影片、新會員的入庫、壞影片的刪除，等管理工作。論文主要介紹了本課題開發(fā)的過程和所要完成的功能。通過用戶需求分析， 考慮到計算機管理的便利性和數(shù)據(jù)表的基本要求，精心設(shè)立了五個原始數(shù)據(jù)表。 在數(shù)據(jù)表的設(shè)計與規(guī)范過程中，嚴(yán)格遵守數(shù)據(jù)庫系統(tǒng)設(shè)

3、計原則，以保證數(shù)據(jù)的完 整性與一致性，盡量減少數(shù)據(jù)冗余。根據(jù)功能需求建立了七個功能模塊，分別為：碟庫更新，影片查詢，租借服 務(wù)，歸還服務(wù)，匯總統(tǒng)計，會員管理，用戶設(shè)置，用來管理影像店的具體工作。關(guān)鍵詞：數(shù)據(jù)庫，模塊設(shè)計，visual foxpro 6. 0,影片租借系統(tǒng)第一章緒論§1.1 課題來源精彩的影片大大豐富了人們的業(yè)余生活，使之成為大家?；钪胁豢扇鄙俚囊?部分，而觀看影片一般都愿意選擇租碟的方式。影像店也就自然成為了人們常去 的地方，因此影片出租行業(yè)有著廣泛的市場。目前的影像店管理工作大多是由手 工來完成的，而影像店對影片的管理是多方面的，由于店內(nèi)的存碟量達到了幾千 張，甚至

4、是幾萬張，而且類型眾多、人們對其喜好各不相同，若影片分類不科學(xué), 顧客要從眾多的影片中找出一張滿意的，恐怕需要好長的時間。而要把這些資料 整理好，用手工去完成，既繁瑣又復(fù)雜，并且工作效率低，缺乏準(zhǔn)確性，但是如 果利用數(shù)據(jù)庫管理系統(tǒng)設(shè)計一個影片租借系統(tǒng)來管理的話,以上的問題都能迎刃 而解。所以針對這一情況，木人開發(fā)了這個影片租借系統(tǒng)，比較好地解決了 影像店所面臨的這些問題。實踐證明，影片岀租，影片歸還，收費結(jié)算，統(tǒng)計報表，等一系列具體工作 使用計算機來完成，可以大大減輕管理人員的工作強度，同時計算機具有手工管 理所無法比擬的優(yōu)點。例如：檢索迅速，查找方便，可靠性高，存儲量大，保密 性好等。這些優(yōu)

5、點能夠極大地提高工作效率，也是與現(xiàn)代化接軌的重要條件。1.2 項目確定當(dāng)今是飛速發(fā)展的信息時代。在各行各業(yè)中離不開信息處理，計算機正被廣 泛應(yīng)用于信息管理系統(tǒng)。使用計算機進行信息控制，不僅提高了工作效率，而且 大大的提高了其安全性和準(zhǔn)確性。尤其對于復(fù)雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信 息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng) 就是為了管理好影像店而設(shè)計的。影片和顧客租借資料繁多，包含很多的信息數(shù)據(jù)，現(xiàn)今的影像店只是初步開 始使用，尚未全面使用計算機進行信息管理。根據(jù)調(diào)查得知，他們以前對影片租 借管理的主要方式是記錄式的手工處理，對于影片租借情

6、況（如租借人，租借天 數(shù)、所付壓金數(shù)）的統(tǒng)計和核實等往往采用對手抄記錄進行人工檢查，對客戶的 租借（會員，非會員）權(quán)限、以及租借天數(shù)等用人工計算、手抄進行。數(shù)據(jù)信息 處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩碚f， 缺乏系統(tǒng)、規(guī)范的信息管理手段。數(shù)據(jù)處理手工操作，工作量人，出錯率高，出錯后不易更改。影像店采取手 工方式對租借情況進行人工管理，由于需記錄的信息比較多，使得管理工作容易 混亂；一般租借情況是記錄在本子上，工作人員也只是當(dāng)時比較清楚，時間一長, 如再要進行查詢，就得在眾多的記錄中翻閱、查找了，造成查詢費時、費力?；谶@此問題，我認(rèn)為有必要建立一個影片租借系統(tǒng)，使

7、影片租借管理工作規(guī)范 化，系統(tǒng)化，程序化，使之能夠及時、準(zhǔn)確、有效的查詢和修改影片情況，避免 給影像店帶來不必的損失。本系統(tǒng)要達到以下目標(biāo)：(1) 能詳細(xì)，準(zhǔn)確地記錄所有影片的基木信息。建立影片基木數(shù)據(jù)庫表，按 照影片的屬性及特征所建數(shù)據(jù)表的結(jié)構(gòu):影片編號、影片名稱、主演、影片類型、 片籍、片長、片數(shù)、岀租狀態(tài)、內(nèi)容簡介等記錄。(2) .能準(zhǔn)確快速地查詢出顧客所需影片信息。提供多種條件查詢的功能。有 時，顧客想看某個影片卻不一定都能說上名字來，使用這個系統(tǒng)，只需說出幾個 條件就能找出顧客想要的碟來。所以該系統(tǒng)應(yīng)能夠根據(jù)不同的關(guān)鍵字來查找到影 片的相關(guān)信息。比如,可以根據(jù)主演來查，也可以根據(jù)影片

8、類型進行查詢，還可以 根據(jù)片籍來查，也可以結(jié)合幾個不同關(guān)鍵字實現(xiàn)復(fù)合查找(3) .能準(zhǔn)確地記錄顧客租還信息。(4) .能準(zhǔn)確記錄和計算出所有費用，包括壓金，租碟天數(shù)，應(yīng)付租金數(shù)，應(yīng) 退還壓金數(shù)，做到賬面清楚。還要考慮影片的出租狀態(tài)，會員的優(yōu)惠政策等。(5) .能準(zhǔn)確地管理會員的信息。在會員的管理問題上，除了能增刪會員外， 另外為了維護會員的利益，會員證丟失后還可以掛失。(6) .能把所有需要的信息制成報表，方便將來統(tǒng)計、查詢，并將其打印出來。(7) .能保證系統(tǒng)的安全性，不得有非法用戶進入木系統(tǒng)。因為它關(guān)系到店主 的切身利益，不允許那些非法用戶來隨意改動記錄，由此可知，本系統(tǒng)應(yīng)設(shè)置登錄 密碼，

9、只允許店主木人進入該系統(tǒng)進行管理，若密碼不小心泄露，還可以隨時改變 密碼。當(dāng)然，如果有必要，還可以增刪用戶。對此，木人對系統(tǒng)做了簡單的可行性分析。這個系統(tǒng)是個單用戶的系統(tǒng)，界 面友好，略懂電腦操作的人就可使用，而也不需要增加其它設(shè)備，在現(xiàn)有的 機器上完全可以運行。在技術(shù)特性上，本人學(xué)習(xí)過數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)計、軟件工程、 visual foxpro等課程，具備了軟件開發(fā)的基本條件。在指導(dǎo)老師的正確指導(dǎo)下, 能夠獨立完成該系統(tǒng)的開發(fā)，在做岀詳細(xì)的系統(tǒng)分析，能保證數(shù)據(jù)的止確性。 對整個系統(tǒng)開發(fā)的過程，大體安排如下： 系統(tǒng)需求分析一個星期； 系統(tǒng)功能設(shè)計一個星期； 程序編碼兩個星期； 系統(tǒng)調(diào)試

10、和測試一個星期；加上開發(fā)過程中不可預(yù)知的因素，整個系統(tǒng)開發(fā)大約為一個半月左右。1.3本文所做工作緒論部分?jǐn)⑹隽苏n題提岀背景、目前應(yīng)用現(xiàn)狀，分析了影片租借系統(tǒng)設(shè)計的 特點和任務(wù)。第二章結(jié)合軟件工程方法，對系統(tǒng)進行需求分析、功能劃分、數(shù)據(jù)流程圖設(shè) 計，并結(jié)合數(shù)據(jù)庫原理和功能劃分進行er圖的繪制。第三章設(shè)計了系統(tǒng)的數(shù)據(jù)庫結(jié)構(gòu)。第四章根據(jù)用戶需求對系統(tǒng)功能進行了劃分和詳細(xì)設(shè)計。第五章介紹了本系統(tǒng)的開發(fā)工具。第六章介紹了系統(tǒng)特點和運行壞境。第七章介紹了設(shè)計體會和編程體會，并指出了系統(tǒng)設(shè)計中的不足和改進的方向。第二章影片租借系統(tǒng)設(shè)計分析§ 2.1需求分析本系統(tǒng)的軟件需求分析是以影像店管理人員的工

11、作過程作為系統(tǒng)原理的基 礎(chǔ)，把它模型化、抽象化后設(shè)計出來的，在了解現(xiàn)有系統(tǒng)的不足，以及用戶的需 求后，設(shè)計岀邏輯模型實例化，變成物理模型，在這個基礎(chǔ)上，把物理模型具體 化，就得到了目標(biāo)系統(tǒng)。影片租借系統(tǒng)需要滿足來自三方面的需求，這三個方面分別是普通客戶、會員客 戶、影像店管理員。普通客戶的需求是查詢影片的信息及個人租借情況；會員客 戶除了享有普通客戶的需求外，還應(yīng)享有會員的優(yōu)惠政策。管理人員對客戶的租 借及歸還進行操作的同吋應(yīng)考慮會員跟非會員的區(qū)別，為客戶保存租碟和歸還記 錄，并打印生成相應(yīng)的報表給客戶查看和確認(rèn)。根據(jù)以上所做的需求分析，并略掉一些細(xì)節(jié)（如不考慮用戶的登錄；對記錄 的維護），得

12、出以下的數(shù)據(jù)流圖和部分er圖。圖21系統(tǒng)頂層數(shù)據(jù)流圖客戶若要租借影片，首先便要對碟庫里的影片進行查詢，再將查詢后的符合在影像店的工作過程中，查詢是很重要的一個工作環(huán)節(jié)，查詢到符合客戶需 求的影片后，接著就要出租影片了。它需要完成的任務(wù)是：記錄客戶租、借影片的過程及資料，在這個過程中， 乂要核對客戶預(yù)租影片是否已被租出，再來決定客戶是否能租它，等客戶將影片歸還后又要在記錄中將其出租狀態(tài)改為“否”，還有交納租金等問題。租借需求 分析就是要實現(xiàn)這一流程。出租：i片'圖2.4影片租借e-r圖影片歸還流程實現(xiàn)過程是：普通客戶還碟時，管理員可根據(jù)客戶姓名來查詢 租借的影片名稱及數(shù)量（會員則是按會員

13、編號查詢），再將所述影片序號告訴計 算機，計算機將應(yīng)付的租金數(shù)計算并顯視出來，管理員收取租金后便可將碟庫中 影片的岀租狀態(tài)改為'否'圖2.5影片歸還流程§ 2. 2系統(tǒng)功能模塊劃分總體設(shè)計：根據(jù)功能分析，可分為以下兒類模塊：主控模塊、分控模塊、功 能模塊。主控模塊 顯示系統(tǒng)總體功能，提供用戶選擇，根據(jù)選擇實現(xiàn)分支，進入分 控模塊或功能模塊。分控模塊根據(jù)各分支功能進行設(shè)置。根據(jù)系統(tǒng)功能要求、系統(tǒng)結(jié)構(gòu)化的程序思想進行設(shè)計,把整個系統(tǒng)分成七個 子模塊，在每個子模塊下，又分為兒個功能模塊，每個功能模塊執(zhí)行各自的功能。 根據(jù)以上考慮，系統(tǒng)功能模塊結(jié)構(gòu)圖如下：影 片 查 詢歸 還

14、 服 務(wù)ill租服務(wù)歸 還 服 務(wù)影片租借系統(tǒng)會 員 管 理統(tǒng)報表會 員 入 會會 員 出 會會 員 id： 掛 失會 員iia-見會 員 需知v v v v圖2.6系統(tǒng)力能模塊結(jié)構(gòu)圖影 片 資 料 匯 總收 入 情 況 總 匯用退戶出設(shè)本置系統(tǒng)密 碼 修 改影片出租情況圖2.7系統(tǒng)模塊流程圖§ 2. 4. 1系統(tǒng)功能調(diào)查整個系統(tǒng)從總體上分為影片管理、租還管理、會員管理、系統(tǒng)維護四大部分, 每一部分應(yīng)實現(xiàn)的功能如下：2.3.1影片管理功能新影片的信息輸入影片基木信息維護:包括修改、刪除影片基木信息查詢：支持多條件查詢，可以選擇名稱、主演、產(chǎn)地、類型、 出租狀態(tài)進行查詢，也可以組合這些

15、關(guān)鍵字查詢。2.3.2租還管理功能影片出租：包括影片信息，會員信息的核對，出租表的改寫。影片歸還：包括最后的結(jié)賬，影片出租狀態(tài)的改寫2.33會員管理功能新會員的入會會員注消會費的管理2.34系統(tǒng)維護功能用戶管理：包括新增用戶、刪除用戶、修改用戶密碼等第三章數(shù)據(jù)庫設(shè)計按關(guān)系數(shù)據(jù)的耍求，盡量減少冗余數(shù)據(jù)。本系統(tǒng)共設(shè)計了五個原始數(shù)據(jù)表， 其中ypzl. dbf和clzu. dbe是核心表,分別用于存放影片的基本資料和顧客租借 影片的詳細(xì)資料和信息。在數(shù)據(jù)表的設(shè)計與規(guī)范過程中，嚴(yán)格遵守數(shù)據(jù)庫系統(tǒng)設(shè) 計原則，以保證數(shù)據(jù)的完整性與一致性，為了計算和查詢的方便，有時采取了犧 牲數(shù)據(jù)冗余小這個原則，將有些衍生

16、數(shù)據(jù)也進行存儲。比如說租金是可以通過一 定的法則進行運算岀來的，但是運算牽涉的因素多，計算繁瑣，有會員跟非會員 的差別（會員不需耍交壓金，租金有優(yōu)惠）為了在結(jié)賬的時候，做到讓顧客心中 有數(shù)，在設(shè)計庫結(jié)構(gòu)的時候就有了壓金，應(yīng)付租金和實付租金字段。以下是本系統(tǒng)中數(shù)據(jù)表的結(jié)構(gòu)：mima dbf說明：為了便于多個用戶管理該系統(tǒng)，建立此表，用于用戶身份驗證，增加用戶，刪除用戶。其結(jié)構(gòu)如下:字段字段名類型寬度小數(shù)位索引排序nulls1用戶名字符型1 0普通2密碼字符型1 0否ypzl.dbf功能：用于存儲影片資料，它是進行影片管理的基礎(chǔ)。其結(jié)構(gòu)如下:字段字段名類型寬度小數(shù)位索引排序nulls1影片序號字符

17、型6唯一升2影片名稱字符型203劇情類型字符型104影片類型字符型85影片產(chǎn)地字符型86主演字符型167片長字符型108集數(shù)字符型59出租狀態(tài)字符型210內(nèi)容簡介字符型100cuzu.dbf功能：用于記錄影片的租還記錄。為保證數(shù)據(jù)的一致性和歷史資料的完整, 表的記錄不能被刪除，如果影片歸還，只更改其狀態(tài)為歸還其結(jié)構(gòu)如下：字段字段名類型寬度小數(shù)位索引排序nulls1影片序號字符型6普通升2影片名稱字符型20普通升3租借人字符型8普通升4會員編號字符型6普通升5是否會員字符型26出租集數(shù)字符型47出租日期日期型88歸還日期日期型89租碟天數(shù)字符型410壓金貨幣型811應(yīng)付租金貨幣型812應(yīng)退租金貨

18、幣型813狀態(tài)字符型4huike. dbf功能：用于記錄客戶基木資料，其結(jié)構(gòu)如下:字段字段名類型寬度小數(shù)位索引排序nulls1會員編號字符型6普通升2姓名字符型83性別字符型24身份證字符型155電話字符型126地址字符型307入會時間日期型88狀態(tài)字符型4普通huifei. dbf說明：用于記錄會員交費情況。字段字段名類型寬度小數(shù)位數(shù)索引排序nulls1會員編號字符型6普通升2交費金額貨幣型83交費日期日期型84交費年份字符型7第四章系統(tǒng)功能模塊設(shè)計§ 4.1、主控模塊主程序的設(shè)計 程序名：main, prg主程序主要有幾項功能：設(shè)置運行環(huán)境（包括設(shè)置必要的全局變量）、運行表單及建

19、立事件循環(huán)。主程序?qū)⑹紫日{(diào)用seteven程序設(shè)置運行環(huán)境，然后設(shè)置默認(rèn)目錄和搜索路徑，最后運行歡迎界面（表單welcome, sex） o密碼驗證就放在此表單中，用于防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全，輸入口令時屏幕顯示為“*”以利保密。要求輸入密碼，允許輸入三次，密碼錯誤不能進入木系統(tǒng),輸入正確繼續(xù)執(zhí)行，進入主表單（表單：main, sex）。通過主表單運行系統(tǒng)功能。§ 4. 2分控模塊（1）新碟入庫模塊（表單：ypzl.scx）功能：該表單用于實現(xiàn)影片資料的輸入，完成成新影片的入庫，初始狀態(tài) 下所有輸入和選擇框均無效，只有點擊“增加新影片”按鈕后才可用。其屏幕中 用文本框輸

20、入影片基本數(shù)據(jù)，每部彫片的序號是唯一的。該表單內(nèi)有三個組合框, 分別是“影片類型”、“影片產(chǎn)地”、“劇情類型”，數(shù)據(jù)源來自與數(shù)據(jù)表ypzl.dbf 的字段。在該表單中，可以實現(xiàn)增加新影片、修改影片、刪除影片功能，若操作錯 誤，取消操作可取消對表所做的修改。（2）影片查詢模塊（表單：ypfind.scx）功能：可以根據(jù)不同的條件組合，查詢影片的基本信息，查詢條件包括影片 名稱、主演、劇情類型、影片產(chǎn)地、出租狀態(tài)，條件可以任意組合。多條件查詢 是本模塊重點考慮的內(nèi)容，本設(shè)計完成了對多字段、多條件的查詢，用起來比較 方便。該屏幕分為兩個部分，上半部分用于查詢條件的選擇，由五個復(fù)選框和一 個命令按鈕組

21、成。選擇好查詢的關(guān)鍵字后單擊“確定”便可擊活下半部文本 框，輸入查詢條件，單擊“顯示查詢結(jié)果”就能快速地得到影片的信息。 其運行界面如圖所示：；forml-|51x|影片租還1新碟入庫統(tǒng)計報表1用尸設(shè)置1會員管理1退出岀租服務(wù)模塊（表單：chuzu. sex）功能：本模塊用于實現(xiàn)影片的出租。模塊中影片的名字與序號之間設(shè)定有 綁定的關(guān)系，只需輸入影片的序號，影片的名字就會自動填入，會員編號跟租 借人也有綁定關(guān)系。用戶輸入完后，點“確定”，系統(tǒng)先會對輸入的資料進行核 對，在影片借出的同時，并將影片總庫里的出租狀態(tài)改為“是二表示此碟已被借 走。同時還會對會員進行核實，若會員證被掛失，系統(tǒng)會馬上提示，

22、能很好地 保護會員的利益。其運行界而如圖所示:（4）歸還服務(wù)模塊（表單:guihuan.scx）功能：可實現(xiàn)影片歸還后資金的結(jié)算。在表單中，輸入租借人的姓名或是 會員編號，在下面的表格中便會將其所借影片記錄顯視出來，結(jié)賬按鈕，用于 結(jié)算顧客應(yīng)付的租金，因為會員跟非會員在價格方面有很大的區(qū)別，所以將其 分開顯視。等顧客交完錢后就可點下面的“還碟確定”了，這樣他的租碟狀態(tài)就 會改為“已還=同時也將影片資料表中的“出租狀態(tài)"改為否，這樣下一個客戶 乂可以租它了。為了避免錯誤操作，這個按鈕在沒有點擊結(jié)賬前是灰色不可用 的狀態(tài)。其運行界面如圖所示: <影片厚號影片名稱租常人合員編號776

23、67788090909好好好王小姐123123xixi小徉兒000030999999hijj"還碟確定此鍵在未點結(jié)賬之 前的狀態(tài)為不可用for mlq祖借兀1確宗i會員編號1應(yīng)退還壓金1（非會員）¥返回應(yīng)付租金歸還服務(wù)（4）會員管理模塊（表單：huyuan.scx）功能：為適應(yīng)當(dāng)今社會的發(fā)展趨勢，專門設(shè)定了這個會員管理的模塊，利 用會員可以享受很多優(yōu)惠政策的方式，來吸引顧客，以提高經(jīng)濟效益。木模塊 設(shè)有，添加會員、刪除會員、會費管理，會員一覽表。其運行界面如圖所示：（5）用戶設(shè)置模塊（表單：user.scx）功能：用于實現(xiàn)管理用戶的功能（有添加用戶、修改密碼、刪除用戶三個子

24、 頁框），添加用戶子頁框它能夠完成添加用戶的功能。修改密碼模塊:當(dāng)管理人員發(fā)現(xiàn)密碼泄露后，可用此項功能修改密碼。刪除模塊用于用戶注銷（6）匯總統(tǒng)計模塊（表單：baobiao.scx）功能：本模塊有三項匯總功能，分別是：月收入?yún)R總，會員情況匯總，影 片資料匯總。（7）退出模塊（表單：quit.scx）功能：調(diào)用本表單后，結(jié)束語由表單下端向上升，四秒后自動退出本系統(tǒng)。各模塊的調(diào)用關(guān)系統(tǒng)如：main.prg第五章程序設(shè)計與說明因為vfp是一個專業(yè)的數(shù)據(jù)庫管理系統(tǒng)，功能齊全，加上其面向?qū)ο竦奶卣? 使得程序具有設(shè)計簡單等特點。木人選擇了 visual foxpro 6.0作為系統(tǒng)開發(fā)工具。 作為程序設(shè)

25、計的主要任務(wù)是完成用戶需求分析的功能，所以設(shè)計時力求功能的 完善與實用，其次考慮操作界面的美觀性與操作的便利性。在系統(tǒng)開發(fā)過程中，使用了 vfp中的報表向?qū)Чぞ?。在設(shè)計過程中，由于初次涉及系統(tǒng)項目開發(fā)，所以借鑒了其他的一些系統(tǒng), 從中吸取了不少經(jīng)驗，為今后的工作奠定了基礎(chǔ)。程序源代碼見附錄。第六章系統(tǒng)特點與運行環(huán)境系統(tǒng)運行的環(huán)境：1、硬件環(huán)境：586/100m/64m/20g/tnt顯卡或配置在其以上的機器，并配有鼠標(biāo)。2、軟件環(huán)境：操作系統(tǒng)平臺：windows98或 windows me裝有 visual foxpro 6.0 系統(tǒng)系統(tǒng)特點：(1) 界面友好，容易撐握使用方法，也能很方便的找

26、到需要的信息。(2) 設(shè)計的條理比較清楚，基木符合影像店工作的要求，尤其是影片查詢和 租還服務(wù)兩個模塊，是系統(tǒng)中比較突岀的兩個模塊。第七章結(jié)束語這是本人參與的第一次項目開發(fā)，但在整個設(shè)計過程中，本人都認(rèn)真的作好 了各項工作，尤其是系統(tǒng)需求分析和功能模塊的分析。在設(shè)計的過程中，有很多 借鑒其它系統(tǒng)的地方，也遇到了不少疑難，在指導(dǎo)老師的精心指導(dǎo)下，才得以解 決。visual f0xr0 6.0是本人的口學(xué)課程之一，由于時間和水平的局限，本系 統(tǒng)中還有不足之處，敬請各位老師指教。通過這次項目開發(fā)，熟悉了項目開發(fā)的 流程，相信在以后的工作中，也能獨立完成小型系統(tǒng)的開發(fā)。參考文獻1. 數(shù)據(jù)庫原理鄭若忠編

27、著國防科大出版社2. 軟件工程齊治昌編著 高等教育出版社3visual foxpro 6.0數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航邵洋谷宇何旭洪編著 人民郵電岀版社4.visual foxpro 6.0入門與應(yīng)用實例李俊徳 編著 清華大學(xué)出版社附錄1報表式樣 報表(huike.frx)03/31/03會員編號：88姓名：8性別：8身份證號：8電話：8地址：8入會日期：03/23/03交費年份狀態(tài)：停用交費金頷交費日期50 00/ /2000.150.0003/284332000.9150.0003/284332001.350.0003/28x)32002.1050.0003/28/032002.1100.00

28、03/28/032003 1扌艮表2 (mm.frx)月收入總匯031/03月份影片轄影片名稱應(yīng)付租金3000030小叮當(dāng)0.00分類匯邕3:0.0040909090070.90分矣匯總4：0.9031231235.00776677云朵全花0.00分類匯總3:5.00主程序main.prg_screen.left=-l 0000public mypathset talk offset excl onset dele onmypath=sys(5)+sys(2003)set defa to (mypath)set path to data,forms,tutu,progs,reportsjibs

29、do form welcomeread events1歡迎界面(vvelcome.scx)'確定'按鈕的chick事件set exact onselect mimaif n>2messagebox(”三次密碼錯誤，不能使用本系系統(tǒng)！ “)thisform.releaseset sysmenu to defaultclear readelseloca for allt(用戶名)=allt(thisform.text 1 .value)if found()if allt(密碼)=ant(thisform.text2. value)thisform.releasedo form

30、 mainelsemessagebox("密碼錯誤! ”)thisform.text2.value=space(l 0) n=n+lthisform.refreshthisform.text2.setfocusendifelsemessagebox(m沒有此用戶!")thisform.text 1 .v alue=space(l 0)thisform.text2.value=space( 10)n=n+lthisform.refreshthisform.text 1 .setfocusendifendif2主界面(maimscx)'t imer 1'的 ti

31、mer 事件if i=0thisform label2. fontsize二26thisform. 1abel3 fontsize=26thisform. iabel2. forecolor=16711935thisform. label3. forecolor=65535 i=lj=j+lelsethisform. iabel2 fontsize=22thisform. label3. fontsize=36thisform. iabel3. forecolor=16711935thisform label2. forecolor=65535i=0j 二 j+1endif3. 碟庫更新(yp

32、zl.scx)彳上一個'的chick事件skip -1if bof ()messagebox(*已是第一個記錄',48,'信息窗口')this parent command1. enabled=. ft his. pare nt. command2. enabled 二.f.skipelsethis parent, commandl. enabled二.t.this, parent command2 enabled=.t.endi fthis, parent. command3. enabled, t.this pare nt. comma nd4 cn ab

33、1 ed=. t thisform. refresh'第一個'的chick事件goto topthis parent commandl. onabled=. f.this, pare nt. comma nd3 en abled=. t.this, pare nt. comma nd4. enabled, t.thisform. refresh，下一個，的chick事件skipif eof ()messagebox (，己是最后一個記錄',48,'信息窗口') skip -1this parent command3. enabled二 fthis par

34、ent command4 enabled=. felsethis, parent. command3- enabled=.t.this, parent, command4 enabled二.t.end i fthis, parent command1 enabled.tthis, parent, command2. enabled=. t. thisform. refresh'最后一個'的chick事件goto bottomthis, pare nt. comma nd3. enabledr f.this, pare nt. comma ndl. enabled t.this

35、parent. command2 onablcd= tthisform. refresh'新增影片'的chick事件thisform. commandgroup2. enabled=. f.thisform. command2. cnabled=. f.thisform conimand3 enabled. fthi sform command4. enabled=. tif thisform. command 1. caption二'增加新影片' thisform. containerl. textl. enabled=. t.thisform. contai

36、ncrl. tcxt2 cnabled=. tthisform container1. combo1 enabled二.t.thisform container1 combo2 enabled.t.thisform. containerl. text3. enabled=. t.thisform containerl. text4. enabled. t. thisform containerl. texts enabled=. t thisform containerl. combo3 enabled=.t. thisform. containerl. combo4. enabled.t.

37、thisform. containerl. editl. enabled=. t.append blank thisform command 1. caption二，保存， thisform. refresh thisform containerl. textl. setfocus elsegetid=al1 trim(th is form containerl. text 1.value)empty(getjob) or empty (getuse) orgetname二alltrim(thisform. containerl. text2. value) getsex=al1trim(th

38、isform. containerl. combol value) getjob=alltrim(thisform. containerl. combo2> value) getindate=alltrim(thisform. containerl.text3.value) getrank二alitrim(thisform containerl. text4. value) getgood=al11rim(thisform containerl. text5. value) getuse=al1trim(thisform. containerl. combo3. value) getgo

39、d=alltrim(thisform. containerl. combod- value) gethp=alltrim(thisform. containerl. editl. value) i f empty (getid) or empty(getname) or empty (getsex) empty (get indate) or empty (getrank) or empty (getgood) empty (getgod) or empty (gethp)messagebox(zz資料不足"，48，"錯誤") elsethisform. comm

40、and 1. caption增加新記錄' tabl eupdate (. t.)thisform containerl. textl. enabled二.f. thisform. con tai nc rl. tcxt2. cn abled=. f. thisform containerl. combo1 enabled二 f. thisform containerl. combo2 enabled=. f. thisform. containerl. text3. enabled二.f. thisform containerl. textd. enabled二.f. thisform

41、. con tai nc rl. texts, cn abled=. f. thisform containerl. combo3 enabled. f thisform container1 combo4 enabled. f. thisform. containerl. editl. enabled=. f. thisform. commandgroupl. enabled二.t. thisform. command2. cnabled=. t. thisform conimand3 enabled=. t thi sform command4. enabled=. f endi fend

42、 if"修改影片'的chick事件thi sform. command 1 enabled=. f. thisform. command3. enabled=. f. thisform command4 enabled=. t. thisform commandgroup2 cnab1ed=. t if thisform. command2 caption二'彳彥改這條i己錄' thisform. containerl. textl. enabled=. t. thisform. containerl. text2. enabled二.t. thisform

43、container1 combo1 enabled二.t. thisform containcrl. combo2 cnabled= t thisform. containerl. text3. enabled=. t thisform. containerl. text4. enabled=. t. thisform. containerl. text5. enabled=. t. thisform containerl. combo3. enabled二.t. thisform container1. combo4 enabled二.t. thisform containerl. edit

44、l. enabled=. t thi sform. command2. caption修改確認(rèn)' thisform. containerl.refresh thisform containerl. textl. setfocus elsethisform command2 caption=，«參改這條i己錄' tabl eupdate (. t.)thisform. con tai nerl. textl. enabled 二.f. thisform containerl. text2. enabled二.f. thisform containerl. combo1

45、cnabled= f thisform container1 combo2 enabled.f. thisform. containerl. text3. enabled=. f. thisform. con tai nerl. textd. enabled 二.f. thisform containcrl. texts enabled, f. thisform containerl. combo3 cnabled= f thisform. containerl. combo4 enabled=.f. thisform. containerl. editl. enabled=. f. this

46、form. command1. enabled=. t. thisform. command3. cnabled=. t. thisform command4. enabled. f thisform commandgroup2 enabled. t. endif'刪除影片'的chick事件 getid=alltrim(thisform containerl. textl. value) thisform containerl. textl. controlsource=，' thi sform. contai nerl. text2. control source二八

47、 thisform containerl. combo1. controlsource=， thisform containerl. combo2 controlsource=" thisform. containerl. text3 controlsource= thisform. containerl. text4. controlsource' thisform. containerl. text5. controlsource=> ” thisform containerl. combo3. controlsource=， thisform containerl

48、. combo4. controlsource=， thisform containerl. edit! controlsource= use ypzl exclusiveset order to影片序號seek gelid delete packthisform. containerl. textl. controlsource=，影片序號 thisform containerl. text2. controlsource=，影片名稱 thisform container 1. combo 1 controlsource二'影片類型' thisform container 1

49、 combo2 controlsource=，影丿f j'"地' thisform. containerl. text3. controlsource=，主演' thisform. containerl. text4. controlsource=，片長' thisform containerl. texts. controlsource=，集數(shù) thisform containerl. combo3 controlsource二'冊情類苑 thisform container 1 combo4 controlsource二'出租狀態(tài)&

50、#39; thi sform. containerl. editl. control source內(nèi)容簡介' thisform refreshthisform containerl. text 1. enabled=. f thisform containerl. text2. enabled=. f thisform. containerl. combol. enabled=> f. thisform containerl. combo2. enabled=. f. thisform containcrl. tcxt3 enabled. f. thisform containe

51、rl. text4 enabled=. f thisform containerl. text5. enabled二.f thisform. containerl. combo3. enabled=> f. thisform containerl. combol. enabled=. f. thisform. con tai nc rl. editl. cn abled=. f.'取消操作'的chick事件if thi sform. command 1. caption增加確認(rèn)' thisform command 1. captio增力口新i己錄' thi

52、sform. command2. cnabled=. t. thisform conimand3 enabled=. t thi sform commandgroup2 enabled=.t. tabl erevert (. f.)end ifi f thisform. command2. caption修改確認(rèn)' thisform command2 caption二'0參改這條i己錄' thi sform. command1. enabled=. t.thisform. command3. enabled=. t. tablerevert (. f.) end i f

53、thisform containerl. text 1. enabled二.fthisform. containerl. text2. enabled=. f.thisform. con tai nerl. combo 1. enabled f.thisform containcrl. combo2 enabled. fthisform container】. text3 enab1ed=. fthisform containerl. text4. enabled二.f thisform. containerl. text5. enabled=. f. thisform. containerl

54、. combo3. enabled, f. thisform containerl. combo4. enabled二.f. thisform containerl. editl. enabled=. f thisform refresh'froml'的 init 事件set multilocks oncursorsetprop(，zbufferin3)4. 出租服務(wù)(chuzu. sex)'取消'的chick事件thisform pageframel. pagel. textl. value=，'thisform pageframe1. page1. text2 value=，' thisform pageframe1. page1. text3 value二'' thisform. pageframe1 pagel. text4. value' thisform pageframe1 pagel. text5. value=，' thisform pageframe1. page1. te