诗词信息管理系统课程设计报告书Word文件下载.doc

1、1、整体设计： 系统总体由SQL数据库和Visual Basic功能窗口组成，实现二者的链接，完成查询、修改、删除等指令。2、模块设计：诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能，系统功能模块如下图：查询诗人信息删除诗人信息修改诗人信息查询诗词删改诗词添加诗词背景设置诗人管理诗词管理系统管理诗词信息管理系统系统各模块的功能如下：1、 系统管理模块：用于登录系统和退出系统；2、 诗词管理模块：（1） 添加诗词模块用户根据自己的需要可以自行添加诗词信息。（2） 删改诗词模块用户根据自己的需要，可以自行查询指定诗词，并进行删除或修改。（3） 查询诗词模块可以按照诗人姓名

2、、年代、体裁分别进行查询。3、 诗人管理模块：（1） 修改诗人信息模块可修改诗人姓名、年代、简介等信息。（2） 删除诗人信息模块通过输入诗人姓名进行查询，并可进行删除；（3） 查询诗人信息模块可查询诗人的全部信息；4、 背景设置模块：包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块3、数据库设计：SQL，将本系统所需数据，存入PoemManager数据库中。该数据库包含两份基本表，诗词基本表和诗人基本表。两张表如下图： Poem诗词信息表列名数据类型是否为空其他说明诗词编号IntNOT NULL设为主键题目Char（40）作者编号年代Char（4）体裁Char（10）类别内容Text

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

4、息”）；7. frmquerypoem（查询诗词信息窗体，caption属性为“查询诗词信息”）；8. frmquerypoet（查询诗人信息窗体，caption属性为“查询诗人信息”）； 三、源程序1、frmIn系统登录窗体程序代码：Private Sub cmdOK_Click（）If username = IRIS And userpassword = 123456 Then（设置唯一用户名和唯一密码）MsgBox 亲、欢迎您的到来Unload Mefrmmain.Enabled = Truefrmmain.ShowElse密码不正确哟Unload frmmainEnd IfEnd Su

5、b 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;Per

6、sist Security Info=False;Initial Catalog=poemmanagerfrmmain.ScaleMode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & bg2.mp3WindowsMediaPlayer1.uiMode = miniWindowsMediaPlayer1.settings.Volume = 100WindowsMediaPlayer1.settings.PlayCount = 100Window

7、sMediaPlayer1.Controls.Stop End SubPrivate Sub form_unload（cancel As Integer）If ismusicOn = True ThenPrivate Sub light_clicik（Index As Integer）light（Index）.Enabled = FalseIf Index = 0 Thenimage1.Visible = Truelight（1）.Enabled = FalseIf Index = 1 Thenimage1.Visible = Falselight（0）.Enabled = True Priv

8、ate Sub music_Click（Index As Integer）music（Index）.Enabled = FalseismusicOn = TrueWindowsMediaPlayer1.Controls.Playmusic（1）.Enabled = Truemusic（0）.Enabled = True（将主页面和其他各个窗体页面连接起来） Private Sub modifypoem_Click（）frmModifyPoem.ShowPrivate Sub querypoem_Click（）frmQueryPoem.ShowPrivate Sub querypoet_Clic

9、k（）frmQueryPoet.ShowPrivate Sub updatepoet_Click（）frmUpdatePoet.Show3、 frmaddpoem添加诗词窗体程序代码Private Sub cmdAdd_Click（）Adodc1.Recordset.AddNewcmdAdd.Enabled = FalsecmdSave.Enabled = TruePrivate Sub cmdCancel_Click（）Private Sub cmdSave_Click（）Adodc1.Recordset.UpdatecmdAdd.Enabled = TruecmdSave.Enabled

10、= False（Adodc1控件将数据库信息联系到窗体）4、frmaddpoet添加诗人信息窗体程序代码 Private Sub cmdAdd_Click（）5、frmmodifypoem删改诗词信息窗体程序代码Private Sub cmdDelete_Click（）Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextPrivate Sub cmdModify_Click（）6、frmmodifypoet删改诗人信息窗体程序代码Private Sub cmdUpdate_Click（）7、frmquerypoem查询诗词信息窗体程序代码 使用Adodc控件将窗体和数据库连接起来8、frmquerypoet查询诗人信息窗体程序代码 四、课程设计总结在本次课程设计过程中，种满了诸多困难。把平时所学的知识灵活运用在实践中是很大的挑战。在设计过程中，最大的困难就是正确地设计窗体，并且正确输入代码，保证正常运行，达到预期设计的目的！设计制作的