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

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

《计算机信息管理论文Word下载.doc》由会员分享，可在线阅读，更多相关《计算机信息管理论文Word下载.doc（35页珍藏版）》请在冰点文库上搜索。

3、系统配置………………………………………………………32

结束语…………………………………………………………………35

参考文献………………………………………………………………35

一、系统需求分析

光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。

若用人工进行管理，不便于数据的汇总统计及各种数据分析。

例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。

此时这对于光盘的管理就更难了。

例如，要查看哪些光盘是客户、最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。

所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，

能自动计算押金、租金，界面设计大方、简洁、实用；

操作简单方便。

让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世界

二、光盘管理系统分析与设计

1、光盘管理系统应该具有如下功能：

①光盘管理:

主要是对光盘的基本操作，如添加，修改，删除、查询。

②管理员管理：

对管理员操作有添加，修改，删除。

③系统配置：

可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。

④锁机系统：

这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。

⑤身份认证功能：

可以阻止没有受权人非法试图登陆系统。

⑥帮助功能：

使你可以更清楚的了解本系统。

综合以上分析该系统的功能结构图如下：

身份验证

验证通过

Y

N

退出

主界面

光盘管理

管理员管理

帮助

系统配置

2、系统硬件要求

一台微机处理器为600、800MHz以上的微机；

内存容量64MB以上；

一个鼠标；

硬盘的最小空间为2GB，用户自定义安装需要100MB硬盘空间；

推荐使用VGA或更高分辨率的显示器，适用于Windows9x/windows2000/windowsxp

三、数据库设计

该系统是典型的数据库系统，应定义如下数据表：

1、管理员

字段名

类型

长度

1、姓名

1{字符}

10

2、密码

3、销售总数

1{数字}

8

4、级别

5、解屏密码

2、客户

1、客户姓名

2、客户号

3、电话

4、OICQ

5、Email

3、客户日志

2、影片编号

3、借盘时期

1（日期/时间）

4、演员

1、影片编号

2、演员

5、影片格式

1、影片格式

6、影片类型

1、影片类型

7、影片语言

1、影片语言

8、影片资料

2、影片名称

3、时间长度

4、导演

5、发行年度

6、影片介绍

50

7、购买价格

8、出租价格

9、影片类型

10、影片格式

11、影片语言

12、总数

四、系统功能模块实现：

1、光盘管理模块：

①、添加模块

功能：

能方便得添加光盘，其中采用了预设方式。

输入项目：

鼠标或键盘事件。

输出项目：

无。

界面如图所示：

功能代码如下：

CaseIs=2

msg="

添加光盘"

Me.Caption="

光盘管理---------"

&

msg

Msel（0）.Visible=False

Me.txtselect（0）.Visible=False

Me.Labinfo

（1）.Visible=False

Me.search（0）.Visible=False

Me.Combo1.Visible=True

Me.lstinfo.Visible=False

Me.MSHFlexGrid1.Visible=False

Me.Frame1.Visible=True

Fori=0To8

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.Combo4.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

Callyn.opendb（"

select*from影片类型"

）

DoWhileyn.myrec.EOF=False

Me.Combo2.AddItemyn.myrec.Fields（"

影片类型"

yn.myrec.MoveNext

Loop

Callyn.closedb

select*from影片格式"

Me.Combo3.AddItemyn.myrec.Fields（"

影片格式"

Callyn.opendb（"

select*from影片语言"

Me.Combo4.AddItemyn.myrec.Fields（"

影片语言"

yn.myrec.MoveNext

select*from自定义"

Me.txtinfo（6）.Text=yn.myrec.Fields（"

购买价格"

Me.txtinfo（5）.Text=yn.myrec.Fields（"

出租价格"

②修改光盘

完成了修改功能，同样也采用了预设得方式。

界面如图所示：

CaseIs=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

④删除光盘

完成了删除光盘功能，其设置资料为不可选方便了用户。

界面如图所示：

功能代码如下

CaseIs=4

删除光盘"

Me.Combo1.Visible=False

Me.lstinfo.Visible=True

Me.txtinfo（i）.Locked=True

Me.txtinfo（i）.BackColor=&

H80000004

Me.Combo1.BackColor=&

Me.Combo2.BackColor=&

Me.Combo3.BackColor=&

Me.Combo4.BackColor=&

EndSelect

⑤查询光盘

完成了查询光盘功能，并设置了多项查询条件的选择。

CaseIs="

光盘查询"

Me.TabStrip1.Tabs

（1）.Selected=True

Me.txtinfo（i）.Locked=True

Me.txtselect（0）.TabIndex=0

Msel（0）.TabIndex=1

CaseIs="

Me.TabStrip1.Tabs（4）.Selected=True

PrivateSubselec（）'

=======查询过程

OnErrorResumeNext

IfMsel（0）.Text="

影片编号"

OrMsel（0）.Text="

影片名称"

Then

Me.MSHFlexGrid1.Visible=False

Me.Frame1.Visible=True

db="

select*from影片资料where"

Msel（0）.Text&

"

='

Me.txtselect（0）.Text&

'

Callyn.opendb（db）

Ifyn.myrec.EOFThen

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）.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（"

Callyn.closedb

Callyn.opendb（"

select*from演员where影片编号='

Me.txtinfo（0）.Text&

DoWhileNotyn.myrec.EOF

Me.lstinfo.AddItemyn.myrec.Fields（"

演员"

）.Value

yn.myrec.MoveNext

Loop

Me.Combo1.AddItemyn.myrec.Fields（"

EndIf

ElseIfMsel（0）.Text="

VBA.LCase（Me.txtselect（0）.Text）&

Ifyn.myrec.EOFThen

MsgBox"

Callyn.closedb

Else

Me.Frame1.Visible=False

Me.MSHFlexGrid1.Visible=True

SetMe.MSHFlexGrid1.DataSource=yn.myrec

IfVBA.IsNumeric（Me.txtselect（0）.Text）=TrueThen

="

Me.txtselect（0）.Text

Callyn.clos