rs_readerstyle.Fields(2) = CInt(Text3.Text) rs_readerstyle.Fields(3) = CInt(Text4.Text) rs_readerstyle.Update
MsgBox \添加读者类别成功！\ rs_readerstyle.Close Text1 = \ Text2 = \ Text3 = \ Text4 = \ Else
MsgBox \读者类别重复！\ Text1.SetFocus Text1.Text = \ rs_readerstyle.Close Exit Sub End If End Sub
8、文件名 frmmodifyreaderstyle（form）
功能说明：读者类别管理，可以查询、删除、修改读者的信息。 源代码：
Option Explicit
Dim rs_reader As New ADODB.Recordset cmdmodify.Enabled = True cmddel.Enabled = True 图书管理系统VB+Access cmdcancel.Enabled = False cmdupdate.Enabled = False End Sub
Private Sub cmddel_Click() Dim answer As String On Error GoTo delerror
answer = MsgBox(\确定要删除吗？\ If answer = vbYes Then
DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh
MsgBox \成功删除！\ DataGrid1.AllowDelete = False Else
Exit Sub End If delerror:
If Err.Number <> 0 Then
MsgBox Err.Description End If End Sub
Private Sub cmdmodify_Click() Dim answer As String
On Error GoTo cmdmodify cmddel.Enabled = False cmdmodify.Enabled = False cmdupdate.Enabled = True cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True cmdmodify:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
Private Sub Command5_Click() rs_reader.Update DataGrid1.Refresh End Sub
Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then rs_reader.Update End If
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 DataGrid1.AllowDelete = False '打开数据库 '不可增加 '不可删除
DataGrid1.AllowUpdate = False
If userpow = \ '权限相关 Frame2.Enabled = False End If
Set DataGrid1.DataSource = rs_reader 'cmdcancel.Enabled = False Exit Sub loaderror:
MsgBox Err.Description End Sub
Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource = Nothing rs_reader.Close End Sub
9、文件名frmaddreaderinfo（frmaddreaderinfo.frm）
功能说明：添加读者信息，包括读者的姓名、性别、读者类别、登记日期、电话号码、工作单位、家庭地址等信息。 源代码：
Option Explicit
Dim rs_addreader As New ADODB.Recordset Private Sub Command1_Click() 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
sql = \读者信息 where 读者编号='\ rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_addreader.EOF Then rs_addreader.AddNew
rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Combo2.Text)
rs_addreader.Fields(3) = Trim(Combo1.Text) rs_addreader.Fields(4) = Trim(Text3.Text) rs_addreader.Fields(5) = Trim(Text4.Text) rs_addreader.Fields(6) = Trim(Text5.Text) rs_addreader.Fields(7) = CDate(Text6.Text) VB+Access图书管理系统 rs_addreader.Update
MsgBox \添加读者信息成功！\ rs_addreader.Close Text1 = \ Text2 = \ Text3 = \ Text4 = \ Text5 = \ Text6 = \ Else
MsgBox \读者编号重复！\ Text1.SetFocus Text1.Text = \ rs_addreader.Close Exit Sub End If End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() Combo2.AddItem \男\ Combo2.AddItem \女\
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
10、文件名 frmreaderinfo（frmreaderinfo,frm）
功能说明：读者信息管理，可以修改和删除读者的信息。 源代码：
Option Explicit
Dim rs_reader As New ADODB.Recordset Private Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh
DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False End Sub
Private Sub cmddel_Click() Dim answer As String On Error GoTo delerror
answer = MsgBox(\确定要删除吗？\ If answer = vbYes Then
DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh
MsgBox \成功删除！\ DataGrid1.AllowDelete = False Else
Exit Sub End If delerror:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
Private Sub cmdmodify_Click() Dim answer As String
On Error GoTo cmdmodify cmddel.Enabled = False cmdmodify.Enabled = False cmdupdate.Enabled = True cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True cmdmodify:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
Private Sub Command5_Click()