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

1、数据库图书管理系统实训报告数据库原理集中实训报告系统名称： 专 业： 班 级： 学 号： 姓 名： 指导教师： 2014年6月17日1、前言 11.1 课题简介 11、开发系统的名称： 12、实训目的： 13、实训意义： 14、实训内容: 15、实训预期实现效果: 11.2 方案及其论证 12、需求分析 12.1可行性分析 12.2系统功能分析 21、系统功能结构图 22、系统功能分析 23、概念模型设计 3E-R图 34、逻辑模型设计 3关系模型 35、详细设计 45.1建立数据库代码 45.2建立前台界面以及其代码 56、总结 127、参考文献 121、前言1.1 课题简介1、开发系统的名

2、称：图书管理系统2、实训目的： 通过本次实训，应熟悉并掌握数据库系统开发的基本方法，对理论教学中所讲的知识和基本概念有更进一步的理解，培养和提高实践操作能力，为今后从事计算机数据库系统的研究、开发、应用提供必要的准备。3、实训意义：利用这次的实训，提高学生对理论知识的理解能力和实践技能。熟练掌握SQL语句的使用，掌握分析和设计数据库的方法，会结合高级程序设计语言完成数据库系统的实现过程，培养学生的自学能力和创新能力。4、实训内容:需求分析：可行性分析、系统功能设计概念模型设计逻辑结构设计：关系模式、规范处理、视图设计详细设计：建立前台界面调试并运行5、实训预期实现效果: 通过此次实训，学生能够

3、熟练的建立数据库，并在VS开发环境下编写管理系统。编写成功的图书管理系统，能进行图书的查询、借阅、归还等简单的基本操作。1.2 方案及其论证语言： SQL+VB运行环境：Microsoft Visual Stdio 20102、需求分析2.1可行性分析目前，我们已经大概学习了SQL server,对网络技术也有一定的了解，而且图书管理系统已经得到了大量的运用，有许多可供参考的成功系统。而且，网上有许多关于Visual?Studio?C#编程的资料和SQL?Server方面的资料。?从技术角度考虑，此系统开发可行。2.2系统功能分析1、系统功能结构图2、系统功能分析图书管理系统的流程是用户先选择

4、自己的身份，是管理员或者是学生。如果是学生，则进入学生登录界面，登陆成功后，学生所能做的操作就是查询图书的信息。如果是管理员，则进入管理员登陆界面，登录成功后，能进行查询，图书借阅、归还等操作，通过此操作删改学生借还图书的信息。3、概念模型设计E-R图 m m n n n4、逻辑模型设计关系模型学生（学号，姓名，性别，班级，联系电话）图书（书号，书名，作者，定价，数量，分类号，出版社名称）管理员（编号，密码，姓名，联系电话）借阅（学号，书号，借阅时间，借阅量）管理（编号，书号，备注，管理日期）5、详细设计5.1建立数据库代码create database books_management /建

