Label1.Left=Label1.Left+20
Else
Label1.Left=0
EndIf
EndSub
本模块主要是图书管理系统的登陆界面，用户输入正确的用户名，密码，验证码才能进入下一界面；如果三项中有输入错误的，则系统会显示相应的提示，并且禁止用户进入该系统。
主页面如图1.2所示：
图1.2
代码如下：
DimvCodeAsString
PrivateSubCommand1_Click（）
Iftext1.Text=Andtext2.Text=AndText3.Text=vCodeThen
LoadfrmMain:
frmMain.Show
Unloadform2
Else
Iftext1.Text=Andtext2.Text=AndText3.Text<>vCodeThen
MsgBox"验证码错误"
Else:
MsgBox"账号或密码错误"
EndIf
text1.Text=""
text2.Text=""
Text3.Text=""
text1.SetFocus
drawvc
EndIf
EndSub
PrivateSubdrawvc（）'显示校验码
Dimi,vc,px,pyAsLong
Dimr,g,bAsByte
Randomize'初始化随机种子
'生成随机校验码
vc=CLng（8999*Rnd+1000）
vCode=vc
'显示校验码
Picture1.Cls
Picture1.Printvc
'添加噪点（防止自动图像识别）
Fori=0To2000'画2000个噪点
'画点随机位置
px=CLng（Picture1.Width*Rnd）
py=CLng（Picture1.Height*Rnd）
'画点随机颜色
r=CByte（255*Rnd）
g=CByte（255*Rnd）
b=CByte（255*Rnd）
Picture1.Line（px,py）-（px+1,py+1）,RGB（r,g,b）
Next
EndSub
PrivateSubCommand2_Click（）
Unloadform2
EndSub
PrivateSubcmdOK_Click（）
Iftext1.Text=Andtext2.Text=AndText3.Text=vCodeThen
Loadform3:
form3.Show
Unloadform2
Else
Iftext1.Text=Andtext2.Text=AndText3.Text<>vCodeThen
MsgBox"验证码错误"
Else:
MsgBox"账号或密码错误"
EndIf
text1.Text=""
text2.Text=""
Text3.Text=""
text1.SetFocus
drawvc
EndIf
EndSub
本模块是图书借阅系统的总模块，包括图书管理，借阅证管理，图书借阅管理，系统管理和退出五大块，而且每个块中又包含相应的子模块。
同时模块底部还显示日期和时间。
如图1.3所示：
图1.3
代码如下：
PrivateSubForm_Load（）
DimiAsInteger
Fori=1To2
StatusBar1.Panels.Add
Nexti
WithStatusBar1.Panels
.Item
（1）.Style=sbrDate
.Item
（2）.Style=sbrTime
.Item（3）.Text="图书管理!
"
EndWith
EndSub
本模块是添加图书类别，当添加新书时即可在此模块中添加该书的类别和编号，点击确定按钮系统会提示添加是否成功，如图1.4所示：
图1.4
代码如下：
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"tsxx"
'
Loadform15
form15.ShowvbModal
Case"dzxx"
'资料
Loadform14
form14.ShowvbModal
Case"backup"
Loadfrmsavedata
frmsavedata.ShowvbModal
Case"clean"
Loadfrmclean
form11.ShowvbModal
EndSelect
EndSub
本模块是修改图书类别管理，要修改信息时点击修改类别，当修改信息完毕时点击更新就可完成信息的修改，点击取消就可返回主页面，如图1.5所示：
图1.5
代码如下：
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"tsxx"
Loadform15
form15.ShowvbModal
Case"dzxx"
'资料
Loadform14
form14.ShowvbModal
Case"backup"
Loadfrmsavedata
frmsavedata.ShowvbModal
Case"clean"
Loadfrmclean
form11.ShowvbModal
EndSelect
EndSub
本模块是添加图书信息，可以添加图书编号，书名，类别，出版日期，作者，登记日期，出版社，当添加完毕后点击确定。
如图1.6所示：
图1.6
代码如下：
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"tsxx"
Loadform15
form15.ShowvbModal
Case"dzxx"
'资料
Loadform14
form14.ShowvbModal
Case"backup"
Loadfrmsavedata
frmsavedata.ShowvbModal
Case"clean"
Loadfrmclean
form11.ShowvbModal
EndSelect
EndSub
本模块是添加借阅证信息，可以添加读者类别，登记日期，读者姓名，性别，读者编号，电话号码，工作单位，家庭住址，当添加完毕后点击确定。
如图1.7所示：
图1.7
代码如下：
PrivateSubCommand1_Click（）
Dimrs_addreaderAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
IfTrim（Combo1.Text）=""Then
MsgBox"请选择读者类别",vbOKOnly+vbExclamation,""
Combo1.SetFocus
ExitSub
EndIf
IfTrim（Text1.Text）=""Then
MsgBox"读者姓名不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）=""Then
MsgBox"读者编号不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfNotIsDate（Text6.Text）Then
MsgBox"请按照yyyy-mm-dd格式输入登记日期",vbOKOnly+vbExclamation,""
Text6.SetFocus
ExitSub
EndIf
IfTrim（Combo2.Text）=""Then
MsgBox"请选读者性别",vbOKOnly+vbExclamation,""
Combo2.SetFocus
ExitSub
EndIf
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database.mdb"
sql="select*from读者信息where读者编号='"&Text2.Text&"'"
rs_addreader.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_addreader.EOFThen
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）=Trim（Text6.Text）
rs_addreader.Fields（8）=0
rs_addreader.Update
MsgBox"添加读者信息成功!
",vbOKOnly,""
rs_addreader.Close
Else
MsgBox"读者编号重复!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
rs_addreader.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Dimrs_leibieAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
Provider="Microsoft.Jet.OLEDB.3.5.1;PersistSecurityInfo=false;datasource=D:
\图书管理系统\database.mdb"
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database.mdb"
sql="select*from读者类别"
rs_leibie.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_leibie.MoveFirst
DoWhileNotrs_leibie.EOF
Combo1.AddItemrs_leibie.Fields（0）
rs_leibie.MoveNext
Loop
rs_leibie.Close
Combo2.AddItem"男"
Combo2.AddItem"女"
EndSub
本模块是读者类别，包括临时，vip，金卡三种如图1.8所示：
如图1.8
代码如下：
PrivateSubcmdcancel_Click（）
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
cmddel.Enabled=True
cmdmodify.Enabled=True
cmdupdate.Enabled=False
cmdcancel.Enabled=False
EndSub
PrivateSubcmddel_Click（）
DimanswerAsString
'OnErrorGoTocmddel
answer=MsgBox（"确定要删除吗？
",vbYesNo,""）
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
Else
ExitSub
EndIf
'cmddel:
'MsgBoxErr.Description
EndSub
PrivateSubcmdmodify_Click（）
DimanswerAsString
OnErrorGoTocmdmodify
cmddel.Enabled=False
cmdmodify.Enabled=False
cmdupdate.Enabled=True
cmdcancel.Enabled=True
DataGrid1.AllowUpdate=True
ExitSub
cmdmodify:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubcmdupdate_Click（）
IfNotIsNull（DataGrid1.Bookmark）Then
rs_reader.Update
EndIf
cmddel.Enabled=True
cmdmodify.Enabled=True
cmdupdate.Enabled=False
cmdcancel.Enabled=False
MsgBox"修改成功!
",vbOKOnly+vbExclamation,""
EndSub
PrivateSubForm_Load（）
DimsqlAsString
DimconnAsNewADODB.Connection
OnErrorGoToloaderror
'Provider="Microsoft.Jet.OLEDB.3.5.1;PersistSecurityInfo=false;datasource=D:
\图书管理系统\database.mdb"
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database.mdb"
sql="select*from读者类别"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
cmdupdate.Enabled=False
cmdcancel.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_reader
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload（CancelAsInteger）
SetDataGrid1.DataSource=Nothing
rs_reader.Close
EndSub
本模块是读者信息的管理，当修改读者信息时先点击修改信息之后修改读者信息，最后点击更新，如图1.9
图1.9
代码如下：
本模块是查询读者信息，其中包括读者编号，读者姓名，读者种类可以任意查询，如图1.10所示：
图1.10
代码如下：
PrivateSubCommand1_Click（）
Dimrs_findreaderAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
IfCheck1.Value=vbCheckedThen
sql="读者编号like'%"&Trim（Text1.Text&""）&"%'"
EndIf
IfCheck2.Value=vbCheckedThen
IfTrim（sql）=""Then
sql="读者姓名like'%"&Trim（Text2.Text&""）&"%'"
Else
sql=sql&"and类别like'%"&Trim（Text2.Text&""）&"%'"
EndIf
EndIf
IfCheck3.Value=vbCheckedThen
IfTrim（sql）=""Then
sql="读者类别like'%"&Trim（Combo1.Text&""）&"%'"
Else
sql=sql&"and读者类别like'%"&Trim（Combo1.Text&""）&"%'"
EndIf
EndIf
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database.mdb"
IfTrim（sql）=""Then
MsgBox"请选择查询方式!
",vbOKOnly+vbExclamation
ExitSub
EndIf
sql="select*from读者信息where"&sql
rs_findreader.CursorLocation=adUseClient
rs_findreader.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifrs_findreader.RecordCount=0Then
MsgBox"查询不到该图书信息!
",vbOKOnly+vbExclamation
Else
SetDataGrid1.DataSource=rs_findreader
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Dimrs_findAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
sql="select*from读者类别"
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database.mdb"
rs_find.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_find.MoveFirst
IfNotrs_find.EOFThen
DoWhileNotrs_find.EOF
Combo1.AddItemrs_find.Fields（0）
rs_find.MoveNext
Loop
Combo1.ListIndex=0
EndIf
rs_find.Close
EndSub
本模块是图书信息管理，其中包括书名，编号，图书类别，作者，出版社可以任意查询，当查询到想借的书籍时，点击此书，然后点击借这本书即可完成借书的环节，如图1.11所示：
图1.11
代码如下：
OptionExplicit
Dimbook_numAsString
DimpanduanAsString
PrivateSubCommand1_Click（）
Dimrs_findbookAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
IfTrim（sql）=""Then
升级会员 