數(shù)據(jù)庫(kù)圖書管理系統(tǒng)實(shí)訓(xùn)報(bào)告

1、數(shù)據(jù)庫(kù)原理集中實(shí)訓(xùn)報(bào)告系統(tǒng)名稱： 專 業(yè)： 班 級(jí)： 學(xué) 號(hào)： 姓 名： 指導(dǎo)教師： 2014年6月17日 目錄1、前言11.1 課題簡(jiǎn)介11、開發(fā)系統(tǒng)的名稱：12、實(shí)訓(xùn)目的：13、實(shí)訓(xùn)意義：14、實(shí)訓(xùn)內(nèi)容:15、實(shí)訓(xùn)預(yù)期實(shí)現(xiàn)效果:11.2 方案及其論證12、需求分析12.1可行性分析12.2系統(tǒng)功能分析21、系統(tǒng)功能結(jié)構(gòu)圖22、系統(tǒng)功能分析23、概念模型設(shè)計(jì)3E-R圖34、邏輯模型設(shè)計(jì)3關(guān)系模型35、詳細(xì)設(shè)計(jì)45.1建立數(shù)據(jù)庫(kù)代碼45.2建立前臺(tái)界面以及其代碼56、總結(jié)127、參考文獻(xiàn)121、前言1.1 課題簡(jiǎn)介1、開發(fā)系統(tǒng)的名稱：圖書管理系統(tǒng)2、實(shí)訓(xùn)目的： 通過(guò)本次實(shí)訓(xùn)，應(yīng)熟悉并掌握數(shù)據(jù)庫(kù)

2、系統(tǒng)開發(fā)的基本方法，對(duì)理論教學(xué)中所講的知識(shí)和基本概念有更進(jìn)一步的理解，培養(yǎng)和提高實(shí)踐操作能力，為今后從事計(jì)算機(jī)數(shù)據(jù)庫(kù)系統(tǒng)的研究、開發(fā)、應(yīng)用提供必要的準(zhǔn)備。3、實(shí)訓(xùn)意義：利用這次的實(shí)訓(xùn)，提高學(xué)生對(duì)理論知識(shí)的理解能力和實(shí)踐技能。熟練掌握SQL語(yǔ)句的使用，掌握分析和設(shè)計(jì)數(shù)據(jù)庫(kù)的方法，會(huì)結(jié)合高級(jí)程序設(shè)計(jì)語(yǔ)言完成數(shù)據(jù)庫(kù)系統(tǒng)的實(shí)現(xiàn)過(guò)程，培養(yǎng)學(xué)生的自學(xué)能力和創(chuàng)新能力。4、實(shí)訓(xùn)內(nèi)容:需求分析：可行性分析、系統(tǒng)功能設(shè)計(jì)概念模型設(shè)計(jì)邏輯結(jié)構(gòu)設(shè)計(jì)：關(guān)系模式、規(guī)范處理、視圖設(shè)計(jì)詳細(xì)設(shè)計(jì)：建立前臺(tái)界面調(diào)試并運(yùn)行5、實(shí)訓(xùn)預(yù)期實(shí)現(xiàn)效果: 通過(guò)此次實(shí)訓(xùn)，學(xué)生能夠熟練的建立數(shù)據(jù)庫(kù)，并在VS開發(fā)環(huán)境下編寫管理系統(tǒng)。編寫成功的圖書

3、管理系統(tǒng)，能進(jìn)行圖書的查詢、借閱、歸還等簡(jiǎn)單的基本操作。1.2 方案及其論證語(yǔ)言： SQL+VB運(yùn)行環(huán)境：Microsoft Visual Stdio 20102、需求分析2.1可行性分析目前，我們已經(jīng)大概學(xué)習(xí)了SQL server,對(duì)網(wǎng)絡(luò)技術(shù)也有一定的了解，而且圖書管理系統(tǒng)已經(jīng)得到了大量的運(yùn)用，有許多可供參考的成功系統(tǒng)。而且，網(wǎng)上有許多關(guān)于VisualStudioC#編程的資料和SQLServer方面的資料。從技術(shù)角度考慮，此系統(tǒng)開發(fā)可行。2.2系統(tǒng)功能分析1、系統(tǒng)功能結(jié)構(gòu)圖全部圖書查詢圖書借閱查詢圖書管理查詢學(xué)生信息查詢圖書歸還圖書借閱圖書管理圖書管理系統(tǒng)圖書查詢圖書管理圖書管理系統(tǒng)圖書查

