影碟出租管理系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上影碟出租管理系統(tǒng) 1 需求分析1.1 系統(tǒng)的名稱影碟出租管理系統(tǒng)1.2 系統(tǒng)概述隨著社會的發(fā)展，人民群眾的生活水平的提高及其文化消費需求日益發(fā)展，音像制品出租業(yè)務也隨之有了很大的發(fā)展，對于一般的中小城市和鄉(xiāng)鎮(zhèn)都有了很多的大小不等的提供音像制品出租業(yè)務的商家。但是伴隨而來的是音像制品大量的增加，過去傳統(tǒng)的手工記帳式的出租方式已經(jīng)不可能滿足日常大量的音像制品出租業(yè)務管理，所以有基于此，很有必要借助于計算機來幫助人們來完成這些很為煩索的事情。面隨著計算機技術(shù)的發(fā)展，解決這個問題早已經(jīng)不是難事了！本程序正是基于此而開發(fā)出來的面向一般的音像制品出租商家的程序?；诠I(yè)化標準的S

2、QL的數(shù)據(jù)庫操作管理，使數(shù)據(jù)處理變的更為方便和容易，能提供相當豐富的功能以及友好的用戶操作界面。 而隨著科技的發(fā)展，傳統(tǒng)錄音帶租售店租售產(chǎn)品由錄影帶擴及至VCD、DVD等影片媒體，所以本產(chǎn)品主要針對影碟出租管理而設計，拋棄了已經(jīng)被淘汰錄像帶的管理。 由于現(xiàn)在各種影片繁多，數(shù)量巨大，用人工方法很難快速的找到用戶所需要的影碟，針對這一問題，本系統(tǒng)設計了按影碟名查詢的方法。只要輸入用戶想要租借的影碟名，即可快速的得到其相關信息。這既節(jié)約了顧客的時間，同時也大大的減少了管理人員的工作量。目前各地影碟出租店組織結(jié)構(gòu)類似，供銷運作過程和工作環(huán)境類似。各地影碟出租店間的相似性為軟件的推廣提供了有力的基礎。如

3、果該系統(tǒng)建成并推廣，將可以產(chǎn)生具有巨大的經(jīng)濟效益和社會效益。1.3 系統(tǒng)要實現(xiàn)那些功能，每個功能的具體描述我們所設計的影碟出租管理系統(tǒng)，主要能實現(xiàn)以下功能：1、影碟管理：包括新影碟的入庫、舊影片的刪除等；2、影碟租借：包括借影碟、更改影碟信息、歸還影碟、更新影碟租借信息等。3、影碟的查詢：按片名查詢。4、幫助：顯示系統(tǒng)的基本功能。 影碟管理影碟借租影碟查詢幫助影碟管理系統(tǒng)2 概要設計2.1 系統(tǒng)概述本系統(tǒng)主要是應用在普通的影碟出租店,能夠完成以下功能：新影片的入庫、舊影片的刪除、按片名查詢、借影碟等。實現(xiàn)了PowerBuilder 9.0與SQL Server 2000的連接，能夠在Power

4、Builder 9.0對SQL Server 2000中的數(shù)據(jù)庫進行訪問、添加、刪除等操作。2.2 數(shù)據(jù)庫設計2.2.1 數(shù)據(jù)庫表結(jié)構(gòu)設計根據(jù)本系統(tǒng)所要實現(xiàn)的功能，我們主要設計了兩個表格，其結(jié)構(gòu)如下：表1 影碟信息表videoinf列名數(shù)據(jù)類型可否為空說明Discidchar(10)No影碟編號（主鍵）Disnamevarchar(50)Yes影片名稱Numberchar(10)Yes張數(shù)Starvarchar(50)Yes演員Buydate char(10)Yes日期Price float(8)Yes價格Ibstract varchar(100)Yes說明信息表2 租借信息表 hiredvd

5、列名數(shù)據(jù)類型可否為空說明Discnamevarchar(50)No影片編號（主鍵）Loandate char(10)Yes借出日期Return char(10)Yes應還日期Deposit float(8)Yes押金Hire float(8) Yes租金clientnaemchar(10)No顧客姓名2.2.2 E-R圖影碟租借片名查詢影碟查詢查詢影碟管理租借影碟編號影碟名稱張數(shù)日期價格演員影片信息租借信息影碟名稱借出日期應還日期押金租金2.2.3系統(tǒng)各功能模塊如何實現(xiàn)系統(tǒng)開發(fā)的任務是實現(xiàn)各種信息的系統(tǒng)化，規(guī)范化和自動化。系統(tǒng)主要功能分析是在系統(tǒng)開發(fā)的總?cè)蝿盏幕A上完成的，本系統(tǒng)應在普通的影碟

