光盤管理系統(tǒng)計(jì)算機(jī)信息管理論文

1、 . 省仙桃市廣播電視大學(xué)06屆計(jì)算機(jī)信息管理專業(yè)畢業(yè)論文題目：光盤管理系統(tǒng)姓 名: 鄧 明 專 業(yè): 計(jì)算機(jī)信息管理 學(xué) 號(hào): 063150126 指導(dǎo)老師: 樊老師 摘要：光盤管理系統(tǒng)是用VB6.0開發(fā)出來用于管理光盤的出租和出售的MIS系統(tǒng)。該系統(tǒng)用于光盤出租或銷售店，方便出售光盤、租盤、還盤、查找等操作,是出租光盤店的最佳助手?？梢宰远x光盤，方便添加新盤、管理光盤。提供完善的租盤和還盤操作，完全獨(dú)立的數(shù)據(jù)庫(kù)系統(tǒng)，數(shù)據(jù)管理為您提供：光盤管理系統(tǒng)，數(shù)據(jù)查詢?yōu)槟峁鹤饨枨闆r，光盤查詢。本系統(tǒng)具有安全的數(shù)據(jù)庫(kù)備份方案，簡(jiǎn)單易用，仿WINDOWS操作方式，可以使您很快上手，根據(jù)需要自行設(shè)置光

2、盤類別和相應(yīng)的借出時(shí)間、借出冊(cè)數(shù)。目 錄摘要1一、系統(tǒng)需求分析4二、光盤管理系統(tǒng)分析與設(shè)計(jì)51、功能分析62、系統(tǒng)硬件，軟件要求6三、數(shù)據(jù)庫(kù)設(shè)計(jì)7四、系統(tǒng)功能模塊實(shí)現(xiàn)101、光盤管理模塊102、管理員管理模塊263、系統(tǒng)配置32結(jié)束語 35參考文獻(xiàn) 35一、系統(tǒng)需求分析光盤出租與銷售的管理是一個(gè)常見的問題，其特點(diǎn)是數(shù)據(jù)之間的關(guān)系簡(jiǎn)單，但數(shù)據(jù)量較大。若用人工進(jìn)行管理，不便于數(shù)據(jù)的匯總統(tǒng)計(jì)與各種數(shù)據(jù)分析。例如，若每天有有1000條記錄，則要進(jìn)行1000次加法才能計(jì)算出每天的租金總額，當(dāng)然要進(jìn)行每個(gè)月的統(tǒng)計(jì)工作就更復(fù)雜了。此時(shí)這對(duì)于光盤的管理就更難了。例如，要查看哪些光盤是客戶、最喜歡看的，哪些光盤

3、被損壞，哪些光盤超期未還等，這些問題用人工管理方式是難以解決的。所以本軟件就是為了解決這個(gè)問題而開發(fā)的，它能方便得進(jìn)行各種管理事務(wù)，能自動(dòng)計(jì)算押金、租金，界面設(shè)計(jì)大方、簡(jiǎn)潔、實(shí)用；操作簡(jiǎn)單方便。讓你擺脫繁重混亂的手工時(shí)代，進(jìn)入科學(xué)高效的信息管理世界二、光盤管理系統(tǒng)分析與設(shè)計(jì)1、光盤管理系統(tǒng)應(yīng)該具有如下功能：光盤管理:主要是對(duì)光盤的基本操作，如添加，修改，刪除、查詢。管理員管理：對(duì)管理員操作有添加，修改，刪除。系統(tǒng)配置：可以預(yù)設(shè)置光盤的類型等資料，同時(shí)可以備份和恢復(fù)數(shù)據(jù)庫(kù)，使其更安全。鎖機(jī)系統(tǒng)：這個(gè)功能可以便管理員暫時(shí)離開電腦，而其數(shù)據(jù)不被其它人更改。身份認(rèn)證功能：可以阻止沒有受權(quán)人非法試圖登陸

4、系統(tǒng)。幫助功能：使你可以更清楚的了解本系統(tǒng)。綜合以上分析該系統(tǒng)的功能結(jié)構(gòu)圖如下：身份驗(yàn)證驗(yàn)證通過YN退出主界面光盤管理管理員管理幫助系統(tǒng)配置2、系統(tǒng)硬件要求一臺(tái)微機(jī)處理器為600、800MHz以上的微機(jī)；存容量64MB以上；一個(gè)鼠標(biāo)；硬盤的最小空間為2GB，用戶自定義安裝需要100MB硬盤空間；推薦使用VGA或更高分辨率的顯示器，適用于Windows 9x/windows 2000/windows xp三、數(shù)據(jù)庫(kù)設(shè)計(jì)該系統(tǒng)是典型的數(shù)據(jù)庫(kù)系統(tǒng)，應(yīng)定義如下數(shù)據(jù)表：1、管理員字段名類型長(zhǎng)度1、1字符102、密碼1字符103、銷售總數(shù)1數(shù)字84、級(jí)別1字符105、解屏密碼1字符102、客戶字段名類型長(zhǎng)

