资源描述:
《附录(图书管理系统程序代码).doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、.附录主页面(MDImain):PrivateSubaddbook_Click()add_book.ShowEndSubPrivateSubaddreader_Click()add_reader.ShowEndSubPrivateSubadduser_Click()add_user.ShowEndSubPrivateSubbackbook_Click()back_book.ShowEndSubPrivateSubborrowbook_Click()borrow_book.ShowEndSubPrivateSubcuibackbook_C
2、lick()cuiback_book.ShowEndSubPrivateSubfindbook_Click()find_book.ShowEndSubPrivateSubfindreader_Click()find_reader.ShowEndSubPrivateSubMDIForm_Load()EndSubPrivateSubmodifybook_Click()change_book.ShowEndSubPrivateSubmodifypwd_Click()精选范本.change_pwd.ShowEndSubPrivateSubmod
3、ifyreader_Click()change_reader.ShowEndSubPrivateSubdelbook_Click()del_book.ShowEndSubPrivateSubdelreder_Click()del_reader.ShowEndSubPrivateSubquitsys_Click()EndEndSub登陆(login):OptionExplicitDimcntAsInteger'记录确定次数PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADO
4、DB.RecordsetIfTrim(txtuser.Text)=""Then'判断输入的用户名是否为空MsgBox"没有这个用户",vbOKOnly+vbExclamation,""txtuser.SetFocusElsesql="select*from用户表where用户名='"&txtuser.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"没有这个用户",vbOKOnly+vbExclamation
5、,""txtuser.SetFocusElse'检验密码是否正确IfTrim(rs_login.Fields(1))=Trim(txtpwd.Text)ThenuserID=txtuser.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMsgBox"欢迎登录到图书管理系统!",vbOKOnly+vbExclamation,""MDImain.ShowElse精选范本.MsgBox"密码不正确",vbOKOnly+vbExclamation,""txtpwd.SetFocusEnd
6、IfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=图书管理系统.mdb"conn.Openconnectionstringcnt=0EndSub添加用户(add_use
7、r):PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用户名不能为空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from用户表"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.F
8、ields(0))=Trim(Text1.Text)ThenMsgBox"已有这个用户",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.