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

3、軟件MyEclipse5.5 集成開發工具，數據庫和 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系統數據流圖（DFD3.1.1學校教材購銷系統DFD系統數據字典：名字：定書表別名：訂書單描述：送給采購員的定書表定義：購書單=購書單號 + 書名+出版社+價格+數量 +日期+訂購名姓名+訂購者職務+購書總數 +總額購書單號=DG年+月+日 +4位整數訂購者職務=學生丨教師價格=整數+4位小數位置：輸出到打印機名字:領書表

8、別名：領書單描述:送給學生或教師的領書報表定義:領書單-領書單號 + 訂購者姓名+領書日期+購書單號+領書日期+經辦人領書單號=LQ+年+月+日 +4位整數位置：輸出到打印機名字：缺書表別名：缺書單描述：送給相關工作人員的表，用來補充書籍定義：缺書單=缺書單號+書名+出版社+總數缺書單號=QS+年+月+日 +4位整數位置：輸出到打印機名字：進書通知描述：詳細的描述了進書的信息定義：進書通知=編號+ 書名+出版社+價格+數量 +采購人姓 名+采購日期+采購總數+采購總額編號=JS+年+月+ 日 +4位整數位置:名字：審核信息描述：用于審核信息定義：審核信息=教材發行人員姓名+審核標志+審核日期審

9、核標志=TURE|FALSE注：表示審核是否通過）3.1.2 學校教材購銷系統一級數據流圖合法庫存表一級數據字典：1庫存表=記錄ID +圖書信息+數量2缺書表=記錄ID +圖書信息+缺書日期3 進庫表二日期+圖書信息+數量+采購員+總額4圖書信息二書名+出版社+價格+作者+ISBN+版次ISBN=10 數字 10且能被7整除記錄ID = JC+ 15 數字 153.1.3 二級數據流圖領書單二級數據字典:名字：發票別名：描述：唯一的表述一次夠書或者買書憑證定義：發票=客戶名+日期+ 書名+價格+數量 +總 額+開票人+發票號名字：出庫表別名：描述：描述出庫的一切信息定義：出庫表=日期+圖書信息

10、 +教材發行人員位置：輸出到打印機名字：米購信息別名：描述：描述采購的信息定義：采購信息=采購員姓名 +日期+圖書信息+總數+ 總額名字：有效訂書單別名：描述：有效的訂書單定義：有效訂書單=購書單 +教材發行人員姓名位置：輸出到打印機3.2數據存儲描述數據存儲名稱：缺書登記表組成：書號+書名+出版社+缺書數量+出版時間+書籍信息組織：備注：數據存儲名稱：教材庫存表組成：書號+書名+出版社+數量+出版時間+書籍信息+是否特殊用途教學用、零 售組織：備注：數據存儲名稱：進庫表、出庫表、庫存表、購書表組成：書號+書名+出版社+出版時間+單價+數量+總價+書籍信息組織：備注：數據存儲名稱：售書登記表組

11、成：學號+姓名+班級+所購書號+書名+單價數量+總價組織：備注：學號、班級、姓名可為空數據存儲名稱：補售書表組成：學號+姓名+班級+所購書號+書名+數量+書籍信息組織：備注：數據存儲名稱：教學用書表組成：書名+書號+出版社+出版時間+數量+書籍信息組織：備注：3.3數據流描述購書單 :=（ 教師信息|學生信息）+書名+數量+出版社+作者+購書日期學生信息 ：:=學生學號+學生姓名+學生性別+學生班級學生學號：:=1| 2|50 序號 :=1| 2|50數量 :=1| 2|10000購書日期:=年 + 月 +日缺書單 :=序號+書名+數量+出版社+作者入庫單 :=入庫號+書名+數量+出版社+作者

