期刊鉴别 论文检测 免费论文 特惠期刊 学术答疑 发表流程

图书管理系统的设计及实现(3)

时间:2014-04-29 13:26 文章来源:http://www.lunwenbuluo.com 作者:肖春英 点击次数:

  Cells(i+9,j).Value=Cells(5,j).Value
 
  Nextj
 
  EndSub
 
  Sub查询图书()
 
  DimhAsLong
 
  DimmAsInteger
 
  DimnAsIntegerSheets("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=m+1
 
  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编程语言进行开发,通过了在软件中实现的具体功能达到了学以致用的目的。在实际的图书管理中切实做到了方便图书管理者和读者的一般需求。本图书管理系统的用户界面交互性较好、操作起来较为灵活方便,提供数据安全可靠,很好的提高了图书管理者的管理效率,满足了图书管理工作的日常需求,具有较高的现代实际应用价值。
 
  参考文献
 
  [1]顾俐.图书馆图书管理系统的设计[J].中国科技信息,2007(11):175-176.
 
  [2]蒋志荣.计算机管理系统对图书管理的重要影响[J].科技资讯,2013(02):254.
 
  [3]曾雪君.图书管理信息系统的设计与实现[J].图苑论坛,2014(07).
 
  [4]努尔古丽.吐尔逊.图书管理系统的设计与实现[D].吉林:吉林大学,2012.

  •   论文部落提供核心期刊、国家级期刊、省级期刊、SCI期刊和EI期刊等咨询服务。
  •   论文部落拥有一支经验丰富、高端专业的编辑团队,可帮助您指导各领域学术文章,您只需提出详细的论文写作要求和相关资料。
  •  
  •   论文投稿客服QQ: 论文投稿2863358778 论文投稿2316118108
  •  
  •   论文投稿电话:15380085870
  •  
  •   论文投稿邮箱:lunwenbuluo@126.com

相关内容

联系方式

  • 论文投稿客服QQ: 论文投稿2863358778
  • 论文投稿客服QQ: 论文投稿2316118108
  • 论文投稿电话:15380085870
  • 论文投稿邮箱:lunwenbuluo@126.com

热门排行

 
QQ在线咨询
咨询热线:
15380085870
微信号咨询:
lunwenbuluoli