图书管理系统实验报告.doc

上海电力学院信息网络技术课程设计报告题目: 图书馆借阅系统 姓 名： 白志强 学 号： 20111946 院系： 电子与信息工程学院 专业年级： 电子信息工程 2011级 2014 年12 月5日l 摘要 在大学生活中，图书馆是我们常去的一个地方，因而图书馆的管理无疑是我们需要关注的一个问题。 现在很多学校图书馆的借阅工作部分还是手工管理，工作效率很低并且不能及时了解图书的种类和学生们比较需求的图书等，不能更好的适应当前学生的借阅要求。计算机信息化管理有着存储量大，速度快等许多优点，提供给我们的处理信息及时快捷，因此利用计算机提供给我们的信息使学生们的借阅过程形成一整套动态的管理，能够极大提高图书馆理的效率，这也是学校的科学化，正规化管理。 图书借阅管理系统是一种信息管理系统,本系统采用数据库系统和VB平台，以VB.NET为编程语言开发一个适合学校图书管理所需要的数据库管理软件。其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备，易使用等特点。l 实验目的本课程设计的目的是综合应用VB.NET软件以及SQL数据库设计实现图书借阅系统。l 设计环境软件：VS2008，SQL Server2008 l 设计内容基本要求：通过编程软件使系统可以进行管理员模块和用户使用模块。管理员模块：添加图书，查询图书，查询用户，添加用户。使用者模块：借阅图书，归还图书。l 设计流程图图书管理系统归还图书 用户界面借阅图书查询用户添加用户查询图书添加图书 管理者界面l 设计步骤建立数据库，新建表如图所示 打开表如图 启动VS2008，新建项目BOOK，添加13个Windows窗体,如图: 初始界面主要代码:Public Class 初始 Private Sub 初始_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 初始化准备页面窗体中的各个控件 Timer2.Interval = 1000 ProgressBar1.Maximum = 10 ProgressBar1.Visible = True Timer2.Enabled = True Timer1.Interval = 5000 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Enabled = False Dim frm2 As New 总登录界面 Me.Hide() frm2.Show() End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim i As Integer i = ProgressBar1.Value If i ProgressBar1.Maximum Then i = i + 2 ProgressBar1.Value = i End If End Sub添加label，Button控件，引导进入总登录界面 双击管理员登陆按钮编写如下代码跳转到管理员功能选项界面： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm1 As New 管理员功能选项 Me.Hide() frm1.Show() 进入管理员管理选项界面点击管理用户信息按钮跳转到管理用户界面进入添加用户信息界面管理员输入用户学号姓名等信息确认按钮代码： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox1.Text = Or TextBox2.Text = Or TextBox3.Text = Then MessageBox.Show(请完整填写用户信息！) Else SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = insert into yonghu1(姓名,学号,卡号) values( & TextBox1.Text & , & TextBox2.Text & , & TextBox3.Text & ) SqlCommand1.ExecuteNonQuery() SqlConnection1.Close() TsqDataSet1.Clear() SqlDataAdapter1.Fill(TsqDataSet1) SqlConnection1.Close() MsgBox(添加成功) End If End Sub进入查看用户信息界面查找按钮代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SqlConnection1.Open() SqlDataAdapter1.SelectCommand.CommandText = select * from yonghu1 where 学号 = & TextBox1.Text & SqlConnection1.Close() TsqDataSet2.Clear() SqlDataAdapter1.Fill(TsqDataSet2) DataGridView1.Update() DataGridView1.Refresh()End Sub点击管理图书信息按钮跳转到管理图书界面点击查看图书信息按钮跳转到查看图书界面查询按钮代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SqlDataAdapter1.SelectCommand.CommandText = select * from tushu where 编号 = & TextBox1.Text & SqlConnection1.Close() TsqDataSet.Clear() SqlDataAdapter1.Fill(TsqDataSet) DataGridView1.Update() DataGridView1.Refresh() End Sub进入添加图书界面确认按钮代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Or TextBox3.Text = Or TextBox4.Text = Or TextBox5.Text = Or TextBox6.Text = Then MessageBox.Show(请完整填写注册信息！) Else SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = insert into tushu(书名,编号,出版日期,出版社,库存量) values( & TextBox1.Text & , & TextBox3.Text & , & TextBox5.Text & , & TextBox4.Text & , & TextBox6.Text & ) SqlCommand1.ExecuteNonQuery() SqlConnection1.Close() TsqDataSet1.Clear() SqlDataAdapter1.Fill(TsqDataSet1) SqlConnection1.Close() MsgBox(添加成功) End If End Sub进入用户登录界面，输入姓名，学号确认按钮代码： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox1.Text.Length 0 Or TextBox2.Text.Length 0 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 TsqDataSet1.Clear() SqlDataAdapter1.SelectCommand.CommandText = select*from yonghu1 where 姓名= & TextBox1.Text & and 学号= & TextBox2.Text & SqlDataAdapter1.Fill(TsqDataSet1) If TsqDataSet1.yonghu1.Rows.Count = 1 Then Dim frm19 As New 用户选择 Me.Hide() frm19.Show() Else MsgBox(姓名或学号错误, MsgBoxStyle.Critical) End If TsqDataSet1.Clear() SqlConnection1.Close() Else MessageBox.Show(姓名和学号不能为空) End If进入用户选择界面用户借阅界面确认借阅按钮代码： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = update tushu set 库存量=库存量-1 where 书名= & TextBox1.Text & SqlCommand1.ExecuteNonQuery() TsqDataSet1.Clear() SqlDataAdapter1.Fill(TsqDataSet1) SqlConnection1.Close() MsgBox(借阅成功) End Sub 用户归还界面确认归还按钮代码：Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = update tushu set 库存量=库存量+1 where 书名= & TextBox1.Text & SqlCommand1.ExecuteNonQuery() tsqDataSet1.Clear() SqlDataAdapter1.Fill(tsqDataSet1) SqlConnection1.Close() MsgBox(归还成功) End Subl 在软件调试过程中遇到的问题1、 如何查询图书和用户的信息的程序。2、 如何添加图书和用户的信息的程序。3、 如何判断输入的图书所对应的数据库中的位置，并对其相应的数据进行跟新与修改。l 实验心得在做实验设计之前我没有接触过VB.NET的知识，通过老师和同学们的帮助，我终于完成