图书馆管理系统源代码Word格式.doc

图书馆管理系统源代码Word格式.doc

《图书馆管理系统源代码Word格式.doc》由会员分享，可在线阅读，更多相关《图书馆管理系统源代码Word格式.doc（30页珍藏版）》请在冰豆网上搜索。

Combo1.SetFocus

Else

sql="

select*from系统管理where用户名='

&

Combo1.Text&

"

'

rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_login.EOF=TrueThen

MsgBox"

Combo1.SetFocus

Else

IfTrim（rs_login.Fields

（1））=Trim（txtpwd.Text）Then

userID=Combo1.Text

rs_login.Close

UnloadMe

form1.Show

Else

MsgBox"

密码不正确"

txtpwd.SetFocus

EndIf

EndIf

EndIf

cnt=cnt+1

Ifcnt=3Then

UnloadMe

ExitSub

EndSub

PrivateSubCommand2_Click（）

UnloadMe

PrivateSubForm_Load（）

DimconnectionstringAsString

connectionstring="

provider=Microsoft.Jet.oledb.4.0;

_

"

datasource=book.mdb"

conn.Openconnectionstring

cnt=0

PrivateSubtxtuser_Change（）

2、文件名form1（form1.frm）

整个系统的主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于，以及在这下面的子菜单。

PrivateSubadd_admin_Click（）

frmadduser.Show

PrivateSubadd_back_book_Click（）

frmbackbookinfo.Show

PrivateSubadd_book_info_Click（）

frmaddbookinfo.Show

PrivateSubadd_book_style_Click（）

frmaddbookstyle.Show

PrivateSubadd_lend_book_Click（）

frmfindbook.Show

PrivateSubadd_reader_info_Click（）

frmaddreaderinfo.Show

PrivateSubadd_reader_style_Click（）

frmaddreaderstyle.Show

PrivateSubchange_pwd_Click（）

frmchangepwd.Show

PrivateSubdel_book_info_Click（）

frmmodifybookinfo.Show

PrivateSubdel_book_style_Click（）

frmmodifybookstyle.Show

PrivateSubdel_reader_info_Click（）

frmreaderinfo.Show

PrivateSubdel_reader_style_Click（）

frmmodifyreaderstyle.Show

PrivateSubexit_sys_Click（）

End

PrivateSubfind_book_info_Click（）

PrivateSubfind_lend_book_Click（）

frmfindborrowinfo.Show

PrivateSubfind_reader_info_Click（）

frmfindreader.Show

PrivateSubgly_Click（）

Form2.Show

PrivateSubmodify_book_info_Click（）

PrivateSubmodify_book_style_Click（）

PrivateSubmodify_reader_info_Click（）

PrivateSubmodify_reader_style_Click（）

3、文件名frmaddbookstyle（frmbookstyle.frm）

用于添加图书类别信息。

Dimrs_bookstyleAsNewADODB.Recordset

IfTrim（Text1.Text）="

图书种类不能为空"

Text1.SetFocus

ExitSub

IfTrim（Text2.Text）="

种类编号不能为空"

Text2.SetFocus

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

添加图书类别成功！

vbOKOnly,"

rs_bookstyle.Close

读者类别重复！

Text1.Text="

4、文件名frmmodifybookstyle（code）

图书类别管理，可以修改和删除图书类别。

Dimrs_readerAsNewADODB.Recordset

PrivateSubcmdcancel_Click（）

rs_reader.CancelUpdate

DataGrid1.Refresh

DataGrid1.AllowAddNew=False

DataGrid1.AllowUpdate=False

cmdmodify.Enabled=True

cmddel.Enabled=True

cmdcancel.Enabled=False

cmdupdate.Enabled=False

PrivateSubcmddel_Click（）

DimanswerAsString

OnErrorGoTodelerror

answer=MsgBox（"

确定要删除吗？

vbYesNo,"

）

Ifanswer=vbYesThen

DataGrid1.AllowDelete=True

rs_reader.Delete

rs_reader.Update

成功删除！

DataGrid1.AllowDelete=False

delerror:

IfErr.Number<

>

0Then

MsgBoxErr.Description

PrivateSubcmdmodify_Click（）

OnErrorGoTocmdmodify

cmddel.Enabled=False

cmdmodify.Enabled=False

cmdupdate.Enabled=True

cmdcancel.Enabled=True

DataGrid1.AllowUpdate=True

cmdmodify:

PrivateSubCommand5_Click（）

rs_reader.Update

DataGrid1.Refresh

PrivateSubcmdupdate_Click（）

IfNotIsNull（DataGrid1.Bookmark）Then

cmddel.Enabled