5、度1、客戶1字符102、客戶號(hào)1數(shù)字83、1數(shù)字84、OICQ1數(shù)字85、Email1字符103、客戶日志字段名類型長(zhǎng)度1、客戶1字符102、影片編號(hào)1數(shù)字83、借盤時(shí)期1(日期/時(shí)間)4、演員字段名類型長(zhǎng)度1、影片編號(hào)1數(shù)字82、演員1字符105、影片格式字段名類型長(zhǎng)度1、影片格式1字符106、影片類型字段名類型長(zhǎng)度1、影片類型1字符107、影片語言字段名類型長(zhǎng)度1、影片語言1字符108、影片資料字段名類型長(zhǎng)度1、影片編號(hào)1數(shù)字82、影片名稱1字符103、時(shí)間長(zhǎng)度1數(shù)字84、導(dǎo)演1字符105、發(fā)行年度1字符106、影片介紹1字符507、購(gòu)買價(jià)格1數(shù)字88、出租價(jià)格1數(shù)字89、影片類型1字符1

6、010、影片格式1字符1011、影片語言1字符1012、總數(shù)1數(shù)字8四、系統(tǒng)功能模塊實(shí)現(xiàn)：1、光盤管理模塊：、添加模塊功能：能方便得添加光盤，其中采用了預(yù)設(shè)方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下：Case Is = 2 msg = "添加光盤" Me.Caption = " 光盤管理-" & msg Me sel(0).Visible = False Me.txtselect(0).Visible = False Me.Labinfo(1).Visible = False Me.search(0).Visible

7、 = False Me bo1.Visible = True Me.lstinfo.Visible = False Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = False Next Me bo1.Text = "" Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = "&

8、quot; Me bo1.Clear Me bo2.Clear Me bo3.Clear Me bo4.Clear Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = vbWhite Next Me bo1.BackColor = vbWhite Me bo2.BackColor = vbWhite Me bo3.BackColor = vbWhite Me bo4.BackColor = vbWhite Call yn.opendb("select * from 影片類型") Do While yn.myre

9、c.EOF = False Me bo2.AddItem yn.myrec.Fields("影片類型") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from 影片格式") Do While yn.myrec.EOF = False Me bo3.AddItem yn.myrec.Fields("影片格式") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from

10、影片語言") Do While yn.myrec.EOF = False Me bo4.AddItem yn.myrec.Fields("影片語言") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from 自定義") Me.txtinfo(6).Text = yn.myrec.Fields("購(gòu)買價(jià)格") Me.txtinfo(5).Text = yn.myrec.Fields("出租價(jià)格") Call yn.closedb

11、修改光盤功能：完成了修改功能，同樣也采用了預(yù)設(shè)得方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下：Case Is = 3 msg = "修改光盤" Me.Caption = " 光盤管理-" & msg Me sel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = True Me bo1.Visible = True Me.lstinfo.Visible = False

12、Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = False Next Me bo1.Text = "" Me bo1.Clear Me bo2.Clear Me bo3.Clear Me bo4.Clear Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = ""

13、Me sel(0).Text = "" Me.txtselect(0).Text = "" Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = vbWhite Me.txtinfo(i).Locked = False Next Me bo1.BackColor = vbWhite Me bo2.BackColor = vbWhite Me bo3.BackColor = vbWhite Me bo4.BackColor = vbWhite Call yn.opendb("selec

14、t * from 影片類型") Do While yn.myrec.EOF = False Me bo2.AddItem yn.myrec.Fields("影片類型") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from 影片格式") Do While yn.myrec.EOF = False Me bo3.AddItem yn.myrec.Fields("影片格式") yn.myrec.MoveNextLoop Call yn.closed

15、b Call yn.opendb("select * from 影片語言") Do While yn.myrec.EOF = False Me bo4.AddItem yn.myrec.Fields("影片語言") yn.myrec.MoveNextLoop Call yn.closedb刪除光盤功能：完成了刪除光盤功能，其設(shè)置資料為不可選方便了用戶。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下Case Is = 4 msg = "刪除光盤" Me.Caption = " 光盤管理-" &am

16、p; msg Me sel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = True Me bo1.Visible = False Me.lstinfo.Visible = True Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = Tr

17、ue Next Me bo1.Text = "" Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = "" Me sel(0).Text = "" Me.txtselect(0).Text = "" Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = &H80000004 Next Me bo1.BackColor = &H80000004 Me bo2

