图书管理系统实验报告Word格式文档下载.docx
《图书管理系统实验报告Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《图书管理系统实验报告Word格式文档下载.docx(16页珍藏版)》请在冰豆网上搜索。
![图书管理系统实验报告Word格式文档下载.docx](https://file1.bdocx.com/fileroot1/2022-10/14/63212690-0082-49ca-b718-f07c4a21ac08/63212690-0082-49ca-b718-f07c4a21ac081.gif)
●
摘要
在大学生活中,图书馆是我们常去的一个地方,因而图书馆的管理无疑是我们需要关注的一个问题。
现在很多学校图书馆的借阅工作部分还是手工管理,工作效率很低并且不能及时了解图书的种类和学生们比较需求的图书等,不能更好的适应当前学生的借阅要求。
计算机信息化管理有着存储量大,速度快等许多优点,提供给我们的处理信息及时快捷,因此利用计算机提供给我们的信息使学生们的借阅过程形成一整套动态的管理,能够极大提高图书馆理的效率,这也是学校的科学化,正规化管理。
图书借阅管理系统是一种信息管理系统,本系统采用数据库系统和VB平台,以VB.NET为编程语言开发一个适合学校图书管理所需要的数据库管理软件。
其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立数据一致性和完整性强、数据安全性好的数据库。
而对于后者则要求应用程序功能完备,易使用等特点。
●实验目的
本课程设计的目的是综合应用VB.NET软件以及SQL数据库设计实现图书借阅系统。
●设计环境
软件:
VS2008,SQLServer2008
●设计内容
基本要求:
通过编程软件使系统可以进行管理员模块和用户使用模块。
管理员模块:
添加图书,查询图书,查询用户,添加用户。
使用者模块:
借阅图书,归还图书。
●设计流程图
图书管理系统
用户界面
管理者界面
添加图书
查询图书
添加用户
查询用户
借阅图书
归还图书
●设计步骤
建立数据库,新建表如图所示
打开表如图
启动VS2008,新建项目BOOK,添加13个Windows窗体,如图:
初始界面
主要代码:
PublicClass初始
PrivateSub初始_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'
初始化准备页面窗体中的各个控件
Timer2.Interval=1000
ProgressBar1.Maximum=10
ProgressBar1.Visible=True
Timer2.Enabled=True
Timer1.Interval=5000
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Timer1.Enabled=False
Dimfrm2AsNew总登录界面
Me.Hide()
frm2.Show()
PrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.Tick
DimiAsInteger
i=ProgressBar1.Value
Ifi<
ProgressBar1.MaximumThen
i=i+2
ProgressBar1.Value=i
EndIf
添加label,Button控件,引导进入总登录界面
双击管理员登陆按钮编写如下代码跳转到管理员功能选项界面:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimfrm1AsNew管理员功能选项
frm1.Show()
进入管理员管理选项界面
点击管理用户信息按钮跳转到管理用户界面
进入添加用户信息界面
管理员输入用户学号姓名等信息确认按钮代码:
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
IfTextBox1.Text="
"
OrTextBox2.Text="
OrTextBox3.Text="
Then
MessageBox.Show("
请完整填写用户信息!
)
Else
SqlConnection1.Open()
SqlCommand1.Connection=SqlConnection1
SqlCommand1.CommandText="
insertintoyonghu1(姓名,学号,卡号)values('
&
TextBox1.Text&
"
'
'
TextBox2.Text&
'
TextBox3.Text&
)"
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
TsqDataSet1.Clear()
SqlDataAdapter1.Fill(TsqDataSet1)
MsgBox("
添加成功"
进入查看用户信息界面查找按钮代码:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
SqlDataAdapter1.SelectCommand.CommandText="
select*fromyonghu1where学号='
TsqDataSet2.Clear()
SqlDataAdapter1.Fill(TsqDataSet2)
DataGridView1.Update()
DataGridView1.Refresh()
EndSub
点击管理图书信息按钮跳转到管理图书界面
点击查看图书信息按钮跳转到查看图书界面
查询按钮代码:
select*fromtushuwhere编号='
TsqDataSet.Clear()
SqlDataAdapter1.Fill(TsqDataSet)
进入添加图书界面
确认按钮代码如下:
OrTextBox4.Text="
OrTextBox5.Text="
OrTextBox6.Text="
请完整填写注册信息!
insertintotushu(书名,编号,出版日期,出版社,库存量)values('
TextBox5.Text&
TextBox4.Text&
TextBox6.Text&
进入用户登录界面,输入姓名,学号
确认按钮代码:
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
IfTextBox1.Text.Length<
>
0OrTextBox2.Text.Length<
0Then
select*fromyonghu1where姓名='
and学号='
IfTsqDataSet1.yonghu1.Rows.Count=1Then
Dimfrm19AsNew用户选择
frm19.Show()
姓名或学号错误"
MsgBoxStyle.Critical)
姓名和学号不能为空"
进入用户选择界面
用户借阅界面
确认借阅按钮代码:
SqlCommand1.CommandText=