图书馆管理系统详细设计.docVIP

实 验 报 告 课程名称 软 件 工 程 实验项目名称 图书管理系统——详细设计1 实验学生班级 05计算机科学与技术（控制技术） 实验学生姓名 鞠久勤 学生所属院部 信息技术学院 同组学生姓名 肖静、何南、候芬、陈青、朱纪超 实验时间 2008年12月8日、2008年12月15日 实验地点 B407 实验成绩评定 指导教师签字 年 月 日 一、实验目的和要求 对系统进行详细的设计,严格按照规格说明书的要求,完成图书管理系统的登录图书管理系统、图书管理、系统管理三个部分，其中图书管理又分为图书类别管理、图书信息管理，可对图书的类别和图书的信息进行添加、修改、删除、查询操作。 二、实验主要仪器和设备 PC机，Microsoft Visual Basic 6.0 三、实验原理 在本次的系统开发中主要完成以下三个部分的详细设计，其主要内容如下： 1、登录图书管理系统 由管理员或读者用自己的用户名和密码登录系统。 2、图书管理 （1）、图书类别管理 单击“图书管理”菜单下的“图书类别管理”，进入图书类别管理，再单击子菜单可以添加、修改、删除“图书类别”。 （2）、图书信息管理 单击“图书管理”菜单下的“图书信息管理”，进入图书信息管理，再单击子菜单可以添加、修改、删除、查询“图书信息”。 3、系统管理 （1）、添加管理员 单击“系统管理”菜单下的子菜单“添加管理员”添加系统管理员 （2）、修改密码 单击“系统管理”菜单下的子菜单“修改密码”即可修改密码。 （3）、退出系统 单击“系统管理”菜单下的“退出系统”，即可成功退出系统。 四、实验方法与步骤 1、登录系统 用户通过自己的用户名和密码登录系统。登录界面如图1。 图1 系统默认的用户名和密码如图2所示： 图2 登录窗体中的确定按键其主要程序如下： Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(txtuser.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocus Else sql = select * from 系统管理 where 用户名= txtuser.Text rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me Form1.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocus End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub 系统功能说明：用于验证用户是否为管理员或本图书馆读者，以防资料外泄，如果是的则进入系统，否则提示错误。 2.图书管理 （1）、图书类别管理 ◆添加图书类别 单击“图书类别管理”菜单，进入“添加图书类别”菜单如图3 图3 系统操作员可以根据实际情况填写“图书类别”、“图书编号”，然后点击“确定”按钮即可。 已经存在的图书类别如图4所示： 图4 图书类别窗体中的确定按键其主要程序如下： Dim rs_bookstyle As New ADODB.Recordset Dim sql As String