5、立数据库on(name=books_management,filename=E:图书管理数据库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, 性别 var

6、char(100) not null 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

7、administrator /建立管理员表(编号 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 ma

8、nagement /建立管理表(编号 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.Lo

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

10、.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.EventArgs) Handles Button1.ClickIf TextBox1.Text = Or TextBox2.Text = Then MsgBox(用户名和密码不能为空)Else

11、 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 = select * from student where 学号=and 密码=Dim cm

12、d AsNewSqlCommand(sql, con)Dim reader AsSqlDataReader reader = cmd.ExecuteReaderIf reader.Read() = TrueThenMe.Hide()Form4.Show()Else MsgBox(登陆失败，请检查你的用户名，密码，登陆权限是否正确)EndIfEndSub3、当学生登陆成功后，进入查询界面，输入图书编号，点击“搜索”按钮可查询改图书信息。如果点击“查询全部”按钮，即可查询所有的图书信息。图5.3按图书编号查询图书信息的代码如下：Dim con AsSqlConnection = NewSqlCon

13、nection(strcon) con.Open()Dim stuNum AsString = Me.TextBox1.TextDim selectStudent AsString = select * 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.Cl

14、ose()4、如果在图5.1中单击的是“管理员”按钮，则进入管理员登陆界面，如图5.4 图5.45、当成功登陆管理员系统后，进入图书管理界面，如图5.5 图5.56、当点击图5.5的“图书查询”按钮时，进入图书查询界面。当单击“图书借阅信息查询”按钮时，学生的借阅信息将在下面显示，如图5.6。当点击其他三个按钮时也会出现相应的信息。图5.6 代码如下：Imports System.DataImportsPublicClassForm6Dim strcon AsString = data source=XP23;initial catalog=books_management;user id=X

15、P23Administrator;pwd=;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 borrowDim ds AsDataSet = NewDataSet()Dim da

16、 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 AsString = Me.TextBox4.TextDim

17、 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=books_management;user id=XP23Administrator;pwd=;integrated security=true;Dim con

18、 AsSqlConnection = NewSqlConnection(strcon) con.Open()Dim cmd AsSqlCommand = NewSqlCommand(addclass, con)Dim result AsInteger = cmd.ExecuteNonQuery()If (result 1) ThenMessageBox.Show(添加失败!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseMessageBox.Show(添加成功!, 操作提示,MessageBoxButtons.OK, Messa

19、geBoxIcon.Information)Me.Close()EndIf9、当点击图5.5中的“图书归还”按钮时，进入图书归还界面，如图5.9。当点击下图中要删除的行时，根据学号和书号删除该列。图5.9代码如下：PrivateSub 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.

20、TextBox1.TextDim stuNum2 AsString = Me.TextBox2.TextDim selectStudent AsString = select * from borrow where 学号= + stuNum1 + and 书号= + stuNum2 + Dim ds AsDataSet = NewDataSet()Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent, con) da.Fill(ds, borrow)Me.DataGridView1.DataSource = ds.Tables(bo

21、rrow) con.Close()EndSubPrivateSub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e AsDataGridViewCellEventArgs) Handles DataGridView1.CellContentClickDim stuid AsString = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim()Dim stuid1 AsString = Me.DataGridView1.Row

22、s(e.RowIndex).Cells(1).Value.ToString().Trim()IfMessageBox.Show(确定要删除该用户吗？, 操作警告,MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes ThenDim deleteStudent AsString = String.Format(DELETE FROM borrow WHERE 学号= + stuid + and 书号= + stuid1 + )Dim con AsSqlConnection = NewSq

23、lConnection(strcon) con.Open()Dim cmd AsSqlCommand = NewSqlCommand(deleteStudent, con)Dim result AsInteger = Convert.ToInt32(cmd.ExecuteNonQuery() con.Close()If (result 1) ThenMessageBox.Show(删除失败!, 操作结果MessageBoxButtons.OK, MessageBoxIcon.Exclamation)ElseMessageBox.Show(删除成功!, 操作结果MessageBoxButtons

24、.OK, MessageBoxIcon.Information)Me.frmSearchStudent_Load(sender, e)EndIfEndIf6、总结通过此次实训，我受益匪浅。这是第一次将数据库所学的理论知识用于实践，独立的设计一个系统程序。对于我来说，在做这个系统的过程中，有好多不懂的地方如：界面的设计、编码问题、用户需求问题等。这个系统的功能还不够完善，很多地方因为所学的知识有限而没有做出来，这些都是不够好的地方，也是我一直需要努力的地方。此次实训不仅让我了解到自身学习的不足之处，也让我扩展了知识面，是对书本所学的知识点的延伸。在设计这个系统的过程中，我熟悉并掌握了Microsoft SQL Severe2010和VB数据库的使用。这是对自身知识丰富的一个过程，同时也感受到其中的快乐，激发了的兴趣，对于以后的学习有了更加坚定地信念。7、参考文献 1 周屹，李艳娟.数据库原理及开发应用（第二版）. 北京：清华大学出版社.2007.2肖慎勇.SQL server数据库管理与开发. 北京:清华大学出版社.2007