module1.bas

实现图书信息管理

Attribute VB_Name = "Module1"
Public cnn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset
Public del As Integer '判断进行的操作是对读者信息（=1时），还是对图书信息（=2时）
Public bor As Boolean  '判断是借书（true）还是还书(false)