学士学位论文—-数据库图书借阅管理系统.doc

《学士学位论文—-数据库图书借阅管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、目录（1）设计目的（2）（2）设计要求设计和实验报告要求（2）（3）设计方法系统功能（3）（4）总体设计模块功能说明和源程序（3）（5）调试与测试（14）调试方法，测试结果的分析与讨论，测试过程中遇到的主要问题及采取的解决措施（6）实验总结（15）251.设计目的：1、目的：（1）要求学生达到熟练掌握SQL数据库的基本知识和技能；（2）基本掌握数据库程序设计的基本思路和方法；（3）能够利用所学的基本知识和技能，解决简单的程序设计问题。2.设计要求：1、模块化程序设计2、锯齿型书写格式3、必须上机调试通过实验报告要求：1、程序设计组成框图、流

2、程图2、模块功能说明3、调试与测试：调试方法，测试结果的分析与讨论，测试过程中遇到的主要问题及4、采取的解决措施5、源程序清单和执行结果（附盘）：清单中应有足够的注释253.设计方法图书借阅管理系统功能：设计一个图书借阅管理系统。实现下列功能：１．图书信息的维护（包括录入，修改和删除）；２．读者信息的维护（包括录入，修改和删除）；３．借阅（借，还）信息的维护（包括借，还信息录入，修改和删除）；4.总体设计1、程序设计组成框图图书读者分馆图书类别读者类型图书种类用户属于1n属于1n分类n1属于1n借阅mnmn属于1n借阅2、程序设计流程图25

3、开始用户登录图书管理借阅者管理用户管理全部图书管理借出图书管理未借图书管理借阅者信息用户信息管理重试通过3、模块功能说明1、frmStar登录界面OptionExplicitDimTimesAsIntegerDimADOLoginAsNewADODB.RecordsetPrivateSubbtnCancle_Click()EndEndSubPrivateSubbtnOK_Click()IfLogin(Trim(txtUser.Text),Trim(txtPwd.Text))=TrueThenUnloadMeElseIfMsgBox("输入的

4、用户名称或者口令非法,请重新输入!",vbInformation+vbYesNo,"非法的操作员口令")=vbYesThentxtUser.Text=""txtPwd.Text=""txtUser.SetFocus25Times=Times+1ElseEndEndIfEndIfEndSubPrivateSubForm_Load()ADOLogin.Open"Login",ADOCon,adOpenDynamic,adLockOptimistic,-1EndSubPrivateSubForm_Unload(CancelAsInteger)AD

5、OLogin.CloseEndSubPrivateSubTimer1_Timer()IfTimes=3ThenEndEndSubPrivateSubtxtUser_Change()btnOK.Enabled=TrueEndSubPrivateSubtxtPwd_Change()btnOK.Enabled=TrueEndSubPrivateFunctionLogin(ByValstrUSERAsString,ByValstrPWDAsString)AsBooleanIfstrUSER="Administrator"ThenIfstrPWD="

6、Administrator"ThenUser="Administrator"UserPermission="Administrator"Login=TrueExitFunctionElseLogin=FalseEndIfElseADOLogin.MoveFirstDoUntilADOLogin.EOFIfstrUSER=ADOLogin.Fields(0).ValueAndstrPWD=ADOLogin.Fields(2).ValueThenUser=ADOLogin.Fields(0).ValueUserPermission=ADOLog

7、in.Fields(1).Value25Login=TrueExitFunctionElseADOLogin.MoveNextEndIfLoopLogin=FalseEndIfEndFunction2、MDIMain主菜单页面OptionExplicitPrivateSubMDIForm_Load()sbrMain.Panels(1).Text="当前登陆用户:"&User&""&"权限:"&UserPermissionUserPower(UserPermission)frmReader.AddReader=FalseEndSubPriva

8、teSubmnuAddBook_Click()frmAddBook.ShowEndSubPrivateSubmnuBorrowBook_Click()frmBorrowBook.