2020年学校教材订购系统课程设计

学校教材订购系统课程设计

文档仅供参考

软件工程课程设计

题目__________学校教材订购系统___________

学院_______________嘉兴学院______________

专业信息管理和信息系统

班级_______________信息N052_____________

学号_________010715___________

学生姓名颜幼幼徐晶俞丽

指导教师_______________张云_______________

编写日期2月21日

文档仅供参考

一、开发计划：

1、系统叙述

在21世纪的今天，随着计算机技术和计算

机网络的发展，人们逐渐开始步入信息时代。经

过Internet网络人们能够浏览各类信息，发送

电子邮件，传送文件，参与BBS,网上娱乐，远

程教育，远程医疗。人们日常工作，生活中的许

多事情都已经能够在网上轻松简单的完成。互联

网因为它简单的操作和强大的信息量，逐渐成为

了人们工作中的好帮手和生活中不可缺少的重

要组成部分。

近年来，互联网也开始涉及学校的教材订

购，教材订购系统近几年在各高校逐渐得到广泛

的应用。但有些教材征订系统，依然存在着在教

材管理和征订方面半手工半信息化的状况。所谓

半手工半信息化是教材科有详细的教材资料，并

把她们存放在电子文档中。每次需要信息时，在

电脑中找到对应文档提取所需信息，把所需的信

息打印或手抄出来。即教材信息没有形成一个大

型的整体的数据库，而且还没有对这些数据进行

操作的网络应用程序。当前国内大部分的学校都

文档仅供参考

是这种情况。针对这一情况，我们研究和开发了

“学校教材订购系统”作为深入研究解决这一

问题办法的初步尝试。

2、问题的提出及发展背景

随着教学数量的提高，对软件质量的要求也

越来越高，因此，教师、学生对教材的订购了越

来越重视，希望获取教材的过程简单，方便，快

速，因而，做一个好的订购系统是十分重要的。

订购是指教师或学生向工作人员提供要采

购的教材，经工作人员审查后，发给教师或学生

发票，然后去书库去领取教材，但工作人员发现

书库中缺货时，要及时的向采购部报告，采购部

要及时的进货，然后，工作人员来修改记录。

3、目标系统叙述

本系统主要解决经过ASP.NET程序制作WEB

应用程序，经过该应用程序实现对数据库的整合

以及对数据库的操作。数据库的整合就是把现在

的零散的数据库经过分类，综合整理成一个大型

的数据库。所需数据都能够从里面调用，数据库

操作主要指添加，删除,查询等数据库基本操作。

系统的设计首先着眼的是网络，学生或教师能够

经过本系统向教材订购人员提交所需教材的详

文档仅供参考

细信息，教材订购系统能够统计教材信息。因此

本系统方便了学校教材订购部门的工作，提高了

工作效率。

主要功能包括：1、收集数据。将学生教师

的订书单和缺书通知单单收集起来。

2、打印报表。产生待购教

材表、进库表和出库表等各种统计报表

3、可行性分析及开发计划

在技术上的可行性分析，本系统可细化为两个

子系统：销售系统和采购系统

销售系统的工作过程为：首先由教师或学生提

交购书单，经教材发行人员审核是有效购书单

后，开发票、登记并返给教师或学生领书单，教

师或学生即可去书库领书。

采购系统的主要工作过程为：若是脱销教材，

则登记缺书，发缺书单给书库采购人员；一旦新

书入库后，即发进书通知给教材发行人员。

当书库中的各种书籍数量发生变化（包括领

书和进书时），都应修改相关的书库记录，如库

存表或进/出库表。

在对现行系统的情况调查的基础上，得出系统

文档仅供参考

的逻辑模型。

二、需求分析

1、需求定义说明书

此教材采购系统分为两个模块：采购系统和

销售系统。具体见下图层次数据流图。

销售系统模块：提交购书单、审核购书单、

开发票、登记购书纪录、返回领书单、修改和维

护数据库中相应的表。

采购系统模块：发缺书台州单、登记缺书纪

录、拟订待购书信息、发进书通知单、修改和维