12、+入庫時間出庫單 :=學生信息+書名+數量+出庫時間購書教材記錄 :=書名+數量領書單:=|學生信息+書名+出版社+作者+數量庫存情況 ：:=序號+書名+出版社+作者+數量學校教材訂購系統中，其主要的實體分別為用戶（教師和學生）、教材管理人員，經分析后，得到主要 E-R圖，如圖所示。總體設計1、系統功能模塊結構圖根據需求分析，學校教材訂購系統功能模塊結構圖如下:大學 教材 訂購 系統提交購書單< J審 核 購 書 單登記購書記錄. 丿返回領書單 領書修改庫存記錄維護 相應 的數 據表發缺書單登記缺書記錄發進書通知單修改相應的表維護數據庫進一步對學校教材訂購系統的銷售過程和采購過程進行數據

13、流程分析，本系統應當具有如下的數據項和數據結構：開發過程中建立了名為book的數據庫，下設 book07、book08、adminlist 等表如圖3-1所示：jdJe x <ve? il liiiiA e-x p>z. xs 立件tEl彥吉 CZJHrtl(xi閔口fUJA f 1曲口嗚虛* 汙Aa ® LddHt P3 頂目*£FJI 1 最 i> o r otioT 第01“ ff»R>r vii r僧、拜Ghif vii r f| ( I i>n»fel )* virl wit WL-i怪制占恫冃7- 曠口SQL V

14、4fE.白 H SflL Server 組I-' tsb O-ocilJ Windows FT)O 幽JOJT-U bs k硏*'Hina«iimiiiimaiiii»ai mat m n booldJTb o cildLJEJ.J dLj-La uu嚴三1整常鳴匸口丄*01口圖3-1 book數據庫圖I餌可1&d 'b -a!« ! ab肝?Ah xs表asminlist用于存放系統管理員和老師或學生的登陸用戶名和密碼,碼 主 為 號 帳 中 其圖 3-2 adminlist圖所示。f f t 、 銷采售購子子系系統統花)表-ad

15、»inlist"中的軟據，位置是-book"中密碼1234510001123451000Z12345100031234510004123451000512345圖 3-2 adminlist圖表book07用于存放過去兩個學期中計算機系所有已定教材的信息，其中書號為主碼，如圖3-3表book07圖所示。冶表-bookOT"中的數據，粒輩是toboflk"中、“ (local)"上T1027103I惟者丨征定時聞T104高等數學 法律VFPC語盲2007-12001-12007-12007-1686068T105昔理學2007-1607

16、20172027Z04財務管理 會計 JAVA£007 02007-62007-8 ZUOT-BCO6960Cd圖3-3表book07圖表book08用于存放本學期需要征訂的教材，同樣，書號為主碼，如圖3-4表book08圖所示。書號檢表ockOS*中的報據，住置是-bock"中、a(local>*上征宣時間noi肯等數學20C7-1607201610261036702筑計學 網站律常歆件工程圖3-4 表book08圖2007-®2008-12003-12003- 1詳細設計63es601.根據功能模塊用程序流程圖進行詳細設計和各模塊詳細設計說明書如下: 銷

17、售子系統模塊程序流程圖：采購子系統模塊程序流程圖:開始接口各模塊過程之間采用函數調用、參數傳遞、返回值的方式進行消息傳遞。 具體參數的結構將在下面數據結構設計的內容中說明。接口傳遞的信息將是 以數據結構封裝了的數據，以參數傳遞或返回值的形式在模塊之間傳遞。存儲分配為程序當中的數據結構在內存中開辟空間存儲，如入到數據庫中后在數據庫的表中為其開辟存儲空間限制條件輸入的信息都封裝在數據結構當中，不能獨立存在，在向數據庫中提交 數據時必須一起提交而不能逐項提交。輸入數據的類型必須和定義的數據類 型相匹配。界面設計及詳細代碼本系統主要有登陸界面load.aspx,顯示書目信息及功能模塊選擇頁面book.

18、aspx,添加新記錄頁面new.aspx,添加歷史記錄頁面history.aspx禾口 historyl.aspx, 修改記錄update.aspx 和updatel.aspx以及刪除記錄delete.aspx八個頁面組成.其中登陸與用datagrid兩大模塊的代碼編寫與設計.具體設計如下：5.1登陸界面當單擊確定按鈕時，連接數據庫，確定輸入的帳號和密碼是否匹配，跳轉到書目的頁面，若不匹配，則彈出帳號錯誤或密碼錯誤的提示。如圖5-1 所示圖 5-1具體代碼如下：Private Sub button1_Click(ByVal sender As System.Object, ByVal e As

19、 System.EventArgs) Handles button1.ClickDim str As StringDim passstr As Stringpassstr = Trim(CStr(TextBox2.Text)str = "'" & TextBox1.Text & "'"Dim sql As String = "select * from adminlist where帳號 =" & Trim(str)在數據庫中搜索帳號為 textbox1.text 的數據'Dim con

20、nstr As String = "server=localhost;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.SqlCommandBuild

21、er(da)If ds.Tables("adminlist").Rows.Count = 1 Then'判斷帳號密碼是否和數據庫匹配'If passstr = Trim(ds.Tables("adminlist").Rows(0)(" 密碼 ") Then Response.Redirect("book.aspx")ElseResponse.Write(" 密碼錯誤 !")End IfElseResponse.Write(" 用戶名不存在 !")End IfE

22、nd SubEnd Class5.2用datagrid 顯示數據首先建立datagrid,通過連接數據庫，將數據顯示在 datagrid中。如圖5-2所示TW1J 和尹* 0 ® 曲 Q-iM呻一1 生IBn*vvnpflwin-歡迎使用學校教材訂購系統TJK-t!圖5-2 書目頁面book.aspx具體代碼如下:Private Sub Page_Load(ByVal sender As System.Object, ByVai e As System.Eve ntArgs)Han dies MyBase.Loadbin ddata()End SubSub bin ddata()Di

23、m myconnection As NewSqlConnection("initialcatalog=book;uid=sa;pwd=")Co nst strsql As String = "select * from book08 order by書號”Dim mycomma nd As New SqlComma nd(strsql, myconnection)Dim myda As New SqlDataAdaptermyda.SelectComma nd = mycomma ndDim myds As New DataSetmyda.Fill(myds)Da

24、taGridl.DataSource = mydsDataGridl.DataBi nd()5.3 添加歷史書目(l)history.aspx在登陸系統并選擇插入歷史書本后，進入添加歷史書目的頁面，決定選擇哪條記錄進行添加。如圖5-3插入歷史書目圖所示圖5-3插入歷史書目圖在單擊左側的選擇后，自動跳轉到updatel.aspx ，根據所選擇的書目，進行相應的修改后添加到記錄中去。具體代碼如下：頁面登陸事件代碼：Private Sub Page_Load( ByVai sender As System.Object ， ByVai e As System.EventArgs ) Han dies

25、 MyBase.LoadIf Not Page.IsPostBack The nbin ddata()End IfEnd Sub連接數據庫：Sub bin ddata()Dim myconnection As New SqiC onn ecti on(" in itial catalog=book;uid=sa;pwd= “)Const strsql As String =“ select * from book07 order by書號”Dim mycommand As New SqlCommand ( strsql ， myconnection ) Dim myda As New

26、 SqlDataAdapterMyda.SelectCommand = mycommandDim myds As New DataSetMyda.Fill ( myds)DataGrid1.DataSource = mydsDataGrid1.DataBind ()End Sub確定所選擇的行的數據，并把該行相應的內容分別通過 session 變量儲存下來。 Private Sub DataGrid1_ItemCommand ( ByVal source As Object ， ByVal e As System.Web.UI.WebControls.DataGridCommandEventA

27、rgs ) Handles DataGrid1.ItemCommandButton_click 事件，重定向到book.aspx 頁面Dim b_no As TableCell= ( 1)Dim b_name As TableCell = ( 2)Dim b_a As TableCell =( 3 )Dim b_b As TableCell =( 4 )Dim b_c As TableCell =( 5 )Session(“a”)= b_no.TextSession(“b”)= b_name.TextSession(“c”)= b_a.TextSession(“d”)= b_b.TextSes

28、sion(“e”)= b_c.TextResponse.Redirect(“history1.aspx”)End SubPrivate Sub Button1_ClickByVal sender As System.Object ， ByVal e AsSystem.EventArgs ) Handles Button1.ClickResponse。Redirect (“ book.aspx ”)End class(2)history1.aspx頁面：通過上一個頁面的選擇后，該頁面進行修改并添加的操作。如圖4-4修改添加記錄圖所示：圖5-4添加記錄圖該頁面中將征定時間和數量的值用textbox

29、表示，是為了方便在插入歷史書目的時候修改它的時間和它的數量。當管理員修改完成后，則可單擊確定添加操作，將數據添加到08年的數據庫中。具體代碼如下：頁面登陸代碼：Private Sub Page_Load( ByVai sender As System.Object ， ByVai e As System.EventArgs )Han dies MyBase.LoadIf Not IsPostBack The nDim str As Stri ngstr =“' “ & Labei6.Text &“' “Dim sqi As String = “sei ect *

30、 from book07 where 書號=“ &Trim ( Session(a )Dim conn str As String =(connstr )“ server=localhost;uid=sa;pwd=;database=book”Dim myconn As New SqiCiie nt.SqlC onnectionsql ， myconn )Dim da As New SqlClient.SqlDataAdapterDim ds As New DataSetDa.Fillds, “ book07”)Dim dacomm As SqlClient.SqlCommandBui

31、lder = NewSqlClient.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 IfE

32、nd SubPrivate Sub Button1_Click修改后添加到數據庫的代碼：ByVal sender As System.Object ， ByVal e AsSystem.EventArgs ) Handles Button1.ClickDim str As StringDim litem As ListItemstr )str = “ ' “ & Label6.Text & “Dim sql As String =“select * from book08 where書號 =“ & Trim (Dim connstr As String =“ s

