文章插圖
大數據實*問題 。在這種情況下，一個可以規范化，自動化*圖書**對于圖書館來說顯得至關重要 。
最初*圖書*，都是*人力完成 ， 在圖書館規模比較小*時候，人力可以很好完成，但隨著規模*增大，圖書數量越來越多，這種**壓力也越來越大，各種弊端顯示出來 。網絡*到來給這帶來了很大*便利 ， 特別是對于圖書管-理-員來說 。
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 **實**幫助作用 。最后感謝老師們在我們*學習過程中給予我們*教導和幫助 。希望我們以后在自己*專業*領域中能踏出一片天地！

推薦閱讀

• 

  靜安司的內鬼是誰
• 

  垃圾分類8字順口溜 塑料袋是什么垃圾
• 

  我的理想是警察作文
• 

  對象過生日送什么禮物,安利一波誠意滿滿的
• 

  黃河的歌曲 黃河的歌曲歌詞
• 

  衛生棉條的優缺點介紹 衛生棉條的優缺點
• 

  白蘭花歌詞 白蘭花葉子邊緣焦黑怎么處理
• 

  下元節十月十五出生的屬馬人命運好嗎，屬馬最吉利的出生日子
• 

  手機電子發票在哪里看
• 

  榮耀90和opporeno10哪個好區別在哪 榮耀10和oppor9s對比
• 

  蘋果怎么能保存時間長一些 蘋果怎么能保存時間長
• 

  如何收集爭取孩子撫養權的證據
• 

  正常膽囊內多少膽汁
• 

  水兔之命 出生日期五行查詢 1963年出生是什么命？
• 

  綠蘿施什么肥料長得好，綠蘿施肥什么肥料好呢？
• 

  500ml保溫杯需要托運嗎
• 

  廣州有什么好玩的
• 

  拓跋氏是什么民族？
• 

  it行業前景 it行業工資一般多少
• 

  垃圾桶有小飛蟲怎么辦

• 華為手環8將于4月17日發布 采用超大面積屏幕
• 大學生實習報告建材銷售總結
• 大連地鐵5號線全程多長時間到達 大連地鐵5號線全程多長時間到達機場
• 部隊男澡堂全程被拍 部隊男澡堂全程被拍
• 花好月圓歌曲 花好月圓歌曲表達的感情
• 大學統計實習報告總結
• 尼康APS-C相機添大光圈鏡頭 適馬Z卡口三劍客即將上市
• 大連地鐵5號線全程多少公里 大連地鐵5號線車站全線站名
• 腦血栓特效藥 腦血栓特效藥帶蛇的
• 大專幼師實習報告范文