学校教材订购系统.doc

1、学校教材订购系统定义1.基本要求1.1 项目目标通过本系统完成为学校教材的购销工作，包括销售和采购两个部分。1.2 系统简介系统简介本系统可细化为两个子系统：销售系统和采购系统。销售系统的工作过程为：首先由教师或学生提交购书单，经教材发行人员审核是有效购书单后，开发票、登记并返给教师或学生领书单，教师或学生即可去书库领书。采购系统的主要工作过程为：若是脱销教材，则登记缺书，发缺书单给书库采购人员；一旦新书入库后，即发进书通知给教材发行人员。以上的功能要求在计算机上实现。1.3 技术要求和限制条件（1） 当书库中的各种书籍数量发生变化（包括领书和进书时） ，都应修改相关的书库记录，如库存表或进/

2、出库表。（2） 在实现上述销售和采购的工作过程时，需考虑有关单据的合法性验证（3） 系统的外部项至少包含三个：教师、学生和教材工作人员。（4） 系统的相关数据存储至少包含 6 个：购书表、库存表、缺书登记表、待购教材表、进/出库表。1.4 系统界面学生/教师登陆界面、书刊查询界面、书刊信息界面、领书单界面、新书入库界面、退出界面等。1.5 开发概要系统调研、具体开发、测试、维护2.资源2.1 人员本小组成员(华伟,阮运磊,张翔宇,张哲)在老师的辅导下开发完成。2.2 硬件内存：2GM；CPU：Intel Core2 1.80GHz2.3 软件MyEclipse5.5 集成开发工具， MySQL

3、5.0.22 数据库和 window visio2003画图工具以及 windows word 文档工具 。3.进度安排随课程进度同步完成系统的开发及文档编写工作。4.预算本项目作为学生课程设计，其所有开销 包括软件，设施及开发经费都由学生自理。学校教材购销系统需求规格说明书1 引言1.1 编写目的本要求规格说明书对学校教材购销系统进行简单的分析，给出了系统的数据流图。系统主要用户是学生，教师和教材工作人员，加深与用户间的交流，在功能与系统界面上与用户达成一致的看法，以便于开发出用户满意的系统。1.2 项目背景随着高校办学规模的扩展，管理方式和管理效率的矛盾日渐突出。在教材购销方面，手工管理方

4、式和文档系统管理方式在管理质量和管理效率上，从根本上不能适应大规模的管理要求。而随着计算机科学的发展与进步，计算机科学管理方式，不管在管理效率还是在管理质量上都逐步显示出了它的可靠性和优越性。而且计算机管理在人力、物力等资源方面都比以前的管理模式要有大的节省。计算机管理正以它自身的优越性成为管理模式中的主流。教材购销管理系统采用计算机管理模式的必然性也在与此！本系统以学校为背景，在认真调研和分析了学校订购教材的现状之后，根据学生，教师和教材工作人员的需求和各个功能的关系，作出了积极的设计方案。在新的管理资源和管理模式上，一定能使工作质量、工作效率等得到提高，推动学校发展的步伐。本系统名称为：安

5、徽工程科技学院教材购销系统。由安徽工程科技学院教材管理层提出，由修宇老师和我们项目小组成员（华伟，阮运磊，张翔宇，张哲）开发，适合学生，老师和教材工作人员使用，可以在学校的计算机中心开设服务器，在校园网上运行。1.3 软件产品的作用范围学校教材购销系统是为高等院校开发的，用于日常的教材管理，包括销售与采购。提供数字化的管理，提高学校教材管理部门的工作效率。2一般性描述2.1 本系统可细化为两个子系统：销售系统和采购系统销售系统的工作过程为：首先由教师或学生提交购书单，经教材科发行人员审核是有效购书单后，开发票、登记并返给教师或学生领书单，教师或学生即可去书库领书。采购系统的主要工作过程为：若是

