2020年學校教材訂購系統(tǒng)課程設計

學校教材訂購系統(tǒng)課程設計

文檔僅供參考

軟件工程課程設計

題目__________學校教材訂購系統(tǒng)___________

學院_______________嘉興學院______________

專業(yè)信息管理和信息系統(tǒng)

班級_______________信息N052_____________

學號_________010715___________

學生姓名顏幼幼徐晶俞麗

指導教師_______________張云_______________

編寫日期2月21日

文檔僅供參考

一、開發(fā)計劃：

1、系統(tǒng)敘述

在21世紀的今天，隨著計算機技術和計算

機網絡的發(fā)展，人們逐漸開始步入信息時代。經

過Internet網絡人們能夠瀏覽各類信息，發(fā)送

電子郵件，傳送文件，參與BBS,網上娛樂，遠

程教育，遠程醫(yī)療。人們日常工作，生活中的許

多事情都已經能夠在網上輕松簡單的完成。互聯(lián)

網因為它簡單的操作和強大的信息量，逐漸成為

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

要組成部分。

近年來，互聯(lián)網也開始涉及學校的教材訂

購，教材訂購系統(tǒng)近幾年在各高校逐漸得到廣泛

的應用。但有些教材征訂系統(tǒng)，依然存在著在教

材管理和征訂方面半手工半信息化的狀況。所謂

半手工半信息化是教材科有詳細的教材資料，并

把她們存放在電子文檔中。每次需要信息時，在

電腦中找到對應文檔提取所需信息，把所需的信

息打印或手抄出來。即教材信息沒有形成一個大

型的整體的數(shù)據(jù)庫，而且還沒有對這些數(shù)據(jù)進行

操作的網絡應用程序。當前國內大部分的學校都

文檔僅供參考

是這種情況。針對這一情況，我們研究和開發(fā)了

“學校教材訂購系統(tǒng)”作為深入研究解決這一

問題辦法的初步嘗試。

2、問題的提出及發(fā)展背景

隨著教學數(shù)量的提高，對軟件質量的要求也

越來越高，因此，教師、學生對教材的訂購了越

來越重視，希望獲取教材的過程簡單，方便，快

速，因而，做一個好的訂購系統(tǒng)是十分重要的。

訂購是指教師或學生向工作人員提供要采

購的教材，經工作人員審查后，發(fā)給教師或學生

發(fā)票，然后去書庫去領取教材，但工作人員發(fā)現(xiàn)

書庫中缺貨時，要及時的向采購部報告，采購部

要及時的進貨，然后，工作人員來修改記錄。

3、目標系統(tǒng)敘述

本系統(tǒng)主要解決經過ASP.NET程序制作WEB

應用程序，經過該應用程序實現(xiàn)對數(shù)據(jù)庫的整合

以及對數(shù)據(jù)庫的操作。數(shù)據(jù)庫的整合就是把現(xiàn)在

的零散的數(shù)據(jù)庫經過分類，綜合整理成一個大型

的數(shù)據(jù)庫。所需數(shù)據(jù)都能夠從里面調用，數(shù)據(jù)庫

操作主要指添加，刪除,查詢等數(shù)據(jù)庫基本操作。

系統(tǒng)的設計首先著眼的是網絡，學生或教師能夠

經過本系統(tǒng)向教材訂購人員提交所需教材的詳

文檔僅供參考

細信息，教材訂購系統(tǒng)能夠統(tǒng)計教材信息。因此

本系統(tǒng)方便了學校教材訂購部門的工作，提高了

工作效率。

主要功能包括：1、收集數(shù)據(jù)。將學生教師

的訂書單和缺書通知單單收集起來。

2、打印報表。產生待購教

材表、進庫表和出庫表等各種統(tǒng)計報表

3、可行性分析及開發(fā)計劃

在技術上的可行性分析，本系統(tǒng)可細化為兩個

子系統(tǒng)：銷售系統(tǒng)和采購系統(tǒng)

銷售系統(tǒng)的工作過程為：首先由教師或學生提