6、出租店，它的主要功能及模塊如何實現(xiàn)如下：1影碟管理功能模塊：包括新影片的入庫、舊影片的刪除等；1）新影片的入庫：將新碟信息添加到影碟信息表中； 2）舊影片的刪除：將舊影片信息從影碟信息表中刪除。2影碟租借功能模塊：租借影碟，即將租借信息寫入出租影片情況表，并在影碟信息表中做相應的更改；3影碟歸還功能模塊：歸還影碟，通過輸入影碟名和顧客姓名，即可找出該租借用戶租借影碟的相關信息，在確認歸還后，由管理員在影碟租借信息表中對有關信息做出相應的更新；4影碟查詢功能模塊：按片名查詢，通過輸入影片名稱，即可在相應的窗口中顯示出與之對應的主演、現(xiàn)有碟片張數(shù)、租金等信息； 5統(tǒng)計售量功能模塊： 對登記月租用戶

7、租借數(shù)量進行統(tǒng)計。2.2.4 開發(fā)的平臺，使用的數(shù)據(jù)庫及開發(fā)工具Window XP， PowerBuilder 9.0，SQL Server 2000，Visio 2003等。3 系統(tǒng)開發(fā)3.1 登錄窗口的設計依次單擊file-new-window命令建立如圖1所示的登錄窗口（win窗口）。 圖1 登錄窗口在應用程序?qū)ο蟮膐pen事件中寫入如下語句：sqlca.dbms="odbc"sqlca.autocommit=falsesqlca.dbparm="connectsting='dsn=zuoye'"connect;open(win)w

8、in窗口各控件的代碼如下cb_1(確認)的clicked事件代碼：if sle_1.text="622" thenif sle_2.text="622" then open(w_mdi)close(win)elsemessagebox("警告","密碼錯誤,請重新輸入!")end ifend ifcb_2(退出)的clicked事件代碼：close(win)3.2 應用程序主窗口的設計系統(tǒng)應用程序的主要功能是在主窗口w_main（如圖2所示）中完成的。 圖2 主窗口其各事件代碼如下m_影片管理 .m_新片

9、入庫的clicked事件代碼：open(new)m_影片管理 .m_舊片刪除的clicked事件代碼：open(w_del)m_影碟查詢的clicked事件代碼：open(w_check)m_影片租借的clicked事件代碼：open(w_return)m_幫助的clicked事件代碼：open(w_help)3.3 影碟管理模塊的設計3.3.1新片入庫窗口的設計影碟入庫窗口（new）如圖3所示，它主要實現(xiàn)了從PowerBuilder 9.0添加數(shù)據(jù)到SQL Server 2000中數(shù)據(jù)庫的功能。 圖3 新片入庫窗口 其各控件的代碼如下cb_1(添加)的clicked事件代碼：lon

10、g ll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)cb_2(保存)的clicked事件代碼：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","數(shù)據(jù)庫更新成功")elserollback using sqlca;messagebox("提示","數(shù)據(jù)庫更新不成功")end ifcb_3(退出)的clicked事件代碼：close(parent)3.3.2舊影片

11、刪除窗口的設計選擇“影片管理舊片刪除”就會看到如圖4所示的舊影片刪除窗口（w_del），該窗口主要實現(xiàn)從PowerBuilder 9.0刪除和更新SQL Server 2000中數(shù)據(jù)庫中數(shù)據(jù)的功能。圖4 舊片刪除窗口 其各控件的代碼如下cb_1(檢索)的clicked事件代碼：dw_1.retrieve()cb_2(刪除)的clicked事件代碼：long ll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messagebox("提示","你將要刪除紀錄，是否繼續(xù)",question!,yesno

12、!,1)if ll_rtn=1 thendw_1.deleterow(ll_currentrow)end ifcb_2(確定)的clicked事件代碼： if dw_1.update()=1 thencommit using sqlca;messagebox("提示","數(shù)據(jù)庫更新成功")elserollback using sqlca;messagebox("提示","數(shù)據(jù)庫更新不成功")end ifcb_4(退出)的clicked事件代碼：close(parent)3.4 影碟查詢窗口的設計對影片可以按照不同的

13、索引進行查詢，在本系統(tǒng)中，我們只設計了按“影片名查詢”，其查詢窗口如圖5所示，它主要實現(xiàn)通過PowerBuilder 9.0訪問SQL Server 2000中數(shù)據(jù)庫里數(shù)據(jù)的功能。圖5 查詢窗口 其各控件的代碼如下w_check窗口open事件代碼：dw_1.settransobject(sqlca)dw_1.retrieve()cb_1(查詢)的clicked事件代碼：sle_2.text=""sle_3.text=""sle_4.text=""sle_5.text=""sle_6.text="&quo