护数据库中相应的表。

教材管理信息系统的服务对象为全校师生

员工，系统的使用对象为教务处教材管理人员及

书库管理员。系统主要完成以下具体功能：

(1)预定新书购书者购买书库暂时没有的书，

能够进行预订，由教务处工作人员进行采购。

(2)购书购书者到财务室办理缴费手续，然后

凭此手续去书库取书。

(3)书出库书从书库领出，管理员修改书库记

录。

(4)书入库采购人员把采购的书送入书库，管

文档仅供参考

理员修改书库记录。

（5）书库维护对现有的书分类、统计、增添新

书目或删除不存在的旧书目录等，一般由书

库管理人员来完成。

2、数据流图

将数据流图模块中的内容进一步细化，便于

理解与设计。

学生信息包括：姓名、学号、购书日期、采

购书籍名称、书籍编码、书籍数量、单价、联系

方式。

老师信息包括：姓名、编号、购书日期、采

购书籍名称、书籍编码、书籍数量、单价、联系

方式。

书籍信息包括：书籍名称、书籍编码、价格、

现有数量、出版社、作者。

购书单信息包括：日期、书籍名称、数量、

学生（老师）姓名、购书人员编号。

缺书单信息包括：日期、书籍名称、数量、

学生（老师）姓名、发行人员编号。

发行人员信息包括：书籍名称、数量、日期、

发行人员编号、联系方式。

采购人员信息包括：书籍名称、数量、日期、

文档仅供参考

采购人员编号、联系方式。

将细化的数据流图用图形表示出来：如下图

发票、登记

购书

进书通知单

文档仅供参考

图2-1教材订购系统数据

流程图

在数据流图分解时，每个变动都可能引出新

的问题。这些问题的回答能够到处数据字典的新

条目，发现后及时更正。随着分析过程的深入，

经过不断地提问和问答，把软件系统定义得越来

越准确详细。最终就能对系统的功能要求有一个

较全面的认识。应当高度重视：经过各层数据流

图和数据字典把对系统的完整认识描述出来，并

作为正式文档保存。

三、概要设计（系统设计）：

1、系统功能模块结构图

根据需求分析，学校教材订购系统功能模块

结构图如下：

销售子系统

凝4生工友化

文档仅供参考

采购子系统

文档仅供参考

2、数据库概要设计（E-R图）

学校教材订购系统中，其主要的实体分别

为用户（教师和学生）、教材管理人员，经分

析后，得到主要E・R图，如图所示。

工

文档仅供参考

进一步对学校教材订购系统的销售过程和

采购过程进行数据流程分析，本系统应当具有如

下的数据项和数据结构：开发过程中建立了名为

book的数据库，下设book07>book08>adminlist

文档仅供参考

等表如图3-1所示:

他SQLSersrex'En±erprxseManager

文件CE)嫌作(A)查看(K)工具di窗口比)帮助Qi)

6f1回国国喝国来4Oko®ca

