1、數據庫圖書管理系統實訓報告數據庫原理集中實訓報告系統名稱:專 業:班 級:學 號:姓 名:指導教師：2014年 6 月 17 日數據庫圖書管理系統實訓報告目錄1、前言 11、1課題簡介 11、開發系統的名稱： 12、實訓目的： 13、實訓意義： 14、實訓內容： 15、實訓預期實現效果： 11、2方案及其論證 12、需求分析 22、1可行性分析 22、2系統功能分析 21、系統功能結構圖 22、系統功能分析 23、概念模型設計 2E-R 圖 24、邏輯模型設計 3關系模型 35、詳細設計 35、1建立數據庫代碼 35、2建立前臺界面以及其代碼 56、總結 147、參考文獻 15數據庫圖書管理系

2、統實訓報告1、前言1 、 1 課題簡介1、開發系統的名稱:圖書管理系統2、實訓目的:通過本次實訓, 應熟悉并掌握數據庫系統開發的基本方法, 對理論教學中所講的知識與基本概念有更進一步的理解, 培養與提高實踐操作能力, 為今后從事計算機數據庫系統的研究、開發、應用提供必要的準備。3、實訓意義:利用這次的實訓I ,提高學生對理論知識的理解能力與實踐技能。熟練掌握SQM句的使用, 掌握分析與設計數據庫的方法, 會結合高級程序設計語言完成數據庫系統的實現過程, 培養學生的自學能力與創新能力。4、實訓內容:需求分析: 可行性分析、系統功能設計概念模型設計邏輯結構設計: 關系模式、規范處理、視圖設計詳細設

3、計: 建立前臺界面調試并運行5、實訓預期實現效果:通過此次實訓I ,學生能夠熟練的建立數據庫，并在VS開發環境下編寫管理系統。編寫成功的圖書管理系統, 能進行圖書的查詢、借閱、歸還等簡單的基本操作。1 、 2 方案及其論證語言 : SQL+VB運行環境：Microsoft Visual Stdio 20102、需求分析2、1可行性分析目前，我們已經大概學習了 SQLServer,對網絡技術也有一定的了解，而且圖書管理 系統已經得到了大量的運用，有許多可供參考的成功系統。而且，網上有許多關于 Visual Studio C#g程的資料與SQL Server方面的資料。從技術角度考慮，此系統開發可

4、行。2、2系統功能分析1、系統功能結構圖E-R圖4、邏輯模型設計關系模型學生（學號,姓名，性別，班級，聯系電話）圖書（書號，書名，作者，定價，數量,分類號，出版社名稱）管理員（編臣,密碼，姓名，聯系電話）借閱（學號，書號，借閱時間，借閱量）管理（編號，書號，備注，管理日期）5、詳細設計5、1建立數據庫代碼create database books_management / 建立數據庫on（name='books_management',圖書管理數據庫books_management mdf,size=10, maxsize=10,數據庫圖書管理系統實訓報告)log on(nam

5、e='books_management_log',圖書管理數據庫books_management_log、 ldf',size=10,maxsize=10,)Gocreate table student/ 建立學生表( 學號 varchar(200) primary key,姓名varchar(200) not null,性別varchar(100) not null default'男 ',班級 varchar(200)not null,聯系電話varchar(400)notnull)create table books/ 建立圖書表(書號 varch

6、ar(200) primary key,書名varchar(200) notnull,作者varchar(200) notnull,定價varchar(200) notnull,數量varchar(200) notnull,分類號varchar(200) not null,出版社varchar(200) not null,)create table administrator /建立管理員表( 編號varchar(200)primary key,密碼varchar(200)not null,姓名varchar(100) not null,聯系電話varchar(400) not null,)c

7、reate table borrow / 建立借閱表( 學號varchar(200) not null,書號varchar(200) not null,借閱時間varchar(100) not null ,借閱量 varchar(400) not null, primary key( 學號 , 書號 ) )create table management / 建立管理表( 編號varchar(200)notnull,書號varchar(200)notnull,管理日期varchar(100) not null ,備注varchar(400)notnull,primary key( 編號 , 書號

8、 ) )5、 2 建立前臺界面以及其代碼1、當圖書管理系統打開時的界面如圖5、 1 所示數據庫圖書管理系統實訓報告度選桿匚'回反圖書管理系統tainaialiiiiiai,iii ira'im rmrI季圣管理員圖5、1Public Class FormlPrivate Sub Form1_Load(ByVal sender As System、Object, ByVal e As System > EventArgs ) Handles MyBase LoadEnd SubPrivate Sub Button1_Click( ByVal sender As System

9、、Object , ByVal e As System、EventArgs ) Handles Button1、ClickForm2、Show()End SubPrivate Sub Button2_Click( ByVal sender As System、Object , ByVal e As System、EventArgs ) Handles Button2、ClickForm3、Show()End SubEnd Class2、當點擊學生按鈕后，進入了學生登陸系統圖5、2代碼如下：PublicClass Form2PrivateSub Form2_Load(ByVal sender A

10、s System、Object, ByVal e As System、EventArgs) HandlesMyBasesLoadEndSubPrivateSub Button1_Click( ByVal sender As System > Object, ByVal e As System > EventArgs ) HandlesButton1、ClickIf TextBox1、Text = "" Or TextBox2、Text = "" ThenMsgBox("用戶名與密碼不能為空？”)ElsecheckLoginName(

11、)EndIfEndSubSub checkLoginName()Dim strcon AsString = "data source=XP23;initial catalog=books_management;userid=XP23Administrator;pwd=;integrated security=true;"con 、Open()Dimsql AsString = "select * from student where 學號="& TextBoxI、Text、ToString() 、Trim() &"'an

