实验心得
在做实验设计之前我没有接触过的知识，通过老师和同学们的帮助，我终于完成了这个系统。我无法表达由自己一个人独立开发软件的成就感觉，尽管它还有很多不完善的地方。是一门很好上手的语言，至少我是这么认为，为了很好的与时俱进，我在这次制作过程中还学习了很多新的技术，也使用了一些比较成熟的技术。在这次设计过程中，我也学得到了很多和开发相关的技术领域的知识，同时也通过亲身实践，了解了多种软件的特性和使用方法，也增强了动手能力和独立解决问题的能力，从而更进一步地理解了所学的理论知识。开发一个好的系统需要熟练的技巧和丰富的知识，由于自己能力有限和时间的限制，本系统还有许多不尽人意之处，功能也很简单，需要今后不断的改进。
Dimfrm1AsNew管理员功能选项
Me.Hide()
frm1.Show()
进入管理员管理选项界面
点击管理用户信息按钮跳转到管理用户界面
进入添加用户信息界面
管理员输入用户学号姓名等信息确认按钮代码：
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
mandText ="select * from tushu where 编号 = '"& TextBox1.Text &"'"
SqlConnection1.Close()
TsqDataSet.Clear()
SqlDataAdapter1.Fill(TsqDataSet)
上海电力学院
信息网络技术
课程设计报告
题 目:图书馆借阅系统
姓 名：白志强
学 号：20111946
院 系：电子与信息工程学院
专业年级：电子信息工程 2011级
2014 年12月 5 日
摘要
在大学生活中，图书馆是我们常去的一个地方，因而图书馆的管理无疑是我们需要关注的一个问题。
现在很多学校图书馆的借阅工作部分还是手工管理，工作效率很低并且不能及时了解图书的种类和学生们比较需求的图书等，不能更好的适应当前学生的借阅要求。计算机信息化管理有着存储量大，速度快等许多优点，提供给我们的处理信息及时快捷，因此利用计算机提供给我们的信息使学生们的借阅过程形成一整套动态的管理，能够极大提高图书馆理的效率，这也是学校的科学化，正规化管理。
IfTextBox1.Text =""OrTextBox2.Text =""OrTextBox3.Text =""Then
MessageBox.Show("请完整填写用户信息！")
Else
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
TsqDataSet1.Clear()
mandText ="select*from yonghu1 where 姓名='"& TextBox1.Text &"'and 学号='"& TextBox2.Text &"'"
SqlCommand1.Connection = SqlConnection1
mandText ="insert into tushu(书名,编号,出版日期,出版社,库存量) values('"& TextBox1.Text &"', '"& TextBox3.Text &"','"& TextBox5.Text &"','"& TextBox4.Text &"','"& TextBox6.Text &"')"
EndIf
TsqDataSet1.Clear()
SqlConnection1.Close()
Else
MessageBox.Show("姓名和学号不能为空")
EndIf
进入用户选择界面
用户借阅界面
确认借阅按钮代码：
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
tsqDataSet1.Clear()
SqlDataAdapter1.Fill(tsqDataSet1)
SqlConnection1.Close()
MsgBox("归还成功")
EndSub
在软件调试过程中遇到的问题
1、如何查询图书和用户的信息的程序。
2、如何添加图书和用户的信息的程序。
3、如何判断输入的图书所对应的数据库中的位置，并对其相应的数据进行跟新与修改。
EndSub
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Timer1.Enabled =False
Dimfrm2AsNew总登录界面
Me.Hide()
frm2.Show()
IfTextBox1.Text =""OrTextBox3.Text =""OrTextBox4.Text =""OrTextBox5.Text =""OrTextBox6.Text =""Then
MessageBox.Show("请完整填写注册信息！")
Else
SqlConnection1.Open()
mandText ="insert into yonghu1(姓名,学号,卡号) values('"& TextBox1.Text &"', '"& TextBox2.Text &"','"& TextBox3.Text &"')"
SqlCommand1.ExecuteNonQuery()
实验目的
本课程设计的目的是综合应用软件以及SQL数据库设计实现图书借阅系统。
设计环境
软件：VS2008，SQL Server2008
设计内容
基本要求：通过编程软件使系统可以进行管理员模块和用户使用模块。
管理员模块：添加图书，查询图书，查询用户，添加用户。
使用者模块：借阅图书，归还图书。
设计流程图
SqlConnection1.Close()
TsqDataSet1.Clear()
SqlDataAdapter1.Fill(TsqDataSet1)
SqlConnection1.Close()
MsgBox("添加成功")
EndIf
EndSub
进入查看用户信息界面 查找按钮代码：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
'初始化准备页面窗体中的各个控件
Timer2.Interval = 1000
ProgressBar1.Maximum = 10
ProgressBar1.Visible =True
Timer2.Enabled =True
Timer1.Interval = 5000
Timer1.Enabled =True
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
TsqDataSet1.Clear()
SqlDataAdapter1.Fill(TsqDataSet1)
SqlConnection1.Close()
MsgBox("添加成功")
EndIf
EndSub
SqlDataAdapter1.Fill(TsqDataSet2)
DataGridView1.Update()
DataGridView1.Refresh()
EndSub
点击管理图书信息按钮跳转到管理图书界面
点击查看图书信息按钮跳转到查看图书界面
查询按钮代码：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
EndSub
PrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.Tick
DimiAsInteger
i = ProgressBar1.Value
Ifi < ProgressBar1.MaximumThen
SqlDataAdapter1.Fill(TsqDataSet1)
IfTsqDataSet1.yonghu1.Rows.Count = 1Then
Dimfrm19AsNew用户选择
Me.Hide()