a46S^zX^icrosof-tSQLServers\SQLServer组\(local》(VindovsN

o控制台根目录表23个项目

，口MicrozoftSQLServers名廊，I所有者

户

用

i-JSQLServer组a«jjTiixtiistdbo

用

尸

ICLocaX)(WindowsNT)「^1booltiOTdbo

尸

用

-L-］数据库I罢IbookP8dbo

统

曰®book承

1^1dtpropertiesdbo统

p关系图率

|三之1sx>columnsdbo带

目表w

图3-1book数据库图

表asminlist用于存放系统管理员和老师或学

生的登陆用户名和密码，其中帐号为主码，如图

3-2adminlist图所示。

摘］表-adBinlist"中的数据，位置是“book”中

帐号1密码

►12345

1000112345

1000212345

1000312345

1000412345

1000512345

米

图3-2adminlist图

表book07用于存放过去两个学期中计算机系所

有已定教材的信息，其中书号为主码，如图3-3

表book07图所示。

徜表-bookOT"中的数据，位置是-book"中、-(local)"上

书号书名作者征定时间数量

III王芳III

1m高等数学2007-168

►张

一

7102法律2007-168

方

文

7103VFP2007-168

李

明

7104C语言2007-168

陈

聪

7105管理学2007-168

周

天

7201统计学2007-868

张

池

财务管理钟

7202欣2007-868

蔡

7203会计琴2007-868

7204JAVA2007-868

米

文档仅供参考

图3-3表book07图

表book08用于存放本学期需要征订的教材，同

样，书号为主码，如图3-4表book08图所示。

稿表-book08"中的数据，位置是“book”中、-(local)"上

厂I书号I书名I作者I征定时间-Ti基

flOl高等数学2007-160

7201统计学2007-868

8102网站建设2008-168

8103软件工程2008-168

8702市场营销2008-180

米

图3-4表book08图

四、详细设计

根据功能模块用程序流程图进行详细设计

和各模块详细设计说明书如下：

销售子系统模块程序流程图：

土日一六'liUl

文档仅供参考

氏&曰日

欣**口

文档仅供参考

击

采购子系统模块程序流程图:

3X心

匕2bh出

文档仅供参考

欣*将包

戏二口目

心用七病

五、界面设计及主要代码

本系统主要有登陆界面load,aspx,显示书

目信息及功能模块选择页面book.aspx,添加新

记录页面new.aspx,添加历史记录页面

文档仅供参考

history,aspx和historyl.aspx,修改记录

update,aspx和updatel.aspx以及删除记录

delete.aspx八个页面组成.其中登陆与用

datagrid两大模块的代码编写与设计.具体设计

如下：

5.1登陆界面

当单击确定按钮时,连接数据库,确定输入的

帐号和密码是否匹配，跳转到书目的页面，若不

匹配，则弹出帐号错误或密码错误的提示。如图

5-1所75

欢迎使用学校教材订购系统

图

5-1

具体代码如下：

PrivateSubbuttonl_Click(ByVaisenderAs

System.Object,ByVaieAsSystem.EventArgs)

文档仅供参考

Handlesbuttonl.Click

DimstrAsString

DimpassstrAsString

passstr=

Trim(CStr(TextBox2.Text))

str=〃'〃&TextBoxl.Text&〃'〃

DimsqlAsString="select*

fromadminlistwhere帐号="&Trim(str)

'在数据库中搜索帐号为

textboxl.text的数据，

DimconnstrAsString=

z,server=localhost;uid=sa;pwd=;database=bo

ok〃

DimmyconnAsNew

SqlClient.SqlConnection(connstr)

DimdaAsNew

SqlClient.SqlDataAdapter(sql,myconn)

DimdsAsNewDataSet

da.Fill(ds,"adminlist")

DimdacommAs

SqlClient.SqlCommandBuilder=New

SqlClient.SqlCommandBuilder(da)

文档仅供参考

If

ds・Tables("adminlist")・Rows，Count=1Then

'判断帐号密码是否和数据库匹

配，

Ifpassstr=

Trim(ds.Tables("adminlist").Rows(0)(“密码

"))Then

Response.Redirect("book,aspx")

Else

Response.Write("密码错

误!〃)

EndIf

Else

Response.Write("用户名不存

在!〃)

EndIf

EndSub

EndClass

5.2用datagrid显示数据

首先建立datagrid,经过连接数据库，将数据显

示在datagrid中。如图5-2所示

文档仅供参考

TZ：Mxi：*：'t

O*'Qri✓e.：•八・.A

欢迎使用学校教材订购系统

6号为8作者必定，同lk«

TIO)方♦魏华王芳2007-18

蜕计等球X

tut冏时■设马月2OM-1<•

8103d鱼工收3000-J

2001*1

______________________1

：•”，

图5-2书目页面book,aspx

具体代码如下：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAsSystem.EventArgs)

HandlesMyBase.Load

binddata()

EndSub

Subbinddata()

DimmyconnectionAsNew

SqlConnection(^initial

catalog=book;uid=sa;pwd=")

ConststrsqlAsString="select*

frombook08orderby书号”

DimmycommandAsNew

文档仅供参考

SqlCommand(strsql,myconnection)

DimmydaAsNewSqlDataAdapter

myda.SelectCommand=mycommand

DimmydsAsNewDataSet

myda.Fill(myds)

DataGridl.DataSource=myds

DataGridl.DataBind()

EndSub

5.3添加历史书目

(1)history.aspx在登陆系统并选择插入历

史书本后，进入添加历史书目的页面，决定选择

哪条记录进行添加。如图5-3插入历史书目图所

示

文档仅供参考

图5-3插入历史书目图

在单击左侧的选择后，自动跳转到

updatel.aspx,根据所选择的书目，进行相应的

修改后添加到记录中去。具体代码如下：

页面登陆事件代码：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesMyBase.Load

IfNotPage.IsPostBackThen

binddata()

EndIf

EndSub

连接数据库：

Subbinddata()

DimmyconnectionAsNew

SqlConnection(ainitial

catalog=book;uid=sa;pwd=")

ConststrsqlAsString="select*

frombook07orderby书号”

DimmycommandAsNewSqlCommand

(strsql,myconnection)

文档仅供参考

DimmydaAsNewSqlDataAdapter

Myda.SeiectCommand=mycommand

DimmydsAsNewDataSet

Myda.Fill(myds)

DataGridl.DataSource=myds

DataGridl.DataBind()

EndSub

确定所选择的行的数据，并把该行相应的内容分

别经过session变量储存下来。

PrivateSubDataGrid1_ItemCommand(ByVai

sourceAsObject,ByVaieAs

System.Web.UI.WebControls.DataGridCommand

EventArgs)HandlesDataGridl.ItemCommand

Dimb_noAsTableCell=

e.Item.Cells(1)

Dimb_nameAsTableCell=

e.Item.Cells(2)

Dimb_aAsTableCell=e.Item.Cells

(3)

Dimb_bAsTableCell=e.Item.Cells

(4)

DimbcAsTableCell=e.Item.Cells

文档仅供参考

(5)

Session("a")=b_no.Text

Session("b")=b_name.Text

Session("c")=b_a.Text

Session("d")=b_b.Text

Session("e”)=b_c.Text

Response.Redirect

("history1.aspx")

EndSub

Button_click事件，重定向到book,aspx页面

PrivateSubButtonl_Click(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

ResponseoRedirect("book.aspx”)

EndSub

Endclass

(2)historyl.aspx页面：经过上一个页面的选

择后，该页面进行修改并添加的操作。如图4-4

修改添加记录图所示：

文档仅供参考

Tf<i：■<!>“a:A*a»rk

M

O««•0⑹W》：■»€>.>■J.•iX

出M<»/C.U.rwiA.un*▼Q••・

久7117L/TJ十1又取平J八为3不夕L

at4wI—I“

■B_74MB35

,：aj9一‘■♦•&MQQB9SEEBH-a3T，1<.二，；、

图5-4添加记录图

该页面中将征定时间和数量的值用textbox表

示，是为了方便在插入历史书目的时候修改它的

时间和它的数量。当管理员修改完成后，则可单

击确定添加操作，将数据添加到的数据库中。

具体代码如下：

页面登陆代码：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesMyBase.Load

IfNotIsPostBackThen

DimstrAsString

str="&Label6.Text&

文档仅供参考

“，a

DimsqlAsString=uselect*

frombook07where书号="&Trim(Session

(“a"))

DimconnstrAsString=

“server=localhost;uid=sa;pwd=;database=b

ook”

DimmyconnAsNew

SqlClient.SqlConnection(connstr)

DimdaAsNew

SqlClient.SqlDataAdapter(sql,myconn)

DimdsAsNewDataSet

Da.Fill(ds,“book07")

DimdacommAs

SqlClient.SqlCommandBuilder=New

SqlClient.SqlCommandBuilder(da)

Label6.Text=ds.Tables

(“book07").Rows(0)(“书号，，)

Label?.Text=ds.Tables

(“book07").Rows(0)(“书名”)

Label8.Text=ds.Tables

(“book07").Rows(0)(“作者”)

文档仅供参考

TextBoxl.Text=ds.Tables

(“book07").Rows(0)(“征定时间”)

TextBox2.Text=ds.Tables

(“book07").Rows(0)(“数量”)

EndIf

EndSub

修改后添加到数据库的代码：

PrivateSubButtonl_Click(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimstrAsString

DimlitemAsListitem

str=&Label6.Text&”

DimsqlAsString=aselect*from

book08where书号="&Trim(str)

DimconnstrAsString=

“server=localhost;uid=sa;pwd=;database=b

ook”

DimmyconnAsNewSqlConnection

(connstr)

DimdaAsNewSqlDataAdapter(sql,

myconn)

文档仅供参考

DimdsAsNewDataSet

daoFill(ds,“book08")

DimmyrowAsDataRow

DimdacommAs

SqlClient.SqlCommandBuilder=New

SqlClient.SqlCommandBuilder(da)

Ifds.Tables

("book08").Rows.Count>=1Then

Response.Write(“此书已存

在”)

EndIf

myrow=ds.Tables

("book08").NewRow

myrow("书号")=Trim

(Label6.Text)

myrow("书名")=Trim

(Labe17.Text)

myrow(“作者”)=Trim

(Label8.Text)

myrow(“征定时间")=Trim

(TextBoxl.Text)

myrow("数量")=Trim

文档仅供参考

(TextBox2.Text)

ds.Tables("book08").Rows.Add

(myrow)

da.UpdateCommand=

dacomm.GetUpdateCommand

da.Update(ds,“book08")

Response.Redirect("book,aspx")

EndSub

单击返回按钮后，重定向到history.aspx的代

码：

PrivateSubButton2_Click(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesButton2.Click

Response.Redirect

("history,aspx")

EndSub

EndClass

5.4删除记录

在登陆系统后点击修改按钮进入修改页面

delete.aspx,经过复选框的选择，删除数据。

如下图5-5删除页面所示：

文档仅供参考

Ky(>>>•«••

asavoXAVVHP

QM•Q⑹名心/**@j-■•n

QMl•••

久7117^/TJ寸1乂欲你八不刁b

3书号书名g&E傅XI

enm王才MT«o

底T2CU*1忤及天WT-%q

nosRM“设今月sxc-i咐

□118整件］♦常及209«-13

Orec事iMTfl力FIaoe-i»

y

鱼壬_।___________

*-Mi•»1s»e*«,♦Z

图5-5删除页面

该页面经过复选框的操作删除数据后，重定

向回该页面，以便显示删除后数据的更新。具体

代码如下：

页面登陆代码：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesMyBase.Load

IfNotPage.IsPostBackThen'用来

确认页面是否第一次登陆'

binddata()

EndIf

EndSub

文档仅供参考

Subbinddata()'连接到数据库'

DimmyconnectionAsNew

SqlConnection(initial

catalog=book;uid=sa;pwd=")

ConststrsqlAsString=aselect*

frombook08orderby书号”

DimmycommandAsNewSqlCommand

(strsql,myconnection)

DimmydaAsNewSqlDataAdapter

Myda.SelectCommand=mycommand

DimmydsAsNewDataSet

Myda.Fill(myds)

DataGridl.DataSource=myds

DataGridl.DataBind()

Jmyda.Update(myds,“book08")

EndSub

Button_click事件：

PrivateSubButtonl_Click(ByVaisender

AsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimiAsInteger

DimxAsString

文档仅供参考

DimitemAsDataGridltem

Fori=0ToDataGridl.Items.Count

-1

item=DataGridl.Items(i)

DimbookcheckboxAsCheckBox=

item.FindControl("checkbox!.”)

Ifbookcheckbox.CheckedThen'确认

数据是否被点击进行删除'

x=item.Cells(1).Text，x

为datagrid第二列的数据的内容'

deletedataset(x)

EndIf

Next

binddata()

Response.Write("删除成功！”)

EndSub

Subdeletedataset(ByVaiyAsString)

DimconAsNewSqlConnection

(ainitialcatalog二book;uid二sa;pwd=")

DimcmdAsSqlCommand

DimqryAsString

Con.Open()

文档仅供参考

qry=adeletebook08where书号

二’“&y&“

cmd=NewSqlClient.SqlCommand

(qry,con)

cmd.ExecuteNonQuery()

con.Close()

EndSub

Button_click的重定向事件

PrivateSubButton2_Click(ByValsenderAs

SystemoObject,ByVaieAs

System.EventArgs)HandlesButton2.Click

Response.Redirect("book,aspx")

Endsub

Endclass

添加新教材和修改记录两大模块共三个页面的

代码编写与设计。具体设计如图5-6所示：

文档仅供参考

(1)添加新教材。在登陆系统并选择录入新

书后，进入添加新教材页面。如3-6图所示：

对textboxl到textbox5添加

RequiredFiledValidator控件，并设置相应属

性使textbox中的文本不能为空。

对textboxl添加

RegularExpressionValidator控件，设置

ValidationExpression属性为"\d[4]”,

ErrorMessage为“书号的格式为0001”。

对textboxl添加RangeValidator控件，设

置MinimunValue为“0001”,MaxmumValue

为“9999”。使书号的取值范围为0001—9999o

文档仅供参考

对textbox4添加

Regu1arExpressionValidator控件，设置

ValidationExpression属性为”\d{4}-\d{l,

2}”,使时间格式为-lo

对textbox5添加RangeValidator控件，设

置MinimunValue为"1”,MaxmumValue为"99",

使订阅的教材数量在1-99本之间。

该页面程序代码如下：

PageLoad事件代码

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAsSystem.EventArgs)

HandlesMyBase.Load

EndSub

ButtonClick事件代码

PrivateSubButtonl_Click(ByVaisender

AsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimstrAsString

DimlitemAsListitem

str=&TextBoxloText&

DimsqlAsString="select*from

book08where书号="&Trim(str)

文档仅供参考

DimconnstrAsString=

^server=localhost;uid=sa;pwd=;database=bo

ok〃

DimmyconnAsNew

SqlConnection(connstr)

DimdaAsNewSqlDataAdapter(sql,

myconn)

DimdsAsNewDataSet

da。Fill(ds,“book08")

DimmyrowAsDataRow

DimdacommAs

SqlClient.SqlCommandBuilder=New

SqlClient.SqlCommandBuilder(da)

If

ds.Tables("book08").Rows.Count>=1Then

Response.Redirect("new.aspx")

Response.Write("书号重复，请重

新输入〃)

EndIf

myrow=ds.Tables("book08").NewRow

myrow("书号")=

Trim(TextBoxl.Text)

文档仅供参考

myrow("书名")=

Trim(TextBox2.Text)

myrow("作者")=

Trim(TextBox3.Text)

myrow(“征定时间”)=

Trim(TextBox4.Text)

myrow(〃数量")=

Trim(TextBox5.Text)

ds.Tables("book08").Rows.Add(myrow)

da.UpdateCommand=

dacomm.GetUpdateCommand

da.Update(ds,〃book08")

Response.Redirect("book,aspx")

EndSub

(2)修改记录。在登陆系统后点击修改按钮

进入修改页面update.aspxo如图5-7所示：

文档仅供参考

■»<(•••«!IH«VIM«Ba»l«r»r

m*CMIrsxiia>e®

QM*o*/《/、**/；«•*e3・./•一£1

*Mt♦包卜2J?jQl

■欢迎使用学校教材订购系统"

书兮由冬1*4CJTKR

AftTlOtIffW-i

tarvn日天3oor«tU

8102网站■设鼻月200t*t槌

fiS8103年H2008*168

更»mmw*

图5-7修改页面update.Aspx

在该页面设计中添加SqlDataAdapter控件

和DataSet控件，用于执行ADO。NET数据库访

问的相关操作。该页中的数据经过DataGrid控

件显示，设置相应属性，将其绑定到表book08,

使其显示book08中的数据。在DataGrid控件中

添加一个按钮列，列