诗词信息管理系统课程设计报告书Word文件下载.doc

诗词信息管理系统课程设计报告书Word文件下载.doc

《诗词信息管理系统课程设计报告书Word文件下载.doc》由会员分享，可在线阅读，更多相关《诗词信息管理系统课程设计报告书Word文件下载.doc（7页珍藏版）》请在冰豆网上搜索。

1、整体设计：

系统总体由SQL数据库和VisualBasic功能窗口组成，实现二者的链接，完成查询、修改、删除等指令。

2、模块设计：

诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能，系统功能模块如下图：

查询诗人信息

删除诗人信息

修改诗人信息

查询诗词

删改诗词

添加诗词

背景设置

诗人管理

诗词管理

系统管理

诗词信息管理系统

系统各模块的功能如下：

1、系统管理模块：

用于登录系统和退出系统；

2、诗词管理模块：

（1）添加诗词模块——用户根据自己的需要可以自行添加诗词信息。

（2）删改诗词模块——用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。

（3）查询诗词模块——可以按照诗人姓名、年代、体裁分别进行查询。

3、诗人管理模块：

（1）修改诗人信息模块——可修改诗人姓名、年代、简介等信息。

（2）删除诗人信息模块——通过输入诗人姓名进行查询，并可进行删除；

（3）查询诗人信息模块——可查询诗人的全部信息；

4、背景设置模块：

包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块

3、数据库设计：

SQL，将本系统所需数据，存入PoemManager数据库中。

该数据库包含两份基本表，诗词基本表和诗人基本表。

两张表如下图：

Poem诗词信息表

列名

数据类型

是否为空

其他说明

诗词编号

Int

NOTNULL

设为主键

题目

Char（40）

作者编号

年代

Char（4）

体裁

Char（10）

类别

内容

Text

Poet诗人信息表

作者姓名

Char（8）

简介

二、主要界面

VisualBasic主要包含以下这个界面窗体：

1.frmmain（作为系统主窗体，caption属性为“诗词信息管理系统”）；

2.frmIn（系统登录窗体，caption属性为“登陆管理系统”）；

3.frmaddpoem（添加诗词窗体，caption属性为“添加诗词”）；

4.frmaddpoet（添加诗人信息窗体，caption属性为“添加诗人”）；

5.frmmodifypoem（删改诗词信息窗体，caption属性为“修改诗词信息”）；

6.frmmodifypoet（删改诗人信息窗体，caption属性为“修改诗人信息”）；

7.frmquerypoem（查询诗词信息窗体，caption属性为“查询诗词信息”）；

8.frmquerypoet（查询诗人信息窗体，caption属性为“查询诗人信息”）；

三、源程序

1、frmIn系统登录窗体程序代码：

PrivateSubcmdOK_Click（）

Ifusername="

IRIS"

Anduserpassword="

123456"

Then（设置唯一用户名和唯一密码）

MsgBox"

亲、欢迎您的到来~"

UnloadMe

frmmain.Enabled=True

frmmain.Show

Else

密码不正确哟~"

Unloadfrmmain

EndIf

EndSub

2、frmmain系统主窗体程序代码

PrivateSubForm_Load（）（设置窗体的基本界面，背景和音乐）

Me.Top=（Screen.Height-Me.Height）\2

Me.Left=（Screen.Width-Me.Width）\2

Me.light（0）.Enabled=True

Me.light

（1）.Enabled=False

Me.music（0）.Enabled=True

Me.music

（1）.Enabled=False

connStr="

Provider=SQLOLEDB.1;

IntegratedSecurity=SSPI;

PersistSecurityInfo=False;

InitialCatalog=poemmanager"

frmmain.ScaleMode=vbPixels

ismusicOn=False

WindowsMediaPlayer1.Visible=False

WindowsMediaPlayer1.URL=App.Path&

"

\bg2.mp3"

WindowsMediaPlayer1.uiMode="

mini"

WindowsMediaPlayer1.settings.Volume=100

WindowsMediaPlayer1.settings.PlayCount=100

WindowsMediaPlayer1.Controls.Stop

EndSub

PrivateSubform_unload（cancelAsInteger）

IfismusicOn=TrueThen

PrivateSublight_clicik（IndexAsInteger）

light（Index）.Enabled=False

IfIndex=0Then

image1.Visible=True

light

（1）.Enabled=False

IfIndex=1Then

image1.Visible=False

light（0）.Enabled=True

PrivateSubmusic_Click（IndexAsInteger）

music（Index）.Enabled=False

ismusicOn=True

WindowsMediaPlayer1.Controls.Play

music

（1）.Enabled=True

music（0）.Enabled=True

（将主页面和其他各个窗体页面连接起来）

PrivateSubmodifypoem_Click（）

frmModifyPoem.Show

PrivateSubquerypoem_Click（）

frmQueryPoem.Show

PrivateSubquerypoet_Click（）

frmQueryPoet.Show

PrivateSubupdatepoet_Click（）

frmUpdatePoet.Show

3、frmaddpoem添加诗词窗体程序代码

PrivateSubcmdAdd_Click（）

Adodc1.Recordset.AddNew

cmdAdd.Enabled=False

cmdSave.Enabled=True

PrivateSubcmdCancel_Click（）

PrivateSubcmdSave_Click（）

Adodc1.Recordset.Update

cmdAdd.Enabled=True

cmdSave.Enabled=False

（Adodc1控件将数据库信息联系到窗体）

4、frmaddpoet添加诗人信息窗体程序代码

PrivateSubcmdAdd_Click（）

5、frmmodifypoem删改诗词信息窗体程序代码

PrivateSubcmdDelete_Click（）

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

PrivateSubcmdModify_Click（）

6、frmmodifypoet删改诗人信息窗体程序代码

PrivateSubcmdUpdate_Click（）

7、frmquerypoem查询诗词信息窗体程序代码

使用Adodc控件将窗体和数据库连接起来

8、frmquerypoet查询诗人信息窗体程序代码

四、课程设计总结

在本次课程设计过程中，种满了诸多困难。

把平时所学的知识灵活运用在实践中是很大的挑战。

在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！

设计制作的