图书管理系统3—计算机毕业设计

图书管理系统3—计算机毕业设计内容摘要：

① 图 书图 书 名 称图 书 编 号图 书 出 版 社图 书 编 号图 书 作 者图 书 I S B N 号图 书 数 量 图 书 类 别 ② 管 理 员编 号姓 名 密 码加 入 时 间 ③ (1) 分 ER 图 计算机学院软件工程课程设计 14 M1MN管 理 员学 生 管 理学 生借 阅归 还图 书NN图 书 管 理1N (2) 总 ER 图 图 概念结构设计 ER 图 实体：图书（图书编号，书名，作者，出版社，定价，图书类别，图书 ISBN 号，图书数量） 学 生（学生学号，学生姓名，性别，入校时间，毕业时间） 管理员（编号，名字，密码，加入时间） 联系：学生管理（图书管理员，学生姓名，学生密码） 图书管理（图书管理员，借阅号，归还号） 查询（图书编号，借阅证号，图书管理员，学生） 数据库的物理设计 依据数据库的原理，并结合以上 ER 图，经过转化，即可进行数据库的物理设计。 基于以上数据库的逻辑设计，考虑程序设计的简易性，同时考虑题目的时间，该系统的数据库采用 Microsoft SQL Server 2020。 本系统 决定采用一个数据库，在其下创建 5个数据表，其结构分别如下： （ tBook），其字段列表如表 41 所示。 表 41 图书信息表的结构 序号 字段名称 字段说明 类型 位数 属性 备注 1 cBooksID 图 文 7 必 计算机学院软件工程课程设计 15 书编号 本 须非空 2 cBooksName 图书名称 文本 20 必须非空 3 cBooksISBN 图书ISBN号 文本 15 可为空 4 cBooksAuthor 图书作者 文本 10 可为空 5 cBooksPublisher 图书出版社 文本 20 可为空 6 cBooksType 图书类型 文本 16 可为空 7 smBooksPrice 图书货币 可为 计算机学院软件工程课程设计 16 价格 空 8 iBooksStoreQuan 图书库存量 整数 可为空 9 iBooksLeftQuant 图书副本数量 整数 可为空 10 iBooksTotalQuan 图书总数 整数 可为空 （ tBorrow），其字段列表如表 42 所示。 表 42 图书 借阅登记 表的结构 序号 字段名称 字段说明 类型 位数 属性 备注 1 cBorrowID 借书编号 文本 6 必须非空 2 cVipID 学生文本 6 必须 计算机学院软件工程课程设计 17 编号 非空 3 cBooksID 图书编号 文本 7 必须非空 4 cBorrwTime 借书时间 时间日期 可为空 5 cReturnTime 还书时间 时间日期 可为空 6 cReturn 是否归还 文本 1 可为空 （ tReturn），其字段列表如表 43 所示。 表 43 图书 归还登记 表的结构 序号 字段名称 字段说明 类型 位数 属性 备注 1 cBorrowID 借书编号 文本 6 必须非空 2 cVipID 学 文 6 必 计算机学院软件工程课程设计 18 生编号 本 须非空 3 cBooksID 图书编号 文本 7 必须非空 4 cBorrwTime 借书时间 时间日期 可为空 5 cReturnTime 还书时间 时间日期 必须非空 6 cReturn 是否归还 文本 1 必须非空 7 cNoReturn 归还异常 文本 8 可为空 （ tVip），其字段列表如表 44 所示。 表 44 学生信息 表的结构 序号 字段名称 字段说明 类型 位数 属性 备注 计算机学院软件工程课程设计 19 1 cVipID 学生编号 文本 6 必须非空 2 cVipName 学生姓名 文本 10 必须非空 4 cVipSex 学生性别 文本 1 可为空 5 vipAddTime 学生入学时间 时间日期 必须非空 6 vipEndTime 学生毕业时间 时间日期 必须非空 （ tOperators），其字段列表如表 45 所示。 表 45 管理员 信息表的结构 序 字段名称 字 类 位 属 备计算机学院软件工程课程设计 20 号 段说明 型 数 性 注 1 cOperatorID 管理员编号 文本 5 必须非空 2 cOperatorName 管理员姓名 文本 10 必须非空 3 cOperatorPassword 密码 文本 6 必须非空 4 cOperatorAddTime 管理员加入时间 时间日期 10 必须非空 计算机学院软件工程课程设计 21 第五 章 编码实现 程序编码 登陆界面如图 所示。 图 登陆界面 程序代码如下： Function Check_Password(ByVal UserName As String, ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set objRs = New Recordset StrSql = select cOperatorPassword from tOperators where cOperatorName=39。 amp。 Trim() amp。 39。 GetData StrSql 39。 Reference function to get data If Then Check_Password = 0 39。 This Operator not exist Else If Trim((cOperatorPassword).Value) Then Check_Password = 1 39。 password error 计算机学院软件工程课程设计 22 Else Check_Password = 2 39。 password ok CurrentOpname = Trim() CurrentOppassword = (cOperatorPassword).Value 39。 Here can save a operator grade for expand End If End If Exit Function ER2: MsgBox Check_Password = 255 End If End Function Private Sub cmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() Dim intCheck As Integer 39。 Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTimes + 1 39。 Save login times If intLogTimes MaxLogTimes Then 39。 Over allowed login times then list information MsgBox You have over allowed loghin times,login failure !, vbCritical, LoginError Unload Me Else intCheck = Check_Password(Trim(txtPassword), Trim(cboName)) Select Case intCheck Case 0 MsgBox Your are not a system user !, vbInformation + vbOKOnly, LoginError Case 1 MsgBox Password error ,please check your password !, vbInformation + vbOKOnly, LoginError Case 2 Unload Me If CurrentOpname = Admin And CurrentOppassword = 1 Then = True Else = False End If Load MainWin 计算机学院软件工程课程设计 23 End Select End If End Sub 主界面如图 所示。 图 程序主界面 程序代码如下： Option Explicit Private Sub MDIForm_Activate() If CurrentOpname = Admin Then (1).Text = 管理员： amp。 CurrentOpname (1).Visible = True (2).Visible = True Else (1).Text = 操作员： amp。 CurrentOpname (1).Visible = False (2).Visible = False End If End Sub Private Sub。