4、詢圖書借閱2、系統(tǒng)功能分析圖書管理系統(tǒng)的流程是用戶先選擇自己的身份，是管理員或者是學(xué)生。如果是學(xué)生，則進(jìn)入學(xué)生登錄界面，登陸成功后，學(xué)生所能做的操作就是查詢圖書的信息。如果是管理員，則進(jìn)入管理員登陸界面，登錄成功后，能進(jìn)行查詢，圖書借閱、歸還等操作，通過(guò)此操作刪改學(xué)生借還圖書的信息。3、概念模型設(shè)計(jì)E-R圖學(xué)生姓名學(xué)號(hào)聯(lián)系電話班級(jí)性別出版社定價(jià)分類號(hào)作者書名管理圖書書號(hào)數(shù)量編號(hào)密碼聯(lián)系電話管理員姓名備注管理日期借閱借閱時(shí)間 m m借閱量 n nn4、邏輯模型設(shè)計(jì)關(guān)系模型學(xué)生（學(xué)號(hào)，姓名，性別，班級(jí)，聯(lián)系電話）圖書（書號(hào)，書名，作者，定價(jià)，數(shù)量，分類號(hào)，出版社名稱）管理員（編號(hào)，密碼，姓名，聯(lián)系

5、電話）借閱（學(xué)號(hào)，書號(hào)，借閱時(shí)間，借閱量）管理（編號(hào)，書號(hào)，備注，管理日期）5、詳細(xì)設(shè)計(jì)5.1建立數(shù)據(jù)庫(kù)代碼create database books_management /建立數(shù)據(jù)庫(kù)on(name=books_management,filename=E:圖書管理數(shù)據(jù)庫(kù)books_management.mdf,size=10,maxsize=10,filegrowth=10)log on(name=books_management_log,filename=E:圖書管理數(shù)據(jù)庫(kù)books_management_log.ldf,size=10,maxsize=10,filegrowth=10)G

6、ocreate table student/建立學(xué)生表(學(xué)號(hào) varchar(200) primary key, 姓名 varchar(200) not null, 性別 varchar(100) not null default男， 班級(jí) varchar(200)not null, 聯(lián)系電話 varchar(400) not null)create table books/建立圖書表(書號(hào) varchar(200) primary key,書名 varchar(200) not null,作者 varchar(200) not null,定價(jià) varchar(200) not null,數(shù)量

7、 varchar(200) not null,分類號(hào) varchar(200) not null,出版社 varchar(200) not null,)create table administrator /建立管理員表(編號(hào) varchar(200) primary key, 密碼 varchar(200) not null, 姓名 varchar(100) not null , 聯(lián)系電話 varchar(400) not null,)create table borrow /建立借閱表(學(xué)號(hào) varchar(200) not null, 書號(hào) varchar(200) not null,

8、借閱時(shí)間 varchar(100) not null , 借閱量 varchar(400) not null, primary key(學(xué)號(hào),書號(hào))create table management /建立管理表(編號(hào) varchar(200) not null, 書號(hào) varchar(200) not null, 管理日期 varchar(100) not null , 備注 varchar(400) not null, primary key(編號(hào),書號(hào))5.2建立前臺(tái)界面以及其代碼1、當(dāng)圖書管理系統(tǒng)打開時(shí)的界面如圖5.1所示 圖5.1Public Class Form1Private Sub

9、 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As Sys

10、tem.EventArgs) Handles Button2.Click Form3.Show() End SubEnd Class2、當(dāng)點(diǎn)擊學(xué)生按鈕后，進(jìn)入了學(xué)生登陸系統(tǒng) 圖5.2代碼如下：PublicClassForm2PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArg

11、s) Handles Button1.ClickIf TextBox1.Text = Or TextBox2.Text = Then MsgBox(用戶名和密碼不能為空?)Else checkLoginName()EndIfEndSubSub checkLoginName()Dim strcon AsString = data source=XP23;initial catalog=books_management;user id=XP23Administrator;pwd=;integrated security=true;Dim con AsSqlConnection = NewSqlCo

