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

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