33、erver=localhost;uid=sa;pwd=;database=bookDim myconn As New SqlConnection( connstr )Dim da As New SqlDataAdapter( sql ， myconn )Dim ds As New DataSetda 。 Fill (ds， “book08”)Dim myrow As DataRowDim dacomm As SqlClient.SqlCommandBuilder = NewSqlClient.SqlCommandBuilder ( da)If ds.Tables(“ book08”) .Row

34、s.Count >= 1 ThenResponse.Write (“此書已存在”)myrow(“書號”)= Trim(Label6.Text)myrow(“書名”)= Trim(Label7.Text)myrow(“作者”)= Trim(Label8.Text)myrow(“征定時間”) =Trim ( TextBox1.Textmyrow(“數量”)= Trim( TextBox2.Text )ds.Tables(“ book08”) .Rows.Add (myrow)da.UpdateCommand = dacomm.GetUpdateCommandda.Update( ds ，“b

35、ook08”)Response.Redirect(“ book.aspx ”)End Sub單擊返回按鈕后，重定向到history.aspx 的代碼：Private Sub Button2_Click( ByVal sender As System.Object， ByVal e AsSystem.EventArgs ) Handles Button2.ClickResponse.Redirect(“ history.aspx ”)End SubEnd Class5.4 刪除記錄在登陸系統后點擊修改按鈕進入修改頁面 delete.aspx ，通過復選框的選擇，刪除數據。如 下圖 5-5 刪除頁

36、面所示：圖5-5 刪除頁面該頁面通過復選框的操作刪除數據后，重定向回該頁面，以便顯示刪除后數據的更新。具體代碼如下：頁面登陸代碼：Private Sub Page_Load( ByVai sender As System.Object ， ByVai e As System.EventArgs )Han dies MyBase.LoadIf Not Page.IsPostBack The n'用來確認頁面是否第一次登陸'bin ddata()End IfEnd SubSub bin ddata ()'連接到數據庫'Dim myconnection As New

37、SqiC onn ecti on(" in itialcatalog=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.SelectComma nd = mycomma ndDim myds As New DataSetMyda.Fillmyds)DataGrid1.DataSource = myd

38、sDataGrid1.DataBind ()'myda.Update( myds， “ book08”)End SubButton_click 事件：Private Sub Button1_Click ( ByVal sender As System.Object ， ByVal e AsSystem.EventArgs ) Handles Button1.ClickDim i As IntegerDim x As StringDim item As DataGridItemFor i = 0 To DataGrid1.ltems.Cou nt- 1item = DataGrid1.I

39、tems(i )Dim bookcheckbox As CheckBox = item.FindControl(“checkbox1”)lf bookcheckbox.Checked Then 確認數據是否被點擊進行刪除'x = item.Cells(1) .Text x為datagrid 第二列的數據的內容deletedataset( x)End lfNextbinddata()Response.Write(“刪除成功 ! ”)End SubSub deletedataset ( ByVal y As String )Dim con As New SqlConnection(“ in

40、itial catalog=book;uid=sa;pwd= “)Dim cmd As SqlCommandDim qry As StringCon.Open ()qry = “delete book08 where 書號 =' “ & y & “' “cmd = New SqlClient.SqlCommand(qry ， con )cmd.ExecuteNonQuery ()con. Close()End SubButton_click的重定向事件Private Sub Button2_Click( ByVai sender As System 。Objec

41、t , ByVai e AsSystem.EventArgs ) Handles Button2.ClickResp on se.Redirect(“ book.aspx ”)End subEnd class添加新教材和修改記錄兩大模塊共三個頁面的代碼編寫與設計。具體設計如圖5-6所示:圖5-6添記錄頁面new.Aspx(1)添加新教材。在登陸系統并選擇錄入新書后，進入添加新教材頁面。如3-6圖所示：對textboxl 至U textbox5 添加 RequiredFiledValidator控件，并設置相應屬性使textbox 中的文本不能為空。對 textboxl 添加 RegularEx

42、pressionValidator控件，設置 ValidationExpression 屬性為” d4 ”，ErrorMessage為”書號的格式為 0001 ”。對 textboxl 添加 Ran geValidator 控件，設置 Mi nimunV alue 為” 0001 ”，MaxmumValue 為” 9999”。使書號的取值范圍為0001 9999。對 textbox4 添加 RegularExpressionValidator控件，設置 ValidationExpression 屬性為” d4-d1, 2 ”，使時間格式為2008-1。對 textbox5 添加 RangeVa

43、lidator控件，設置 MinimunValue 為” 1”，MaxmumValue 為” 99”，使訂閱的教材數量在 1-99 本之間。該頁面程序代碼如下：Page Load 事件代碼Private Sub Page_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.LoadEnd SubButton Click 事件代碼Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArg

44、s) Handles Button1.ClickDim str As StringDim litem As ListItemstr = "'" & TextBox1 。 Text & "'"Dim sql As String = "select * from book08 where 書號 =" & Trim(str)Dim connstr As String = "server=localhost;uid=sa;pwd=;database=book"Dim myconn A

