形容父爱和母爱的句子精练80条

大数据实习报告

目录

一、摘要

1.1项目背景……………………………………………………………2

1.2课程设计目的………………………………………………………2

1.3题目名称……………………………………………………………2

1.4开发环境……………………………………………………………2

二、需求分析

2.1 基本要求 ………………………………………………………3

2.2 实现的方法 ……………………………………………………3

三、数据库设计

3.1 数据库概念结构设计………………………………………………3

3.2数据库逻辑结构设计………………………………………………4

3.3 数据库物理设计……………………………………………………4

四、数据流图及程序结构框图…………………………………………………6

五、程序源代码及其说明………………………………………………………10

六、总结…………………………………………………………………………13

一、摘要

1.1 项目背景

图书管理系统是学院图书馆事务管理的一个重要内容，管理图书馆的各种信息，对学院图书馆来说是很重要的，这也是图书管-理-员的一个大问题。在这种情况下，一个可以规范化，自动化的图书管理系统对于图书馆来说显得至关重要。

最初的图书管理，都是靠人力完成，在图书馆规模比较小的时候，人力可以很好完成，但随着规模的增大，图书数量越来越多，这种管理的压力也越来越大，各种弊端显示出来。网络的到来给这带来了很大的便利，特别是对于图书管-理-员来说。

1.2课程设计目的

1. 熟悉大型数据库管理系统的结构与组成；

2. 熟悉数据库应用系统的设计方法和开发过程；

3. 掌握一种数据库管理系统SQL SERVER2015的应用技术；

4. 熟悉数据库设计工具的使用；

5. 熟悉数据库安全的相关知识和技术；

6. 熟悉数据库系统的管理和维护。

1.3题目及要求

题目：学院图书管理系统

图书管-理-员可以通过图书编号来查询到该图书的详细资料，并且查询

出该书的借出还入情况，以及借书者的个人资料等，该系统为图书管-理-员的管理提供了方便快捷。

要求：

1. 充分了解软件设计的全过程。

2. 从开始的系统需求分析到最后的代码编写，都要有详细的计划，设计文档应按照课程设计的要求书写。

3. 系统中的数据表设计应合理、高效，尽量减少数据冗余。

4. 数据库及表要易于维护、方便升级。

5. 必须包括数据库、表、查询、数据录入、删除、更新、约束建立等代码每人提交一个实训报告和可行的运行代码。

1.4 设计环境

1)、操作系统：windows XP

2)、数据库系统：Microsoft SQL Server 2000

二、需求分析

2.1 基本要求

按照题目的要求，要实现的基本功能有以下几条：

1）能够输入图书的综合情况和进行新书入库、现有图书信息修改以及删除； 2）能够实现对读者档案的查询和编辑管理； 3）能够进行罚款功能；

4）能够进行借阅历史的查询功能；

2.2 实现方法

按照要求，实现管-理-员的登录权限： 1）提供管-理-员对图书明细查询的功能； 2）管-理-员对图书等具有查询和修改权限； 3）按照借书的基本流程进行信息管理；

三、数据库设计

3.1 数据库概念结构设计

3.2 数据库逻辑结构设计

针对图书管理信息系统的需求，通过对借书流程的分析，设计如下面的数据项和数据结构：

注册信息表，包括的数据项有：(管-理-员类别、注册编号、密码、)； 学生信息表，包括的数据项有：(编号、学号、姓名、班级、性别、年龄)； 图书信息表，包括的数据项有：(图书编号、图书名称、图书类别、图书价格、作者性别、图书语言、出版日期、出版社)；

借书信息表，包括的数据项有：(图书编号、借出时间、还书时间、学生编号)；

3.3数据库物理设计

完成了数据库的逻辑设计之后，即可开始数据库的物理设计。基于以上数据库逻辑设计，考虑到程序设计的简易性及通用性，本图书管理信息系统采用的SQL Servier数据库，并在其下创建了以下数据表。

四、数据流图及程序结构框图

五、程序源代码及其说明

菜单界面代码：

Private Sub m_about_Click() frmAbout.Show End Sub

