计算机信息管理论文Word下载.doc

1、3、系统配置32结束语 35参考文献 35一、系统需求分析光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，不便于数据的汇总统计及各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是客户、最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，能自动计算押金、租金，界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的

2、手工时代，进入科学高效的信息管理世界 二、光盘管理系统分析与设计1、光盘管理系统应该具有如下功能：光盘管理:主要是对光盘的基本操作，如添加，修改，删除、查询。管理员管理：对管理员操作有添加，修改，删除。系统配置：可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。锁机系统：这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。身份认证功能：可以阻止没有受权人非法试图登陆系统。帮助功能：使你可以更清楚的了解本系统。综合以上分析该系统的功能结构图如下：身份验证验证通过YN退出主界面光盘管理管理员管理帮助系统配置2、系统硬件要求一台微机处理器为600、800MHz以上的微机；内存容

3、量64MB以上；一个鼠标；硬盘的最小空间为2GB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器，适用于Windows 9x/windows 2000/windows xp三、数据库设计该系统是典型的数据库系统，应定义如下数据表：1、管理员字段名类型长度1、姓名1字符102、密码3、销售总数1数字84、级别5、解屏密码2、客户1、客户姓名2、客户号3、电话4、OICQ5、Email3、客户日志2、影片编号3、借盘时期1（日期/时间）4、演员1、影片编号2、演员5、影片格式1、影片格式6、影片类型1、影片类型7、影片语言1、影片语言8、影片资料2、影片名称3、时间长度4

4、、导演5、发行年度6、影片介绍507、购买价格8、出租价格9、影片类型10、影片格式11、影片语言12、总数四、系统功能模块实现：1、光盘管理模块：、添加模块功能：能方便得添加光盘，其中采用了预设方式。 输入项目：鼠标或键盘事件。 输出项目：无。 界面如图所示：功能代码如下：Case Is = 2 msg = 添加光盘 Me.Caption = 光盘管理- & msg Msel（0）.Visible = False Me.txtselect（0）.Visible = False Me.Labinfo（1）.Visible = False Me.search（0）.Visible = False

5、 Me.Combo1.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.Combo1.Text = Me.Combo2.Text = Me.Combo3.Text = Me.Combo4.Text = Me.Combo1.Clear Me.Combo2.Clear Me.Combo3.Clear Me.C

6、ombo4.Clear Me.lstinfo.Clear Me.txtinfo（i）.BackColor = vbWhite Me.Combo1.BackColor = vbWhite Me.Combo2.BackColor = vbWhite Me.Combo3.BackColor = vbWhite Me.Combo4.BackColor = vbWhite Call yn.opendb（select * from 影片类型） Do While yn.myrec.EOF = False Me.Combo2.AddItem yn.myrec.Fields（影片类型 yn.myrec.Move

7、Next Loop Call yn.closedbselect * from 影片格式 Me.Combo3.AddItem yn.myrec.Fields（影片格式 Call yn.opendb（select * from 影片语言 Me.Combo4.AddItem yn.myrec.Fields（影片语言 yn.myrec.MoveNextselect * from 自定义 Me.txtinfo（6）.Text = yn.myrec.Fields（购买价格 Me.txtinfo（5）.Text = yn.myrec.Fields（出租价格修改光盘完成了修改功能，同样也采用了预设得方式。界面

8、如图所示： Case Is = 3修改光盘 Msel（0）.Visible = True Me.txtselect（0）.Visible = True Me.Labinfo（1）.Visible = True Me.search（0）.Visible = True Msel（0）.Text = Me.txtselect（0）.Text = Me.txtinfo（i）.Locked = False删除光盘完成了删除光盘功能，其设置资料为不可选方便了用户。 界面如图所示：功能代码如下Case Is = 4删除光盘 Me.Combo1.Visible = False Me.lstinfo.Visib

9、le = True Me.txtinfo（i）.Locked = True Me.txtinfo（i）.BackColor = &H80000004 Me.Combo1.BackColor = & Me.Combo2.BackColor = & Me.Combo3.BackColor = & Me.Combo4.BackColor = & End Select查询光盘完成了查询光盘功能，并设置了多项查询条件的选择。 Case Is = 光盘查询 Me.TabStrip1.Tabs（1）.Selected = True Me.txtinfo（i）.Locked = True Me.txtsele

10、ct（0）.TabIndex = 0 Msel（0）.TabIndex = 1 Case Is = Me.TabStrip1.Tabs（4）.Selected = TruePrivate Sub selec（） =查询过程 On Error Resume Next If Msel（0）.Text = 影片编号 Or Msel（0）.Text = 影片名称 Then Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True db = select * from 影片资料 where Msel（0）.Text & = Me.txtselect

11、（0）.Text & Call yn.opendb（db） If yn.myrec.EOF Then MsgBox 无此盘！, vbQuestion Else 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）.

12、Text = yn.myrec.Fields（影片介绍 cdm.txtinfo（6）.Text = yn.myrec.Fields（ cdm.Combo2.Text = yn.myrec.Fields（ 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 演员

13、where 影片编号= Me.txtinfo（0）.Text & Do While Not yn.myrec.EOF Me.lstinfo.AddItem yn.myrec.Fields（演员）.Value yn.myrec.MoveNext Loop Me.Combo1.AddItem yn.myrec.Fields（ End If ElseIf Msel（0）.Text = VBA.LCase（Me.txtselect（0）.Text） & If yn.myrec.EOF Then MsgBox Call yn.closedb Else Me.Frame1.Visible = False Me.MSHFlexGrid1.Visible = True Set Me.MSHFlexGrid1.DataSource = yn.myrec If VBA.IsNumeric（Me.txtselect（0）.Text） = True Then= Me.txtselect（0）.Text Call yn.clos