教材管理系统文档

2011—2012学年第一学期

《数据库原理及应用课程设计》

教材管理系统

2011年12月23号

第1章可行性研究

1.系统开发的意义

教材管理对各个学校而言，都是一项复杂、烦琐的工作，是高校教务管理中的一个重要环

节，由于育民学校中专业设置门类多，各专业每期开设课程种类多，其业务不仅涉及出版部

门，血且要面对全校各系、部的授课教帅，各班级的学生，教材科涉及管理的人出库教材种

类非常多，涉及人员广.，工作量大，再者是近年来，我国高等教育规模的不断扩大，学校学

生人数迅速增加，使教材管理工作更加繁重不堪。因此，一套好的教材管理软件，不但能大大

降低工作人员的劳动强度，还能提高学校的管理效率和教学水平。

2.系统的开发目标和规模

在这里设计的指导思想：既要保证教材管理系统的科学性、完整性、系统性，乂注意到

教材管理的灵活性和可操作性。同时乂较好的解决了教材管理工作的部分难点问题，比如多

价书的征订采购发行，到货前书目替换，大量的录入工作，查找书目难以操作等等。

使用VisualBasic6.0作为管理系统的开发平台,SQL2OO5用于数据源的开发;使用

ODBC（开放式数据库连接）进行对数据源的连接，SQL结构化查询语言用于实现查询功能。

3.经济可行性分析

在教材管理系统中，实现对教材的物流、资金流和信息流的管理，即针对教材出入库管

理、教材库存管理、教材费的收取和使用、教材需求信息、学生个人需用教材信息等进行管

理。这些措施将为提高高等院校教材管理水平、提高工作效率、减少人为差错提供良好的管

理平台。

极低成本的数据处理、信息查询、信息录入等，可实现教材需求信息、订单管理、教材

费用处理、教材费查询、教材出入库管理、库存管理、教材发放等功能。从目前校园网和教

材管理系统的推广和运行情况来看，本系统不需增加过多的硬件投入和应用方面的培训，因

此，其经济成本是很低的。

4,课程设计的要求

要求本系统能够投入实际的使用并且满足基本的功能要求。要求具有极高的可靠性、安

全性和易维护性，具有较高的可•移植性。

本系统应该实现的功能加下：

分析手工管理教材'业务，设计的教材管理系统主要包括订教材、教材使用情况（与

课程、专业的对应关系、使用效果）的更新、查询、统计功能。

1.订货：根据各系预订计划和某种书籍的库存量确定订货数量。

2.更新：根据教材到货情况，将订单订货数据确认或更改后自动修改库存量。

3.查询统计：根据用户要求查询教材使用情况（与课程、专业的对应关系、使用效果、

数量等）。

4.用户管理：用户管理员可以新建用户信息、删除用户、修改用户信息；

第2章需求分析与设计

1.系统设计的任务

开发教材管理系统的目的就是充分利用计算机和现代办公软件，摆脱传统办公工具，用

计算机实现集中方便的管理工作，把学校教材科的工作人员从繁重的体力劳动中解脱出来已

达到提高工作效率和质量，最终实现教材管理的全面自动化和现代化。因此系统主要实现教

材管理信息的入库、出库、需求的输入如：教材管理各种信息的查询、修改等；教材采购报

表的生成以及各系各部门的教材需求管理等；

需求分析是数据库设计的基础，其错误将影响到整个设计。需求分析也是最繁琐最困难

的阶段：

设计任务：调查应用领域，对各种应用的信息要求和操作要求，进行详细的分析，形成

需求分析说明书。

2.教材管理系统的流程

i.管理员可以对用户管理，如添加用户，分配用户角色，如“普通用户”、“用户管理员”,

删除用户信息，修改用户信息。

2.学校各专业年级可以通过提交本专业的教学计划表来确定所需的教材及数量并记录，

以便查询本专业的教学计划或所需教材及数量。

3.教材科通过统计各专业的教学计划表里面的教材以及数量向供应商提供订单订购教

材，并记录相关信息。

4.教材科通过统计各教材的数量就可向供应商提交订单订购教材并记录，以便查询订单,

4.数据库设计

教材信息*

Q教材名称

作者

出版社

单价

库存量

登陆界面如下（表1）

列名数据类型是否为空是否为主键

账号nvarchar(50)是是

密码nvarchar(50)是否

供货商信息（表2）

列名数据类型是否为空是否为主键

供货商nvarchar(50)否是

