数据库图书管理系统实训报告

1、精选优质文档-倾情为你奉上数据库原理集中实训报告系统名称： 专 业： 班 级： 学 号： 姓 名： 指导教师： 2014年6月17日专心-专注-专业 目录1、前言1.1 课题简介1、开发系统的名称：图书管理系统2、实训目的： 通过本次实训，应熟悉并掌握数据库系统开发的基本方法，对理论教学中所讲的知识和基本概念有更进一步的理解，培养和提高实践操作能力，为今后从事计算机数据库系统的研究、开发、应用提供必要的准备。3、实训意义：利用这次的实训，提高学生对理论知识的理解能力和实践技能。熟练掌握SQL语句的使用，掌握分析和设计数据库的方法，会结合高级程序设计语言完成数据库系统的实现过程，培养学生的自学能

2、力和创新能力。4、实训内容:需求分析：可行性分析、系统功能设计概念模型设计逻辑结构设计：关系模式、规范处理、视图设计详细设计：建立前台界面调试并运行5、实训预期实现效果: 通过此次实训，学生能够熟练的建立数据库，并在VS开发环境下编写管理系统。编写成功的图书管理系统，能进行图书的查询、借阅、归还等简单的基本操作。1.2 方案及其论证语言： SQL+VB运行环境：Microsoft Visual Stdio 20102、需求分析2.1可行性分析目前，我们已经大概学习了SQL server,对网络技术也有一定的了解，而且图书管理系统已经得到了大量的运用，有许多可供参考的成功系统。而且，网上有许多关

3、于Visual Studio C#编程的资料和SQL Server方面的资料。 从技术角度考虑，此系统开发可行。2.2系统功能分析1、系统功能结构图全部图书查询图书借阅查询图书管理查询学生信息查询图书归还图书借阅图书管理图书管理系统图书查询图书管理图书管理系统图书查询图书借阅2、系统功能分析图书管理系统的流程是用户先选择自己的身份，是管理员或者是学生。如果是学生，则进入学生登录界面，登陆成功后，学生所能做的操作就是查询图书的信息。如果是管理员，则进入管理员登陆界面，登录成功后，能进行查询，图书借阅、归还等操作，通过此操作删改学生借还图书的信息。3、概念模

4、型设计E-R图学生姓名学号联系电话班级性别出版社定价分类号作者书名管理图书书号数量编号密码联系电话管理员姓名备注管理日期借阅借阅时间 m m借阅量 n nn4、逻辑模型设计关系模型学生（学号，姓名，性别，班级，联系电话）图书（书号，书名，作者，定价，数量，分类号，出版社名称）管理员（编号，密码，姓名，联系电话）借阅（学号，书号，借阅时间，借阅量）管理（编号，书号，备注，管理日期）5、详细设计5.1建立数据库代码create database books_management /建立数据库on(name='books_management',filename='E:图书管

5、理数据库books_management.mdf',size=10,maxsize=10,filegrowth=10)log on(name='books_management_log',filename='E:图书管理数据库books_management_log.ldf',size=10,maxsize=10,filegrowth=10)Gocreate table student/建立学生表(学号 varchar(200) primary key, 姓名 varchar(200) not null, 性别 varchar(100) not null

6、 default'男'， 班级 varchar(200)not null, 联系电话 varchar(400) not null)create table books/建立图书表(书号 varchar(200) primary key,书名 varchar(200) not null,作者 varchar(200) not null,定价 varchar(200) not null,数量 varchar(200) not null,分类号 varchar(200) not null,出版社 varchar(200) not null,)create table administ