45、s New SqlConnection(connstr)Dim da As New SqlDataAdapter(sql, myconn)Dim ds As New DataSetda 。Fill(ds, "book08")Dim myrow As DataRowDim dacomm As SqlClient.SqlCommandBuilder = NewSqlClient.SqlCommandBuilder(da)If ds.Tables("book08").Rows.Count >= 1 ThenResponse.Redirect("

46、new.aspx")Response.Write("書號重復，請重新輸入 ")End Ifmyrow = ds.Tables("book08").NewRowmyrow("書號") = Trim(TextBox1.Text)myrow("書名") = Trim(TextBox2.Text)myrow("作者") = Trim(TextBox3.Text)myrow("征定時間 ") = Trim(TextBox4.Text)myrow(” 數量")=Tri

47、m(TextBox5.Text)ds.Tables("book08").Rows.Add(myrow)da.UpdateComma nd = dacomm.GetUpdateComma ndda.Update(ds, "book08")Resp on se.Redirect("book.aspx")update.aspx。如圖 5-7 所示:End Sub(2)修改記錄。在登陸系統后點擊修改按鈕進入修改頁面 £filVJ -MBjf歡迎使用學校教材訂購系統11&惟覇IU畸V夭囂4litHHETlOL鼻，耳TWLilS

48、d"皿Alt圖5-7 修改頁面update.Aspx在該頁面設計中添加 SqlDataAdapter控件和DataSet控件，用于執行 ADO NET數據庫訪問的相關操作。該頁中的數據通過DataGrid控件顯示，設置相應屬性，將其綁定到表book08，使其顯示book08中的數據。在DataGrid控件中添加一個按鈕列，列名為選擇。 當用戶點擊該列的按鈕時自動獲取該行的相關值，將其賦值給Session變量并跳轉到update1。aspx。 update1 。 aspx 女口圖：5-8 所示Mo? nt ：,0 氣盂 i « roPttl-MlflI *QmiItft BM

