【導(dǎo)讀】管理學(xué)院信管0301班學(xué)生覃秋園畢業(yè)設(shè)計(jì)第1頁(yè)共29頁(yè)。濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙

　　

【正文】 歸還 （ 1）按會(huì)員編號(hào)歸還 用 load語(yǔ)句將會(huì)員目前在借的影碟編號(hào)、片名羅列到窗體上，以復(fù)選框控件的形式出現(xiàn)。下面是核心代碼 (rs為會(huì)員目前在借影碟的數(shù)據(jù)集 )。會(huì)員歸還界面見(jiàn)圖 。 all = = True Label2 = rs!會(huì)員編號(hào) amp。 amp。 rs!姓名 amp。 待還影碟： For i = 1 To all Load Check1(i) Check1(i).Top = Check1(i 1).Top + 300 Check1(i).Visible = True Check1(i).Caption = rs!影碟編號(hào) amp。 amp。 rs!片名 didLoad = True If Then : Exit For Next 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 21頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 按會(huì)員歸還窗體界面 勾選復(fù)選框，點(diǎn)擊 “歸還 ”，則系 統(tǒng)進(jìn)行數(shù)據(jù)庫(kù)的修改工作。 （ 2） 按影碟編號(hào)歸還 適用： ，無(wú)法及時(shí)操作電腦，又有很多歸還影碟囤積 在文本框 Text1內(nèi)輸入影碟編號(hào)，轉(zhuǎn)移焦點(diǎn)時(shí)觸發(fā)文本框的 validate 事件，系統(tǒng)判斷所輸入內(nèi)容是否有效，以及讀取數(shù)據(jù)庫(kù) “租借記錄 ”表內(nèi)的相關(guān)信息。運(yùn)行界面如下圖 ： 圖 按影碟歸還窗體界面 文本框 Validate 事件代碼： Private Sub Text1_Validate(Index As Integer, Cancel As Boolean) For i = 0 To 5 If Text1(i) = Then Exit For 影碟編號(hào) =39。 amp。 Text1(i) amp。 39。 If Then 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 22頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 MsgBox 租借記錄中沒(méi)有此編號(hào)的影碟 ! amp。 vbCrLf amp。 請(qǐng)檢查所輸入的影碟編號(hào) !, vbCritical, 出錯(cuò)提示 Text1(i) = Text1(i).SetFocus Cancel = True Else Label3(i) = rs2!片名 Label5(i) = rs2!會(huì)員編號(hào) amp。 Space(2) amp。 rs2!姓名 If Not IsNull(rs2!歸還日期 ) Then MsgBox rs2!影碟編號(hào) amp。 rs2!片名 amp。 已于 amp。 rs2!歸還日期 amp。 歸還 ! amp。 vbCrLf amp。 請(qǐng)檢查影碟編號(hào) !, vbCritical, 出錯(cuò)提示 Text1(i).SetFocus Text1(i).SelStart = 0 Text1(i).SelLength = Len(Text1(i)) Cancel = True End If End If Next End Sub 會(huì)員管理模塊 新會(huì)員注冊(cè) 添加 Data 控件來(lái)連接數(shù)據(jù)庫(kù)，用 AddNew、 update 方法實(shí)現(xiàn)數(shù)據(jù)的增加，同時(shí)用BeginTrans、 CommitTrans、 Rollback語(yǔ)句增強(qiáng)安全性。初始化窗體的時(shí)候，系統(tǒng)自動(dòng)填充某些字段，以方便操作者，并能降低出 錯(cuò)率。 會(huì)員資料 界面、代碼都和 “影碟資料 ”類似，在此將不再贅述。 會(huì)員租借記錄 顯示會(huì)員自入會(huì)以來(lái)所租借過(guò)的所有影碟，存檔備用。還可以查看全部租借記錄。使用 Adodc、 MSHFlexGrid控件。圖 ： 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 23頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 會(huì)員租借記錄窗體界面 “確定 ”按鈕事件代碼如下，將查詢條件賦值給 sql 變量，再以 sql 變量作為 Adodc1 的數(shù)據(jù)源。 Private Sub Command1_Click() If = True Then sql = select * from 租借記錄 where 會(huì)員編號(hào) = amp。 amp。 order by 租借日期 會(huì)員編號(hào) = amp。 Else sql = select * from 租借記錄 where 姓名 =39。 amp。 amp。 39。 amp。 order by 租借日期 姓名 =39。 amp。 amp。 39。 End If = sql Label1 = (0) amp。 Space(2) amp。 (1) amp。 的租借記錄 (2) = 0 (3) = 0 Label2 = 限租 : amp。 (2) amp。 Space(2) amp。 已租 : amp。 (3) = True = True End Sub 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 24頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 散客結(jié)賬 在 “散客 ”表讀取散客的押金，從 “租借記錄 ”表讀取此散客歸還情況，若符合條件，則計(jì)費(fèi)結(jié)賬。用布爾型變量 leave來(lái)判斷是否可以結(jié)帳。以下為核心語(yǔ)句，圖 界面。 Dim leave As Boolean = select * from 租借記錄 where 會(huì)員編號(hào) =0 and 姓名 =39。 amp。 amp。 39。 Do Until If IsNull((“歸還日期 ”)) Then leave = False Exit Do Else leave = True end if Loop 判斷此散客是否已經(jīng)歸還所有在借的影碟，這是結(jié)賬的前提。用 Select case 語(yǔ)句作判斷 leave的值，變量 onedisk作為一個(gè)影碟所需租金，并累加到總租金 rate中。核心語(yǔ)句： Select Case leave Case False = False Label2 = 歸還以下影碟后才能結(jié)帳！ Do Until If IsNull((5)) Then Label1 = Label1 amp。 (0) amp。 Space(1) amp。 (1) amp。 vbCrLf Loop Case True Label2 = rate = 0 Do Until oneDisk = CDate((5)) CDate((4)) If oneDisk = 0 Then oneDisk = 1 rate = rate + oneDisk …… End Select 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 25頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 散客結(jié)帳窗體界面 點(diǎn)擊 “找補(bǔ) ”按鈕，則此散客在 “散客 ”表上的信息被刪除。 業(yè)務(wù)統(tǒng)計(jì)模塊 熱門影碟 使用 MSChart和 Adodc控件。 Adodc控件的 RecordSource 屬性為 SQL文本 “select 片名 ,sum(租借次數(shù) ) as 借出次數(shù) from 影碟資料 group by 片名 order by sum(租借次數(shù) ) desc”，這樣數(shù)據(jù)能按從大到小的順序排列。運(yùn)行界面如下圖 ： 參考文獻(xiàn) ......................................................................................................... 錯(cuò)誤 !未定義書簽。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 26頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 熱門影碟窗體界面 業(yè)務(wù)情況 實(shí)現(xiàn)方法與 “熱門影碟 ”相同，界面也相似。 整體界面 圖 EasyVideo 影碟出租管理系統(tǒng)主界面 如上圖 ，整體界面以傳統(tǒng)的柔和的灰色為色彩基調(diào)。上方是菜單欄，左側(cè)是常用功能快捷按鈕，當(dāng)然，也可以下拉對(duì)應(yīng)的菜單欄進(jìn)入相應(yīng)的模塊窗體界面。下方是狀態(tài)欄，顯示軟件名稱、軟件版本、作者、當(dāng)前系統(tǒng)日期及星期。 進(jìn)入 EasyVideo 影碟出租管理系統(tǒng)是首先出現(xiàn)登陸界面，用戶名稱默認(rèn)為 Admin，初始密碼為 123，可以在 “管理員 ”菜單里更改密碼，輸入正確密碼后方可激活主窗體，使用此系統(tǒng)。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 27頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 5 總結(jié)與展望 經(jīng)過(guò)半個(gè)多月廢寢忘食地構(gòu)思、編程、調(diào)試、完善， EasyVideo影碟出租管理系統(tǒng) 版終于出爐。 總體上來(lái)說(shuō)，這個(gè) EasyVideo 影碟出租管理系統(tǒng)功能比較完善，能應(yīng)付影碟出租管理日常使用需求。界面設(shè)計(jì)得相當(dāng)簡(jiǎn)單，操作也很簡(jiǎn)便，易用性很強(qiáng)。但這個(gè) 版本屬于單機(jī)版，若出租店鋪比較大，有分店的話，就需要網(wǎng)絡(luò)技術(shù)支持了。如果每張影碟都貼上條形碼，登記借出、歸還時(shí)掃描條形碼，將免去輸入影碟編號(hào)這一步驟，操作將更加簡(jiǎn)便！ 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 28頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 謝辭 感謝溫秀紅老師，她豐富的學(xué)識(shí)和超凡的個(gè)人魅力給了我很 大的影響。 感謝劉鵬老師，他細(xì)心的指導(dǎo)與鼓勵(lì)，使我信心百倍地高效完成這個(gè)畢業(yè)設(shè)計(jì)。 感謝我的朋友劉平，在校園網(wǎng)實(shí)在無(wú)法滿足我的需要的時(shí)候，通過(guò)遠(yuǎn)程連接他機(jī)器，使我保證了工作效率。 感謝我的朋友雷劍，他在我無(wú)助的時(shí)候給予我力量與支持，讓我感到并不是自己一個(gè)人。這種溫暖的感覺(jué)，無(wú)以言表，只有自己心里最清楚。 感謝 Sobranie Pinks，她在我思路堵塞、憂愁煩悶的時(shí)候陪我一起思考，使本設(shè)計(jì)完成得比預(yù)想中更早、更順利。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 29頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 參考 文獻(xiàn) [1] Wayne Freeze ． Visual Basic 數(shù)據(jù)庫(kù)編程寶典 [M]．北京 :電子工業(yè)出版社 ,20xx． [2] 溫賢發(fā)． Visual Basic 6 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手 [M]．北京 :科學(xué)出版社 ,20xx． [3] Noel Jerke ． Visual Basic 6 參考大全 [M]．北京 :希望電子出版社 ,1999． [4] 王珊．?dāng)?shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)明教程 [M]．北京 :高度教育出版社 ,20xx． [5] 劉炳文． Visual Basic 程序設(shè)計(jì)教程（第二版） [M]．北京 :清華大學(xué)出版社 ,20xx． [6] 朱永春 ,尹顯?。?Access20xx 中文版實(shí)例與疑難解答 [M]．北京 :電子工業(yè)出版社 ,20xx． [7] Philip ． A guide to SQL[M]．北京 :中國(guó)鐵道出版社 ,20xx． [8] 蘇格蘭學(xué)歷管理委員會(huì)（ SQA）． Systems Development Relational Database Systems:Advanced[M]．沈陽(yáng) :中國(guó)時(shí)代經(jīng)濟(jì)出版社 ,20xx． [9] Louis Davidson． SQL Server 20xx 數(shù)據(jù)庫(kù)設(shè)計(jì)權(quán)威指南 [M]北京 :中國(guó)電力出版社 ,20xx． [10]王進(jìn)強(qiáng)． Visual 基礎(chǔ)教程 ,黑魔方系列叢書 [M]．北京 :清華大學(xué)出版社． 20xx． [11]方晨． Photoshop CS操作技巧 149例．上海 :科學(xué)普及出版社 ,20xx． [12]求是科技． Visual Basic 程序設(shè)計(jì)與開發(fā)技術(shù)大全．北京 :人民郵電出版社 ,20xx． [13]甘仞初．信息系統(tǒng)分析與設(shè)計(jì) [M]．北京 :高等教育出版社． 20xx． [14]Hal ． The Information Economy[D]． Scientific American,1996． [15] Hal ． Circulating Libraries and Video Rental Stores[D]． The USA: