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

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

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

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

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

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

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

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

8、in窗口各控件的代碼如下cb_1(確認(rèn))的clicked事件代碼：if sle_1.text="622" thenif sle_2.text="622" then open(w_mdi)close(win)elsemessagebox("警告","密碼錯(cuò)誤,請(qǐng)重新輸入!")end ifend ifcb_2(退出)的clicked事件代碼：close(win)3.2 應(yīng)用程序主窗口的設(shè)計(jì)系統(tǒng)應(yī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 影碟管理模塊的設(shè)計(jì)3.3.1新片入庫窗口的設(shè)計(jì)影碟入庫窗口（new）如圖3所示，它主要實(shí)現(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、刪除窗口的設(shè)計(jì)選擇“影片管理舊片刪除”就會(huì)看到如圖4所示的舊影片刪除窗口（w_del），該窗口主要實(shí)現(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("提示","你將要?jiǎng)h除紀(jì)錄，是否繼續(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 影碟查詢窗口的設(shè)計(jì)對(duì)影片可以按照不同的

13、索引進(jìn)行查詢，在本系統(tǒng)中，我們只設(shè)計(jì)了按“影片名查詢”，其查詢窗口如圖5所示，它主要實(shí)現(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("警告","請(qǐng)輸入影片名!")end ifsle_1.setfocus()cb_2(退出)的clicked事件代碼：close(parent)3.5 影碟租借模塊的設(shè)計(jì)影碟租借模塊主要實(shí)現(xiàn)以下功能：借出影碟錄入影碟租借信息更改影

16、碟信息3.5.1租借影碟窗口的設(shè)計(jì)我們?cè)O(shè)計(jì)的影碟租借窗口（w_return）如圖6所示，在該窗口下，主要能完成對(duì)顧客欲要租借影碟的初步信息以及將相關(guān)租借信息寫入到租借信息表 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、("警告","請(qǐng)輸入影片名!")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 租借信息更新窗口的設(shè)計(jì) 與舊片刪除窗口的設(shè)計(jì)方法類似，我們?cè)O(shè)計(jì)了如圖7所示的租借信息更新窗口，通過它能對(duì)影碟租借信息表中的信息進(jìn)行更新。圖7 租借信息更新窗口其各控件的代碼如下窗口open事件代碼：dw_1.settransobject(sqlca)dw_1.retrieve()“刪除” 按鈕代碼：long ll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messag

20、ebox("提示","你將要?jiǎng)h除紀(jì)錄，是否繼續(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 影碟歸還窗口的設(shè)計(jì) 根據(jù)需要，我們?cè)O(shè)計(jì)的影碟歸還窗口如圖8所示，輸入影碟名和顧客名后點(diǎn)擊查詢按鈕可以查找出該租借用戶租借該影碟的相關(guān)信息，點(diǎn)擊張數(shù)更新按鈕可以跳轉(zhuǎn)到對(duì)相應(yīng)的窗口對(duì)影碟信息表中該影碟張數(shù)進(jìn)行更新。 圖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("警告","請(qǐng)同時(shí)輸入影片名和顧客用戶名!")end ifsle_1.setfocus()sle_2.setfocus()“更新張數(shù)”按鈕代碼：open(w_return)“退出”按鈕代碼：close(parent)3.7 幫助窗口的設(shè)計(jì)幫助窗口（w_help）如圖7所示，它主要提供一些對(duì)本系統(tǒng)基本功能的介紹信息。 圖9 幫助窗口其“退出”按鈕的代碼：Close(parent)4 總結(jié)分工情況：需求分析：韋顯望概要分析：王炳文開發(fā)：饒玉泉總結(jié)：劉禮仙通過全體成員近一周的共同努力，我們小組順利完成影碟出租系統(tǒng)的開發(fā)。在系統(tǒng)的開發(fā)過程中，我們主要用到的工具是SQL Server 2000和PowerBuilder 9.0。該系統(tǒng)實(shí)現(xiàn)了前述兩種開發(fā)