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