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

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

2、资料.系统各模块的功能如下：1 、 系统管理模块：用于登录系统和退出系统；2 、 诗词管理模块：（ 1 ） 添加诗词模块用户根据自己的需要可以自行添加诗词信息。（ 2 ） 删改诗词模块用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。（ 3 ） 查询诗词模块可以按照诗人姓名、年代、体裁分别进行查询。3 、 诗人管理模块：（ 1 ） 修改诗人信息模块可修改诗人姓名、年代、简介等信息。（ 2 ） 删除诗人信息模块通过输入诗人姓名进行查询，并可进行删除；（ 3 ） 查询诗人信息模块可查询诗人的全部信息；4 、 背景设置模块：专业资料.包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块

3、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 NULLPoet 诗人信息表列名数据类型是否为空其他说明作者编号IntNOT NULL设为主键作者姓名Char(8)NOT NULL年代Char(4)NOT NULL专业资料

4、.简介TextNOT NULL二、主要界面Visual Basic主要包含以下这个界面窗体：1. frmmain( 作为系统主窗体， caption 属性为“诗词信息管理系统” )；2. frmIn( 系统登录窗体， caption 属性为“登陆管理系统” )；3. frmaddpoem( 添加诗词窗体， caption 属性为“添加诗词” )；4. frmaddpoet( 添加诗人信息窗体， caption 属性为“添加诗人” )；5. frmmodifypoem( 删改诗词信息窗体， caption 属性为“修改诗词信息” )；6.frmmodifypoet(删改诗人信息窗体，captio

5、n属性为“修改诗人信息” )；7. frmquerypoem （查询诗词信息窗体， caption 属性为“查询诗词信息”）；8.frmquerypoet（查询诗人信息窗体，caption属性为“查询诗人信息”）；三、源程序1 、 frmIn系统登录窗体程序代码：专业资料.Private Sub cmdOK_Click()If username = "IRIS" And userpassword = "123456" Then（设置唯一用户名和唯一密码）MsgBox "亲、欢迎您的到来"Unload Mefrmmain.Enabled

6、 = Truefrmmain.ShowElseMsgBox "密码不正确哟"Unload frmmainUnload MeEnd IfEnd Sub2 、 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

7、.music(1).Enabled = False专业资料.connStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=poemmanager"frmmain.ScaleMode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & "bg2.mp3"WindowsMediaP

8、layer1.uiMode = "mini"End SubPrivate Sub form_unload(cancel As Integer)If ismusicOn = True ThenEnd IfEnd SubPrivate Sub light_clicik(Index As Integer)light(Index).Enabled = FalseIf Index = 0 Thenimage1.Visible = Truelight(1).Enabled = False专业资料.End IfIf Index = 1 Thenimage1.Visible = False

9、light(0).Enabled = TrueEnd IfEnd SubPrivate Sub music_Click(Index As Integer)music(Index).Enabled = FalseIf Index = 0 ThenismusicOn = Truemusic(1).Enabled = TrueEnd IfIf Index = 1 ThenismusicOn = Falsemusic(0).Enabled = TrueEnd IfEnd Sub（将主页面和其他各个窗体页面连接起来）专业资料.Private Sub modifypoem_Click()frmModify

10、Poem.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()cmdAdd.Enabled = FalsecmdSave.Enabled = True专业资料.End SubPrivate Sub cmdCa

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

12、dSave_Click()cmdAdd.Enabled = TruecmdSave.Enabled = FalseEnd Sub（Adodc1控件将数据库信息联系到窗体）5 、 frmmodifypoem删改诗词信息窗体程序代码Private Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdDelete_Click()End SubPrivate Sub cmdModify_Click()End Sub专业资料.6 、 frmmodifypoet删改诗人信息窗体程序代码Private Sub cmdCancel_Click()frm

13、main.ShowEnd SubPrivate Sub cmdDelete_Click()End SubPrivate Sub cmdUpdate_Click()End Sub（Adodc1控件将数据库信息联系到窗体）7 、 frmquerypoem查询诗词信息窗体程序代码使用 Adodc控件将窗体和数据库连接起来8 、 frmquerypoet查询诗人信息窗体程序代码使用 Adodc控件将窗体和数据库连接起来四、课程设计总结专业资料.在本次课程设计过程中，种满了诸多困难。 把平时所学的知识灵活运用在实践中是很大的挑战。在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！设计制作的过程， 对我而言就是一个不停输代码、不停验证、出错了又不断修改的过程。窗体的设计要力求完整便捷，但是在制作过程中，经常找不到所需要