交購書單，經教材發(fā)行人員審核是有效購書單

后，開發(fā)票、登記并返給教師或學生領書單，教

師或學生即可去書庫領書。

采購系統(tǒng)的主要工作過程為：若是脫銷教材，

則登記缺書，發(fā)缺書單給書庫采購人員；一旦新

書入庫后，即發(fā)進書通知給教材發(fā)行人員。

當書庫中的各種書籍數(shù)量發(fā)生變化（包括領

書和進書時），都應修改相關的書庫記錄，如庫

存表或進/出庫表。

在對現(xiàn)行系統(tǒng)的情況調查的基礎上，得出系統(tǒng)

文檔僅供參考

的邏輯模型。

二、需求分析

1、需求定義說明書

此教材采購系統(tǒng)分為兩個模塊：采購系統(tǒng)和

銷售系統(tǒng)。具體見下圖層次數(shù)據(jù)流圖。

銷售系統(tǒng)模塊：提交購書單、審核購書單、

開發(fā)票、登記購書紀錄、返回領書單、修改和維

護數(shù)據(jù)庫中相應的表。

采購系統(tǒng)模塊：發(fā)缺書臺州單、登記缺書紀

錄、擬訂待購書信息、發(fā)進書通知單、修改和維

護數(shù)據(jù)庫中相應的表。

教材管理信息系統(tǒng)的服務對象為全校師生

員工，系統(tǒng)的使用對象為教務處教材管理人員及

書庫管理員。系統(tǒng)主要完成以下具體功能：

(1)預定新書購書者購買書庫暫時沒有的書，

能夠進行預訂，由教務處工作人員進行采購。

(2)購書購書者到財務室辦理繳費手續(xù)，然后

憑此手續(xù)去書庫取書。

(3)書出庫書從書庫領出，管理員修改書庫記

錄。

(4)書入庫采購人員把采購的書送入書庫，管

文檔僅供參考

理員修改書庫記錄。

（5）書庫維護對現(xiàn)有的書分類、統(tǒng)計、增添新

書目或刪除不存在的舊書目錄等，一般由書

庫管理人員來完成。

2、數(shù)據(jù)流圖

將數(shù)據(jù)流圖模塊中的內容進一步細化，便于

理解與設計。

學生信息包括：姓名、學號、購書日期、采

購書籍名稱、書籍編碼、書籍數(shù)量、單價、聯(lián)系

方式。

老師信息包括：姓名、編號、購書日期、采

購書籍名稱、書籍編碼、書籍數(shù)量、單價、聯(lián)系

方式。

書籍信息包括：書籍名稱、書籍編碼、價格、

現(xiàn)有數(shù)量、出版社、作者。

購書單信息包括：日期、書籍名稱、數(shù)量、

學生（老師）姓名、購書人員編號。

缺書單信息包括：日期、書籍名稱、數(shù)量、

學生（老師）姓名、發(fā)行人員編號。

發(fā)行人員信息包括：書籍名稱、數(shù)量、日期、

發(fā)行人員編號、聯(lián)系方式。

采購人員信息包括：書籍名稱、數(shù)量、日期、

文檔僅供參考

采購人員編號、聯(lián)系方式。

將細化的數(shù)據(jù)流圖用圖形表示出來：如下圖

發(fā)票、登記

購書

進書通知單

文檔僅供參考

圖2-1教材訂購系統(tǒng)數(shù)據(jù)

流程圖

在數(shù)據(jù)流圖分解時，每個變動都可能引出新

的問題。這些問題的回答能夠到處數(shù)據(jù)字典的新

條目，發(fā)現(xiàn)后及時更正。隨著分析過程的深入，

經過不斷地提問和問答，把軟件系統(tǒng)定義得越來

越準確詳細。最終就能對系統(tǒng)的功能要求有一個

較全面的認識。應當高度重視：經過各層數(shù)據(jù)流

圖和數(shù)據(jù)字典把對系統(tǒng)的完整認識描述出來，并