6、脱销教材，则登记缺书，发缺书单给 书库采购人员；一旦新书入库后，即发进书通知。2.2 产品功能本系统在向学生售书时主要输入学生学号、班级代号、购书数量、购书书名信息，然后打印领书单返回给学生领取书籍。本系统在查询数据库时主要输入需要查询的相关信息，包括图书编号、图书书名、出版社信息、图书特色等信息方便操作人员把握图书信息。本系统还兼顾一点财务信息的管理，在发生单人购书时，系统直接向购书者收取现金，内部形成一个小小的财务管理。本系统还和学校的财务科发生数据交换，发生集体售书时，学校根据数据的有效性，直接向集体售书，形成的财务信息直接和财务科交换，方便结算。即：向学生集体售书时不需要直接收取现金，

7、而待教材科结算时向财务科提交数据，由财务科从学生的预交书费里扣除，保证教材科财务信息的完整。3 数据流图与数据字典3.1 系统数据流图（DFD）教材发行人员采购人员教师或学生购书单 审核信息进书通知进书通知缺书单领书单大学教材订购系统3.1.1 学校教材购销系统 DFD系统数据字典：名字：定书表别名：订书单描述：送给采购员的定书表定义：购书单购书单号+书名+出版社+ 价格数量+日期+订购名姓名+订购者职务购书总数+总额购书单号DG+年+ 月+日+4 位整数订购者职务学生教师价格整数+4 位小数位置：输出到打印机名字：领书表别名：领书单描述：送给学生或教师的领书报表定义：领书单领书单号+订购者姓

8、名+领书日期+ 购书单号+领书日期经办人领书单号LQ+年+月+日+4 位整数位置：输出到打印机名字：缺书表别名：缺书单描述：送给相关工作人员的表，用来补充书籍定义：缺书单缺书单号书名+出版社总数缺书单号QS+年+月 +日+4 位整数位置：输出到打印机名字：进书通知描述：详细的描述了进书的信息定义：进书通知编号+书名+出版社+ 价格数量采购人姓名采购日期+采购总数+采购总额编号JS+年+月+ 日+4 位整数位置：名字：审核信息描述：用于审核信息定义：审核信息教材发行人员姓名+审核标志+审核日期审核标志TURE|FALSE( 注：表示审核是否通过)位置：3.1.2 学校教材购销系统一级数据流图购书

9、单 不合法领书单合法 库存表 缺书单进书通知缺书登记表一级数据字典：1 库存表记录 ID +图书信息 +数量2 缺书表记录 ID +图书信息+缺书日期3 进库表日期+图书信息+ 数量+采购员+总额4 图书信息书名+出版社+ 价格作者+ISBN+版次ISBN=10数字10 且能被 7 整除 记录 IDJC15数字153.1.3 二级数据流图学生或教 师身 份验 证销 售 系 统采 购系 统教材工作人 员购书单审核信息领书单发票领书信息 领书单缺书单缺书单缺书信息采购信息进书通知图书信息 采购信息登记购书表审 核开 票登 记库存表领 书缺书登记出库表缺书表缺书表图书入库库存表 进库表二级数据字典：

10、名字：发票别名：描述：唯一的表述一次够书或者买书凭证定义：发票客户名+日期+ 书名价格+ 数量+总额+开票人+发票号位置：名字：出库表别名：描述：描述出库的一切信息定义：出库表日期图书信息+教材发行人员位置：输出到打印机名字：采购信息别名：描述：描述采购的信息定义：采购信息采购员姓名+日期+图书信息+ 总数+总额位置：名字：有效订书单别名：描述：有效的订书单定义：有效订书单购书单+教材发行人员姓名位置：输出到打印机3.2 数据存储描述数据存储名称：缺书登记表组成：书号+书名+ 出版社 +缺书数量+出版时间+ 书籍信息组织：备注：数据存储名称：教材库存表组成：书号+书名+ 出版社 +数量+出版时

