图书管理系统外文参考文献_图书管理系统免费下载_环境设计外文参考文献(2)

以下为图书管理系统关键代码实现.

图书管理系统相关代码

Sub添加图书（）

DimiAsLong

DimjAsInteger

Sheets（sheet1）.Select

IfTrim（Cells（5,1）.Value）等于Then

MsgBox请输入图书编号!,vbOKOnly

ExitSub

EndIf

IfTrim（Cells（5,2）.Value）等于Then

MsgBox请输入图书名称!,vbOKOnly

ExitSub

EndIf

IfTrim（Cells（5,3）.Value）等于Then

MsgBox请输入图书类型!,vbOKOnly

ExitSub

EndIf

IfTrim（Cells（5,4）.Value）等于Then

本篇论文出处

MsgBox请输入添加时间!,vbOKOnly

ExitSub

EndIf

IfTrim（Cells（5,5）.Value）等于Then

MsgBox请输入所在科室!,vbOKOnly

图书管理系统的设计实现参考属性评定有关论文范文主题研究: 大学生适用:

相关参考文献下载数量: 写作解决问题:

毕业论文开题报告: 职称论文适用:

所属大学生类别: 论文题目推荐度:

ExitSub

EndIf

i等于Val（Sheet1.Cells（1,3）.Value）

Forj等于1To5

Cells（i9,j）.Value等于Cells（5,j）.Value

Nextj

EndSub

Sub查询图书（）

DimhAsLong

DimmAsInteger

DimnAsInteger

Sheets（sheet1）.Select

IfCells（5,2）.Value等于Then

MsgBox请输入图书名称查询,vbOKOnly

ExitSub

EndIf

h等于Val（Cells（1,3）.Value）8

m等于9

DoUntilTrim（Cells（m,2）.Value）等于Trim（Cells（5,2）.Value）Orm等于h

m等于m1

Loop

IfTrim（Cells（m,2）.Value）等于Trim（Cells（5,2）.Value）Then

Forn等于1To5

Cells（5,n）.Value等于Cells（m,n）.Value

Nextn

EndIf

IfTrim（Cells（5,1）.Value）等于Then

MsgBox图书存储区内没有您要查询图书!

ExitSub

EndIf

EndSub

3结束语

本图书管理系统结合了势在必行ExcelVBA编程语言进行开发,通过了在软件中实现功能了学以致用目.在实际图书管理中切实了方便图书管理者和读者一般需求.本图书管理系统用户界面交互性较好、操作起来较为灵活方便,提供数据安全可靠,很好提高了图书管理者管理效率,满足了图书管理工作日常需求,较高现代实际应用价值.

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-37899-2.html