作為正式文檔保存。

三、概要設計（系統(tǒng)設計）：

1、系統(tǒng)功能模塊結構圖

根據(jù)需求分析，學校教材訂購系統(tǒng)功能模塊

結構圖如下：

銷售子系統(tǒng)

凝4生工友化

文檔僅供參考

采購子系統(tǒng)

文檔僅供參考

2、數(shù)據(jù)庫概要設計（E-R圖）

學校教材訂購系統(tǒng)中，其主要的實體分別

為用戶（教師和學生）、教材管理人員，經分

析后，得到主要E?R圖，如圖所示。

工

文檔僅供參考

進一步對學校教材訂購系統(tǒng)的銷售過程和

采購過程進行數(shù)據(jù)流程分析，本系統(tǒng)應當具有如

下的數(shù)據(jù)項和數(shù)據(jù)結構：開發(fā)過程中建立了名為

book的數(shù)據(jù)庫，下設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-］數(shù)據(jù)庫I罷IbookP8dbo

統(tǒng)

曰?book承

1^1dtpropertiesdbo統(tǒng)

p關系圖率

|三之1sx>columnsdbo帶

目表w

圖3-1book數(shù)據(jù)庫圖

表asminlist用于存放系統(tǒng)管理員和老師或學

生的登陸用戶名和密碼，其中帳號為主碼，如圖

3-2adminlist圖所示。

摘］表-adBinlist"中的數(shù)據(jù)，位置是“book”中

帳號1密碼

?12345

1000112345

1000212345

1000312345

1000412345

1000512345

米

圖3-2adminlist圖

表book07用于存放過去兩個學期中計算機系所

有已定教材的信息，其中書號為主碼，如圖3-3

表book07圖所示。

徜表-bookOT"中的數(shù)據(jù)，位置是-book"中、-(local)"上

書號書名作者征定時間數(shù)量

III王芳III

1m高等數(shù)學2007-168

?張

一

7102法律2007-168

方

文

7103VFP2007-168

李

明

7104C語言2007-168

陳

聰

7105管理學2007-168

周

天

7201統(tǒng)計學2007-868

張

池

財務管理鐘

7202欣2007-868

蔡

7203會計琴2007-868

7204JAVA2007-868

米

文檔僅供參考

圖3-3表book07圖

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

樣，書號為主碼，如圖3-4表book08圖所示。

稿表-book08"中的數(shù)據(jù)，位置是“book”中、-(local)"上

廠I書號I書名I作者I征定時間-Ti基

flOl高等數(shù)學2007-160

7201統(tǒng)計學2007-868

8102網站建設2008-168

8103軟件工程2008-168

8702市場營銷2008-180

米

圖3-4表book08圖

四、詳細設計

根據(jù)功能模塊用程序流程圖進行詳細設計

和各模塊詳細設計說明書如下：

銷售子系統(tǒng)模塊程序流程圖：

土日一六'liUl

文檔僅供參考

氏&曰日

欣**口

文檔僅供參考

擊

采購子系統(tǒng)模塊程序流程圖:

3X心

匕2bh出

文檔僅供參考

欣*將包

戲二口目

心用七病

五、界面設計及主要代碼

本系統(tǒng)主要有登陸界面load,aspx,顯示書

目信息及功能模塊選擇頁面book.aspx,添加新

記錄頁面new.aspx,添加歷史記錄頁面

文檔僅供參考

history,aspx和historyl.aspx,修改記錄

update,aspx和updatel.aspx以及刪除記錄

delete.aspx八個頁面組成.其中登陸與用

datagrid兩大模塊的代碼編寫與設計.具體設計

如下：

5.1登陸界面

當單擊確定按鈕時,連接數(shù)據(jù)庫,確定輸入的

帳號和密碼是否匹配，跳轉到書目的頁面，若不

匹配，則彈出帳號錯誤或密碼錯誤的提示。如圖

5-1所75

歡迎使用學校教材訂購系統(tǒng)

圖

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)

