计算机专业(高职大专)毕业论文--图书管理系统

计算机专业(高职大专)毕业论文--图书管理系统内容摘要：

典设计数据库结构 4 最后在实现各个功能模块 时采用先模块后系统集成的方式即各系统功能模块分别独立设计和调试在创建系统主窗体时才将各个功能模块通过主窗体菜单系统集成到一起最后进行系统整体的设计和调试 33 系统模块功能解析第四章 图 41 用户登录流程逻辑 加模块 1 程序描述此程序用于添加新的用户用户通过向数据库内输入必要的信息来注册成为新的用户才通过一系列的验证之后即注册成为真正的用户 2 功能实现对用户的添加功能 3 性能查询新用户的用户名是否存在若存在则停止添加返还数据库若用户不存在则进行添加并进行注册注册成功后返回 4 输入项输入用户的详细信息包括姓名出生日期性别地址身份证号码电话号码等信息 5 输出项若添加成功则输出提示用户注册成功界面若未成功则提示输出未成功原因界面 6 流程逻辑如下图所示 图 42 用户添加模块流程逻辑 询模块 1 程序描述此程序用于实现用户对想要借阅的查询功能用户通过输入相应的图书信息来查询数据库根据用户提供的信息来搜索最后给出客户相应的图书信息 2 功能实现图书查询功能 3 性能对进行想要查询的书籍进行搜索若存在此书则显示该书的详细信息若不存在此书则提示没有此书并返回 4输入项输入图书的详细信息包括图书名称书籍 ID图书作者出版社单价等信息 5 输出项若输入的图书存在即输出图书详细信息界面若输入的图书不存在则显示图书不存在界面 6 流程逻辑如下图所示 图 43 图书查询模块流程 阅模块 1程序描述此程序用于图书的借阅用户通过登录自己的借阅 ID后对需要借阅的图书进行借阅操作如果符合借阅的要求则可进行借阅 2 功能实现对图书的书籍借阅功能 3性能首先验证借阅者输入的借阅 ID是否存在若存在进行下一步若不存在则返回 4 若借阅 ID 存在则检查此借阅 ID 是 否借阅书籍超出 4 本若超出则提示超出借阅数目返回若没有超出则进行下一操作 5 对想要借阅的图书 ID 进行搜索若此书不存在则提示此书不存在若此书存在则进行下一步操作 将借阅者借阅的数量増一将数据库中此书数量减一同时提醒借阅成功然后返回 6 输入项输入借阅证的 ID 图书 ID 7输出项若借阅证 ID正确且图书 ID正确且符合借阅要求则输出提示借阅成功界面若存在借阅 ID或图书 ID或不符合借阅要求等问题则输出提示没有借阅成功原因的界面 8 流程逻辑如下图 图 44 图书借阅模块 还模块 1程序描述此 程序用于图书的归还用户在登录自己的 ID之后用户可以对需要归还的图书进行操作如果符合归还要求则可以将图书归还 2 功能实现对图书的书籍归还功能 3性能首先验证借阅者输入的借阅 ID是否存在若存在进行下一步若不存在则返回 对想要归还的图书 ID 进行搜索若此书不存在则提示此书不存在若此书存在则进行下一步操作将借阅者借阅的数量减一将数据库中此书数量加一同时提醒借阅归还然后返回 4 输入项输入借阅证 ID 和图书 ID 5 输出项若借阅证 ID 和图书 ID 正确则输出提示图书归还成功界面若借阅证 ID 或图书 ID 不正确 则输出提示没有成功原因的界面 6 流程逻辑如下图 图 45 图书归还模块 库模块 1 程序描述此程序用户对新进图书的入口登记处理用户可以将新书的详细信息进行输入保存在数据库中后新书即登记成功 2 功能实现新进图书入库功能 3 性能对数据库查询是否已存在此书若存在则将此书数量加一提示添加成功若没有此书则将此书的基本信息存入数据库并提示添加书籍成功 4 输入项输入新书的书籍 ID 书名作者出版社单价等信息 5 输出项若添加成功则输出提示新书添加成功界面若没有添加成功 输出提示未成功原因界面 6 流程逻辑如 下图 图 46 新书入库模块 第五章 编码与测试 51 各功能模块的实现 Const LogTimes As Integer 3 Private Sub cmdcancel_Click If MsgBox 是否真的退出系统登录 vbYesNo 登录验证 vbYes Then Unload Me End If End Sub Private Sub cmdok_Click Static intLogTimes As Integer intLogTimes intLogTimes 1 If intLogTimes LogTimes Then MsgBox 超过登录次数 vbCritical 登录验证 Else With Library_ManagersSysUsers Open If RecordCount 0 Then MoveFirst Find 编号 Trim txtLog 0 If EOF Then MsgBox Trim txtLog 0 不是系统用户请检查输入 vbCritical 登录验证 txtLog 0 SetFocus txtLog 0 SelStart 0 txtLog 0 SelLength Len txtLog 0 ElseIf Fields 口令 Trim txtLog 1 Then MsgBox 口令错误请检查输入口令 vbCritical 登录验证 txtLog 1 SetFocus txtLog 1 Else CurrentUserNum Fields 编号 CurrentUserPassword Fields 口令 CurrentUserStatus Fields 权限 MsgBox 欢迎使用常州信息学院管理系统 vbInformation 登陆成功 Unload Me End If End If Close End With End If End Sub Private Sub Form_Load Sys。