49、IItl 圖5-8修改選擇后的記錄updatel.aspx頁面中textbox的文本來自與 update.aspx中定義并賦值的 Session變量。用戶通過修改其中的文本值并單擊確定完成修改。修改部分代碼如下：update.aspx 中的 Page Load 事件Private Sub Page_Load(ByValsen der As System.Object ， ByVai e AsSystem.Eve ntArgs) Han dies MyBase.LoadIf Not Page.IsPostBack The nbin ddata()End IfEnd Sub用于加載頁面及確認是否第

50、一次訪問。Update.aspx 中的 binddata 事件private Sub bin ddata()Dim myconnection As NewSqlConnection("initialcatalog=book;uid=sa;pwd=")Co nst strsql As String = "select * from book08 order by書號”Dim mycomma nd As New SqlComma nd(strsql, myconnection)Dim myda As New SqlDataAdapterMyda.SelectComma

51、 nd = mycomma ndDim myds As New DataSetMyda.Fill(myds)DataGrid1.DataSource = mydsDataGrid1.DataBind()End Sub 用于連接數據庫并定義相關操作。Update.aspx 中設置 DataGrid 中的 ItemCommandPrivate Sub DataGrid1_ItemCommand(ByVal source As Object, ByValSystem.Web.UI.WebControls.DataGridCommandEventArgs)DataGrid1.ItemCommandDi