12、d 密碼='"& TextBox2、Text、ToString() 、Trim() & ""'Dim cmd AsNeWJqlCommandsql, con)Dim reader AsSqlDataReaderreader = cmd 、ExecuteReaderIf reader、Read() = TrueThenMe Hide()Form4> Show()ElseMsgBox( "登陸失敗，請檢查您的用戶名，密碼，登陸權限就是否正確")EndIfEndSub3、當學生登陸成功后，進入查詢界面，輸入圖書編

13、號，點擊“搜索”按鈕可查詢改圖書信 息。如果點擊“查詢全部”按鈕，即可查詢所有的圖書信息。圖5、3按圖書編號查詢圖書信息的代碼如下：Dim con AsSqlConnection = NewSqlConnection (strcon)con、Open()數據庫圖書管理系統實訓報告Dim stuNum AsString = Me TextBoxI、TextDim selectStudentAsString = "select * from books where書號="'+ stuNum + ""'Dim ds AsDataSet = Ne

14、wDataSet ()Dim da AsSqlDataAdapter = NewSqlDataAdapter (selectStudent, con)da 、Fill(ds, "books")Ma DataGridView1、DataSource = ds、Tables( "books")con 、Close()4、如果在圖5、1中單擊的就是“管理員”按鈕，則進入管理員登陸界面，如圖5、4圖5、45、當成功登陸管理員系統后，進入圖書管理界面，如圖5、56、當點擊圖5、5的“圖書查詢”按鈕時，進入圖書查詢界面。當單擊“圖書借閱信息 查詢”按鈕時，學生的借閱

15、信息將在下面顯示，如圖5、6。當點擊其她三個按鈕時也會出 現相應的信息。圖5、6代碼如下：Imports System、DataImports System、Data、SqlClientPublicClass Form6Dim strcon AsString = "data source=XP23;initial catalog=books_management;userid=XP23Administrator;pwd=;integrated security=true;"PrivateSub Button1_Click( ByVal sender As System、Ob

16、ject, ByVal e As System、EventArgs) HandlesButton1、ClickDim con AsSqlConnection = NeWSqlConnection (strcon)con 、Open()Dim selectStudent AsString = "select * from borrow"Dim ds AsDataSet = NewDataSet ()Dim da AsSqlDataAdapter = NewSqlDataAdapter (selectStudent, con)da 、Fill(ds, "borrow&

17、quot;)Ma DataGridViewl、DataSource = ds、Tables( "borrow")數據庫圖書管理系統實訓報告con 、Close()EndSub7、當點擊圖5、5中的“圖書管理”按鈕時，進入圖書管理界面，如圖5、7圖5、78、當點擊圖5、5中的“圖書借閱”按鈕時，進入圖書借閱界面，如圖5、8代碼如下:Dim name AsString=Me、TextBox3、TextDim num AsString = Me、 TextBox4、 TextDim time AsString=Me、TextBox5、TextDim num2 AsString=M

18、e、TextBox6、TextDim addclass AsString = String 、 Format( "insert into 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;&

19、quot;Dim con AsSqlConnection = NewSqlConnection (strcon)con 、 Open()Dim cmd AsSqlCommand= NewSqlComman(daddclass, con)Dim result AsInteger = cmd 、 ExecuteNonQuery()If (result < 1) ThenMessageBox Show("添力口失敗！"，"操作提示",MessageBoxButtons、OK, MessageBoxIcon、Warning)ElseMessageBox S

20、howf添力口成功!","操作提示",MessageBoxButtons、OK, MessageBoxIcon、Information)Me、 Close()EndIf9、當點擊圖5、5 中的“圖書歸還”按鈕時,進入圖書歸還界面,如圖5、9。, 根據學號與書號刪除該列。圖5、9代碼如下:PrivateSub Button1_Click( ByVal sender As System、Object, ByVal e As System、EventArgs) HandlesButtonl、ClickDim con AsSqlConnection = NeWSqlCon

21、nection (strcon)con 、Open()Dim stuNum1 AsString = Me TextBox1、TextDim stuNum2 AsString = Me TextBox2、TextDim selectStudent AsString = "select * from borrow where 學號="'+ stuNum1 + "'and 書號="'+ stuNum2 + "'"Dim ds AsDataSet = NeWDataSet ()Dim da AsSqlDataA

22、dapter = NeWSqlDataAdapter (selectStudent, con)da 、Fill(ds, "borrow")Ma DataGridView1、DataSource = ds、Tables( "borrow")con 、Close()EndSubPrivateSub DataGridView1_CellContentClick( ByVal sender As System> Object , ByVal e As System> WindowsForms、DataGridViewCellEventArgs ) H

23、andles DataGridView1、CellContentClick Dim 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()If MessageBox Show("確定要刪除該用戶不？"，"操作警告",Messag

24、eBoxButtons、YesNo, MessageBoxIcon、 Warning) = Windows 、 Forms、 DialogResult 、 Yes ThenDim deleteStudent AsString = String、Format( "DELETE FROM borrow WHER學號='"+ stuid + "'and 書 號 ='" + stuid1 +"'" )Dim con AsSqlConnection = NewSqlConnection (strcon)con 、 Open()Dim cmd AsSqlCommand= NewSql