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

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

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

  通过本图书管理系统可以实现图书管理人员对前来读者进行条理化管理,具体设计了读者管理(包括借还情况),图书流通、查询等常用功能。整体设计思路以图书管理人员和读者互利为目标。大体上满足了管理者和读者对图书运营状况的全面快速了解,也通过了图书采编模块实现了读者对图书信息做出了快捷的选择,充分展示了信息化自动管理。以下为图书管理系统的关键代码实现。图书管理系统相关代码:
 
  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
 

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

相关内容

联系方式

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

热门排行

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