7、rator /建立管理员表(编号 varchar(200) primary key, 密码 varchar(200) not null, 姓名 varchar(100) not null , 联系电话 varchar(400) not null,)create table borrow /建立借阅表(学号 varchar(200) not null, 书号 varchar(200) not null, 借阅时间 varchar(100) not null , 借阅量 varchar(400) not null, primary key(学号,书号)create table management

8、 /建立管理表(编号 varchar(200) not null, 书号 varchar(200) not null, 管理日期 varchar(100) not null , 备注 varchar(400) not null, primary key(编号,书号)5.2建立前台界面以及其代码1、当图书管理系统打开时的界面如图5.1所示 图5.1Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End S

9、ub 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 System.EventArgs) Handles Button2.Click Form3.Show() End SubEnd Class2、当点击学生按钮后，进入了学生登陆系统 图5.2代码如下：P

10、ublicClassForm2PrivateSub 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.EventArgs) Handles Button1.ClickIf TextBox1.Text = ""Or TextBox2.Text = ""Then MsgBox

11、("用户名和密码不能为空?")Else checkLoginName()EndIfEndSubSub checkLoginName()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 sql AsString = &qu

12、ot;select * from student where 学号='"& TextBox1.Text.ToString().Trim() &"'and 密码='"& TextBox2.Text.ToString().Trim() &"'"Dim cmd AsNewSqlCommand(sql, con)Dim reader AsSqlDataReader reader = cmd.ExecuteReaderIf reader.Read() = TrueThenMe.Hide()F

13、orm4.Show()Else MsgBox("登陆失败，请检查你的用户名，密码，登陆权限是否正确")EndIfEndSub3、当学生登陆成功后，进入查询界面，输入图书编号，点击“搜索”按钮可查询改图书信息。如果点击“查询全部”按钮，即可查询所有的图书信息。图5.3按图书编号查询图书信息的代码如下：Dim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim stuNum AsString = Me.TextBox1.TextDim selectStudent AsString = "select

14、 * from books where 书号='" + stuNum + "'"Dim ds AsDataSet = NewDataSet()Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, "books")Me.DataGridView1.DataSource = ds.Tables("books") con.Close()4、如果在图5.1中单击的是“管理员”按钮，则进入管理员登陆界面，如图5.4 图5.

15、45、当成功登陆管理员系统后，进入图书管理界面，如图5.5 图5.56、当点击图5.5的“图书查询”按钮时，进入图书查询界面。当单击“图书借阅信息查询”按钮时，学生的借阅信息将在下面显示，如图5.6。当点击其他三个按钮时也会出现相应的信息。图5.6 代码如下：Imports System.DataImports System.Data.SqlClientPublicClassForm6Dim strcon AsString = "data source=XP23;initial catalog=books_management;user id=XP23Administrator;pw

16、d=;integrated security=true;"PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim selectStudent AsString = "select * from borrow"Dim ds AsDataSet = NewDataSet()Dim da

17、AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, "borrow")Me.DataGridView1.DataSource = ds.Tables("borrow") con.Close()EndSub7、当点击图5.5中的“图书管理”按钮时，进入图书管理界面，如图5.7图5.78、当点击图5.5中的“图书借阅”按钮时，进入图书借阅界面，如图5.8。图5.8代码如下：Dim name AsString = Me.TextBox3.TextDim num AsStrin

18、g = Me.TextBox4.TextDim time AsString = Me.TextBox5.TextDim num2 AsString = Me.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

19、=books_management;user id=XP23Administrator;pwd=;integrated security=true;"Dim con AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim cmd AsSqlCommand = NewSqlCommand(addclass, con)Dim result AsInteger = cmd.ExecuteNonQuery()If (result < 1) ThenMessageBox.Show("添加失败!", "

20、操作提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseMessageBox.Show("添加成功!", "操作提示",MessageBoxButtons.OK, MessageBoxIcon.Information)Me.Close()EndIf9、当点击图5.5中的“图书归还”按钮时，进入图书归还界面，如图5.9。当点击下图中要删除的行时，根据学号和书号删除该列。图5.9代码如下：PrivateSub Button1_Click(ByVal sender As System.Objec

21、t, 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 学号='" + stuNum1 + "'and 书号=&

22、#39;" + 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

23、 System.Object, ByVal e As System.Windows.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

24、.Show("确定要删除该用户吗？", "操作警告",MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes ThenDim deleteStudent AsString = String.Format("DELETE FROM borrow WHERE 学号='" + stuid + "'and 书号='" + stuid1 + "'")Dim con AsSqlConnection = NewSqlConnection(strco