诗词信息管理系统课程设计报告书.docx
《诗词信息管理系统课程设计报告书.docx》由会员分享，可在线阅读，更多相关《诗词信息管理系统课程设计报告书.docx（10页珍藏版）》请在冰豆网上搜索。
诗词信息管理系统课程设计报告书
中南大学
本科生课程实践报告
（数据库应用基础）
题目
诗词信息管理系统
学生姓名
王祖佳
指导教师
刘泽星
学院
生物科学与技术学院（生命科学院）
专业班级
生物科学类1202
学生学号
3702120225
计算机基础教学实验中心
2013年07月03日
一、系统设计
1、整体设计：
系统总体由SQL数据库和VisualBasic功能窗口组成，实现二者的链接，完成查询、修改、删除等指令。
2、模块设计：
诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能，系统功能模块如下图：
系统各模块的功能如下：
1、系统管理模块：
用于登录系统和退出系统；
2、诗词管理模块：
（1）添加诗词模块——用户根据自己的需要可以自行添加诗词信息。
（2）删改诗词模块——用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。
（3）查询诗词模块——可以按照诗人姓名、年代、体裁分别进行查询。
3、诗人管理模块：
（1）修改诗人信息模块——可修改诗人姓名、年代、简介等信息。
（2）删除诗人信息模块——通过输入诗人姓名进行查询，并可进行删除；
（3）查询诗人信息模块——可查询诗人的全部信息；
4、背景设置模块：
包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块
3、数据库设计：
SQL，将本系统所需数据，存入PoemManager数据库中。
该数据库包含两份基本表，诗词基本表和诗人基本表。
两张表如下图：
Poem诗词信息表
列名
数据类型
是否为空
其他说明
诗词编号
Int
NOTNULL
设为主键
题目
Char（40）
NOTNULL
作者编号
Int
NOTNULL
年代
Char（4）
NOTNULL
体裁
Char（10）
NOTNULL
类别
Char（10）
NOTNULL
内容
Text
NOTNULL
Poet诗人信息表
列名
数据类型
是否为空
其他说明
作者编号
Int
NOTNULL
设为主键
作者姓名
Char（8）
NOTNULL
年代
Char（4）
NOTNULL
简介
Text
NOTNULL
二、主要界面
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
MsgBox"密码不正确哟~"
Unloadfrmmain
UnloadMe
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
WindowsMediaPlayer1.Controls.Stop
EndIf
EndSub
PrivateSublight_clicik（IndexAsInteger）
light（Index）.Enabled=False
IfIndex=0Then
image1.Visible=True
light
（1）.Enabled=False
EndIf
IfIndex=1Then
image1.Visible=False
light（0）.Enabled=True
EndIf
EndSub
PrivateSubmusic_Click（IndexAsInteger）
music（Index）.Enabled=False
IfIndex=0Then
ismusicOn=True
WindowsMediaPlayer1.Controls.Play
music
（1）.Enabled=True
EndIf
IfIndex=1Then
ismusicOn=False
WindowsMediaPlayer1.Controls.Stop
music（0）.Enabled=True
EndIf
EndSub
（将主页面和其他各个窗体页面连接起来）
PrivateSubmodifypoem_Click（）
frmModifyPoem.Show
EndSub
PrivateSubquerypoem_Click（）
frmQueryPoem.Show
EndSub
PrivateSubquerypoet_Click（）
frmQueryPoet.Show
EndSub
PrivateSubupdatepoet_Click（）
frmUpdatePoet.Show
EndSub
3、frmaddpoem添加诗词窗体程序代码
PrivateSubcmdAdd_Click（）
Adodc1.Recordset.AddNew
cmdAdd.Enabled=False
cmdSave.Enabled=True
EndSub
PrivateSubcmdCancel_Click（）
frmmain.Show
EndSub
PrivateSubcmdSave_Click（）
Adodc1.Recordset.Update
cmdAdd.Enabled=True
cmdSave.Enabled=False
EndSub
（Adodc1控件将数据库信息联系到窗体）
4、frmaddpoet添加诗人信息窗体程序代码
PrivateSubcmdAdd_Click（）
Adodc1.Recordset.AddNew
cmdAdd.Enabled=False
cmdSave.Enabled=True
EndSub
PrivateSubcmdCancel_Click（）
frmmain.Show
EndSub
PrivateSubcmdSave_Click（）
Adodc1.Recordset.Update
cmdAdd.Enabled=True
cmdSave.Enabled=False
EndSub
（Adodc1控件将数据库信息联系到窗体）
5、frmmodifypoem删改诗词信息窗体程序代码
PrivateSubcmdCancel_Click（）
frmmain.Show
EndSub
PrivateSubcmdDelete_Click（）
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
EndSub
PrivateSubcmdModify_Click（）
Adodc1.Recordset.Update
EndSub
6、frmmodifypoet删改诗人信息窗体程序代码
PrivateSubcmdCancel_Click（）
frmmain.Show
EndSub
PrivateSubcmdDelete_Click（）
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
EndSub
PrivateSubcmdUpdate_Click（）
Adodc1.Recordset.Update
EndSub
（Adodc1控件将数据库信息联系到窗体）
7、frmquerypoem查询诗词信息窗体程序代码
使用Adodc控件将窗体和数据库连接起来
8、frmquerypoet查询诗人信息窗体程序代码
使用Adodc控件将窗体和数据库连接起来
四、课程设计总结
在本次课程设计过程中，种满了诸多困难。
把平时所学的知识灵活运用在实践中是很大的挑战。
在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！
设计制作的过程，对我而言就是一个不停输代码、不停验证、出错了又不断修改的过程。
窗体的设计要力求完整便捷，但是在制作过程中，经常找不到所需要的部件，对于书上的案例，现成的代码。
照着做也经常不能顺利运行出来，漏洞百出，却又找不到症结所在！
在设计过程中，主要出现的问题有：
1、不能使用合适的控件将VB窗体与SQL的数据正常连接；
2、没有正确给各个控件命名，在输代码的时候，时常导致不能正常标识不同控件，不能正常运行；
3、窗体设计不合理，不能实现完全功能。
解决方法：
根据参考资料的案例，逐步修改，调试，直至能顺利实现！
五、参考资料
教材与实验教材
升级会员 