图书管理系统代码.docx
- 文档编号:30000400
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:44
- 大小:19.27KB
图书管理系统代码.docx
《图书管理系统代码.docx》由会员分享,可在线阅读,更多相关《图书管理系统代码.docx(44页珍藏版)》请在冰豆网上搜索。
图书管理系统代码
各窗体代码如下:
Login代码:
OptionExplicit
DimcntAsInteger
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(Combo1.Text)=""Then
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Combo1.SetFocus
Else
sql="select*from系统管理where用户名='"&Combo1.Text&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Combo1.SetFocus
Else
IfTrim(rs_login.Fields
(1))=Trim(txtpwd.Text)Then
userID=Combo1.Text
rs_login.Close
UnloadMe
form1.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=book.mdb"
conn.Openconnectionstring
cnt=0
EndSub
PrivateSubtxtuser_Change()
EndSub
Form1代码:
PrivateSubadd_admin_Click()
frmadduser.Show
EndSub
PrivateSubadd_back_book_Click()
frmbackbookinfo.Show
EndSub
PrivateSubadd_book_info_Click()
frmaddbookinfo.Show
EndSub
PrivateSubadd_book_style_Click()
frmaddbookstyle.Show
EndSub
PrivateSubadd_lend_book_Click()
frmfindbook.Show
EndSub
PrivateSubadd_reader_info_Click()
frmaddreaderinfo.Show
EndSub
PrivateSubadd_reader_style_Click()
frmaddreaderstyle.Show
EndSub
PrivateSubchange_pwd_Click()
frmchangepwd.Show
EndSub
PrivateSubdel_book_info_Click()
frmmodifybookinfo.Show
EndSub
PrivateSubdel_book_style_Click()
frmmodifybookstyle.Show
EndSub
PrivateSubdel_reader_info_Click()
frmreaderinfo.Show
EndSub
PrivateSubdel_reader_style_Click()
frmmodifyreaderstyle.Show
EndSub
PrivateSubexit_sys_Click()
End
EndSub
PrivateSubfind_book_info_Click()
frmfindbook.Show
EndSub
PrivateSubfind_lend_book_Click()
frmfindborrowinfo.Show
EndSub
PrivateSubfind_reader_info_Click()
frmfindreader.Show
EndSub
PrivateSubgly_Click()
Form2.Show
EndSub
PrivateSubmodify_book_info_Click()
frmmodifybookinfo.Show
EndSub
PrivateSubmodify_book_style_Click()
frmmodifybookstyle.Show
EndSub
PrivateSubmodify_reader_info_Click()
frmreaderinfo.Show
EndSub
PrivateSubmodify_reader_style_Click()
frmmodifyreaderstyle.Show
EndSub
Frmaddbookinfo代码:
OptionExplicit
PrivateSubCommand1_Click()
Dimrs_addbookAsNewADODB.Recordset
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(Text5.Text)Then
MsgBox"请按照yyyy-mm-dd格式输入日期",vbOKOnly+vbExclamation,""
Text5.SetFocus
ExitSub
EndIf
IfNotIsDate(Text6.Text)Then
MsgBox"请按照yyyy-mm-dd格式输入日期",vbOKOnly+vbExclamation,""
Text6.SetFocus
ExitSub
EndIf
sql="select*from书籍信息where书籍编号='"&Text1.Text&"'"
rs_addbook.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_addbook.EOFThen
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"添加书籍信息成功!
",vbOKOnly,""
rs_addbook.Close
Text1=""
Text2=""
Combo1.Text=""
Text3=""
Text4=""
Text5=""
Text6=""
Else
MsgBox"图书编号重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_addbook.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Dimrs_leibieAsNewADODB.Recordset
DimsqlAsString
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
EndSub
Frmaddbookstyle代码:
OptionExplicit
PrivateSubCommand1_Click()
Dimrs_bookstyleAsNewADODB.Recordset
DimsqlAsString
IfTrim(Text1.Text)=""Then
MsgBox"图书种类不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"种类编号不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
sql="select*from图书类别where类别名称='"&Text1.Text&"'"
rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_bookstyle.EOFThen
rs_bookstyle.AddNew
rs_bookstyle.Fields(0)=Trim(Text1.Text)
rs_bookstyle.Fields
(1)=Trim(Text2.Text)
rs_bookstyle.Update
MsgBox"添加图书类别成功!
",vbOKOnly,""
rs_bookstyle.Close
Else
MsgBox"读者类别重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_bookstyle.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
Frmaddreaderinfo代码:
OptionExplicit
Dimrs_addreaderAsNewADODB.Recordset
PrivateSubCommand1_Click()
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
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)=CDate(Text6.Text)
rs_addreader.Update
MsgBox"添加读者信息成功!
",vbOKOnly,""
rs_addreader.Close
Text1=""
Text2=""
Text3=""
Text4=""
Text5=""
Text6=""
Else
MsgBox"读者编号重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_addreader.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Combo2.AddItem"男"
Combo2.AddItem"女"
Dimrs_leibieAsNewADODB.Recordset
DimsqlAsString
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
EndSub
Frmaddreaderstyle代码:
OptionExplicit
Dimrs_readerstyleAsNewADODB.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
sql="select*from读者类别where种类名称='"&Text1.Text&"'"
rs_readerstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_readerstyle.EOFThen
rs_readerstyle.AddNew
rs_readerstyle.Fields(0)=Trim(Text1.Text)
rs_readerstyle.Fields
(1)=CInt(Text2.Text)
rs_readerstyle.Fields
(2)=CInt(Text3.Text)
rs_readerstyle.Fields(3)=CInt(Text4.Text)
rs_readerstyle.Update
MsgBox"添加读者类别成功!
",vbOKOnly,""
rs_readerstyle.Close
Text1=""
Text2=""
Text3=""
Text4=""
Else
MsgBox"读者类别重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_readerstyle.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
Frmadduser代码:
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=""
ExitSub
Else
rs_add.MoveNext
EndIf
Wend
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
Text3.Text=""
ExitSub
Combo1.SetFocus
Combo1.Text=""
ExitSub
Else
rs_add.AddNew
rs_add.Fields(0)=Text1.Text
rs_add.Fields
(1)=Text2.Text
rs_add.Update
rs_add.Close
MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubText2_Change()
EndSub
PrivateSubText3_Change()
EndSub
Frmbackbookinfo代码:
OptionExplicit
DimfindformAsBoolean
PrivateSubCombo1_Click()
Combo2.ListIndex=Combo1.ListIndex
EndSub
PrivateSubCombo2_Click()
Combo1.ListIndex=Combo2.ListIndex
EndSub
PrivateSubCombo3_Click()
Combo4.ListIndex=Combo3.ListIndex
EndSub
PrivateSubCombo4_Click()
Combo3.ListIndex=Combo4.ListIndex
EndSub
PrivateSubCommand1_Click()
Dimrs_readerAsNewADODB.Recordset
DimsqlAsString
findform=True
sql="select*from借阅信息where读者姓名='"&Combo2.Text&"'"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataGrid1.DataSource=rs_reader
DataGrid1.AllowAddNew=False
DataGrid1.Allow
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书 管理 系统 代码