11、间+ 书籍信息+是否特殊用途教学用、零售组织：备注：数据存储名称：进库表、出库表、库存表、购书表组成：书号+书名+ 出版社 +出版时间+单价+ 数量+总价+书籍信息组织：备注：数据存储名称：售书登记表组成：学号+姓名+ 班级+所购书号+书名+ 单价数量+总价组织：备注：学号、班级、姓名可为空数据存储名称：补售书表组成：学号+姓名+ 班级+所购书号+书名+ 数量+书籍信息组织：备注： 数据存储名称：教学用书表组成：书名+书号+ 出版社 +出版时间+数量+ 书籍信息组织：备注： 3.3 数据流描述： =（|）+： =+： =1| 2|50：= 1| 2|50：= 1| 2|10000： =+ ：

12、=+： =+： =+：=+： =|+： =+学校教材订购系统中，其主要的实体分别为用户（教师和学生） 、教材管理人员，经分析后，得到主要 E-R 图，如图所示。书 籍价格 库存量 出版社 编号 书籍名工 作 人 员职位 性别 备 注 电 话 姓 名 工号教师或学生性 别 姓 名 编 号总体设计1、系统功能模块结构图根据需求分析，学校教材订购系统功能模块结构图如下：大学教材订购系统销售子系统采购子系统提交购书单审核购书单开发票登记购书记录发缺书单登记缺书记录发进书通知单修改相应的表返回领书单领书修改库存记录维护相应的数据表维护数据库进一步对学校教材订购系统的销售过程和采购过程进行数据流程分析，本

13、系统应当具有如下的数据项和数据结构：开发过程中建立了名为 book 的数据库，下设book07、book08、adminlist 等表如图 3-1 所示：图 3-1 book 数据库图表 asminlist 用于存放系统管理员和老师或学生的登陆用户名和密码，其中帐号为主码，如图 3-2 adminlist 图所示。图 3-2 adminlist 图表 book07 用于存放过去两个学期中计算机系所有已定教材的信息，其中书号为主码，如图3-3 表 book07 图所示。图 3-3 表 book07 图表 book08 用于存放本学期需要征订的教材，同样，书号为主码，如图 3-4 表 book08

14、 图所示。图 3-4 表 book08 图详细设计1.根据功能模块用程序流程图进行详细设计和各模块详细设计说明书如下：销售子系统模块程序流程图：提交购书单 审核购书单 1错误显示 开发票 登记购书记录 发领书通知单 修改相应表 审核登记 审核修改 错误显示 错误显示 NYNYNY开始结束采购子系统模块程序流程图：接口各模块过程之间采用函数调用、参数传递、返回值的方式进行消息传递。具体参数的结构将在下面数据结构设计的内容中说明。接口传递的信息将是以数据结构封装了的数据，以参数传递或返回值的形式在模块之间传递。发缺书单 审核缺书单 错误显示 登记缺书 审核登记 修改数据库的表 错误显示 审核修改

15、错误显示 发进书通知单 开始结束存储分配为程序当中的数据结构在内存中开辟空间存储，如入到数据库中后在数据库的表中为其开辟存储空间。限制条件输入的信息都封装在数据结构当中，不能独立存在，在向数据库中提交数据时必须一起提交而不能逐项提交。输入数据的类型必须和定义的数据类型相匹配。界面设计及详细代码本系统主要有登陆界面 load.aspx,显示书目信息及功能模块选择页面 book.aspx,添加新记录页面 new.aspx,添加历史记录页面 history.aspx 和 history1.aspx,修改记录update.aspx 和 update1.aspx 以及删除记录 delete.aspx 八

16、个页面组成.其中登陆与用datagrid 两大模块的代码编写与设计.具体设计如下:5.1 登陆界面 当单击确定按钮时,连接数据库,确定输入的帐号和密码是否匹配,跳转到书目的页面，若不匹配,则弹出帐号错误或密码错误的提示。如图 5-1 所示图 5-1具体代码如下：Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.ClickDim str As StringDim passstr As Stringpassstr = Trim(CStr(Text

17、Box2.Text)str = “ uid=sa;pwd=;database=book“Dim myconn As New SqlClient.SqlConnection(connstr)Dim da As New SqlClient.SqlDataAdapter(sql, myconn)Dim ds As New DataSetda.Fill(ds, “adminlist“)Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)If ds.Tables(“adminlist“).Rows.

