诗词信息管理系统课程设计报告书.docx

1、诗词信息管理系统课程设计报告书中南大学本科生课程实践报告(数据库应用基础)题 目诗词信息管理系统 学生姓名王祖佳指导教师刘泽星学 院生物科学与技术学院（生命科学院）专业班级生物科学类1202学生学号3702120225 计算机基础教学实验中心 2013年 07 月 03 日一、系统设计1、整体设计： 系统总体由SQL数据库和Visual Basic功能窗口组成，实现二者的链接，完成查询、修改、删除等指令。2、模块设计：诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能，系统功能模块如下图： 系统各模块的功能如下：1、 系统管理模块：用于登录系统和退出系统；2、 诗词管理模

2、块：（1） 添加诗词模块用户根据自己的需要可以自行添加诗词信息。（2） 删改诗词模块用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。（3） 查询诗词模块可以按照诗人姓名、年代、体裁分别进行查询。3、 诗人管理模块：（1） 修改诗人信息模块可修改诗人姓名、年代、简介等信息。（2） 删除诗人信息模块通过输入诗人姓名进行查询，并可进行删除；（3） 查询诗人信息模块可查询诗人的全部信息；4、 背景设置模块：包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块3、数据库设计：SQL，将本系统所需数据，存入PoemManager数据库中。该数据库包含两份基本表，诗词基本表和诗人基本表。两张

3、表如下图： Poem诗词信息表列名数据类型是否为空其他说明诗词编号IntNOT NULL设为主键题目Char(40)NOT NULL作者编号IntNOT NULL年代Char(4)NOT NULL体裁Char(10)NOT NULL类别Char(10)NOT NULL内容TextNOT NULL Poet诗人信息表列名数据类型是否为空其他说明作者编号IntNOT NULL设为主键作者姓名Char(8)NOT NULL年代Char(4)NOT NULL简介TextNOT NULL 二、主要界面 Visual Basic主要包含以下这个界面窗体：1. frmmain(作为系统主窗体，caption

4、属性为“诗词信息管理系统”)；2. frmIn(系统登录窗体，caption属性为“登陆管理系统”)；3. frmaddpoem(添加诗词窗体，caption属性为“添加诗词”)；4. frmaddpoet(添加诗人信息窗体，caption属性为“添加诗人”)；5. frmmodifypoem(删改诗词信息窗体，caption属性为“修改诗词信息”)；6. frmmodifypoet(删改诗人信息窗体，caption属性为“修改诗人信息”)；7. frmquerypoem（查询诗词信息窗体，caption属性为“查询诗词信息”）；8. frmquerypoet（查询诗人信息窗体，caption

5、属性为“查询诗人信息”）； 三、源程序1、frmIn系统登录窗体程序代码：Private Sub cmdOK_Click()If username = IRIS And userpassword = 123456 Then（设置唯一用户名和唯一密码）MsgBox 亲、欢迎您的到来Unload Mefrmmain.Enabled = Truefrmmain.ShowElseMsgBox 密码不正确哟Unload frmmainUnload MeEnd IfEnd Sub 2、frmmain系统主窗体程序代码Private Sub Form_Load() （设置窗体的基本界面，背景和音乐）Me.T

6、op = (Screen.Height - Me.Height) 2Me.Left = (Screen.Width - Me.Width) 2Me.light(0).Enabled = TrueMe.light(1).Enabled = FalseMe.music(0).Enabled = TrueMe.music(1).Enabled = FalseconnStr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=poemmanagerfrmmain.Scale

7、Mode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & bg2.mp3WindowsMediaPlayer1.uiMode = miniWindowsMediaPlayer1.settings.Volume = 100WindowsMediaPlayer1.settings.PlayCount = 100WindowsMediaPlayer1.Controls.Stop End SubPrivate Sub form_unload(cancel

8、 As Integer)If ismusicOn = True ThenWindowsMediaPlayer1.Controls.StopEnd IfEnd SubPrivate Sub light_clicik(Index As Integer)light(Index).Enabled = FalseIf Index = 0 Thenimage1.Visible = Truelight(1).Enabled = FalseEnd IfIf Index = 1 Thenimage1.Visible = Falselight(0).Enabled = TrueEnd IfEnd Sub Priv

9、ate Sub music_Click(Index As Integer)music(Index).Enabled = FalseIf Index = 0 ThenismusicOn = TrueWindowsMediaPlayer1.Controls.Playmusic(1).Enabled = TrueEnd IfIf Index = 1 ThenismusicOn = FalseWindowsMediaPlayer1.Controls.Stopmusic(0).Enabled = TrueEnd IfEnd Sub（将主页面和其他各个窗体页面连接起来） Private Sub modif

10、ypoem_Click()frmModifyPoem.ShowEnd SubPrivate Sub querypoem_Click()frmQueryPoem.ShowEnd SubPrivate Sub querypoet_Click()frmQueryPoet.ShowEnd SubPrivate Sub updatepoet_Click()frmUpdatePoet.ShowEnd Sub3、frmaddpoem添加诗词窗体程序代码Private Sub cmdAdd_Click()Adodc1.Recordset.AddNewcmdAdd.Enabled = FalsecmdSave.

11、Enabled = TrueEnd SubPrivate Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdSave_Click()Adodc1.Recordset.UpdatecmdAdd.Enabled = TruecmdSave.Enabled = FalseEnd Sub（Adodc1控件将数据库信息联系到窗体）4、frmaddpoet添加诗人信息窗体程序代码 Private Sub cmdAdd_Click()Adodc1.Recordset.AddNewcmdAdd.Enabled = FalsecmdSave.Enabl

12、ed = TrueEnd SubPrivate Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdSave_Click()Adodc1.Recordset.UpdatecmdAdd.Enabled = TruecmdSave.Enabled = FalseEnd Sub（Adodc1控件将数据库信息联系到窗体）5、frmmodifypoem删改诗词信息窗体程序代码Private Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdDelete_Click()Adodc1.Rec

13、ordset.DeleteAdodc1.Recordset.MoveNextEnd SubPrivate Sub cmdModify_Click()Adodc1.Recordset.UpdateEnd Sub6、frmmodifypoet删改诗人信息窗体程序代码Private Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdDelete_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd SubPrivate Sub cmdUpdate_Click()Adodc1.R

14、ecordset.UpdateEnd Sub（Adodc1控件将数据库信息联系到窗体）7、frmquerypoem查询诗词信息窗体程序代码 使用Adodc控件将窗体和数据库连接起来8、frmquerypoet查询诗人信息窗体程序代码 使用Adodc控件将窗体和数据库连接起来 四、课程设计总结在本次课程设计过程中，种满了诸多困难。把平时所学的知识灵活运用在实践中是很大的挑战。在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！设计制作的过程，对我而言就是一个不停输代码、不停验证、出错了又不断修改的过程。窗体的设计要力求完整便捷，但是在制作过程中，经常找不到所需要的部件，对于书上的案例，现成的代码。照着做也经常不能顺利运行出来，漏洞百出，却又找不到症结所在！在设计过程中，主要出现的问题有：1、 不能使用合适的控件将VB窗体与SQL的数据正常连接；2、 没有正确给各个控件命名，在输代码的时候，时常导致不能正常标识不同控件，不能正常运行；3、 窗体设计不合理，不能实现完全功能。解决方法：根据参考资料的案例，逐步修改，调试，直至能顺利实现！ 五、参考资料教材与实验教材