图书管理系统程序源代码.doc

源程序

主窗体

PrivateSubadd_back_Click()

frmbackbookinfo.Show

EndSub

PrivateSubadd_binf_Click()

frmaddbookinfo.Show

EndSub

PrivateSubadd_book_style_Click()

frmaddbookstyle.Show

EndSub

PrivateSubadd_manager_Click()

frmadduser.Show

EndSub

PrivateSubadd_rinf_Click()

frmaddreaderinfo.Show

EndSub

PrivateSubadd_rstyle_Click()

frmaddreaderstyle.Show

EndSub

PrivateSubchange_binf_Click()

frmmodifybookinfo.Show

EndSub

PrivateSubchange_book_style_Click()

frmmodifybookstyle.Show

EndSub

PrivateSubdelete_binf_Click()

frmmodifybookinfo.Show

EndSub

PrivateSubdelete_book_style_Click()

frmmodifybookstyle.Show

EndSub

PrivateSubdelete_rstyle_Click()

frmmodifyreaderstyle.Show

EndSub

PrivateSubexit_Click()

End

EndSub

PrivateSubfind_binf_Click()

frmfindbook.Show

EndSub

PrivateSubfind_lend_Click()

frmfindborrowinfo.Show

EndSub

PrivateSubfind_rinf_Click()

frmfindreader.Show

EndSub

PrivateSubpassword_Click()

frmchangepwd.Show

EndSub

Login

OptionExplicit

PrivateSubcmdOK_Click()

DimstrUserNameAsString

DimstrPasswordAsString

DimstrTargetAspAsString

DimconnAsADODB.Connection

DimrsLoginAsADODB.Recordset

DimstrSQLAsString

IfTrim(txtUserName.Text)=Then

MsgBox“顾客名”不能为空！

ExitSub

Else

strUserName=Trim(txtUserName.Text)

EndIf

IfTrim(txtPassword.Text)=Then

MsgBox“口令”不能为空！

ExitSub

Else

strPassword=Trim(txtPassword.Text)

EndIf

检查口令、顾客身份

Setconn=NewADODB.Connection

conn.Provider=Microsoft.jet.OLEDB.4.0

conn.ConnectionString=D:\图书管理系统\book.mdb

conn.Open

strUserName=Replace(strUserName,,“)

strSQL=select*from系统管理where顾客名=strUserNameand密码=strPassword

SetrsLogin=conn.Execute(strSQL)

IfrsLogin.EOFOrrsLogin.BOFThen

MsgBox顾客名或口令错误，请检查！

txtPassword.SelStart=0

txtPassword.SelLength=Len(txtPassword.Text)

txtPassword.SetFocus

Else

SelectCasersLogin(权限)

Case领导

strTargetAsp=LeadersMain.asp

Case主任

strTargetAsp=ZhuRenMain.asp

Case秘书

strTargetAsp=M