附录图书管理系统程序代码.docx
- 文档编号:8365472
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:27
- 大小:18.33KB
附录图书管理系统程序代码.docx
《附录图书管理系统程序代码.docx》由会员分享,可在线阅读,更多相关《附录图书管理系统程序代码.docx(27页珍藏版)》请在冰豆网上搜索。
附录图书管理系统程序代码
附录
主页面(MDImain):
PrivateSubaddbook_Click()
add_book.Show
EndSub
PrivateSubaddreader_Click()
add_reader.Show
EndSub
PrivateSubadduser_Click()
add_user.Show
EndSub
PrivateSubbackbook_Click()
back_book.Show
EndSub
PrivateSubborrowbook_Click()
borrow_book.Show
EndSub
PrivateSubcuibackbook_Click()
cuiback_book.Show
EndSub
PrivateSubfindbook_Click()
find_book.Show
EndSub
PrivateSubfindreader_Click()
find_reader.Show
EndSub
PrivateSubMDIForm_Load()
EndSub
PrivateSubmodifybook_Click()
change_book.Show
EndSub
PrivateSubmodifypwd_Click()
change_pwd.Show
EndSub
PrivateSubmodifyreader_Click()
change_reader.Show
EndSub
PrivateSubdelbook_Click()
del_book.Show
EndSub
PrivateSubdelreder_Click()
del_reader.Show
EndSub
PrivateSubquitsys_Click()
End
EndSub
登陆(login):
OptionExplicit
DimcntAsInteger'记录确定次数
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(txtuser.Text)=""Then'判断输入的用户名是否为空
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else
sql="select*from用户表where用户名='"&txtuser.Text&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else'检验密码是否正确
IfTrim(rs_login.Fields
(1))=Trim(txtpwd.Text)Then
userID=txtuser.Text
userpow=rs_login.Fields
(2)
rs_login.Close
UnloadMe
MsgBox"欢迎登录到图书管理系统!
",vbOKOnly+vbExclamation,""
MDImain.Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
txtpwd.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimconnectionstringAsString
connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_
"datasource=图书管理系统.mdb"
conn.Openconnectionstring
cnt=0
EndSub
添加用户(add_user):
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_addAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空",vbOKOnly+vbExclamation,""
ExitSub
Text1.SetFocus
Else
sql="select*from用户表"
rs_add.Opensql,conn,adOpenKeyset,adLockPessimistic
While(rs_add.EOF=False)
IfTrim(rs_add.Fields(0))=Trim(Text1.Text)Then
MsgBox"已有这个用户",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Text3.Text=""
Combo1.Text=""
ExitSub
Else
rs_add.MoveNext
EndIf
Wend
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
Text3.Text=""
ExitSub
ElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"Then
MsgBox"请选择正确的用户权限",vbOKOnly+vbExclamation,""
Combo1.SetFocus
Combo1.Text=""
ExitSub
Else
rs_add.AddNew
rs_add.Fields(0)=Text1.Text
rs_add.Fields
(1)=Text2.Text
rs_add.Fields
(2)=Combo1.Text
rs_add.Update
rs_add.Close
MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Combo1.AddItem"system"
Combo1.AddItem"guest"
Ifuserpow="guest"Then'权限相关
Command1.Enabled=False
Command2.Enabled=False
EndIf
EndSub
添加读者(add_reader):
OptionExplicit
Dimrs_addreaderAsNewADODB.Recordset
PrivateSubCommand1_Click()
DimsqlAsString
IfTrim(Text1.Text)=""Then
MsgBox"借书证号不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"所在单位不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"姓名不能为空",vbOKOnly+vbExclamation,""
Text3.SetFocus
ExitSub
EndIf
IfTrim(Text4.Text)=""Then
MsgBox"性别不能为空",vbOKOnly+vbExclamation,""
Text4.SetFocus
ExitSub
EndIf
IfTrim(Text5.Text)=""Then
MsgBox"类型不能为空",vbOKOnly+vbExclamation,""
Text5.SetFocus
ExitSub
EndIf
IfTrim(Text6.Text)=""Then
MsgBox"地址不能为空",vbOKOnly+vbExclamation,""
Text6.SetFocus
ExitSub
EndIf
sql="select*from读者表where借书证号='"&Text1.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(Text3.Text)
rs_addreader.Fields(3)=Trim(Text4.Text)
rs_addreader.Fields(4)=Trim(Text5.Text)
rs_addreader.Fields(5)=Trim(Text6.Text)
rs_addreader.Update
MsgBox"添加读者信息成功!
",vbOKOnly,""
UnloadMe
Else
MsgBox"借书证号重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_addreader.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Ifuserpow="guest"Then'权限相关
Frame2.Enabled=False
EndIf
EndSub
删除读者(del_reader):
OptionExplicit
Dimrs_readerAsNewADODB.Recordset
PrivateSubcmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
cmddel.Enabled=True
cmdcancel.Enabled=False
cmdupdate.Enabled=False
EndSub
PrivateSubcmddel_Click()
DimanswerAsString
OnErrorGoTodelerror
answer=MsgBox("确定要删除吗?
",vbYesNo,"")
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
MsgBox"成功删除!
",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
rs_reader.Update
DataGrid1.Refresh
Else
ExitSub
EndIf
delerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubcmdquit_Click()
UnloadMe
EndSub
PrivateSubcmdupdate_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
rs_reader.Update
EndIf
cmddel.Enabled=True
cmdcancel.Enabled=False
cmdupdate.Enabled=False
DataGrid1.AllowUpdate=False
MsgBox"修改成功!
",vbOKOnly+vbExclamation,""
EndSub
PrivateSubForm_Load()
DimsqlAsString
OnErrorGoToloaderror
sql="select*from读者表"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic'打开数据库
cmdupdate.Enabled=False
'设定datagrid控件属性
DataGrid1.AllowAddNew=False'不可增加
DataGrid1.AllowDelete=False'不可删除
DataGrid1.AllowUpdate=False
Ifuserpow="guest"Then'权限相关
Frame2.Enabled=False
EndIf
SetDataGrid1.DataSource=rs_reader
'cmdcancel.Enabled=False
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
rs_reader.Close
EndSub
修改读者(change_reader):
OptionExplicit
Dimrs_readerAsNewADODB.Recordset
PrivateSubcmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
cmdquit.Enabled=True
cmdchange.Enabled=True
cmdcancel.Enabled=False
cmdupdate.Enabled=False
EndSub
PrivateSubcmdchange_Click()
DimanswerAsString
OnErrorGoTocmdchange
cmdquit.Enabled=True
cmdchange.Enabled=False
cmdupdate.Enabled=True
cmdcancel.Enabled=True
DataGrid1.AllowUpdate=True
cmdchange:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubcmdquit_Click()
UnloadMe
EndSub
PrivateSubcmdupdate_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
rs_reader.Update
EndIf
cmdquit.Enabled=True
cmdchange.Enabled=True
cmdcancel.Enabled=False
cmdupdate.Enabled=False
DataGrid1.AllowUpdate=False
MsgBox"修改成功!
",vbOKOnly+vbExclamation,""
EndSub
PrivateSubForm_Load()
DimsqlAsString
OnErrorGoToloaderror
sql="select*from读者表"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic'打开数据库
cmdupdate.Enabled=False
'设定datagrid控件属性
DataGrid1.AllowAddNew=False'不可增加
DataGrid1.AllowDelete=False'不可删除
DataGrid1.AllowUpdate=False
Ifuserpow="guest"Then'权限相关
Frame2.Enabled=False
EndIf
SetDataGrid1.DataSource=rs_reader
'cmdcancel.Enabled=False
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
rs_reader.Close
EndSub
查询读者(find_reader):
OptionExplicit
PrivateSubCommand1_Click()
Dimrs_findreaderAsNewADODB.Recordset
DimsqlAsString
IfCheck1.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="借书证号='"&Trim(Text1.Text&"")&"'"
Else
sql=sql&"and借书证号='"&Trim(Text1.Text&"")&"'"
EndIf
EndIf
IfCheck2.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="姓名='"&Trim(Text2.Text&"")&"'"
Else
sql=sql&"and姓名='"&Trim(Text2.Text&"")&"'"
EndIf
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
SetDataGrid1.DataSource=rs_findreader
'rs_findreader.Close
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
添加图书(add_book):
OptionExplicit
Dimrs_addbookAsNewADODB.Recordset
PrivateSubCommand1_Click()
DimsqlAsString
IfTrim(Text1.Text)=""Then
MsgBox"书号不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"分类号不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"作者不能为空",vbOKOnly+vbExclamation,""
Text3.SetFocus
ExitSub
EndIf
IfTrim(Text4.Text)=""Then
MsgBox"出版社不能为空",vbOKOnly+vbExclamation,""
Text4.SetFocus
ExitSub
EndIf
IfTrim(Text5.Text)=""Then
MsgBox"单价不能为空",vbOKOnly+vbExclamation,""
Text5.SetFocus
ExitSub
EndIf
sql="select*from图书表where书号='"&Text1.Text&"'"
rs_addbook.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_addbook.EOFThen
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 附录 图书 管理 系统 程序代码