18、.BackColor = &H80000004 Me bo3.BackColor = &H80000004 Me bo4.BackColor = &H80000004 End Select查詢光盤功能：完成了查詢光盤功能，并設(shè)置了多項(xiàng)查詢條件的選擇。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下： Case Is = "光盤查詢" Me.TabStrip1.Tabs(1).Selected = True Me bo1.Visible = False For i = 0 To 8 Me.txtinfo(i).Locked = Tru

19、e Next Me.txtselect(0).TabIndex = 0 Me sel(0).TabIndex = 1 Case Is = "刪除光盤" Me.TabStrip1.Tabs(4).Selected = True Me.txtselect(0).TabIndex = 0 Me sel(0).TabIndex = 1 End SelectPrivate Sub selec() '=查詢過程 On Error Resume Next If Me sel(0).Text = "影片編號(hào)" Or Me sel(0).Text = "

20、影片名稱" Then Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True db = "select * from 影片資料 where " & Me sel(0).Text & "='" & Me.txtselect(0).Text & "'" Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "無此盤！", vbQuestion Else cdm.tx

21、tinfo(0).Text = yn.myrec.Fields("影片編號(hào)") cdm.txtinfo(1).Text = yn.myrec.Fields("影片名稱") cdm.txtinfo(4).Text = yn.myrec.Fields("時(shí)間長(zhǎng)度") cdm.txtinfo(2).Text = yn.myrec.Fields("導(dǎo)演") cdm.txtinfo(3).Text = yn.myrec.Fields("發(fā)行年度") cdm.txtinfo(8).Text = yn.myr

22、ec.Fields("影片介紹") cdm.txtinfo(6).Text = yn.myrec.Fields("購(gòu)買價(jià)格") cdm bo2.Text = yn.myrec.Fields("影片類型") cdm bo4.Text = yn.myrec.Fields("影片語言") cdm bo3.Text = yn.myrec.Fields("影片格式") cdm.txtinfo(7).Text = yn.myrec.Fields("總數(shù)") cdm.txtinfo(5).

23、Text = yn.myrec.Fields("出租價(jià)格") Call yn.closedb Call yn.opendb("select * from 演員 where 影片編號(hào)='" & Me.txtinfo(0).Text & "'") Do While Not yn.myrec.EOF Me.lstinfo.AddItem yn.myrec.Fields("演員").Value yn.myrec.MoveNextLoop Call yn.closedb Call yn.ope

24、ndb("select * from 演員 where 影片編號(hào)='" & Me.txtinfo(0).Text & "'") Do While Not yn.myrec.EOF Me bo1.AddItem yn.myrec.Fields("演員").Value yn.myrec.MoveNextLoop End If Call yn.closedb ElseIf Me sel(0).Text = "導(dǎo)演" Or Me sel(0).Text = "影片類型"

25、Or Me sel(0).Text = "影片格式" Or Me sel(0).Text = "影片語言" Then db = "select * from 影片資料 where " & Me sel(0).Text & "='" & VBA.LCase(Me.txtselect(0).Text) & "'" Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "無此盤！", vbQue

26、stion Call yn.closedb Else Me.Frame1.Visible = False Me.MSHFlexGrid1.Visible = True Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb End If Else If VBA.IsNumeric(Me.txtselect(0).Text) = True Then db = "select * from 影片資料 where " & Me sel(0).Text & "=" & Me.tx

27、tselect(0).Text Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "無此盤！", vbQuestion Call yn.closedb Else Me.Frame1.Visible = False Me.MSHFlexGrid1.Visible = True Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb End If Else MsgBox "請(qǐng)輸入數(shù)字！", vbInformation End If End IfEnd Su

28、bPrivate Sub txtselect_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Call search_Click(0) End IfEnd Sub2、main.frm Dim yn As New ynOption ExplicitPrivate Sub aboutmenu_Click()load.Show vbModalEnd SubEnd SubPrivate Sub modicd_Click() On Error Resume Next '忽略錯(cuò)誤 msg = "修

29、改光盤" Me.TabStrip1.Tabs(3).Selected = True Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.RowSel '確定查詢條件 Me.MSHFlexGrid1.Col = 1 Me.txtselect(0).Text = Me.MSHFlexGrid1.Text Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True db = "select * from 影片資料 where 影片名稱='" & Trim(Me.txts

30、elect(0).Text) & "'" Call yn.opendb(db) cdm.txtinfo(0).Text = yn.myrec.Fields("影片編號(hào)") cdm.txtinfo(1).Text = yn.myrec.Fields("影片名稱") cdm.txtinfo(4).Text = yn.myrec.Fields("時(shí)間長(zhǎng)度") cdm.txtinfo(2).Text = yn.myrec.Fields("導(dǎo)演") cdm.txtinfo(3).Text

31、= yn.myrec.Fields("發(fā)行年度") cdm.txtinfo(8).Text = yn.myrec.Fields("影片介紹") cdm.txtinfo(6).Text = yn.myrec.Fields("購(gòu)買價(jià)格") cdm bo2.Text = yn.myrec.Fields("影片類型") cdm bo4.Text = yn.myrec.Fields("影片語言") cdm bo3.Text = yn.myrec.Fields("影片格式") cdm.t

