大数据实习报告 _实习

文章插图
大数据实*问题。在这种情况下，一个可以规范化，自动化*图书**对于图书馆来说显得至关重要。
最初*图书*，都是*人力完成，在图书馆规模比较小*时候，人力可以很好完成，但随着规模*增大，图书数量越来越多，这种**压力也越来越大，各种弊端显示出来。网络*到来给这带来了很大*便利，特别是对于图书管-理-员来说。
1.2课程设计目*
1. 熟悉大型****结构与组成；
2. 熟悉*应用**设计方法和开发过程；
3. 掌握一种***SQL SERVER2015*应用技术；
4. 熟悉*设计工具*使用；
5. 熟悉*安全*相关知识和技术；
6. 熟悉****和* 。
1.3题目及要求
题目：学院图书**
图书管-理-员可以通过图书编*来查询到该图书*详细资料，并且查询
出该书*借出还入情况，以及借书者**等，该*为图书管-理-员**提供了方便快捷。
要求：
1. 充分了解软件设计*全过程。
2. 从开始**需求*到最后*代码编写，都要有详细*计划，设计文档应按照课程设计*要求书写。
3. *中*数据表设计应合理、高效，尽量减少数据冗余。
4. *及表要易于*、方便升级。
5. 必须包括*、表、查询、数据录入、删除、更新、约束建立等代码每人提交一个实训报告和可行*运行代码。
1.4 设计环境
1*、*作*：windows XP
2*、**：Mic*soft SQL Server 2000
二、需求*
2.1 基*要求
按照题目*要求，要实现*基**能有以下几条：
1）能够输入图书*综合情况和进行新书入库、现有图书*修改以及删除； 2）能够实现对读者档案*查询和编辑*； 3）能够进行罚款*能；
4）能够进行借阅历史*查询*能；
2.2 实现方法
按照要求，实现管-理-员*登录权限： 1）提供管-理-员对图书明细查询**能； 2）管-理-员对图书等具有查询和修改权限； 3）按照借书*基*流程进行**；
*，包括*数据项有：*管-理-员类别、注册编*、*、*；学生*表，包括*数据项有：*编*、学*、姓名、班级、*别、年龄*；图书*表，包括*数据项有：*图书编*、图书名称、图书类别、图书价格、作者*别、图书语言、出版*期、出版社*；
借书*表，包括*数据项有：*图书编*、借出时间、还书时间、学生编**；
3.3*物理设计
完成了**逻辑设计之后，即可开始**物理设计。基于以上*逻辑设计，考虑到程序设计*简易*及通用*，*图书***采用*SQL Servier*，并在其下创建了以下数据表。
四、数据流图及程序结构框图
五、程序源代码及其说明
菜单界面代码：
P*vate Sub m_about_Click** frmAbout.Show End Sub
P*vate Sub m_book_Click** frmBookMa*.Show End Sub
P*vate Sub m_bookquery_Click** frmBookQuery.Show End Sub
P*vate Sub m_exit_Click** Unload Me End Sub
P*vate Sub m_lend_Click** frmLoanMa*.Show End Sub
P*vate Sub m_lend_report_Click** dsrBor*wMa*Report.Show End Sub
P*vate Sub m_lendp_Click**
dsrLibraryRankReport.Show End Sub
用户登陆界面代码：
Option Explicit P*vate Sub CmdCancel_Click** Unload Me End Sub P*vate Sub CmdOk_Click** Dim miCount As Integer "用于记录输入*次数 Dim str As St*ng
str = "select *,管-理-员类别 f*m 管-理-员用户表 where 用户名 = "" & T*m*txtUserName.Text* & """ Adodc1.RecordSource = str Adodc1.Refresh
If Adodc1.Recordset.EOF = True
P*vate Sub m_punish_Click** frmPunishMa*.Show End Sub
P*vate Sub m_punish_report_Click** dsrFineMa*Report.Show End Sub
P*vate Sub m_reader_Click** frmReaderMa*.Show End Sub
P*vate Sub m_readerquery_Click** frmReaderQuery.Show End Sub
P*vate Sub m_*gister_Click** RegisterNewUsers.Show End Sub
P*vate Sub MDIForm_Load** If OA = True Then m_*gister.Enabled = False End Sub
Then MsgBox "用户名错误，请重新输入", vbExcla*tion, "警告" txtUserName.Text = "" txtUserName.SetFocus Else If
T*m*Adodc1.Recordset.Fields*"*"** = T*m*txtPassword.Text* And *OrdinaryUser.Value = http://www.yezhishi.cn/info/True Or SuperUser.Value = True* Then
If OrdinaryUser.Value = http://www.yezhishi.cn/info/True Then
OA = True
Else
SA = True End If
frmmdi.Show Unload Me Else
MsgBox "*或管-理-员类别错误，请重新输入", vbExcla*tion,
读者**界面代码：
P*vate Sub CmdAdd_Click** Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdCancel.Enabled = True MsgBox "添加读者*成*" End Sub
P*vate Sub CmdCancel_Click** Adodc1.Refresh
CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdCancel.Enabled = False End Sub
P*vate 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
P*vate 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
P*vate Sub CmdFirst_Click**
Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True End Sub
P*vate Sub CmdLast_Click**
Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False End Sub
P*vate 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 P*vate Sub CmdOk_Click** Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True
CmdOk.Enabled = False CmdCancel.Enabled = False End Sub
P*vate 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
P*vate Sub Form_Load**
CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True
图书*查询界面代码：
P*vate Sub Cmdexit_Click** Unload Me End Sub
P*vate Sub cmdquery_Click** Dim str As St*ng
str = "select* f*m 图书表 where 图书表." & Combo1.Text & " like "" & T*m*Text1.Text* & "%"" Adodc1.RecordSource = str Adodc1.Refresh End Sub
P*vate Sub Combo1_Change** End Sub
P*vate 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
P*vate Sub CmdCancle_Click** Unload Me End Sub
P*vate Sub CmdEmpty_Click** Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub
P*vate Sub CmdExamine_Click** Dim str As St*ng
Dim pcount As Integer
str = "select 用户名 f*m 管-理-员用户表"
Adodc1.RecordSource = str Adodc1.Refresh
If Adodc1.Recordset.BOF = False Then pcount =
Adodc1.Recordset.RecordCount End If
For i = 1 To pcount If
T*m*Adodc1.Recordset.Fields*"用户名"** = T*m*Text1.Text* Then MsgBox "警告，该用户名已被注册！"
Text1.SetFocus
Exit For
End If
Adodc1.Recordset.MoveNext Next i
If i > pcount Then MsgBox "恭喜你，该用户名可用！": Text2.SetFocus End Sub
P*vate Sub CmdRegister_Click** Dim str As St*ng
str = "select* f*m 管-理-员用户表"
Adodc1.RecordSource = str Adodc1.Refresh
If Adodc1.Recordset.BOF = False Then
pcount = Adodc1.Recordset.RecordCount End If If
i Adodc1.Recordset.PageCount And T*m*Text2.Text* = T*m*Text3.Text* Then
Adodc1.Recordset.AddNew Adodc1.Recordset.Fields*"用户名"* = T*m*Text1.Text* Adodc1.Recordset.Fields*"管-理-员类别"* = Combo1.Text Adodc1.Recordset.Fields*"*"* = T*m*Text2.Text* Adodc1.Recordset.Updat MsgBox "恭喜，成*注册新用户！"
Else MsgBox "对不起，两次输入*不一致!" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End Sub
P*vate Sub Form_Load**
Combo1.AddItem "一般管-理-员" Combo1.AddItem "超级管-理-员" Combo1.Text = "一般管-理-员" End Sub
六、总结
【大数据实习报告】这两周是我们SQL Server **实**帮助作用。最后感谢老师们在我们*学习过程中给予我们*教导和帮助。希望我们以后在自己*专业*领域中能踏出一片天地！

大数据实习报告

推荐阅读

2022元宵节祝福语录文案100句

仙人掌的花语是什么呀仙人掌的花语是什么

清蒸华子鱼的做法美味可口简单易做

美国紫叶红栌和加拿大红叶紫荆有什么区别？观赏性怎么样？

2023年襄阳高中招生录取方式有哪几种襄阳市2020年高中阶段学校招生录取实施方案

烟台大学和鲁东大学哪个学校强一点烟台大学鲁东大学那个学校美女多？

山西浩博泰德信息技术有限公司_工商信用信息_经营范围期限状态_法人_地址_注册资本_怎么样

狗的桃花劫那一属相，属狗的桃花劫在哪一年

十二星座的标志符号

ios闹钟铃声怎么换歌

米线是用什么做的米线一般怎么吃

好听悦耳又多才的女孩名字

淘宝一件代发下单后怎么操作

2021湛江中考补录分数线湛江高中补录分数线2023

人渣scum菌类有哪些菌类汇总一览

十二星座代表的花语

离婚有负债的协议书的内容有哪些

世界最高跳楼机竟然都比四十层楼高

上海多灵沃森，多缸2006年圆锥破碎机传动轴怎么拆卸？

一片霸屏是正规药吗