cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False
MsgBox \保存成功！\ End Sub
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() Dim sql As String
On Error GoTo loaderror
sql = \图书类别\
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打开数据库 cmdupdate.Enabled = False '设定datagrid控件属性
DataGrid1.AllowAddNew = False '不可增加
VB+Access图书管理系统
DataGrid1.AllowDelete = False '不可删除 DataGrid1.AllowUpdate = False
If userpow = \ '权限相关 Frame2.Enabled = False End If
Set DataGrid1.DataSource = rs_reader Exit Sub loaderror:
MsgBox Err.Description End Sub
5、文件名 frmaddbookinfo（frmaddbookinfo.frm）
功能说明：添加图书信息，包括图书编号、书名、出版日期、入库日期、作者等信息。 源代码：
Option Explicit
Private Sub Command1_Click()
Dim rs_addbook As New ADODB.Recordset Dim sql As String
If Trim(Combo1.Text) = \
MsgBox \请选择图书种类\ Combo1.SetFocus Exit Sub
End If
If Trim(Text1.Text) = \
MsgBox \图书编号不能为空\ Text1.SetFocus Exit Sub End If
If Trim(Text2.Text) = \
MsgBox \书名不能为空\ Text2.SetFocus Exit Sub End If
If Not IsDate(Text5.Text) Then
MsgBox \请按照yyyy-mm-dd格式输入日期\ Text5.SetFocus Exit Sub End If
If Not IsDate(Text6.Text) Then
MsgBox \请按照yyyy-mm-dd格式输入日期\ Text6.SetFocus Exit Sub End If
sql = \书籍信息 where 书籍编号='\ rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_addbook.EOF Then rs_addbook.AddNew
rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fields(2) = Trim(Combo1.Text) rs_addbook.Fields(3) = Trim(Text3.Text) rs_addbook.Fields(4) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(6) = Trim(Text6.Text) rs_addbook.Fields(7) = \否\ rs_addbook.Update
MsgBox \添加书籍信息成功！\ rs_addbook.Close Else
MsgBox \图书编号重复！\ Text1.SetFocus Text1.Text = \ rs_addbook.Close Exit Sub
Private Sub Form_Load()
Dim rs_leibie As New ADODB.Recordset
Dim sql As String
sql = \图书类别\
rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimistic rs_leibie.MoveFirst
Do While Not rs_leibie.EOF
Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNext Loop
rs_leibie.Close End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub
6、文件名 frmfindbook（form）
功能说明：查询图书信息，可以选择性的输入图书的编号、名称或者类别查询图书的详细信息。 源代码：
Option Explicit
Dim panduan As String
Private Sub Command1_Click()
Dim rs_findbook As New ADODB.Recordset Dim sql As String
If Check1.Value = vbChecked Then
sql = \书名='\ End If
If Check2.Value = vbChecked Then If Trim(sql) = \
sql = \类别='\ Else
sql = sql & \书名='\ End If End If
If Check3.Value = vbChecked Then If Trim(sql) = \
sql = \作者='\ Else
sql = sql & \ 作者='\ End If End If
If Check4.Value = vbChecked Then If Trim(sql) = \
sql = \出版社='\ Else
sql = sql & \ 出版社='\ End If
End If
图书管理系统ER图-流程图-功能结构图-源代码 If Check5.Value = vbChecked Then If Trim(sql) = \
sql = \书籍编号='\ Else
sql = sql & \ 书籍编号='\ End If End If
If Trim(sql) = \
MsgBox \请选择查询方式！\ Exit Sub End If
sql = \书籍信息 where \ rs_findbook.CursorLocation = adUseClient
rs_findbook.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findbook 'rs_findbook.Close End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Command3_Click() If Trim(book_num) = \
MsgBox \请选择要借阅的图书！\ Exit Sub End If
If panduan = \是\
MsgBox \此书已被借出！\ Exit Sub End If
frmborrowbook.Show End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark) End Sub
Private Sub Form_Load()
Dim rs_find As New ADODB.Recordset Dim sql As String
sql = \图书类别\
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic rs_find.MoveFirst
If Not rs_find.EOF Then
Do While Not rs_find.EOF
Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop
Combo1.ListIndex = 0 End If
rs_find.Close End Sub
7、文件名 frmaddreaderstyle（frmaddreaderstyle.frm） 功能说明：添加读者的类别。 源代码：
Option Explicit
Dim rs_readerstyle As New ADODB.Recordset Private Sub Command1_Click() Dim sql As String
If Trim(Text1.Text) = \
MsgBox \读者种类不能为空\ Text1.SetFocus Exit Sub End If
If Trim(Text2.Text) = \
MsgBox \借书数量不能为空\ Text2.SetFocus Exit Sub End If
If Trim(Text3.Text) = \
MsgBox \借书期限不能为空\ Text3.SetFocus Exit Sub End If
If Trim(Text4.Text) = \
MsgBox \有限期限不能为空\ Text4.SetFocus Exit Sub End If
sql = \读者类别 where 种类名称='\ rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_readerstyle.EOF Then rs_readerstyle.AddNew
rs_readerstyle.Fields(0) = Trim(Text1.Text) rs_readerstyle.Fields(1) = CInt(Text2.Text)