Private Sub m_book_Click() frmBookManage.Show End Sub

Private Sub m_bookquery_Click() frmBookQuery.Show End Sub

Private Sub m_exit_Click() Unload Me End Sub

Private Sub m_lend_Click() frmLoanManage.Show End Sub

Private Sub m_lend_report_Click() dsrBorrowManageReport.Show End Sub

Private Sub m_lendp_Click()

dsrLibraryRankReport.Show End Sub

用户登陆界面代码：

Option Explicit Private Sub CmdCancel_Click() Unload Me End Sub Private Sub CmdOk_Click() Dim miCount As Integer '用于记录输入密码次数 Dim str As String

str = "select 密码,管-理-员类别 from 管-理-员用户表 where 用户名 = '" & Trim(txtUserName.Text) & "'" Adodc1.RecordSource = str Adodc1.Refresh

If Adodc1.Recordset.EOF = True

Private Sub m_punish_Click() frmPunishManage.Show End Sub

Private Sub m_punish_report_Click() dsrFineManageReport.Show End Sub

Private Sub m_reader_Click() frmReaderManage.Show End Sub

Private Sub m_readerquery_Click() frmReaderQuery.Show End Sub

Private Sub m_rigister_Click() RegisterNewUsers.Show End Sub

Private Sub MDIForm_Load() If OA = True Then m_rigister.Enabled = False End Sub

Then MsgBox "用户名错误，请重新输入", vbExclamation, "警告" txtUserName.Text = "" txtUserName.SetFocus Else If

Trim(Adodc1.Recordset.Fields("密码")) = Trim(txtPassword.Text) And (OrdinaryUser.Value = True Or SuperUser.Value = True) Then

If OrdinaryUser.Value = True Then

OA = True

Else

SA = True End If

frmmdi.Show Unload Me Else

MsgBox "密码或管-理-员类别错误，请重新输入", vbExclamation,

读者管理信息界面代码：

Private Sub CmdAdd_Click() Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdCancel.Enabled = True MsgBox "添加读者信息成功" End Sub

Private Sub CmdCancel_Click() Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdCancel.Enabled = False End Sub

Private Sub CmdDel_Click() X = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion) If X = vbYes Then

http://lete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then

Adodc1.Recordset.MoveLast End If Else

Adodc1.Refresh End If End Sub

Private Sub Cmdexit_Click()

"警告"

txtPassword.Text = ""

txtPassword.SetFocus End If End If

miCount = miCount + 1

If miCount >= 3Then Unload Me End Sub

Unload Me End Sub

Private Sub CmdFirst_Click()

Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True End Sub

Private Sub CmdLast_Click()

Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False End Sub

Private Sub CmdNext_Click()

Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True

If Adodc1.Recordset.EOF = True Then

Adodc1.Recordset.MoveLast CmdLast.Enabled = False CmdNext.Enabled = False End If End Sub Private Sub CmdOk_Click() Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True

CmdOk.Enabled = False CmdCancel.Enabled = False End Sub

Private Sub CmdPre_Click()

Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True

If Adodc1.Recordset.BOF = True Then

Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If End Sub

Private Sub Form_Load()

CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True

图书信息查询界面代码：

Private Sub Cmdexit_Click() Unload Me End Sub

Private Sub cmdquery_Click() Dim str As String

str = "select* from 图书表 where 图书表." & Combo1.Text & " like '" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = str Adodc1.Refresh End Sub

Private Sub Combo1_Change() End Sub

Private Sub Form_Load() Combo1.AddItem "借阅状态"

新用户注册界面代码：

CmdOk.Enabled = False CmdCancel.Enabled = False CmdFirst.FontSize = 12 CmdPre.FontSize = 12 CmdNext.FontSize = 12 CmdLast.FontSize = 12 CmdAdd.FontSize = 12 CmdDel.FontSize = 12 CmdOk.FontSize = 12 CmdCancel.FontSize = 12 Cmdexit.FontSize = 12 Label1.FontSize = 12 Label2.FontSize = 12 Label3.FontSize = 12 Label4.FontSize = 12 Text1.FontSize = 12 Text2.FontSize = 12 Text3.FontSize = 12 Text4.FontSize = 12 End Sub

