- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
诗词信息管理系统课程设计报告书
中南大学
本科生课程实践报告
(数据库应用基础)
题 目 诗词信息管理系统 学生姓名 王祖佳 指导教师 刘泽星 学 院 生物科学与技术学院(生命科学院) 专业班级
生物科学类1202 学生学号 3702120225
计算机基础教学实验中心
2013年 07 月 03 日
一、系统设计
1、整体设计:
系统总体由SQL数据库和Visual Basic功能窗口组成,实现二者的链接,完成查询、修改、删除等指令。
2、模块设计:
诗词信息管理系统主要实现诗词管理、诗人信息管理、背景设置和系统管理等功能,系统功能模块如下图:
系统各模块的功能如下:
系统管理模块:
用于登录系统和退出系统;
诗词管理模块:
添加诗词模块——用户根据自己的需要可以自行添加诗词信息。
删改诗词模块——用户根据自己的需要,可以自行查询指定诗词,并进行删除或修改。
查询诗词模块——可以按照诗人姓名、年代、体裁分别进行查询。
诗人管理模块:
修改诗人信息模块——可修改诗人姓名、年代、简介等信息。
删除诗人信息模块——通过输入诗人姓名进行查询,并可进行删除;
查询诗人信息模块——可查询诗人的全部信息;
背景设置模块:
包括打开背景、关闭背景、打开背景音乐、关闭背景音乐等模块
3、数据库设计:
SQL,将本系统所需数据,存入PoemManager数据库中。该数据库包含两份基本表,诗词基本表和诗人基本表。
两张表如下图:
Poem诗词信息表
列名 数据类型 是否为空 其他说明 诗词编号 Int NOT NULL 设为主键 题目 Char(40) NOT NULL 作者编号 Int NOT NULL 年代 Char(4) NOT NULL 体裁 Char(10) NOT NULL 类别 Char(10) NOT NULL 内容 Text NOT NULL
Poet诗人信息表
列名 数据类型 是否为空 其他说明 作者编号 Int NOT NULL 设为主键 作者姓名 Char(8) NOT NULL 年代 Char(4) NOT NULL 简介 Text NOT NULL
二、主要界面
Visual Basic主要包含以下这个界面窗体:
frmmain(作为系统主窗体,caption属性为“诗词信息管理系统”);
frmIn(系统登录窗体,caption属性为“登陆管理系统”);
frmaddpoem(添加诗词窗体,caption属性为“添加诗词”);
frmaddpoet(添加诗人信息窗体,caption属性为“添加诗人”);
frmmodifypoem(删改诗词信息窗体,caption属性为“修改诗词信息”);
frmmodifypoet(删改诗人信息窗体,caption属性为“修改诗人信息”);
frmquerypoem(查询诗词信息窗体,caption属性为“查询诗词信息”);
frmquerypoet(查询诗人信息窗体,caption属性为“查询诗人信息”);
三、源程序
1、frmIn系统登录窗体程序代码:
Private Sub cmdOK_Click()
If username = IRIS And userpassword = 123456 Then(设置唯一用户名和唯一密码)
MsgBox 亲、欢迎您的到来~
Unload Me
frmmain.Enabled = True
frmmain.Show
Else
MsgBox 密码不正确哟~
Unload frmmain
Unload Me
End If
End Sub
2、frmmain系统主窗体程序代码
Private Sub Form_Load() (设置窗体的基本界面,背景和音乐)
Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2
Me.light(0).Enabled = True
Me.light(1).Enabled = False
Me.music(0).Enabled = True
Me.music(1).Enabled = False
connStr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Ca
您可能关注的文档
- 建设工程招标投标情况报告示范文本.doc
- 事业单位法人年度报告操作指南.doc
- 安全协议书及安全承诺书.doc
- 建筑设计服务承诺.doc
- 人力资源考核制度.doc
- 承诺书会议记录.doc
- 企业绩效评价及投资管理常用指标.doc
- 新三板法规目录(2015年汇总).doc
- 谈谈我对宋江的看法.doc
- 施工现场主要危险源辨识和风险评价.doc
- 期末复习课件++专题7+阿基米德原理++2023-2024学年人教版八年级物理下册.pptx
- 4-1电磁振荡(教学课件)高中物理人教版选择性必修第二册.pptx
- 本包含页空白页.pdf
- 【会计实操经验】财务操纵的知识框架.pdf
- 英国b2c电商网站ocado市场前景及投资研究报告-培训课件外文版2024.6,拼多多,阿里巴巴,1688,temu,tiktok.pdf
- 印尼在线约会行业市场前景及投资研究报告-培训课件外文版2024.6,微信,tiktok.pdf
- 印尼物联网IOT行业市场前景及投资研究报告-培训课件外文版2024.5.pdf
- 印尼斋月消费情况分析报告-培训课件外文版2024.6.pdf
- 英国GDP分析报告-培训课件外文版2024.6.pdf
- 印尼铁路行业市场前景及投资研究报告-培训课件外文版2024.6,援建高铁.pdf
文档评论(0)