'在數(shù)據(jù)庫中搜索帳號為

textboxl.text的數(shù)據(jù)，

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

'判斷帳號密碼是否和數(shù)據(jù)庫匹

配，

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顯示數(shù)據(jù)

首先建立datagrid,經過連接數(shù)據(jù)庫，將數(shù)據(jù)顯

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

文檔僅供參考

TZ：Mxi：*：'t

O*'Qri?e.：?八?.A

歡迎使用學校教材訂購系統(tǒng)

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在登陸系統(tǒng)并選擇插入歷

史書本后，進入添加歷史書目的頁面，決定選擇

哪條記錄進行添加。如圖5-3插入歷史書目圖所

示

文檔僅供參考

圖5-3插入歷史書目圖

在單擊左側的選擇后，自動跳轉到

updatel.aspx,根據(jù)所選擇的書目，進行相應的

修改后添加到記錄中去。具體代碼如下：

頁面登陸事件代碼：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesMyBase.Load

IfNotPage.IsPostBackThen

binddata()

EndIf

EndSub

連接數(shù)據(jù)庫：

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

確定所選擇的行的數(shù)據(jù)，并把該行相應的內容分

別經過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添加記錄圖

該頁面中將征定時間和數(shù)量的值用textbox表

示，是為了方便在插入歷史書目的時候修改它的

時間和它的數(shù)量。當管理員修改完成后，則可單

擊確定添加操作，將數(shù)據(jù)添加到的數(shù)據(jù)庫中。

具體代碼如下：

頁面登陸代碼：

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)(“數(shù)量”)

EndIf

EndSub

修改后添加到數(shù)據(jù)庫的代碼：

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("數(shù)量")=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刪除記錄

在登陸系統(tǒng)后點擊修改按鈕進入修改頁面

delete.aspx,經過復選框的選擇，刪除數(shù)據(jù)。

如下圖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刪除頁面

該頁面經過復選框的操作刪除數(shù)據(jù)后，重定

向回該頁面，以便顯示刪除后數(shù)據(jù)的更新。具體

代碼如下：

頁面登陸代碼：

PrivateSubPage_Load(ByVaisenderAs

System.Object,ByVaieAs

System.EventArgs)HandlesMyBase.Load

IfNotPage.IsPostBackThen'用來

確認頁面是否第一次登陸'

binddata()

EndIf

EndSub

文檔僅供參考

Subbinddata()'連接到數(shù)據(jù)庫'

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'確認

數(shù)據(jù)是否被點擊進行刪除'

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

為datagrid第二列的數(shù)據(jù)的內容'

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)添加新教材。在登陸系統(tǒng)并選擇錄入新

書后，進入添加新教材頁面。如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",

使訂閱的教材數(shù)量在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(〃數(shù)量")=

Trim(TextBox5.Text)

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

da.UpdateCommand=

dacomm.GetUpdateCommand

da.Update(ds,〃book08")

Response.Redirect("book,aspx")

EndSub

(2)修改記錄。在登陸系統(tǒng)后點擊修改按鈕

進入修改頁面update.aspxo如圖5-7所示：

文檔僅供參考

■?<(????!IH?VIM?Ba?l?r?r

m*CMIrsxiia>e?

QM*o*/《/、**/；??*e3?./?一￡1

*Mt?包卜2J?jQl

■歡迎使用學校教材訂購系統(tǒng)"

書兮由冬1*4CJTKR

AftTlOtIffW-i

tarvn日天3oor?tU

8102網站■設鼻月200t*t槌

fiS8103年H2008*168

更?mmw*

圖5-7修改頁面update.Aspx

在該頁面設計中添加SqlDataAdapter控件

和DataSet控件，用于執(zhí)行ADO。NET數(shù)據(jù)庫訪

問的相關操作。該頁中的數(shù)據(jù)經過DataGrid控

件顯示，設置相應屬性，將其綁定到表book08,

使其顯示book08中的數(shù)據(jù)。在DataGrid控件中

添加一個按鈕列，列