52、m b_no As 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(

53、"d") = b_b.textSession("e") = b_c.textResponse.Redirect("update1.aspx")End Sub用于將 Session 變量的值傳給 textboxupdate.aspx 中的 Button1 Click 事件private Sub Button1_Click(ByVal sender As System.Object, ByValSystem.EventArgs) Handles Button1.ClickResponse.Redirect("book.aspx&

54、quot;)e AsHandlese AsEnd Sub測試報告1. 當管理員打開“學校教材訂購系統”后，首先進入的是管理員登錄界面， 管理員在提示信息輸入管理員和密碼，管理員為“ shihongmin ”，密碼為“ 123”。當輸入信息為空時，系統給出錯誤信息提示： “管理員或密碼不能為空！ ”。當輸入信息有誤時， 系統給出錯誤信息提示：“管理員或密碼錯誤！ ”，同時清 空文本框中的內容。當輸入信息正確時，可進入該系統的主界面并提示 " 管理員您好，歡迎登錄！ " ，進行以后的操作2. 管理員可以通過主界面的菜單來選取不同的功能， 當管理員單擊書刊查詢 菜單，系統進入書刊查詢界面， 管理員可以在相應的文本框輸入書刊信息來查詢。 不輸入任何項目直接單擊查詢按鈕，系統會提示 "請至少輸入一項書刊信息！ " ； 在文本框中輸入信息后單擊查詢按鈕，若書庫表中找不到，則提示 " 對不起，沒 有找到您需要的書刊 " ，若書庫表中找到了，則進入書刊信息界面，并顯示相關 書刊信息。如：在書刊查詢界面的書號文本框里輸入1111，然后單擊查詢，則系統會進入到書刊信息界面，各文