音像管理系统

问题的提出
光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，刚不便于数据的汇总统计及各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！
 

[资料来源：http://www.THINK58.com]

1.2本文研究路线
    光盘管理是一个常见的问题,最主要的问题是对光盘和会员的管理不方便，例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。开发本软件的目的就是让管理者减少重复工作，提高信息管理的效率和准确度。它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！ think58.com

[版权所有：http://think58.com]

   第二章 光盘管理系统研究概述

copyright think58

[资料来源：http://THINK58.com]

2.1 光盘管理系统的发展历史
以前大多数管理者管理光盘的时候都是使用人工的方式来管理，一开始的时候大家都觉得没有问题，还都可以应付得过来。可是随着光盘的增多，经营业务也不断得增加，便使得经营者不得不雇越来越多的店员来管理这些事务，这样作得代价毫无疑问是成本的增加，这也是经营者最不愿意看到的情况。之后又出现了EXCEL作为数据库的管理系统，但其缺点很快就显示出来，那就是数据管理的不便与灵活性较差。随着软件的发展成熟，许多在OFFICE上开发的项目都成功移植到了软件上，这便使得项目的灵活性更大，用户更容易接受这种方式。
2.2 光盘管理系统系统发展现状
现在随着科技的发展，尤其是计算机的进步，给人们带来诸多的便利，而这样的发展却是经营者最愿意看到的，因为它可以代替那些店员来替他分担这些事务，它可以比那些店员更认真，更卖力，犯错率更低，而更要紧的是它替经营者降低了成本。 内容来自think58 [资料来源：www.THINK58.com]

2.3本文的目标及相关专业理论
本文的目标就是让经营光盘业务的管理者利用时下的科技技术，来更好的帮助自己解决管理上的问题。然而目前经营光盘出租或销售的软件这么多，质量也参差不齐，这反而却成为困绕管理者的最大的问题。所以我们开发的这套管理软件不仅包括了光盘的出租业务也包括光盘的销售业务，这样作的目的是为了更好的统一管理，业者也不用为了解决事务上的问题而去购买两套软件，从而降低了成本。
另一方面本软件采用VB编写，由于它和数据库有很好的融合性，便　它编出来的软件速度更快，数据更安全，业者可以更放心得使用。 think58好，好think58 [资料来源：http://THINK58.com]

第三章　光盘管理系统分析与设计
 
3.1 光盘管理系统功能需求简介
本软件的主要功能有：
8、 光盘的管理
9、 管理员的管理
10、 会员的管理
11、 系统配置
12、 锁机系统
13、 身份认证功能
14、 帮助功能

3.2功能需求描述
1、 光盘管理:主要是对光盘的基本操作，如添加，修改，删除、查询。
2、 管理员管理：对管理员操作有添加，修改，删除。
3、 会员管理：对会员操作有添加，修改，删除。
4、 系统配置：可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。
5、 锁机系统：这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。
6、 身份认证功能：可以阻止没有受权人非法试图登陆系统。
7、 帮助功能：使你可以更清楚的了解本系统。 本文来自think58

[资料来源：www.THINK58.com]

3.3目标系统要求
一台微机处理器为486、50MHz以上的微机；内存容量16MB以上；一个鼠标；硬盘的最小空间为15MB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器。 [资料来源：http://THINK58.com]

3.4系统平台选择
　　本系统适用于Windows9x/windows2000。 copyright think58 [资料来源：http://think58.com]

3.5数据库设计
 3.5.1数据词典分析
1、 管理员
1、 姓名  1{字符}10
2、 密码  1{字符}10
3、 销售总数  1{数字}8
4、 级别  1{字符}10
5、 解屏密码  1{字符}10
2、 客户
1、 客户姓名  1{字符}10
2、 客户号  1{数字}8
3、 电话  1{数字}8
4、 OICQ  1{数字}8
5、 Email  1{字符}10
3、 客户日志
1、 客户姓名  1{字符}10
2、 影片编号  1{数字}8
3、 借盘时期  1(日期/时间)
4、演员
1、 影片编号  1{数字}8
2、 演员  1{字符}10
5、影片格式
1、 影片格式  1{字符}10
6、影片类型
1、 影片类型  1{字符}10
7、影片语言
1、 影片语言  1{字符}10
8、 影片资料
1、 影片编号  1{数字}8
2、 影片名称  1{字符}10
3、 时间长度  1{数字}8
4、 导演      1{字符}10
5、 发行年度  1{字符}10
6、 影片介绍  1{字符}50 think58 [来源：http://think58.com]
7、 购买价格  1{数字}8
8、 出租价格  1{数字}8
9、 影片类型  1{字符}10
10、 影片格式  1{字符}10
11、 影片语言  1{字符}10
12、 总数      1{数字}8 [版权所有：http://think58.com]

3.5.2数据库介绍
　　本系统采用得是ACCESS2000为后台数据库。数据库名为CD.MDB,其中数据库包含得表为：管理员、客户、客户日志、演员、影片格式、影片类型、影片语言、影片资料、自定义.

copyright think58

[资料来源：www.THINK58.com]

[资料来源：http://www.THINK58.com]

第四章 光盘管理系统的功能实现 think58

该软件的开发环境是VB6.0+Windows98，采用得是ACCESS2000为后台数据库，从而使得系统更加安全，操作更加方便。第六章 结论及体会 think58好，好think58

   整个程序的编写已经完成，经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难，但经过反复的查阅资料和不断调试下，这些难题还是终究被克服了，比如数据库的加密、如何访问加密的数据库之类的，在这场实践中的调研、开发、调试，从中得到了开发的经验。虽然该系统还并不是很完美，有些功能因条件和自身能力的关系没有设计出来，比如打印之类的管理，所以使得我今后要不断学习更多的东西来完善它，使其真正成为功能完备的光盘管理系统。

内容来自think58 [资料来源：http://think58.com]

[资料来源：http://www.THINK58.com]

参考文献
软件工程原理、方法与应用         史济民 著            高等教育出版社
软件工程实验           陈明、王智广、赵鹏翔 著     高等教育出版社
VB程序设计基础             郎洪、段银田、陈勇孝 著     高等教育出版社
VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社 think58好，好think58

附录：
 1、光盘管理 cdm.frm
   Dim yn As New yn                 '定义yn为yn类 本文来自think58

[来源：http://www.think58.com]

Option Explicit copyright think58 [资料来源：www.THINK58.com]

Private Sub Combo1_Click()
  Me.PopupMenu list                  '弹出LIST菜单
End Sub think58

[资料来源：http://www.THINK58.com]

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
 
  If KeyCode = 13 Then                   '如果按回车键就添加一个记录
    Me.Combo1.AddItem Me.Combo1.Text
    Me.Combo1.SelStart = 0
    Me.Combo1.SelLength = Len(Me.Combo1.Text)
  End If
 
End Sub

think58

[来源：http://think58.com]

Private Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer)
 
  If KeyAscii = 13 Then            '如果按回车键就执行查询功能
    Call search_Click(0)
  End If 内容来自think58

End Sub [资料来源：http://THINK58.com]

Private Sub dele_Click()
 
     Me.Combo1.RemoveItem Me.Combo1.ListIndex      '单击后删除指定记录
 
End Sub think58

Private Sub delecd_Click()
   
  msg = "删除光盘"
  Me.TabStrip1.Tabs(4).Selected = True       '4被选中
  Dim a As String
  a = Me.MSHFlexGrid1.Text
  Me.MSHFlexGrid1.Row = 0
  Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col '- 1
  Me.comsel(0).Text = Me.MSHFlexGrid1.Text
  Me.txtselect(0).Text = a                 '赋值方便查询
 
  If Me.comsel(0).Text = "影片编号" Or Me.comsel(0).Text = "影片名称" Or Me.comsel(0).Text = "导演" Or Me.comsel(0).Text = "影片类型" Or Me.comsel(0).Text = "影片格式" Or Me.comsel(0).Text = "影片语言" Then
    db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & Me.txtselect(0).Text & "'"
    Call yn.opendb(db)
    If Not yn.myrec.EOF Then
      Call yn.myrec.Delete
      Call yn.myrec.Update 内容来自think58 [版权所有：http://think58.com]
      MsgBox "此光盘记录已成功删除！！！", vbInformation
      Call yn.closedb
     
      db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & Me.txtselect(0).Text & "'"
      Call yn.opendb(db)
      Set Me.MSHFlexGrid1.DataSource = yn.myrec
      Call yn.closedb
    Else
      Me.MSHFlexGrid1.Visible = False
      Me.Frame1.Visible = True
      Call yn.closedb
    End If
  Else
    db = "select * from 影片资料 where " & Me.comsel(0).Text & "=" & Me.txtselect(0).Text & ""
    Call yn.opendb(db)
    Call yn.myrec.Delete
    Call yn.myrec.Update
    MsgBox "此光盘记录已成功删除！！！", vbInformation think58

    Call yn.closedb
   
    db = "select * from 影片资料 where " & Me.comsel(0).Text & "=" & Me.txtselect(0).Text & ""
    Call yn.opendb(db)
    Set Me.MSHFlexGrid1.DataSource = yn.myrec
    Call yn.closedb
  End If
  think58 [来源：http://www.think58.com]

End Sub think58

Private Sub Form_Load()
  On Error Resume Next
  Me.Caption = Me.Caption & msg
  Select Case msg
   
    Case Is = "添加光盘"
      Me.TabStrip1.Tabs(2).Selected = True
      For i = 0 To 8
        Me.txtinfo(i).BackColor = vbWhite
      Next
      Me.Combo1.BackColor = vbWhite           '设置白色代表有效
      Me.Combo2.BackColor = vbWhite
      Me.Combo3.BackColor = vbWhite
      Me.Combo4.BackColor = vbWhite
      Me.txtselect(0).Visible = False
      Me.Labinfo(1).Visible = False
      Me.comsel(0).Visible = False
      Me.search(0).Visible = False

本文来自think58

      Me.Combo1.Clear
      Me.Combo2.Clear
      Me.Combo3.Clear
      Me.Combo4.Clear

      Call yn.opendb("select * from 影片类型")
      Do While yn.myrec.EOF = False
        Me.Combo2.AddItem yn.myrec.Fields("影片类型")
        yn.myrec.MoveNext
      Loop
      Call yn.closedb
      Call yn.opendb("select * from 影片格式")
      Do While yn.myrec.EOF = False
       Me.Combo3.AddItem yn.myrec.Fields("影片格式")
        yn.myrec.MoveNext
      Loop
      Call yn.closedb
       Call yn.opendb("select * from 影片语言")
      Do While yn.myrec.EOF = False
       Me.Combo4.AddItem yn.myrec.Fields("影片语言")
       yn.myrec.MoveNext 本文来自think58 [资料来源：THINK58.com]
      Loop
      Call yn.closedb
      Call yn.opendb("select * from 自定义")
      Me.txtinfo(6).Text = yn.myrec.Fields("购买价格")
      Me.txtinfo(5).Text = yn.myrec.Fields("出租价格")
      Call yn.closedb
     
    Case Is = "修改光盘"
      Me.txtselect(0).TabIndex = 0
      Me.comsel(0).TabIndex = 1

      Me.TabStrip1.Tabs(3).Selected = True
      For i = 0 To 8
        Me.txtinfo(i).BackColor = vbWhite
      Next
      Me.Combo1.BackColor = vbWhite              '设置白色代表有效
      Me.Combo2.BackColor = vbWhite
      Me.Combo3.BackColor = vbWhite
      Me.Combo4.BackColor = vbWhite
      Me.Combo1.Clear
      Me.Combo2.Clear
      Me.Combo3.Clear
      Me.Combo4.Clear 内容来自think58

[资料来源：http://THINK58.com]

      Call yn.opendb("select * from 影片类型")
      Do While yn.myrec.EOF = False
        Me.Combo2.AddItem yn.myrec.Fields("影片类型")
        yn.myrec.MoveNext
      Loop
      Call yn.closedb
      Call yn.opendb("select * from 影片格式")
      Do While yn.myrec.EOF = False
       Me.Combo3.AddItem yn.myrec.Fields("影片格式")
        yn.myrec.MoveNext
      Loop
      Call yn.closedb
       Call yn.opendb("select * from 影片语言")
      Do While yn.myrec.EOF = False
       Me.Combo4.AddItem yn.myrec.Fields("影片语言")
       yn.myrec.MoveNext 内容来自think58

[来源：http://www.think58.com]

      Loop
      Call yn.closedb
     
    
    Case Is = "光盘查询"
      Me.TabStrip1.Tabs(1).Selected = True
      Me.Combo1.Visible = False
      For i = 0 To 8
        Me.txtinfo(i).Locked = True
      Next
      Me.txtselect(0).TabIndex = 0
      Me.comsel(0).TabIndex = 1
     
    Case Is = "删除光盘"
      Me.TabStrip1.Tabs(4).Selected = True
      Me.txtselect(0).TabIndex = 0
      Me.comsel(0).TabIndex = 1
     
  End Select
 
End Sub [来源：http://think58.com]

Private Sub modicd_Click()
 
  On Error Resume Next            '忽略错误
  msg = "修改光盘"
  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.txtselect(0).Text) & "'"
  Call yn.opendb(db)
  cdm.txtinfo(0).Text = yn.myrec.Fields("影片编号")
  cdm.txtinfo(1).Text = yn.myrec.Fields("影片名称")
  cdm.txtinfo(4).Text = yn.myrec.Fields("时间长度")
  cdm.txtinfo(2).Text = yn.myrec.Fields("导演")
  cdm.txtinfo(3).Text = yn.myrec.Fields("发行年度")
  cdm.txtinfo(8).Text = yn.myrec.Fields("影片介绍")
  cdm.txtinfo(6).Text = yn.myrec.Fields("购买价格")
  cdm.Combo2.Text = yn.myrec.Fields("影片类型") think58

  cdm.Combo4.Text = yn.myrec.Fields("影片语言")
  cdm.Combo3.Text = yn.myrec.Fields("影片格式")
  cdm.txtinfo(7).Text = yn.myrec.Fields("总数")
  cdm.txtinfo(5).Text = yn.myrec.Fields("出租价格")
  Call yn.closedb
  Call yn.opendb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'")

think58 [资料来源：http://THINK58.com]

[资料来源：www.THINK58.com]