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

中南大学本科生课程实践报告(数据库应用基础)题 目诗词信息管理系统 学生姓名王祖佳指导教师刘泽星学 院生物科学与技术学院（生命科学院）专业班级生物科学类1202学生学号 计算机基础教学实验中心 2013年 07 月 03 日一、系统设计1、整体设计： 系统总体由SQL数据库和Visual Basic功能窗口组成，实现二者的链接，完成查询、修改、删除等指令。2、模块设计：诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能，系统功能模块如下图：查询诗人信息删除诗人信息修改诗人信息查询诗词删改诗词添加诗词背景设置诗人管理诗词管理系统管理诗词信息管理系统系统各模块的功能如下：1、 系统管理模块：用于登录系统和退出系统；2、 诗词管理模块：（1） 添加诗词模块用户根据自己的需要可以自行添加诗词信息。（2） 删改诗词模块用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。（3） 查询诗词模块可以按照诗人姓名、年代、体裁分别进行查询。3、 诗人管理模块：（1） 修改诗人信息模块可修改诗人姓名、年代、简介等信息。（2） 删除诗人信息模块通过输入诗人姓名进行查询，并可进行删除；（3） 查询诗人信息模块可查询诗人的全部信息；4、 背景设置模块：包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块3、数据库设计：SQL，将本系统所需数据，存入PoemManager数据库中。该数据库包含两份基本表，诗词基本表和诗人基本表。两张表如下图： 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属性为“诗词信息管理系统”)；2. frmIn(系统登录窗体，caption属性为“登陆管理系统”)；3. frmaddpoem(添加诗词窗体，caption属性为“添加诗词”)；4. frmaddpoet(添加诗人信息窗体，caption属性为“添加诗人”)；5. frmmodifypoem(删改诗词信息窗体，caption属性为“修改诗词信息”)；6. frmmodifypoet(删改诗人信息窗体，caption属性为“修改诗人信息”)；7. frmquerypoem（查询诗词信息窗体，caption属性为“查询诗词信息”）；8. frmquerypoet（查询诗人信息窗体，caption属性为“查询诗人信息”）； 三、源程序1、frmIn系统登录窗体程序代码：Private Sub cmdOK_Click()If username = IRIS And userpassword = Then（设置唯一用户名和唯一密码）MsgBox 亲、欢迎您的到来Unload Mefrmmain.Enabled = Truefrmmain.ShowElseMsgBox 密码不正确哟Unload frmmainUnload MeEnd IfEnd Sub 2、frmmain系统主窗体程序代码Private Sub Form_Load() （设置窗体的基本界面，背景和音乐）Me.Top = (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.ScaleMode = 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 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 Private 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 modifypoem_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.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.Enabled = 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.Recordset.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.Recordset.UpdateEnd Sub（Adodc1控件将数据库信息联系到窗体）7、frmquerypoem查询诗词信息窗体程序代码 使用Adodc控件将窗体和数据库连接起来8、frmquerypoet查询诗人信息窗体程序代码 使用Adodc控件将窗体和数据库连接起来 四、课程设计总结在本次课程设计过程中，种满了诸多困难。把平时所学的知识灵活运用在实践中是很大的挑战。在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！设计制作的过程，对我而言就是一个不停输代码、不停验证、出错了又不断修改的过程。窗体的设计要力求完整便捷