图书馆管理课设报告.doc

河北工业大学数据库课程设计报告 指导老师：王小芳学院：土木工程学院专业：交通运输班级：C101姓名：沙叶林学号：106877 2012年6月18日图书管理系统一、背景资料：1) 图书馆有各种图书若干册。2) 每种图书都有书名、图书编号、作者（译者）、出版时间、图书类型。3) 读者信息记录有借阅者的姓名、学号、性别、年龄、所在院系、专业、入学年份。4) 每次借书有一定期限，超过期限会提醒。5） 还可以检索图书。二、系统功能需求：1）图书馆借阅书籍用于归还书籍的登记。也就是为读者建立一个台账，应用该台账，工作人员能方便地掌握某位读者借了哪些书，借了多长时间。2）催还图书通知单。图书馆对所借书籍的最长借阅时间有限制，对逾期未还的读者适时提醒，促其尽快还书，以加快图书的流通。3）提供快速的图书查询功能，方便读者尽快查找所需要的书。4）系统提供的全部功能简单、直观、实用。三、系统数据库关系的ER图：系统所涉及到的实体及关联关系比较简单，主要的实体只有读者和图书两个，他们通过读者的借阅活动而发生联系，其ER图如下：四、系统设计思路： 1、功能设计： 1) 图书借阅。为读者办理借阅登记，登记的内容包括学生编号、图书编号、借阅日期等。 2）图书归还。在适当位置登记，这个适当位置应该由图书编号和图书名称决定。 3）编制催还图书通知单。对借阅图书超过一定天数的读者打印催还图书通知单，其内容包括图书编号、读者姓名、图书名称、作者、借阅日期等信息。4）编制检索图书。读者可以通过图书编号、名称等信息对图书进行检索。2、数据库设计：根据ER图，将其转化为如下数据实体，数据库：图书馆管理系统数据库，包括如下的表：1) 读者登记表。学号姓名性别年龄所在院系专业入学年份 2) 图书信息管理表图书编号图书名称作者出版时间图书类型3) 图书借阅管理表 学号图书编号借书日期规定归还日期实际归还时间3、总体模块设计： 该系统的全部功能由一个主控界面（两个表单）、一个报表以及相关的四个表单组成，其总体模块框图如下：图书馆信息管理系统学生信息管理（表单）借书登记还书登记图书库存管理催还通知五、功能模块介绍：1、欢迎界面和主控界面表单的设计：图书馆信息管理系统的主界面由“欢迎表单”和“主控表单”组成，主控表单上安排六个命令按钮，分别实现总体框图中的五部分功能。每个命令按钮触发的结果均执行一条命令，运行一个表单，或启动一个报表文件的运行，或者退回到visual foxpro系统状态。欢迎表单标签的caption属性为“欢迎使用图书馆管理系统！”主控表单的设计代码如下：“图书登记”按钮的click事件代码：do form 图书信息管理表“读者管理”按钮的click事件代码：do form学生信息表“借书管理”按钮的click事件代码：do form图书借阅管理表“超时提醒”按钮的click事件代码：do form图书借阅管理表“检索图书”按钮的click事件代码：report form图书信息管理表2、其他表单的设计： 学生信息表单设计：此表单的数据源是学生信息表，在其支持下完成用户要进行的学生信息管理。用户从“学生编号”文本框中输入一个编号，如果该借书证在学生信息表中已存在，系统会在下面的表格对象中显示与之对应的读者情况，否则显示为空。当单击“添加”按钮后，系统会在表格中添加一行空记录，等待用户输入新读者的资料，并自动把办证日期赋值为系统当前日期，用户退出表单时系统将新数据存入与表单对应的学生信息表中；当用户单击“退还图书”按钮后，系统把当前日期赋值给还书日期字段，表述该读者已归还图书。各表单对应的各种对象的属性值和事件代码如下：Private Sub Command2_Click() Dim temp1 temp1 = 100 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast temp1 = Val(Adodc1.Recordset.Fields(图书编号) + 1 Else temp1 = temp1 + 001 End If Text1.Text = temp1End SubPrivate Sub Command3_Click()On Error GoTo ErrorHandle If Text1 = Then MsgBox 请输入图书编号！, vbInformation Else Dim sql As String sql = insert into 图书信息管理表 values( & Text1 & , & Text2 & , & Text3 & , & Text4 & , & Text5 & ) cnn.Execute (sql) Adodc1.Refresh Text1 = End If Exit SubErrorHandle:MsgBox 图书信息输入有误，请检查图书编号是否重复！End SubPrivate Sub Command4_Click() Adodc1.Recordset.DeleteEnd SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command6_Click() Dim temp1 temp1 = 0 Dim sql As String sql = If Text6.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 图书编号= + Text6.Text + temp1 = temp1 + 1 End If If Text7.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 图书名称= + Text7.Text + temp1 = temp1 + 1 End If If Text8.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 作者= + Text8.Text + temp1 = temp1 + 1 End If If Text9.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 图书类型= + Text9.Text + temp1 = temp1 + 1 End If sql = select 图书编号,图书名称,作者,出版时间,图书类型 from 图书信息管理表 + sql + order by 图书编号 Adodc2.RecordSource = sql Adodc2.Refresh End SubPrivate Sub Command1_Click() Dim temp1 temp1 = 100 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast temp1 = Val(Adodc1.Recordset.Fields(学号) + 1 Else temp1 = temp1 + 001 End If Text1.Text = temp1End SubPrivate Sub Command2_Click()On Error GoTo ErrorHandle If Text1 = Then MsgBox 请输入学号！, vbInformation Else Dim sql As String sql = insert into 学生信息表 values( & Text1 & , & Text2 & , & Text3 & , & Text4 & , & Text5 & , & Text6 & , & Text7 & ) cnn.Execute (sql) Adodc1.Refresh Text1 = End If Exit SubErrorHandle:MsgBox 学生信息输入有误，请检查学号是否重复！End SubPrivate Sub Command3_Click() Adodc1.Recordset.DeleteEnd SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub Command5_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub Command6_Click() Dim temp1 temp1 = 0 Dim sql As String sql = If Text11.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 学号= + Text11.Text + temp1 = temp1 + 1 End If If Text10.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 姓名= + Text10.Text + temp1 = temp1 + 1 End If If Text9.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 专业= + Text9.Text + temp1 = temp1 + 1 End If If Text8.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 所在院系= + Text8.Text + temp1 = temp1 + 1 End If sql = select 学号,姓名,性别,年龄,专业,所在院系,入学年份 from 学生信息表 + sql + order by 学号 Adodc2.RecordSource = sql Adodc2.Refresh End SubPrivate Sub Command1_Click() Dim temp1 temp1 = 100 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast temp1 = Val(Adodc1.Recordset.Fields(学号) + 1 Else temp1 = temp1 + 001 End If Text1.Text = temp1End SubPrivate Sub Command2_Click()On Error GoTo ErrorHandle If Text1 = Then MsgBox 请输入学号！, vbInformation Else Dim sql As String sql = insert into 学生信息表 values( & Text1 & , & Text2 & , & Text3 & , & Text4 & , & Text5 & , & Text6 & , & Text7 & ) cnn.Execute (sql) Adodc1.Refresh Text1 = End If Exit SubErrorHandle:MsgBox 学生信息输入有误，请检查学号是否重复！End SubPrivate Sub Command3_Click() Adodc1.Recordset.DeleteEnd SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub Command5_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub Command6_Click() Dim temp1 temp1 = 0 Dim sql As String sql = If Text11.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 学号= + Text11.Text + temp1 = temp1 + 1 End If If Text10.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 姓名= + Text10.Text + temp1 = temp1 + 1 End If If Text9.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 专业= + Text9.Text + temp1 = temp1 + 1 End If If Text8.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End