12、nnection(strcon) con.Open()Dim sql AsString = select * from student where 學(xué)號(hào)=& TextBox1.Text.ToString().Trim() &and 密碼=& TextBox2.Text.ToString().Trim() &Dim cmd AsNewSqlCommand(sql, con)Dim reader AsSqlDataReader reader = cmd.ExecuteReaderIf reader.Read() = TrueThenMe.Hide()Form4.Show()Else MsgBox(

13、登陸失敗，請(qǐng)檢查你的用戶名，密碼，登陸權(quán)限是否正確)EndIfEndSub3、當(dāng)學(xué)生登陸成功后，進(jìn)入查詢界面，輸入圖書編號(hào)，點(diǎn)擊“搜索”按鈕可查詢改圖書信息。如果點(diǎn)擊“查詢?nèi)俊卑粹o，即可查詢所有的圖書信息。圖5.3按圖書編號(hào)查詢圖書信息的代碼如下：Dim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim stuNum AsString = Me.TextBox1.TextDim selectStudent AsString = select * from books where 書號(hào)= + stuNum + Dim ds

14、 AsDataSet = NewDataSet()Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, books)Me.DataGridView1.DataSource = ds.Tables(books) con.Close()4、如果在圖5.1中單擊的是“管理員”按鈕，則進(jìn)入管理員登陸界面，如圖5.4 圖5.45、當(dāng)成功登陸管理員系統(tǒng)后，進(jìn)入圖書管理界面，如圖5.5 圖5.56、當(dāng)點(diǎn)擊圖5.5的“圖書查詢”按鈕時(shí)，進(jìn)入圖書查詢界面。當(dāng)單擊“圖書借閱信息查詢”按鈕時(shí)，學(xué)生的借閱信息將在下面顯示

15、，如圖5.6。當(dāng)點(diǎn)擊其他三個(gè)按鈕時(shí)也會(huì)出現(xiàn)相應(yīng)的信息。圖5.6 代碼如下：Imports System.DataImports System.Data.SqlClientPublicClassForm6Dim strcon AsString = data source=XP23;initial catalog=books_management;user id=XP23Administrator;pwd=;integrated security=true;PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As Syst

16、em.EventArgs) Handles Button1.ClickDim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim selectStudent AsString = select * from borrowDim ds AsDataSet = NewDataSet()Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, borrow)Me.DataGridView1.DataSource = ds.Tables(b

17、orrow) con.Close()EndSub7、當(dāng)點(diǎn)擊圖5.5中的“圖書管理”按鈕時(shí)，進(jìn)入圖書管理界面，如圖5.7圖5.78、當(dāng)點(diǎn)擊圖5.5中的“圖書借閱”按鈕時(shí)，進(jìn)入圖書借閱界面，如圖5.8。圖5.8代碼如下：Dim name AsString = Me.TextBox3.TextDim num AsString = Me.TextBox4.TextDim time AsString = Me.TextBox5.TextDim num2 AsString = Me.TextBox6.TextDim addclass AsString = String.Format(insert into

18、 borrow values(0,1,2,3), name, num, time, num2)Dim strcon AsString = data source=XP23;initial catalog=books_management;user id=XP23Administrator;pwd=;integrated security=true;Dim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim cmd AsSqlCommand = NewSqlCommand(addclass, con)Dim result As

19、Integer = cmd.ExecuteNonQuery()If (result 1) ThenMessageBox.Show(添加失敗!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseMessageBox.Show(添加成功!, 操作提示,MessageBoxButtons.OK, MessageBoxIcon.Information)Me.Close()EndIf9、當(dāng)點(diǎn)擊圖5.5中的“圖書歸還”按鈕時(shí)，進(jìn)入圖書歸還界面，如圖5.9。當(dāng)點(diǎn)擊下圖中要?jiǎng)h除的行時(shí)，根據(jù)學(xué)號(hào)和書號(hào)刪除該列。圖5.9代碼如下：PrivateSub

20、Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim stuNum1 AsString = Me.TextBox1.TextDim stuNum2 AsString = Me.TextBox2.TextDim selectStudent AsString = select * from borrow where 學(xué)號(hào)= + stuN

21、um1 + and 書號(hào)= + stuNum2 + Dim ds AsDataSet = NewDataSet()Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, borrow)Me.DataGridView1.DataSource = ds.Tables(borrow) con.Close()EndSubPrivateSub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Wind

22、ows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClickDim stuid AsString = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim()Dim stuid1 AsString = Me.DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString().Trim()IfMessageBox.Show(確定要?jiǎng)h除該用戶嗎？, 操作警告,MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes ThenDim deleteStudent AsString = String.Format(DELETE FROM borrow WHERE 學(xué)號(hào)= + stuid + and 書號(hào)= + stuid1 + )Dim con AsSqlConnection = NewSqlConnection