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

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可行性分析目前，我们已经大概学习了 SQLServer,对网络技术也有一定的了解，而且图书管 理系统已经得到了大量的运用，有许多可供参考的成功系统。而且，网上有许多关于 Visual Studio C#编程的资料和SQL Server方面的资料。从技术角度考虑，此系 统开发可行。2.2系统功能分析1系统功能结构图图书管理系统图 书 管 理2、系统功能分析图 书 借

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

5、ageme nt /建立数据库on(n ame=books_ma nageme nt,图书管理数据库 books_management.mdf,size=10,maxsize=10,filegrowth=10)log on(n ame=books_ma nageme nt_log,图书管理数据库 books_management_log.ldf, size=10,maxsize=10,filegrowth=10)Gocreate table stude nt/建立学生表(学号 varchar(200) primary key,姓名 varchar(200) not null,性别 varcha

6、r(100) notnull 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 admi n

7、istrator /建立管理员表(编号 varchar(200) primary key,密码 varchar(200) not null,姓名 varchar(IOO) 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 man ageme

8、 nt / 建立管理表 (编号 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 ) HandlesMyBaseLoadEn

9、d SubPrivate SubButt on 1_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs) Han dlesButt on 1.ClickForm2.Show()End SubPrivate Sub Butt on 2_Click(ByVai sen der As System. Object , ByVai e As System. Eve ntArgs ) Han diesButto n2.ClickForm3.Show()End SubEnd Class2、当点击学生按钮后，进入了学生

10、登陆系统图5.2代码如下：PublicClass Form2PrivateSub Form2_Load( ByVal sender As System. Object , ByVal e As System. EventArgs)Han dlesMyBase LoadEndSubPrivateSub Butt on 1_Click(ByVal sen der As System. Object , ByVal e As System. Eve ntArgs) Ha ndlesButto nl.ClickIf TextBoxl.Text = Or TextBox2.Text = ThenMsgB

11、ox(用户名和密码不能为空？)ElsecheckLogi nN ame()En dIfEndSubSub checkLog inN ame()Dim strc onAsStri ng = data source=XP23;i nitial catalog=books_ma nageme nt;userid=XP23Admi nistrator;pwd=;i ntegrated security=true;Dim con AsSqlConnection = NeWSqlConnection (strcon)con. Ope n()Dim sql AsString = select * from

12、student where学号=& TextBoxl.Text.ToString().Trim() &and密码=& TextBox2.Text.ToString().Trim() &Dim cmd AsNewJqlComma n(tql, con)Dim reader AsSqlDataReaderreader = cmd.ExecuteReaderIf reader.Read()=MeHide()Form4.Show()ElseMsgBox(En dIfEndSubTrueThe n登陆失败，请检查你的用户名，密码，登陆权限是否正确)3、当学生登陆成功后，进入查询界面，输入图书编号，点击“

13、搜索”按钮可查询改图 书信息。如果点击“查询全部”按钮，即可查询所有的图书信息。图5.3按图书编号查询图书信息的代码如下：Dim con AsSqlConnection = NeWSqlConnection (strcon)con. Ope n()Dim stuNum AsStri ng = MeTextBox1.TextDim selectStude ntAsStri ng = select * from books where 书号=+ stuNum + Dim ds AsDataSet = NeWDataSet ()Dim da AsSqlDataAdapter = NeWSqlData

14、Adapter (selectStudent, con)da.Fill(ds,books)MeDataGridViewl.DataSource = ds.Tables( books)con .Close()4、如果在图5.1中单击的是“管理员”按钮，则进入管理员登陆界面，如图5.4图5.45、当成功登陆管理员系统后，进入图书管理界面，如图5.5图5.56、当点击图5.5的“图书查询”按钮时，进入图书查询界面。当单击“图书借阅信息 查询”按钮时，学生的借阅信息将在下面显示，如图5.6。当点击其他三个按钮时也会出现相应的信息。图5.6代码如下:Imports System.DataImports

15、System.Data.SqlClientPublicClass Form6Dim strc on AsStri ng = data source=XP23;i nitial catalog=books_ma nageme nt;userid=XP23Admi nistrator;pwd=;i ntegrated security=true;PrivateSub Butt on 1_Click(ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Ha ndlesButto n1.ClickDim con AsSql

16、Connection = NeWSqlConnection (strcon)con. Ope n()Dim selectStude ntAsStri ng = select * from borrowDim ds AsDataSet = NeWDataSet ()Dim da AsSqlDataAdapter = NeWSqlDataAdapter (selectStudent, con)da.Fill(ds,borrow)MeDataGridViewl.DataSource = ds.Tables( borrow)con .Close()EndSub7、当点击图5.5中的“图书管理”按钮时，

17、进入图书管理界面，如图5.7图5.78当点击图5.5中的“图书借阅”按钮时，进入图书借阅界面，如图 5.8图5.8代码如下：Dim name AsStri ng = MeTextBox3.TextDim num AsStri ng = MeTextBox4.TextDim time AsString = MeTextBox5.Text,n ame,Dim num2 AsStri ng = MeTextBox6.TextDim addclass AsString = String .Format( insert into borrow values(0,1,2,3)n um, time, n u

18、m2)Dim strc on AsStri ng = data source=XP23;i nitial catalog=books_ma nageme nt;userid=XP23Admi nistrator;pwd=;i ntegrated security=true;Dim con AsSqlConnection = NeWSqlConnection (strcon)con. Ope n()Dim cmd AsSqlComma nd= NeWSqlComma n(addclass, con)Dim resultAsin teger = cmd.ExecuteN on Query()If

19、(result 1) ThenMessageBoxShow(”添加失败!,操作提示 ”,，MessageBoxButtons.OK, MessageBoxicon.Warning) ElseMessageBoxShow(”添加成功!,操作提示,MessageBoxButtons.OK, MessageBoxicon.1 nformation) MeClose()En dif9、当点击图5.5中的“图书归还”按钮时，进入图书归还界面，如图5.9。当点击下图中要删除的行时，根据学号和书号删除该列。图5.9代码如下：PrivateSub Butt on 1_Click(ByVai sen der A

20、s System. Object, ByVai e As System. Eve ntArgs ) Ha ndlesButto nl.ClickDim con AsSqlConnection = NeWSqlConnection (strcon)con. Ope n()Dim stuNuml AsStr ing = MeTextBoxl.TextDim stuNum2 AsString = MeTextBox2.TextDim selectStudent AsString = select * from borrow where 学号=+ stuNuml + and 书号=+ stuNum2D

21、im ds AsDataSet = NeWDataSet ()Dim da AsSqlDataAdapter = NeWSqlDataAdapter (selectStudent, con)da.Fill(ds,borrow)MeDataGridViewl.DataSource = ds.Tables( borrow)con .Close()EndSubPrivateSub DataGridView1_CellContentClick(ByVal sender As System. Object, ByVal e AsSystem.Windows.Forms. DataGridViewCell

22、EventArgs ) Handles DataGridViewl.CellContentClickDim stuid AsStri ng = MeDataGridView1.Rows(e.Rowl ndex).Cells(O).Value.ToStri ng().Trim()Dim stuidlAsStri ng = MeDataGridView1.Rows(e.Rowl ndex).Cells(1).Value.ToStr in g().Trim()If MessageBoxShow(确定要删除该用户吗？,操作警告, MessageBoxButtons.YesNo,MessageBoxlc on .War ning) = Win dows.Forms. DialogResult .Yes The nDim deleteStudent AsString = String .Format( DELETE FROM borrow WHER学号=+ stuid +and 书号=+ stuidl +)Dim con AsSqlConnection = NewSqlConnection (strcon)c