高校图书馆管理系统需求分析报告.doc

高校图书馆管理系统需求分析报告高校图书馆管理系统需求分析报告1. 需求分析. 开发背景及意义图书馆拥有丰富的文献信息资源,是社会信息系统的重要组成部分,在信息社会中的作用越来越重要图书馆管理系统非常复杂,为方便图书馆管理,提高图书馆效率,故开发此图书馆管理系统. 系统简单介绍该系统主要包括读者管理、期刊管理、期刊流通管理询等功能读者管理 该模块用于管理读者相关的信息读者类型设置用于设置读者的类型以及相关的信息,内容包括类型、期刊册数、续借次数、限制期刊等.读者档案管理用于设置读者的相关信息,内容包括编号、姓名、性别、年龄、类型、系别、年级，等.期刊管理 该功能模块用于管理期刊的相关信息期刊类型设置用于设置期刊的类型及相关的信息,内容包括类型名称、可借天数等. 期刊档案管理用于设置期刊相关的信息，内容包括编号，条形码，书名，类型，作者，译者，ISBN，出版社，价格，页码，现存量，简介，借出次数，是否注销等。期刊流通管理 该功能模块用于管理期刊流通环节相关的操作.期刊借阅用于登记读者借阅期刊的记录兵减少期刊在库的库存,登记内容包括借阅编号、期刊编号、读者编号、押金、借阅时间、应还时间、操作员等. 期刊归还用于登记读者归还期刊的记录并增加期刊在库的库存,登记内容包括归还编号、期刊编号、读者编号、退还押金、归还时间、操作员等. 期刊征订用于订购新期刊,内容包括征订编号、书名、类型、ISBN、出版社、作者、译者、订购者、订购者联系方式、订购数量、订购单价、订购日期、是否验收、实际数量、实际金额、验收日期、操作员等. 期刊罚款用于对期刊超期,丢失等情况的罚款处理,内容包括罚款编号、期刊编号、读者编号、罚款日期、应罚金额、实收金额、是否交款、备注等.统计分析管理 该功能模块为图书馆管理人员的分析决策提供依据.该功能模块包括下列子模块期刊借阅查询，期刊归还查询，期刊超期查询，期刊注销查询，期刊订购查询，读者档案管理，其他查询。3系统流程图流通管理罚款管理期刊借阅期刊管理预约续借期刊征订期刊归还期刊信息管理员读者信息 读者管理4.数据字典利用数据字典，进一步描述数据流图中的相关元素。由于篇幅的关系，这里仅列出了读者信息和期刊信息的数据字典。数据表名称 数据表用途读者类型 保存读者类型及相关信息读者信息 保存读者的各种信息 （表一）读者信息数据字典数据表名称 数据表用途期刊类型 保存期刊类型及相关信息期刊信息 保存期刊信息书架 保存期刊馆内数据的基础信息出版社 保存期刊对应出版社的基础信息期刊罚款 保存期刊罚款信息期刊归还 保存期刊归还记录期刊借阅 保存期刊借阅记录期刊征订 保存期刊征订入库记录 （表二）期刊信息数据字典二概念结构设计期刊档案出版社ISBN期刊号价格页码书名条形码编号类型作者类型编号专业年级读者档案系别年龄姓名性别1.实体及属性2. 实体及其联系 借阅借阅聘任 教师 期刊管理 学生 系 1 n 1 1 m n 1 m 3 逻辑结构设计 根据系统的概念结构设计，确定了本系统需要建立的以下数据表（1） 读者信息表读者（姓名，性别，年龄，系别，年级，专业，学号）其中关键字为学号（2）系信息表系（系名称，系编号）其中关键字为系名称（3） 专业信息表专业（专业名称，专业编号）其中关键字为专业编号（4） 期刊信息表期刊（书名，书编号，条形码，作者，期刊号，出版社，ISBN，类型，价格，页码）其中关键字为条形码（5） 出版社信息表出版社（名称，地址，联系方式，出版社主任）其中关键字为出版社名称4 物理结构设计1. 创建“读者信息表”CREATE TABLE读者信息(编号 VARCHAR (20) NULL,姓名 VARCHAR (10) NOT NULL,性别 VARCHAR (4) NULL,年龄 INT (4) NULL,类型 VARCHAR (20) NOT NULL,年级 INT (4) NULL,系别 VARCHAR (20) NOT NULL,专业 VARCHAR (20) NOT NULL)2. 创建“期刊信息表”CREATE TABLE期刊信息(条形码 VARCHAR (20) NOT NULL,编号 VARCHAR (20) NOT NULL,书名 VARCHAR (100) NULL,类型 VARCHAR (50) NULL,作者 VARCHAR (200) NULL,期刊号 INT NULL,ISBN VARCHAR (20) NULL,出版社 VARCHAR (50) NULL,价格 MONEY NULL,页码 INT NULL)3. 创建“期刊借阅表”CREATE TABLE 期刊借阅（借阅编号 INT IDENTITY (1,1) NOT NULL,期刊编号 VARCHAR (20) NULL,读者编号 VARCHAR (2O) NULL,借阅时间 smalldatetime NULL,应还时间 smalldatetime NULL,续借次数 INT NULL,状态 VARCHAR (10)4. 创建其他关键数据表CREATE TABLE 期刊归还(归还编号 INT IDENTITY(1,1) NOT NULL,期刊编号 VARCHAR (20) NULL,读者编号 VARCHAR (20) NULL,归还时间 smalldatetime null,确认归还 bit null)GOCREATE TABLE 期刊征订（征订编号 VARCHAR (50) NOT NULL,期刊编号 VARCHAR (50) NOR NULL,订购者 VARCHAR (100) NULL,订购者联系方式 VARCHAR (400) NULL,订购数量 INT NULL,订购单价 MONEY NULL,订购日期 smalldatetime NULL,验收日期 smalldatetime NULL)GOCEATE TABLE 期刊罚款（罚款编号 INT IDENTITY (1,1) NOT NULL,期刊编号 VARCHAR (20) NULL读者编号 VARCHAR (20) NULL,罚款日期 smalldatetime NULL,应罚金额 MONRY NULL,实收金额 MONRY NULL,是否交款 BIT NULL)GO5. 创建主键及外键等表约束ALTER TABLE 读者信息 ADDCONSTRAINT PK_读者信息 PRIMARY KEY CLUSTERED( 编号）ON PRIMARYGOALTER TABLE 期刊信息 ADD CONSTRAINT PK_期刊信息 PRIMARY KEY CLUSTERED (编号) ON PRIMARY GO ALTERN TABLE 期刊借阅 ADD CONSTRAINT PK_期刊借阅 PRIMARY KEY CLUSTERED(借阅编号) ON PRIMARY GO ALTERN TABLE 期刊归还 ADD CONSTRAINT PK_期刊归还 PRIMARY KEY CLUSTERED(归还编号) ON PRIMARY GOALTERN TABLE 期刊征订 ADD CONSTRAINT PK_期刊征订 PRIMARY KEY CLUSTERED(征订编号) ON PRIMARY GOALTERN TABLE 期刊借阅 ADD CONSTRAINT 期刊借阅_期刊编号 FOREIGN KEY(期刊编号) REDERENCES 期刊信息 ( 编号 ) GOALTERN TABLE 期刊归还 ADD CONSTRAINT 期刊归还_期刊编号_fk FOREIGN KEY(期刊编号) REDERENCES 期刊信息 ( 编号 ) GOALTERN TABLE 期刊罚款 ADD CONSTRAINT FK_期刊罚款_读者信息 FOREIGN KEY(读者编号) REDERENCES 读者信息 ( 编号 ) GOCONSTRAINT FK_期刊罚款_读者信息 FOREIGN KEY(期刊编号) REDERENCES 期刊信息 ( 编号 )GO五数据库的实施、运行及维护1. 系统功能模块划分，如下图所示：(1)模块总划分图书馆管理系统期刊流通管理期刊罚款逾期清单期刊借阅期刊征订期刊管理期刊档案管理期刊类别设置读者档案管理读者类别设置读者管理本系统主要由读者管理,期刊管理,期刊流通管理三大部分组成, 期刊归还 2. 界面设计本系统有许多的界面，出于篇幅考虑本设计只列出了主窗体和期刊类别设置窗体，如下图所示 系统主窗体 期刊类别设置功能窗体 3.系统主要代码出于篇幅考虑，这里只列举了读者档案管理的主要代码Public Overrides Sub Prepare() Text=读者个读者档案管理 Lable1.Text=条形码 Lable2.Text=编号 Lable3.Text=姓名 Dim db As DataBase=New DataBase Dim dv As DataView=_ db.RunSelectSQL(select 类型from读者类型) For Eatch dr As DataRow In dv. Table.Rows cbbType.Items.Add(dr(0).Tostring.Trim) Next db.Dispose()End SubPublic Overriders Sub LoadData() Dim StrFilter As String If txbOne.Text.Trim.Length=0 Then If txbTwo.Text.Trim.Length=0 Then If txbThree.Text.Trim.length=0 ThenElse StrFiler=where 姓名 like StrFiler +=txThree.Text.Trim%End IfElse StrFiler=where编号 like StrFiler +=txTwo.Text.Trim% If TxbThree.Text.Trim,Length 0 Then StrFilter +=and 姓名 like StrFilter +=txbThree.Text.Trim +% End IfEnd IfElse StrFiler=where 条形码likeStrFiler +=txOne.Text.Trim%If TxbTwo.Text.Trim,Length 0 Then StrFiler=where编号 likeStrFiler +=txTwo.Text.Trim%End IfElse If TxbTwo.Text.Trim,Length 0 Then strFilter +=and 姓名 like StrFilter +=txbThree.Text.Trim +%End IfEnd IfEnd If清空 DataSellDataSell Clear()sqlConnectionl.ConnectionString=DataBase.sConnDim strSQL As StingsqlDataAdapterl.selectCommand.CommandText_=select *from 读者信息+ strFilter根据查询条件重新填充DataSellsqlDataAdapter.Fill(DataSell)dtData=DataSell.Tables(读者信息)bmData=BindingContext(DataSell,读者信息)If bmData.Count 0 Then bmData.position = 0End IfEnd SubPublic Overrides Sub SetDataGrid() LoadData() Dim ts As New DataGridTableStyle Dim aColumnTextColumn As DataGridTextBoxColumn Dim numCols As Integer = dtData.Columns.Count Dim i As Integer For i =0 To 13 aColumnTextColumn =New DataGridTextBoxColumn aColumnTextColumn.MappingName=_ dtData.Columns(i).ColumnName aColumnTextColumn.HeaderText =_ dtData.Columns(i).ColumnName aColumnTextColumn.NullText= aColumnTextColumn.ReadOnly = True aColumnTextColumn.width = 60 ts.GridColumnStyles.Add(aColumnTextColumn) Next ts.AlternatingBackColor =Color.LightGray ts.AllowSorting =False Ts,MappingName=dtData.TableName DgdList.TableStyles.Clear() DgdList.TableStyles.Add(ts) Dim dv As DataView =dtData.DefaultView dv.AllowNew=False Dv.AllowDelete=False dgdList.DataSource=dtData.DeFaultView bmData=BindingContext (DataSell,读者信息) iblCount.Text=记录数: + dtData.rows.Count.ToString()End SubPublic Overrides Sub SetTextBoxState(ByVal bState As Boolean) GroupBoxl.Enables = Not bStateEnd SubPublic Overrides Sub Clear()txbCode.Text= txbContact.Text= txbName.Text= txbNumber.Text= txbPaper ID.Text= txbRemark.Text= txbTimes.Text= txbWorker.Text= cbbPaper.Text=cbbSexr.Text=cbbType.Text=tmBinrth.Value=Data.NowtmEnd.Value=Data.NowtmRedister.Value=Data.NowEnd SubPublic Overrides Sub SaveForAdd()Dim dr As DataRow=DataSell.Tables(读者信息).NewRow()Try dr(条形码)=txbCode.Text.Trim dr(编号)=txbContact.Text.Trim dr(姓名)txbName.Text.Trim dr(性别)cbbSex.Text.Trim dr(类别)cbbType.Text.ToString dr(联系方式)txbContact.Text.Trim dr(有效证件)cbbPaper.Text.Trim dr(证件号码)txbPaper ID.Text.Trim dr(出生日期)tmBinrth.Text.Trim dr(登记日期)tmRedister.Text.Trim dr(有限期至)tmEnd.Text.Trim dr(期刊借阅次数)txbTimes.Text.Trim dr(操作员)=txbWorker.Text.Trim dr(备注)txbRemark.Text.Trim dr(是否挂失)=cbbGuaiShi.Checked.ToStringCatch ex As Exception MessageBox.Show(数据格式不正确!) Exit SubEnd TryTry DataSell.Tables(读者信息),Rows.Add(dr) If DataSell.HasChanges=True Then SqlDataAdapterl.Update(DataSell) End IfCatch ex As Exception Message