18、Count = 1 Then判断帐号密码是否和数据库匹配If passstr = Trim(ds.Tables(“adminlist“).Rows(0)(“密码“) ThenResponse.Redirect(“book.aspx“)ElseResponse.Write(“密码错误!“)End IfElseResponse.Write(“用户名不存在!“)End IfEnd SubEnd Class5.2用 datagrid显示数据首先建立 datagrid,通过连接数据库，将数据显示在 datagrid 中。如图 5-2 所示图 5-2 书目页面 book.aspx具体代码如下：Privat

19、e Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadbinddata()End SubSub binddata()Dim myconnection As New SqlConnection(“initial catalog=book;uid=sa;pwd=“)Const strsql As String = “select * from book08 order by 书号“Dim mycommand As New SqlCommand(strsql, my

20、connection)Dim myda As New SqlDataAdaptermyda.SelectCommand = mycommandDim myds As New DataSetmyda.Fill(myds)DataGrid1.DataSource = mydsDataGrid1.DataBind()End Sub5.3 添加历史书目 (1)history.aspx 在登陆系统并选择插入历史书本后，进入添加历史书目的页面，决定选择哪条记录进行添加。如图 5-3 插入历史书目图所示图 5-3 插入历史书目图在单击左侧的选择后，自动跳转到update1.aspx，根据所选择的书目，进行相

21、应的修改后添加到记录中去。具体代码如下：页面登陆事件代码：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.LoadIf Not Page.IsPostBack Thenbinddata（）End IfEnd Sub连接数据库： Sub binddata（）Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“）Const strsql As String = “

22、select * from book07 order by 书号”Dim mycommand As New SqlCommand（strsql， myconnection）Dim myda As New SqlDataAdapterMyda.SelectCommand = mycommandDim myds As New DataSetMyda.Fill（myds）DataGrid1.DataSource = mydsDataGrid1.DataBind（）End Sub确定所选择的行的数据，并把该行相应的内容分别通过session变量储存下来。Private Sub DataGrid1_It

23、emCommand（ByVal source As Object， ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs） Handles DataGrid1.ItemCommandDim b_no As TableCell = e.Item.Cells（1）Dim b_name As TableCell = e.Item.Cells（2）Dim b_a As TableCell = e.Item.Cells（3）Dim b_b As TableCell = e.Item.Cells（4）Dim b_c As TableCe

24、ll = e.Item.Cells（5）Session（“a”） = b_no.TextSession（“b”） = b_name.TextSession（“c”） = b_a.TextSession（“d”） = b_b.TextSession（“e”） = b_c.TextResponse.Redirect（“history1.aspx”）End SubButton_click事件，重定向到book.aspx页面 Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Han

25、dles Button1.ClickResponse。Redirect（“book.aspx”）End SubEnd class(2)history1.aspx 页面：通过上一个页面的选择后，该页面进行修改并添加的操作。如图4-4 修改添加记录图所示：图 5-4 添加记录图该页面中将征定时间和数量的值用 textbox 表示，是为了方便在插入历史书目的时候修改它的时间和它的数量。当管理员修改完成后，则可单击确定添加操作，将数据添加到 08 年的数据库中。具体代码如下：页面登陆代码：Private Sub Page_Load（ByVal sender As System.Object， ByVa

26、l e As System.EventArgs） Handles MyBase.LoadIf Not IsPostBack ThenDim str As Stringstr = “ uid=sa;pwd=;database=book”Dim myconn As New SqlClient.SqlConnection（connstr）Dim da As New SqlClient.SqlDataAdapter（sql， myconn）Dim ds As New DataSetDa.Fill（ds, “book07”）Dim dacomm As SqlClient.SqlCommandBuilde

27、r = New SqlClient.SqlCommandBuilder（da）Label6.Text = ds.Tables（“book07”）.Rows（0）（“书号”）Label7.Text = ds.Tables（“book07”）.Rows（0）（“书名”）Label8.Text = ds.Tables（“book07”）.Rows（0）（“作者”）TextBox1.Text = ds.Tables（“book07”）.Rows（0）（“征定时间”）TextBox2.Text = ds.Tables（“book07”）.Rows（0）（“数量”）End IfEnd Sub修改后添加到数

28、据库的代码：Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.ClickDim str As StringDim litem As ListItemstr = “ uid=sa;pwd=;database=book”Dim myconn As New SqlConnection（connstr）Dim da As New SqlDataAdapter（sql， myconn）Dim ds As New DataSetda。Fill（ds， “

29、book08”）Dim myrow As DataRowDim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder（da）If ds.Tables（“book08”）.Rows.Count = 1 ThenResponse.Write（“此书已存在”）End Ifmyrow = ds.Tables（“book08”）.NewRowmyrow（“书号”） = Trim（Label6.Text）myrow（“书名”） = Trim（Label7.Text）myrow（“作者”） = Trim（Label8.

30、Text）myrow（“征定时间”） = Trim（TextBox1.Text）myrow（“数量”） = Trim（TextBox2.Text）ds.Tables（“book08”）.Rows.Add（myrow）da.UpdateCommand = dacomm.GetUpdateCommandda.Update（ds， “book08”）Response.Redirect（“book.aspx”）End Sub单击返回按钮后，重定向到history.aspx的代码：Private Sub Button2_Click（ByVal sender As System.Object， ByVal

31、 e As System.EventArgs） Handles Button2.ClickResponse.Redirect（“history.aspx”）End SubEnd Class5.4 删除记录在登陆系统后点击修改按钮进入修改页面 delete.aspx，通过复选框的选择，删除数据。如下图 5-5 删除页面所示：图 5-5 删除页面 该页面通过复选框的操作删除数据后，重定向回该页面，以便显示删除后数据的更新。具体代码如下：页面登陆代码：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.Even

32、tArgs） Handles MyBase.LoadIf Not Page.IsPostBack Then 用来确认页面是否第一次登陆binddata（）End IfEnd SubSub binddata（） 连接到数据库Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“）Const strsql As String = “select * from book08 order by 书号”Dim mycommand As New SqlCommand（strsql， myconnection）Dim

33、myda As New SqlDataAdapterMyda.SelectCommand = mycommandDim myds As New DataSetMyda.Fill（myds）DataGrid1.DataSource = mydsDataGrid1.DataBind（）myda.Update（myds， “book08”）End SubButton_click事件： Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.ClickDi

34、m i As IntegerDim x As StringDim item As DataGridItemFor i = 0 To DataGrid1.Items.Count 1 item = DataGrid1.Items（i）Dim bookcheckbox As CheckBox = item.FindControl（“checkbox1”）If bookcheckbox.Checked Then 确认数据是否被点击进行删除x = item.Cells（1）.Text x为datagrid第二列的数据的内容deletedataset（x） End IfNextbinddata（）Resp

35、onse.Write（“删除成功!”） End SubSub deletedataset（ByVal y As String）Dim con As New SqlConnection（“initial catalog=book;uid=sa;pwd=“）Dim cmd As SqlCommandDim qry As StringCon.Open（）qry = “delete book08 where 书号=“ uid=sa;pwd=;database=book“Dim myconn As New SqlConnection(connstr)Dim da As New SqlDataAdapte

36、r(sql, myconn)Dim ds As New DataSetda。Fill(ds, “book08“)Dim myrow As DataRowDim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)If ds.Tables(“book08“).Rows.Count = 1 ThenResponse.Redirect(“new.aspx“)Response.Write(“书号重复，请重新输入“)End Ifmyrow = ds.Tables(“book08“).NewRowmyrow(

37、“书号“) = Trim(TextBox1.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.GetUpdateCommandda.Update(ds, “book08“)Response.Redirect(“book.aspx“)End Sub(2

38、)修改记录。在登陆系统后点击修改按钮进入修改页面 update.aspx。如图 5-7 所示：图 5-7 修改页面 update.Aspx在该页面设计中添加 SqlDataAdapter 控件和 DataSet 控件，用于执行 ADO。NET 数据库访问的相关操作。该页中的数据通过 DataGrid 控件显示，设置相应属性，将其绑定到表book08，使其显示 book08 中的数据。在 DataGrid 控件中添加一个按钮列，列名为选择。当用户点击该列的按钮时自动获取该行的相关值，将其赋值给 Session 变量并跳转到update1。aspx。update1。aspx 如图：5-8 所示图

39、5-8 修改选择后的记录 update1.aspx页面中 textbox 的文本来自与 update.aspx 中定义并赋值的 Session 变量。用户通过修改其中的文本值并单击确定完成修改。修改部分代码如下：update.aspx 中的 Page Load 事件Private Sub Page_Load(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles MyBase.LoadIf Not Page.IsPostBack Thenbinddata()End IfEnd Sub用于加载页面及确认是否第一次访问

40、。Update.aspx 中的 binddata 事件private Sub binddata()Dim myconnection As New SqlConnection(“initial catalog=book;uid=sa;pwd=“)Const strsql As String = “select * from book08 order by 书号“Dim mycommand As New SqlCommand(strsql, myconnection)Dim myda As New SqlDataAdapterMyda.SelectCommand = mycommandDim my

41、ds As New DataSetMyda.Fill(myds)DataGrid1.DataSource = mydsDataGrid1.DataBind()End Sub用于连接数据库并定义相关操作。Update.aspx 中设置 DataGrid 中的 ItemCommandPrivate Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommandDim b_no A

42、s TableCell = e.Item.Cells(1)Dim b_name As TableCell = e.tem.Cells(2)Dim b_a As TableCell = e.Item.Cells(3)Dim b_b As TableCell = e.tem.Cells(4)Dim b_c As TableCell = e.tem.Cells(5)Session(“a“) = b_no.textSession(“b“) = b_name.textSession(“c“) = b_a.textSession(“d“) = b_b.textSession(“e“) = b_c.text

43、Response.Redirect(“update1.aspx“)End Sub用于将 Session 变量的值传给 textboxupdate.aspx 中的 Button1 Click 事件private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickResponse.Redirect(“book.aspx“)End Sub测试报告1.当管理员打开“学校教材订购系统”后，首先进入的是管理员登录界面，管理员在提示信息输入管理员和密码，管理员为

44、“shihongmin” ，密码为“123” 。当输入信息为空时，系统给出错误信息提示：“管理员或密码不能为空！” 。当输入信息有误时，系统给出错误信息提示：“管理员或密码错误！” ，同时清空文本框中的内容。当输入信息正确时，可进入该系统的主界面并提示“管理员您好，欢迎登录！“，进行以后的操作2. 管理员可以通过主界面的菜单来选取不同的功能，当管理员单击书刊查询菜单，系统进入书刊查询界面，管理员可以在相应的文本框输入书刊信息来查询。不输入任何项目直接单击查询按钮，系统会提示“请至少输入一项书刊信息！“ ；在文本框中输入信息后单击查询按钮，若书库表中找不到，则提示“ 对不起，没有找到您需要的书刊“，若书库表中找到了，则进入书刊信息界面，并显示相关书刊信息。如：在书刊查询界面的书号文本框里输入 1111，然后单击查询，则系统会进入到书刊信息界面，各文本框显示如下：书号1111、书名小说 、作者张三、出版社小说出版社。3. 管理员在主界面选择提交订书单菜单并单击，系统进入订书单提交界面，在相应的文本框输入信息后，单击提交按钮，系统提示“提交成功！“ ；单击退