于老师数据库作业.docVIP

用VB开发的图书管理系统 姓名：夏厚林 学号：091002033 1．需求分析 图书馆是这样的部门，馆中收藏大量图书供读者借阅，其中图书可分成不同的类型，如自然科学类、社会科学类；借阅者可分为老师和学生。不同的借阅者最多可借书的数量和期限不同，如教师最多可借10本，期限为3个月，学生最多可借2本，期限为一个月，无论是老师还是学生，借阅超期都要进行罚款处理。以上就是图书管理系统所要完成的主要功能。 2．概念结构设计 经分析，本系统涉及到的试题只有读者和图书，二者之间存在借阅和罚款的关系，据此画出E-R图如图1所示： 图1 图书馆管理系统E-R图 3．逻辑结构设计 根据E-R图关系模式的转换规则可得如下的关系模式，加下划线的属性为相应关系的主码。 读者（借书证号，读者姓名，性别，读者类别，是否有超期） 图书（条形码号，图书编号，书名，作者，出版社，出版日期） 借阅（借书证号，条形码号，借出日期，归还日期），主码为三个属性的组合，因为一个读者可能重复接一本书，只有加上借出日期才能区分出不同的借阅记录。 罚款（借书证号，条形码号，处罚日期，超期天数，罚款金额） 密码表（用户名，密码），为了保证系统安全性，采用了密码登陆措施，用户名和密码存放在密码表中。 4．在SQL Server2000中创建数据库 打开企业管理器创建图书馆数据库，在命名为“图书管理”的数据库中创建上面5个关系模式所对应的5张表并录入实验数据。设计出表的结构分别如图2所示： 图2 5．用VB开发应用程序 5．1 图书管理系统的功能。 图书管理系统的功能模块如下图所示：其中对读者、图书的管理，包括对读者和图书的信息进行修改，浏览和查询的功能，借阅管理能够实现读者对图书借阅信息的管理。借阅对数据库的影响有两个，一个是在图书表中写入“借阅状态”信息和“借阅次数”的数据。另一个是在借阅表中增加一条借阅次数的数据，另一个是在借阅表中增加一条记录。罚款管理根据借阅表中的读者类别和借出日期算出超期天数，从而进行罚款处理。其功能模块如图3所示： 图3 图书馆管理系统的功能模块 配置数据源 利用ODBC数据源管理器配置一个连接到“图书管理”数据库的数据源，其中的重要设置如图4所示： 注意服务器由于是在本机上安装，其名称是本机名称，亦可用“．”号代替。 这里没有使用密码验证登陆的功能，也可以结合数据库的安全性选项中的密码，使用密码验证功能登陆数据库。 图5 5．3 设计各个窗体 1）设计MDI主窗体。从主窗体中可以打开各个功能窗口。其外观如5，具体细节可以通过图书管理系统作品查看，在此及其后不在赘述。 2）设计登陆窗体，如图6所示： 图6 其中各控件的属性如表1所示： 对象名 属性名 属性值 对象名 属性名 属性值 Form1 Caption 登陆 Command1 Name Cmdlogin Label1 Caption 输入用户名 Caption 登录 Label2 Caption 输入密码 Command2 Name cmdcancel Text1 Text1 Caption 取消 Text2 Text2 Adodc1 Connectionstring DSN=图书管理 Password * Visible false 表1 其中Adodc1连接到密码表。注意在“记录源”选项卡中，选择命令类型为1-adCmdText，在“命令文本”文本框中输入SQL语句select * from 密码表。 接下来添加代码：单击“登录”按钮，这个事件下的代码如下： Private Sub cmdlogin_Click() Dim micount As Integer Dim str As String str = select 密码 from 密码表 where 用户名 = Text1.Text Adodc1.RecordSource = str Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 用户名错误，请重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocus Else If Adodc1.Recordset.Fields(密码) = Text2.Text Then MDIForm1.Show Unload Me Else MsgBox 密码错误,请重新输入, vbExclamation, 警告 Text2.Text = Text2.SetFocus End If End If micount = micount + 1 If micount 3 Then Unload Me End Sub 然后根据功能要求对各