电话号码nvarchar(50)是否

地址nvaichai(50)是否

教材订单信息（表3）

列名数据类型是否为空是否为主键

订单号Int是否

教材名称nvarchar(50)否否

订购总量nvarchar(50)否否

供货商nvarchar(50)否否

订购时间datetime否否

教材发放信息（表4）

列名数据类型是否为空是否为主键

系名nvarchar(50)否否

年级nvarchar(50)否否

专业nvarchar(50)否否

教材名nvarchar(50)是否

领取数量Int是否

领取时间Datetime是否

备注nvarchar(50)是否

教材信息（表5）

列名数据类型是否为空是否为主键

教材名称nvarchar(50)否是

作者nvarchar(50)是否

出版社nvarchar(50)是否

单价float否否

库存量float是否

教学计划（表6）

列名数据类型是否为空是否为主键

IDnvarchar(50)是否

系名nvarchar(50)是否

年级nvarchar(50)是否

专业nvarchar(50)是否

学期nvarchar(50)是否

课程名nvarchar(50)是否

教材名称nvarchar(50)是否

所需数量Int是否

第3章系统详细设计

系统功能概述

经过详细的用户调查，在现行业务流图和数据分析的基础上，基本可以确定系统设计必

须达到的目的了。

用户信息的管理：用户管理员可以根据需要修改或添加个人信息。

教学计划管理：管理员用户可以查询或添加教学计划表来确定所需教材及数量。

教材管理：管理员用户可以根据用户的订单以及教材信息管理来进行教材订购，货到时

可以根据订单来进行教材验收。

教材发放管理：管理员用户可以进行领书登记，并可领取查询。

系统管理：管理员可以进行密码修改和增加用户等操作。

一.部分代码实现：

1.数据库的创建

教材订购信息

SETQUOTED_IDENTIFIERON

GO

CREATETABLE[db。].[教材订单信息](

[订单号][int]NOTNULL,

[教材名称][nvarchar](50)NOTNULL,

[订购总量][nvarchar](50)NOTNULL,

[供应商][nvarchar](50)NOTNULL,

[订购时间)[datetime]NOTNULL,

CONSTRAINT[PK_教材订单信息]PRIMARYKEYCLUSTERED

(

[订单号]ASC

)WITH(PAD_INDEX=OFF,STATISTICS_NORECOMPUTE=OFF,IGNORE_DUP_KEY=

OFF,ALLOW_ROW_LOCKS=ON,ALLOW_PAGE_LOCKS=ON)ON[PRIMARY]

)ON[PRIMARY]

教学计划

CREATETABLE[dbo].[教学计戈打(

[ID][nvarchar](50)NOTNULL,

［系名］[nvarchar](50)NULL,

［年级］[nvarchar](50)NULL,

［专业］[nvarchar](50)NULL,

［学期］[nvarchar](50)NULL,

[课程名](nvarchar](50)NULL,

[教材名称][nvarchar](50)NULL,

〔所需数量][int]NULL,

CONSTRAINT[PK教学计划]PRIMARYKEYCLUSTERED

[ID]ASC

)WITH(PAD_INDEX=OFF,STATISTICS_NORECOMPUTE=OFF,IGNORE_DUP_KEY=

OFF,ALLOW_ROW_LOCKS=ON,ALLOW_PAGE_LOCKS=ON)ONfPRIMARY1

)ON[PRIMARY]

GO

ALTERTABLE[dbo].[教学计划]WITHCHECKADDCONSTRAINT[FK_教学计划—教学

计划]FOREIGNKEY([教材名称])

REFERENCES[db。].[教材信息]([教材名称])

GO

ALTERTABLE[dbo].[教学计划]CHECKCONSTRAINT[FK教学计划教学计划]

教材信息

CREATETABLE[dbo].[教材信息](

[教材名称][nvarchar](50)NOTNULL,

[作者][nvarchar](50)NULL,

[出版社][nvarchar](50)NULL,

[单价][float]NOTNULL,

[库存量][float]NULL,

CONSTRAINT[PK_教学计戈U从表]PRIMARYKEYCLUSTERED

(

[教材名称]ASC

)WITH(PAD_INDEX=OFF,STATISTICS_NORECOMPUTE=OFF,IGNORE_DUP_KEY-

OFF,ALLOW_ROW_LOCKS=ON,ALLOW_PAGE_LOCKS=ON)ON(PRIMARY]

)ON[PRIMARY]

2.存储过程的创建