32、xtinfo(7).Text = yn.myrec.Fields("總數(shù)") cdm.txtinfo(5).Text = yn.myrec.Fields("出租價(jià)格") Call yn.closedb Call yn.opendb("select * from 演員 where 影片編號(hào)='" & Me.txtinfo(0).Text & "'") Do While Not yn.myrec.EOF Me bo1.AddItem yn.myrec.Fields("演員&qu

33、ot;).Value yn.myrec.MoveNextLoop Call yn.closedbEnd SubPrivate Sub MSHFlexGrid1_Click() Me.PopupMenu modimsf '彈出修改菜單4.2管理員管理1、添加管理員功能：完成添加管理員功能, 采用了預(yù)設(shè)得方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下： Case Is = "添加管理員" If Me.Text1(0).Text <> "" And Me.Text1(1).Text <> "&

34、quot; And Me bo1.Text <> "" And Me.Text1(3).Text <> "" Then Call yn.opendb("select * from 管理員 where 名字='" & Me.Text1(0).Text & "'") '查詢條件在數(shù)據(jù)庫(kù)中 If yn.myrec.EOF Then Call yn.myrec.AddNew ' 添加 yn.myrec.Fields("名字") =

35、Me.Text1(0).Text yn.myrec.Fields("密碼") = Me.Text1(1).Text yn.myrec.Fields("級(jí)別") = Me bo1.Text yn.myrec.Fields("解屏密碼") = Me.Text1(3).Text Call yn.myrec.Update '更新 Call yn.closedb '關(guān)閉 MsgBox "添加成功！", vbInformation Me.Text1(0).Text = "" Me.Text1

36、(1).Text = "" Me bo1.Text = "" Me.Text1(3).Text = "" Else MsgBox "已經(jīng)有此管理員！", vbInformation Call yn.closedb End If Else MsgBox "請(qǐng)輸入完整！", vbInformation End If2、修改管理員功能：完成修改管理員功能，采用了預(yù)設(shè)得方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下：Case Is = "修改管理員" Cal

37、l yn.opendb("select * from 管理員 where 名字='" & Me.txtselect(0).Text & "'") If Not yn.myrec.EOF Then yn.myrec.Fields("名字") = Me.Text1(0).Text yn.myrec.Fields("密碼") = Me.Text1(1).Text yn.myrec.Fields("級(jí)別") = Me bo1.Text yn.myrec.Fields(&q

38、uot;解屏密碼") = Me.Text1(3).Text Call yn.myrec.Update Call yn.closedb MsgBox "修改成功！", vbInformation End If3、刪除管理員功能：完成刪除管理員功能，采用了預(yù)設(shè)得方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下： Case Is = "刪除管理員" Call yn.opendb("select * from 管理員 where 名字='" & Me.txtselect(0).Text &am

39、p; "'") If Not yn.myrec.EOF Then Me.Text1(0).Text = yn.myrec.Fields("名字") Me.Text1(1).Text = yn.myrec.Fields("密碼") Me bo1.Text = yn.myrec.Fields("級(jí)別") Me.Text1(3).Text = yn.myrec.Fields("解屏密碼") Call yn.myrec.Delete '刪除 Call yn.myrec.Update &#

40、39;更新 Call yn.closedb '關(guān)閉 MsgBox "刪除成功！", vbInformation Me.Text1(0).Text = "" Me.Text1(1).Text = "" Me bo1.Text = "" Me.Text1(3).Text = "" End If End SelectEnd Sub Case Is = "管理員查詢" Private Sub search_Click(Index As Integer) Call yn.ope

41、ndb("select * from 管理員 where 名字='" & Me.txtselect(0).Text & "'") If Not yn.myrec.EOF Then Me.Text1(0).Text = yn.myrec.Fields("名字") Me.Text1(1).Text = yn.myrec.Fields("密碼") Me bo1.Text = yn.myrec.Fields("級(jí)別") Me.Text1(3).Text = yn.myre

42、c.Fields("解屏密碼") Call yn.closedb Else MsgBox "沒有此管理員！", vbInformation Call yn.closedb End If4.3系統(tǒng)配置 功能：查詢光盤功能, 采用了預(yù)設(shè)得方式。輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。輸出項(xiàng)目：無。界面如圖所示：功能代碼如下：Private Sub modicd_Click() On Error Resume Next msg = "設(shè)置基本數(shù)據(jù)" Me.TabStrip1.Tabs(3).Selected = True Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.RowSel Me.MSHFlexGrid1.Col = 1 Me.txtselect(0).Text = Me.MSHFlexGrid1.Text Me.MSHFlexGrid1.Visibl