Combo1.AddItem "借阅次数" Combo1.AddItem "出版社" Combo1.AddItem "类别" Combo1.AddItem "书名" Combo1.Text = "借阅状态" Text1.Text = ""

Label1.FontSize = 12 Label2.FontSize = 12 Combo1.FontSize = 12 Text1.FontSize = 12 cmdquery.FontSize = 12 cmdexit.FontSize = 12 End Sub

Dim i As Integer

Private Sub CmdCancle_Click() Unload Me End Sub

Private Sub CmdEmpty_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

Private Sub CmdExamine_Click() Dim str As String

Dim pcount As Integer

str = "select 用户名 from 管-理-员用户表"

Adodc1.RecordSource = str Adodc1.Refresh

If Adodc1.Recordset.BOF = False Then pcount =

Adodc1.Recordset.RecordCount End If

For i = 1 To pcount If

Trim(Adodc1.Recordset.Fields("用户名")) = Trim(Text1.Text) Then MsgBox "警告，该用户名已被注册！"

Text1.SetFocus

Exit For

End If

Adodc1.Recordset.MoveNext Next i

If i > pcount Then MsgBox "恭喜你，该用户名可用！": Text2.SetFocus End Sub

Private Sub CmdRegister_Click() Dim str As String

str = "select* from 管-理-员用户表"

Adodc1.RecordSource = str Adodc1.Refresh

If Adodc1.Recordset.BOF = False Then

pcount = Adodc1.Recordset.RecordCount End If If

i Adodc1.Recordset.PageCount And Trim(Text2.Text) = Trim(Text3.Text) Then

Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text) Adodc1.Recordset.Fields("管-理-员类别") = Combo1.Text Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Adodc1.Recordset.Updat MsgBox "恭喜，成功注册新用户！"

Else MsgBox "对不起，两次输入密码不一致!" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End Sub

Private Sub Form_Load()

Combo1.AddItem "一般管-理-员" Combo1.AddItem "超级管-理-员" Combo1.Text = "一般管-理-员" End Sub

六、总结

这两周是我们SQL Server 数据库的实习，经过这次的实习，我对数据库这门课程有了更深的了解，简单的说下我对数据库的理解吧。我觉得它就是创建一些表格，然后再用一些语句根据他们之间的关系，把它们组合在一起，这次的实习我选择的是学院图书管理系统。首先我对创建该系统进行了项目背景与市场需求的分析，然后再开始动手做。

这次我们实习的内容是从数据库、数据表的创建和修改开始的，表是建立关系数据库的基本结构，用来存储数据具有已定义的属性，在表的操作过程中，有查看表信息、查看表属性、修改表中的数据、删除表中的数据及修改表和删除表的操作。从实习中让我更明白一些知识，表是数据最重要的一个数据对象，表的创建好坏直接关系到数数据库的成败，表的内容是越具体越好，但是也不能太繁琐，以后在实际应用中多使用表，对表的规划和理解就会越深刻。

在这次的实习中，我也遇到了不少困难。在结合具体的图书管理应用系统和SQL Sever2000，我遇到的困难有很多，比如如何把数据库连接到系统中，如何耐心地往表中输入数据，如何应用触发器，如何熟练掌握设计界面的方法…. 其实现在想想数据库学起来也是不难的，熟能生巧嘛，不懂的多问问老师，多自己动手练练，渐渐的就会了。但有一点必须注意，那就是上课必须跟着老师的进度走，一定要注意听讲，勤做笔记.这样，你学起来就会得心应手，没什么困难。 总之，在这次的实习中我受益匪浅。我们信管专业学的就是编程，系统开发这一方面的知识，这次的实习虽然我们最终做出来的系统还不是很成熟，但这至少勾起了我们对它的兴趣，从而在以后的学习过程中更有学习的动力，这样对以后工作也起到了很大的帮助作用。最后感谢老师们在我们的学习过程中给予我们的教导和帮助。希望我们以后在自己的专业的领域中能踏出一片天地！