ALTERprocedure[dbo].[添加教学计划]

@IDnvarchar(50),

©系名nvarchar(10),

©年级nvarchar(10),

@专业nvarchar(10),

@学期nvarchar(10),

@课程名nvarchar(10),

©教材名称nvarchar(10),

©所需数量int,

©返回值nvarchar(50)output

as

if(selectcount(*)from教材信息where教材名称=@教材名称)=0

begin

set@返回值=，库中没有该教材记录，请先添加教材信息।

return-1

end

insertinto教学计划

values(GID,©系名，©年级，@专业,©学期，@课程名，©教材名称,@所需数量);

set@返回值='添加成功，

return1

3.VB.NET调用存储过程

Try

DimxiAsString=ComboBox3.Text

DimnianAsString=ComboBoxl.Text

DimxueAsString=ComboBox2.Text

DimorderAsString=NewRandom().Next(10,99).ToStringO+

DateTimc.Now.ToSlring("HHmmss'')

DimmyconnectionstrAsString="dataSource=A-07\sql2005;&"InitialCatalog=教

材管理；IntegratedSecurity=True*

DimmyconnectionAsNewSqlConnection(myconnectionstr)

DimcmdAsSqlCommand=NewSqlCommand("添加教学计划”，myconnection)

cmd.ConunandTypc=CommandTypc.StorcdProccdure

cmd.Parameters.AddSqlDbType.NVarChar).Value=order

cmd.Parameters.Add("@系名"，SqlDbType.NVarChar).Value=ComboBox3.Text

cmd.Parameters.Add("@年级”，SqlDbType.NVarChar).Value=ComboBoxl.Text

cmd.Parameters.Add专业”,SqlDbType.NVarChar).Value=TextBox7.Text

cmd.Parameters.Add("◎学期"，SqlDbType.NVarChar).Value=ComboBox2.Text

cmd.Parameters.Add("@课程名"，SqlDbType.NVarChar).Value=kecheng.Text

cmd.Parameters.Add(”@教材名称"，SqlDbType.NVarChar).Value=TextBoxl.Text

cmd.Parameters.Add(“@所需数量"，SqlDbType.NVarChar).Value=shu.Text

cmd.Parameters.Add返回值"，SqlDbType.VarChar,50).Direction=

ParameterDirection.Output

myconnection.OpenO

Try

cmd.ExccuteNonQuery()

MsgBox(cmd.Parameters(8).Value())

CatchexAsException

MsgBox("错误号"&Err.Number&”错误描述：”&Err.Description)

EndTry

Catch

MsgBox("错误号"&Err.Number&"错误描述："&Err.Description)

EndTry

4.系统部分代码实现

(1)系统登陆代码实现

Try

DimsqlstrAsString

user_id=zhanghao.Text

sqlstr=^select*fromloginwhere帐号=&zhanghao.Text&"'and密玛=&

mima.Text&"'"

DimobjDataAsDataRow=GetDataFromDB(sqlstr).Tables(0).Rows(0)

Catch

MsgBox(“密码或帐号不符,请重新输入“，MsgBoxStyle.Information+MsgBoxStyle.OkOnly,

”系统登录失败”)

Me.mima.Text=

ExitSub

EndTry

主界面.Show()

Me.FinalizeO

(2)查找功能实现

Me.ListViewl.Items.Clear()

DimsqlstrAsString=

DimcountAsInteger

DimiAsInteger

DimdatasetAsNe*DataSet

Try

dataset.ClearO

IfTextBoxl.T?xt=""Then

sqlstr=("select*from教材发放信息where系名='"&ComboBox2.Text&and年

级=&ComboBoxl.Text&

Else

sqlstr=「select*from教材发放信息where系名=’"&ComboBox2.Text&and年

级='"&ComboBoxl.Text&"'and专业='"&TextBoxl.Text&

EndIf

dataset=GetDataFromDB(sq1str)

count=dataset.Tables(0).Rows.Count

DimIvltemAsNewListViewltem

Fori=0Tocount-1

Ivltem.Text=dataset.Tables(0).Rows(i)("系名")

Ivltem.Subitems.Add(dataset.Tables(0).Rcws(i)("年级”))

Ivltem.Susiterns.Add(dataset.Tables(0).Rcws(i)("专业”))

Ivltem.Subitems.Add(dataset.Tables(0).Rews(i)(“教材名”))

Ivltem.SUJIterns.Add(dataset.Tables(0).Rcws(i)("领取数量”))

Ivltem.Suoltoms.Add(dataset.Tables(0).Rews(i)("领取时间”))

Ivltem.Subitems..Add(dataset.Tables(0).Rews(i)("备注"))

ListViewl.Iterns.Add(IvItem)

Ivltem=XewListViewItem

Next

CatchexAsException

MsgBox("错误号"&Err.Number&"错误描述：”&Err.Description)

EndTry

(3)删除功能实现

DimidAsString=

Dimi,jAsInteger

Fori=0ToListViewl.Items.Count-1

IfListViewl.Items(i).Selected=TrueThen

ListViewl.Iterns(i).BackColor=Color.RoyalBlue

id=Trim(ListViewl.Items(i).Text)

EndTf

Next

Ifid=**Then

MsgBox("请选择要删除的项目"，MsgBoxStylc.OkOnly+MsgBoxStylc.Exclamation,“未选择

信息”)

ExitSub

EndIf

DimsqlstrAsString

IfMsgBox("你真的要删除该项？"，MsgBoxStyle.YesNo+MsgBoxStyle.Exclamation,”删除信息

")=MsgBoxResult.YesThen

sqlstr="delatefrom教学计划whereID='"&id&

IfUpdataData(sqlstr)=TrueThen

VsgBox("成功删除")

Me.ListVi3wl.Items.Clear()

DimcountAsInteger

DimilAsInteger

DimdatasetAsNewDataSet

Try

dataset.Clear()

sqlstr=("select*from教学计划”)

datas?t=GetDataFromDB(sqlstr)

count=dataset.Tables(0).Rows.Count

DimIvltemAsNewListViewItem

Foril=0Tocount-1

Ivltem.Text=dataset.Tables(0).Rows(il)("ID")

Ivltem.SubIterns.Add(dataset.Tables(0).Rows(il)(“系名”))

Ivltem.SubIterns.Add(dataset.Tables(0).Rows(il)("年级”))

Ivltem.SubItems.Add(dataset.Tables(0).Rows(il)(“专业”))

Ivltem.SubIterns.Add(dataset.Tables(0).Rows(il)("学期”))

Ivltem.Subitems.Add(dataset.Tables(0).Row$(il)("课程名

Ivltem.SubItems.Add(dataset.Tables(0).Rows(il)("教材名称”))

Ivltem.SubIterns.Add(dataset.Tables(0).Rows(il)("所需数量”))

ListViewl.Items.Add(Ivltem)

Ivltem=NewListViewltern

Next

CatchexAsException

MsgBox("错误号"&Err.Number&"错误描述："&Err.Description)

EndTry

Else

VsgBox("删除失败")

EndIf

Else

ListVicwl.Seisctedlterns.Clear()

Forj=0ToListViewl.Iterns(j).BackColor=Color.Transparent

Next

ExitSub

EndIf

EndSub

5.系统界面展不

登陆界面如图1所示:

5TEx

教材管理系统

主

界面

Rr\\

\■k\

n§

,

ku,—Lf

A退出系统

rk

iH—

._♦:

bUL_

r_

1

图2

工亘M

管理员帐号222

密吗”

确认密码!22

I运回I

图3

图4

用户管理员可以在系统设置里根据需要可以新建用户信息（如图3所示），来添加用户信

息；如果用户需要修改自己的密码（如图4所示），可以在此修改。

图5

系

年

7级

3所需数量

计

ID宽

毛概

机

软件2

计毛泽东.60

数据

机

网络

092库

43.计09数据库.

像作系

机

5通信160

计09操作系.

毛概

机

嵌入260

54.09

6计毛泽东.

机

通信

1毛概60

09

计毛泽东.

机

软件

数据60

2库

63.09

计数据库.

机

网络

2毛概20

72.09库

计

机

嵌入

2数据毛泽东.60

T4.09

数据库.60

添加|删除|返回|

图6

图7

用户管理员可以根据教学计划管理来查询教学计划（如图6所示）来了解各专业已报的

教材及数量；还可以通过添加教学计划（如图7所示）来确定所需订购的教材以及数量。

图8

图9

国教材信息管理，口X

教材名称作者出版社单价库存量

9

:操作系统原.1::2］远程..ass・・・2280添加信息

毛泽东思想.•・aaa..aa..,3200

22

数据库系统.•・李埼..anc...10

网络编程aaa..aaa・・・2015

图10

用户管理员可以通过教材管理的教材订购（如