诗词信息管理系统课程设计报告书Word文件下载.doc
《诗词信息管理系统课程设计报告书Word文件下载.doc》由会员分享,可在线阅读,更多相关《诗词信息管理系统课程设计报告书Word文件下载.doc(7页珍藏版)》请在冰豆网上搜索。
![诗词信息管理系统课程设计报告书Word文件下载.doc](https://file1.bdocx.com/fileroot1/2022-10/19/fb51c0e3-8beb-4090-b099-d13c20ea32d3/fb51c0e3-8beb-4090-b099-d13c20ea32d31.gif)
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查询诗人信息窗体程序代码
四、课程设计总结
在本次课程设计过程中,种满了诸多困难。
把平时所学的知识灵活运用在实践中是很大的挑战。
在设计过程中,最大的困难就是正确地设计窗体,并且正确输入代码,保证正常运行,达到预期设计的目的!
设计制作的