《诗词信息管理系统课程设计报告书》由会员分享，可在线阅读，更多相关《诗词信息管理系统课程设计报告书（13页珍藏版）》请在金锄头文库上搜索。
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 = Truefrmmain.ShowElseMsgBox 密码不正确哟
6、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.music(1).Enabled = False专业资料.connStr=Provider=S
7、QLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=poemmanagerfrmmain.ScaleMode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & bg2.mp3WindowsMediaPlayer1.uiMode = miniEnd SubPrivate Sub form_unload(cancel As Integer)If ismu
8、sicOn = 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 = Falselight(0).Enabled = TrueEnd IfEnd SubPrivate Sub music_Click(Index As Integer)music(Index
9、).Enabled = FalseIf Index = 0 ThenismusicOn = Truemusic(1).Enabled = TrueEnd IfIf Index = 1 ThenismusicOn = Falsemusic(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()cmdAdd.Enabled = FalsecmdSave.Enabled = True专业资料.End SubPrivate Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub c