14、t;select "videoinfo"."discname", "videoinfo"."discid","videoinfo"."discname","videoinfo"."star","videoinfo"."price","videoinfo"."number"into :sle_1.text, :sle_2.text, :sle_3.text,

15、:sle_4.text, :sle_5.text, :sle_6.textfrom "videoinfo"where "videoinfo"."discname"=:sle_1.text;if sle_1.text="" thenmessagebox("警告","請輸入影片名!")end ifsle_1.setfocus()cb_2(退出)的clicked事件代碼：close(parent)3.5 影碟租借模塊的設計影碟租借模塊主要實現(xiàn)以下功能：借出影碟錄入影碟租借信息更改影

16、碟信息3.5.1租借影碟窗口的設計我們設計的影碟租借窗口（w_return）如圖6所示，在該窗口下，主要能完成對顧客欲要租借影碟的初步信息以及將相關租借信息寫入到租借信息表 hiredvd中去。圖6 租借影碟窗口其各控件的代碼如下w_return窗口open事件代碼：dw_1.settransobject(sqlca)“查詢” 按鈕clicked事件代碼：sle_2.text=""sle_3.text=""sle_4.text=""select "videoinfo"."discname",&q

17、uot;videoinfo"."star","videoinfo"."number","videoinfo"."price"into :sle_1.text, :sle_2.text, :sle_3.text, :sle_4.textfrom "videoinfo"where "videoinfo"."discname"=:sle_1.text;if sle_1.text="" thenmessagebox

18、("警告","請輸入影片名!")end ifsle_1.setfocus()“借碟信息”按鈕clicked事件代碼：long ll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)“確定”按鈕clicked事件代碼：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","數(shù)據(jù)庫更新成功")elserollback using sqlca;messagebox("

19、提示","數(shù)據(jù)庫更新不成功")end if open(w_del)“退出”按鈕clicked事件代碼：Close(parent)3.5.2 租借信息更新窗口的設計 與舊片刪除窗口的設計方法類似，我們設計了如圖7所示的租借信息更新窗口，通過它能對影碟租借信息表中的信息進行更新。圖7 租借信息更新窗口其各控件的代碼如下窗口open事件代碼：dw_1.settransobject(sqlca)dw_1.retrieve()“刪除” 按鈕代碼：long ll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messag

20、ebox("提示","你將要刪除紀錄，是否繼續(xù)",question!,yesno!,1)if ll_rtn=1 thendw_1.deleterow(ll_currentrow)end if“確定”按鈕代碼：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","數(shù)據(jù)庫更新成功")elserollback using sqlca;messagebox("提示","數(shù)據(jù)庫更新不成功")end if“退出”按鈕代碼：c

21、lose(parent)3.6 影碟歸還窗口的設計 根據(jù)需要，我們設計的影碟歸還窗口如圖8所示，輸入影碟名和顧客名后點擊查詢按鈕可以查找出該租借用戶租借該影碟的相關信息，點擊張數(shù)更新按鈕可以跳轉(zhuǎn)到對相應的窗口對影碟信息表中該影碟張數(shù)進行更新。 圖8 影碟歸還窗口其各控件代碼如下“查詢”按鈕代碼：sle_3.text=""sle_4.text=""sle_5.text=""select "hiredvd"."discname", "hiredvd"."clientna

22、me", "hiredvd"."discname", "hiredvd"."clientname","hiredvd"."number"into :sle_1.text, :sle_2.text, :sle_3.text, :sle_4.text, :sle_5.textfrom "hiredvd"where "hiredvd"."discname"=:sle_1.text and "hiredv

23、d"."clientname"=:sle_2.text;if sle_1.text="" or sle_2.text=""thenmessagebox("警告","請同時輸入影片名和顧客用戶名!")end ifsle_1.setfocus()sle_2.setfocus()“更新張數(shù)”按鈕代碼：open(w_return)“退出”按鈕代碼：close(parent)3.7 幫助窗口的設計幫助窗口（w_help）如圖7所示，它主要提供一些對本系統(tǒng)基本功能的介紹信息。 圖9 幫助窗口其“退出”按鈕的代碼：Close(parent)4 總結(jié)分工情況：需求分析：韋顯望概要分析：王炳文開發(fā)：饒玉泉總結(jié)：劉禮仙通過全體成員近一周的共同努力，我們小組順利完成影碟出租系統(tǒng)的開發(fā)。在系統(tǒng)的開發(fā)過程中，我們主要用到的工具是SQL Server 2000和PowerBuilder 9.0。該系統(tǒng)實現(xiàn)了前述兩種開發(fā)