學校教材訂購系統(tǒng)資料(共33頁)

1、學校教材訂購系統(tǒng)定義1.基本要求 1.1項目目標通過本系統(tǒng)完成為學校教材的購銷工作，包括銷售和采購兩個部分。1.2系統(tǒng)簡介系統(tǒng)簡介本系統(tǒng)可細化為兩個子系統(tǒng)：銷售系統(tǒng)和采購系統(tǒng)。銷售系統(tǒng)的工作過程為：首先由教師或學生提交購書單，經教材發(fā)行人員審核是有效購書單后，開發(fā)票、登記并返給教師或學生領書單，教師或學生即可去書庫領書。采購系統(tǒng)的主要工作過程為：若是脫銷教材，則登記缺書，發(fā)缺書單給書庫采購人員；一旦新書入庫后，即發(fā)進書通知給教材發(fā)行人員。以上的功能要求在計算機上實現。1.3技術要求和限制條件   （1） 當書庫中的各種書籍數量發(fā)生變化（包括領書和進書時），都應修改相關的書庫

2、記錄，如庫存表或進/出庫表。   （2） 在實現上述銷售和采購的工作過程時，需考慮有關單據的合法性驗證   （3） 系統(tǒng)的外部項至少包含三個：教師、學生和教材工作人員。   （4） 系統(tǒng)的相關數據存儲至少包含6個：購書表、庫存表、缺書登記表、待購教材表、進/出庫表。1.4系統(tǒng)界面 學生/教師登陸界面、書刊查詢界面、書刊信息界面、領書單界面、新書入庫界面、退出界面等。1.5開發(fā)概要 系統(tǒng)調研、具體開發(fā)、測試、維護2.資源 2.1 人員本小組成員(華偉,阮運磊,張翔宇,張哲)在老師的輔導下開發(fā)完成。2.2 硬件內存：2GM；CPU：Int

3、el Core2 1.80GHz2.3軟件MyEclipse5.5 集成開發(fā)工具，MySQL5.0.22數據庫和window visio2003畫圖工具以及windows word文檔工具 。3.進度安排隨課程進度同步完成系統(tǒng)的開發(fā)及文檔編寫工作。4.預算本項目作為學生課程設計，其所有開銷 包括軟件，設施及開發(fā)經費都由學生自理。學校教材購銷系統(tǒng)需求規(guī)格說明書1引言1.1 編寫目的本要求規(guī)格說明書對學校教材購銷系統(tǒng)進行簡單的分析，給出了系統(tǒng)的數據流圖。系統(tǒng)主要用戶是學生，教師和教材工作人員，加深與用戶間的交流，在功能與系統(tǒng)界面上與用戶達成一致的看法，以便于開發(fā)出用戶滿意的系統(tǒng)。1.2項目背景隨著

4、高校辦學規(guī)模的擴展，管理方式和管理效率的矛盾日漸突出。在教材購銷方面，手工管理方式和文檔系統(tǒng)管理方式在管理質量和管理效率上，從根本上不能適應大規(guī)模的管理要求。而隨著計算機科學的發(fā)展與進步，計算機科學管理方式，不管在管理效率還是在管理質量上都逐步顯示出了它的可靠性和優(yōu)越性。而且計算機管理在人力、物力等資源方面都比以前的管理模式要有大的節(jié)省。計算機管理正以它自身的優(yōu)越性成為管理模式中的主流。教材購銷管理系統(tǒng)采用計算機管理模式的必然性也在與此！本系統(tǒng)以學校為背景，在認真調研和分析了學校訂購教材的現狀之后，根據學生，教師和教材工作人員的需求和各個功能的關系，作出了積極的設計方案。在新的管理資源和管理模

5、式上，一定能使工作質量、工作效率等得到提高，推動學校發(fā)展的步伐。本系統(tǒng)名稱為：安徽工程科技學院教材購銷系統(tǒng)。由安徽工程科技學院教材管理層提出，由修宇老師和我們項目小組成員（華偉，阮運磊，張翔宇，張哲）開發(fā)，適合學生，老師和教材工作人員使用，可以在學校的計算機中心開設服務器，在校園網上運行。1.3 軟件產品的作用范圍學校教材購銷系統(tǒng)是為高等院校開發(fā)的，用于日常的教材管理，包括銷售與采購。提供數字化的管理，提高學校教材管理部門的工作效率。2一般性描述2.1本系統(tǒng)可細化為兩個子系統(tǒng)：銷售系統(tǒng)和采購系統(tǒng)銷售系統(tǒng)的工作過程為：首先由教師或學生提交購書單，經教材科發(fā)行人員審核是有效購書單后，開發(fā)票、登記并

6、返給教師或學生領書單，教師或學生即可去書庫領書。 采購系統(tǒng)的主要工作過程為：若是脫銷教材，則登記缺書，發(fā)缺書單給書庫采購人員；一旦新書入庫后，即發(fā)進書通知。2.2產品功能本系統(tǒng)在向學生售書時主要輸入學生學號、班級代號、購書數量、購書書名信息，然后打印領書單返回給學生領取書籍。本系統(tǒng)在查詢數據庫時主要輸入需要查詢的相關信息，包括圖書編號、圖書書名、出版社信息、圖書特色等信息方便操作人員把握圖書信息。本系統(tǒng)還兼顧一點財務信息的管理，在發(fā)生單人購書時，系統(tǒng)直接向購書者收取現金，內部形成一個小小的財務管理。本系統(tǒng)還和學校的財務科發(fā)生數據交換，發(fā)生集體售書時，學校根據數據的有效性，直接向集體售書，形成的

7、財務信息直接和財務科交換，方便結算。即：向學生集體售書時不需要直接收取現金，而待教材科結算時向財務科提交數據，由財務科從學生的預交書費里扣除，保證教材科財務信息的完整。3數據流圖與數據字典3.1系統(tǒng)數據流圖（DFD）3.1.1 學校教材購銷系統(tǒng)DFD系統(tǒng)數據字典： 名字：定書表別名：訂書單描述：送給采購員的定書表定義：購書單購書單號+書名+出版社+價格數量+日期+訂購名姓名+訂購者職務購書總數+總額 購書單號DG+年+月+日+4位整數 訂購者職務學生教師 價格整數+4位小數位置：輸出到打印機名字：領書表別名：領書單描述：送給學生或教師的領書報表定義：領書單領書單號+訂購者姓名+領書日期+購書單

8、號+領書日期經辦人 領書單號LQ+年+月+日+4位整數位置：輸出到打印機名字：缺書表別名：缺書單描述：送給相關工作人員的表，用來補充書籍定義：缺書單缺書單號書名+出版社總數 缺書單號QS+年+月+日+4位整數位置：輸出到打印機名字：進書通知描述：詳細的描述了進書的信息定義：進書通知編號+書名+出版社+價格數量采購人姓名采購日期+采購總數+采購總額 編號JS+年+月+日+4位整數位置：名字：審核信息描述：用于審核信息定義：審核信息教材發(fā)行人員姓名+審核標志+審核日期 審核標志TURE|FALSE(注：表示審核是否通過)位置：3.1.2 學校教材購銷系統(tǒng)一級數據流圖 身 份驗 證學生或教 師 購書

9、單 不合法 領書單 合法 庫存表 教材工作人 員 采 購系 統(tǒng) 缺書單 銷 售 系 統(tǒng) 進書通知 缺書登記表一級數據字典：1 庫存表記錄ID +圖書信息 +數量 2 缺書表記錄ID +圖書信息+缺書日期 3 進庫表日期+圖書信息+數量+采購員+總額 4圖書信息書名+出版社+價格作者+ISBN+版次 ISBN=10數字10 且能被7整除 記錄IDJC15數字15 3.1.3 二級數據流圖購書單審核信息領書單發(fā)票領書信息 領書單缺書單缺書單缺書信息采購信息進書通知圖書信息 采購信息購書表審 核登記庫存表開 票登 記領 書缺書表出庫表缺書登記缺書表圖書入庫庫存表進庫表二級數據字典：名字：發(fā)票別名：描

10、述：唯一的表述一次夠書或者買書憑證定義：發(fā)票客戶名+日期+書名價格+數量+總額+開票人+發(fā)票號位置：名字：出庫表別名：描述：描述出庫的一切信息定義：出庫表日期圖書信息+教材發(fā)行人員位置：輸出到打印機名字：采購信息別名：描述：描述采購的信息定義：采購信息采購員姓名+日期+圖書信息+總數+總額位置：名字：有效訂書單別名：描述：有效的訂書單定義：有效訂書單購書單+教材發(fā)行人員姓名位置：輸出到打印機3.2 數據存儲描述數據存儲名稱：缺書登記表組成：書號+書名+出版社+缺書數量+出版時間+書籍信息組織：備注：數據存儲名稱：教材庫存表組成：書號+書名+出版社+數量+出版時間+書籍信息+是否特殊用途教學用、

11、零售組織：備注：數據存儲名稱：進庫表、出庫表、庫存表、購書表組成：書號+書名+出版社+出版時間+單價+數量+總價+書籍信息組織：備注：數據存儲名稱：售書登記表組成：學號+姓名+班級+所購書號+書名+單價數量+總價組織：備注：學號、班級、姓名可為空數據存儲名稱：補售書表組成：學號+姓名+班級+所購書號+書名+數量+書籍信息組織：備注： 數據存儲名稱：教學用書表組成：書名+書號+出版社+出版時間+數量+書籍信息組織：備注： 3.3數據流描述<購書單>：=（<教師信息>|<學生信息>）+<書名>+<數量>+<出版社>+<作

12、者>+<購書日期><學生信息>：=<學生學號>+<學生姓名>+<學生性別>+<學生班級><學生學號>：=1| 2|50<序號>：= 1| 2|50<數量>：= 1| 2|10000<購書日期>：=<年>+<月>+<日> <缺書單>：=<序號>+<書名>+<數量>+<出版社>+<作者><入庫單>：=<入庫號>+<書名>+<數

13、量>+<出版社>+<作者>+<入庫時間><出庫單>：=<學生信息>+<書名>+<數量>+<出庫時間><購書教材記錄>：=<書名>+<數量><領書單>：=|<學生信息>+<書名>+<出版社>+<作者>+<數量><庫存情況>：=<序號>+<書名>+<出版社>+<作者>+<數量>學校教材訂購系統(tǒng)中，其主要的實體分別為用戶（

14、教師和學生）、教材管理人員，經分析后，得到主要E-R圖，如圖所示。 書 籍 價格庫存量 出版社 編號 書籍名 工 作 人 員 工號 備 注 性別 職位 姓 名 電 話 教師或學生 性 別 姓 名 編 號總體設計1、系統(tǒng)功能模塊結構圖根據需求分析，學校教材訂購系統(tǒng)功能模塊結構圖如下：大學教材訂購系統(tǒng)銷售子系統(tǒng)采購子系統(tǒng)提交購書單審核購書單開發(fā)票登記購書記錄發(fā)缺書單登記缺書記錄發(fā)進書通知單修改相應的表返回領書單領書修改庫存記錄維護相應的數據表維護數據庫進一步對學校教材訂購系統(tǒng)的銷售過程和采購過程進行數據流程分析，本系統(tǒng)應當具有如下的數據項和數據結構：開發(fā)過程中建立了名為book的數據庫，下設boo

15、k07、book08、adminlist等表如圖3-1所示：圖3-1 book數據庫圖表asminlist用于存放系統(tǒng)管理員和老師或學生的登陸用戶名和密碼，其中帳號為主碼，如圖3-2 adminlist圖所示。 圖3-2 adminlist圖表book07用于存放過去兩個學期中計算機系所有已定教材的信息，其中書號為主碼，如圖3-3表book07圖所示。 圖3-3 表book07圖表book08用于存放本學期需要征訂的教材，同樣，書號為主碼，如圖3-4表book08圖所示。 圖3-4 表book08圖詳細設計1.根據功能模塊用程序流程圖進行詳細設計和各模塊詳細設計說明書如下：銷售子系統(tǒng)模塊程序流

16、程圖：開始提交購書單 N審核購書單 1錯誤顯示 Y開發(fā)票 登記購書記錄 N錯誤顯示 審核登記 Y發(fā)領書通知單 修改相應表 N審核修改 錯誤顯示 Y結束采購子系統(tǒng)模塊程序流程圖：開始發(fā)缺書單 審核缺書單 錯誤顯示 登記缺書 審核登記 錯誤顯示 修改數據庫的表 審核修改 錯誤顯示 發(fā)進書通知單 結束接口 各模塊過程之間采用函數調用、參數傳遞、返回值的方式進行消息傳遞。具體參數的結構將在下面數據結構設計的內容中說明。接口傳遞的信息將是以數據結構封裝了的數據，以參數傳遞或返回值的形式在模塊之間傳遞。存儲分配為程序當中的數據結構在內存中開辟空間存儲，如入到數據庫中后在數據庫的表中為其開辟存儲空間。限制條

17、件輸入的信息都封裝在數據結構當中，不能獨立存在，在向數據庫中提交數據時必須一起提交而不能逐項提交。輸入數據的類型必須和定義的數據類型相匹配。界面設計及詳細代碼本系統(tǒng)主要有登陸界面load.aspx,顯示書目信息及功能模塊選擇頁面book.aspx,添加新記錄頁面new.aspx,添加歷史記錄頁面history.aspx和history1.aspx,修改記錄update.aspx和update1.aspx以及刪除記錄delete.aspx八個頁面組成.其中登陸與用datagrid兩大模塊的代碼編寫與設計.具體設計如下:5.1 登陸界面 當單擊確定按鈕時,連接數據庫,確定輸入的帳號和密碼是否匹配,

18、跳轉到書目的頁面，若不匹配,則彈出帳號錯誤或密碼錯誤的提示。如圖5-1所示 圖5-1具體代碼如下：Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click Dim str As String Dim passstr As String passstr = Trim(CStr(TextBox2.Text) str = "'" & TextBox1.Text & "'"

19、Dim sql As String = "select * from adminlist where 帳號=" & Trim(str) 在數據庫中搜索帳號為textbox1.text的數據 Dim connstr 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

20、 New DataSet da.Fill(ds, "adminlist") Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) If ds.Tables("adminlist").Rows.Count = 1 Then判斷帳號密碼是否和數據庫匹配 If passstr = Trim(ds.Tables("adminlist").Rows(0)("密碼") Then Response.Redirect(&quo

21、t;book.aspx") Else Response.Write("密碼錯誤!") End If Else Response.Write("用戶名不存在!") End If End SubEnd Class5.2用datagrid顯示數據首先建立datagrid,通過連接數據庫，將數據顯示在datagrid中。如圖5-2所示圖 5-2 書目頁面book.aspx具體代碼如下：Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Han

22、dles MyBase.Load binddata()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, myconnection) Dim myda As New SqlDataAdapter myda.SelectC

23、ommand = mycommand Dim myds As New DataSet myda.Fill(myds) DataGrid1.DataSource = myds DataGrid1.DataBind() End Sub5.3 添加歷史書目 (1)history.aspx在登陸系統(tǒng)并選擇插入歷史書本后，進入添加歷史書目的頁面，決定選擇哪條記錄進行添加。如圖5-3插入歷史書目圖所示圖5-3 插入歷史書目圖 在單擊左側的選擇后，自動跳轉到update1.aspx，根據所選擇的書目，進行相應的修改后添加到記錄中去。具體代碼如下：頁面登陸事件代碼：Private Sub Page_Load（

24、ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load If Not Page.IsPostBack Then binddata（） End If End Sub連接數據庫： Sub binddata（） Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Const strsql As String = “select * from book07 order by 書號” Dim mycomma

25、nd As New SqlCommand（strsql， myconnection） Dim myda As New SqlDataAdapter Myda.SelectCommand = mycommand Dim myds As New DataSet Myda.Fill（myds） DataGrid1.DataSource = myds DataGrid1.DataBind（） End Sub確定所選擇的行的數據，并把該行相應的內容分別通過session變量儲存下來。Private Sub DataGrid1_ItemCommand（ByVal source As Object， ByV

26、al e As System.Web.UI.WebControls.DataGridCommandEventArgs） Handles DataGrid1.ItemCommand Dim 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 TableCell = e.Item.Cells（5） Session（“a”

27、） = 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”）End SubButton_click事件，重定向到book.aspx頁面 Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click Respons

28、e。Redirect（“book.aspx”） End SubEnd class(2)history1.aspx頁面：通過上一個頁面的選擇后，該頁面進行修改并添加的操作。如圖4-4修改添加記錄圖所示：圖5-4 添加記錄圖該頁面中將征定時間和數量的值用textbox表示，是為了方便在插入歷史書目的時候修改它的時間和它的數量。當管理員修改完成后，則可單擊確定添加操作，將數據添加到08年的數據庫中。具體代碼如下：頁面登陸代碼：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handle

29、s MyBase.Load If Not IsPostBack Then Dim str As String str = “'“ & Label6.Text & “'“ Dim sql As String = “select * from book07 where 書號 =“ & Trim（Session（“a”） Dim connstr As String = “server=localhost;uid=sa;pwd=;database=book” Dim myconn As New SqlClient.SqlConnection（connstr） D

30、im da As New SqlClient.SqlDataAdapter（sql， myconn） Dim ds As New DataSet Da.Fill（ds, “book07”） Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder（da） Label6.Text = ds.Tables（“book07”）.Rows（0）（“書號”） Label7.Text = ds.Tables（“book07”）.Rows（0）（“書名”） Label8.Text = ds.Tables（“book

31、07”）.Rows（0）（“作者”） TextBox1.Text = ds.Tables（“book07”）.Rows（0）（“征定時間”） TextBox2.Text = ds.Tables（“book07”）.Rows（0）（“數量”） End If End Sub修改后添加到數據庫的代碼：Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click Dim str As String Dim litem As ListItem str

32、= “'“ & Label6.Text & “'“ Dim sql As String = “select * from book08 where 書號=“ & Trim（str） Dim connstr As String = “server=localhost;uid=sa;pwd=;database=book” Dim myconn As New SqlConnection（connstr） Dim da As New SqlDataAdapter（sql， myconn） Dim ds As New DataSet da。Fill（ds， “bo

33、ok08”） Dim myrow As DataRow Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder（da） If ds.Tables（“book08”）.Rows.Count >= 1 Then Response.Write（“此書已存在”） End If myrow = ds.Tables（“book08”）.NewRow myrow（“書號”） = Trim（Label6.Text） myrow（“書名”） = Trim（Label7.Text） myrow（“作者”） = T

34、rim（Label8.Text） myrow（“征定時間”） = Trim（TextBox1.Text） myrow（“數量”） = Trim（TextBox2.Text） ds.Tables（“book08”）.Rows.Add（myrow） da.UpdateCommand = dacomm.GetUpdateCommand da.Update（ds， “book08”） Response.Redirect（“book.aspx”） End Sub單擊返回按鈕后，重定向到history.aspx的代碼：Private Sub Button2_Click（ByVal sender As Sy

35、stem.Object， ByVal e As System.EventArgs） Handles Button2.Click Response.Redirect（“history.aspx”） End SubEnd Class5.4 刪除記錄在登陸系統(tǒng)后點擊修改按鈕進入修改頁面delete.aspx，通過復選框的選擇，刪除數據。如下圖5-5刪除頁面所示：圖5-5 刪除頁面 該頁面通過復選框的操作刪除數據后，重定向回該頁面，以便顯示刪除后數據的更新。具體代碼如下：頁面登陸代碼：Private Sub Page_Load（ByVal sender As System.Object， ByVal

36、e As System.EventArgs） Handles MyBase.Load If Not Page.IsPostBack Then 用來確認頁面是否第一次登陸 binddata（） End If End Sub 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（s

37、trsql， myconnection） Dim myda As New SqlDataAdapter Myda.SelectCommand = mycommand Dim myds As New DataSet Myda.Fill（myds） DataGrid1.DataSource = myds DataGrid1.DataBind（） 'myda.Update（myds， “book08”） End SubButton_click事件： Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As Syst

38、em.EventArgs） Handles Button1.Click Dim i As Integer Dim x As String Dim item As DataGridItem For 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第二列的數據

39、的內容 deletedataset（x） End If Next binddata（） Response.Write（“刪除成功!”） End Sub Sub deletedataset（ByVal y As String） Dim con As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Dim cmd As SqlCommand Dim qry As String Con.Open（） qry = “delete book08 where 書號='“ & y & “'“ cmd = New Sq

40、lClient.SqlCommand（qry， con） cmd.ExecuteNonQuery（） con.Close（） End SubButton_click的重定向事件 Private Sub Button2_Click（ByVal sender As System。Object， ByVal e As System.EventArgs） Handles Button2.Click Response.Redirect（“book.aspx”）End subEnd class添加新教材和修改記錄兩大模塊共三個頁面的代碼編寫與設計。具體設計如圖5-6所示：圖5-6 添記錄頁面 new.As

41、px(1)添加新教材。在登陸系統(tǒng)并選擇錄入新書后，進入添加新教材頁面。如3-6圖所示：對textbox1到textbox5添加RequiredFiledValidator控件，并設置相應屬性使textbox中的文本不能為空。對textbox1添加RegularExpressionValidator控件，設置ValidationExpression屬性為”d4”，ErrorMessage為”書號的格式為0001”。對textbox1添加RangeValidator控件，設置MinimunValue為”0001”，MaxmumValue為”9999”。使書號的取值范圍為00019999。對text

42、box4添加RegularExpressionValidator控件，設置ValidationExpression屬性為”d4-d1，2”，使時間格式為2008-1。對textbox5添加RangeValidator控件，設置MinimunValue為”1”，MaxmumValue為”99”，使訂閱的教材數量在1-99本之間。該頁面程序代碼如下：Page Load事件代碼Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubButto

43、n Click事件代碼Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String Dim litem As ListItem str = "'" & TextBox1。Text & "'" Dim sql As String = "select * from book08 where 書號=" & Trim

44、(str) Dim connstr As String = "server=localhost;uid=sa;pwd=;database=book" Dim myconn As New SqlConnection(connstr) Dim da As New SqlDataAdapter(sql, myconn) Dim ds As New DataSet da。Fill(ds, "book08") Dim myrow As DataRow Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient

45、.SqlCommandBuilder(da) If ds.Tables("book08").Rows.Count >= 1 Then Response.Redirect("new.aspx") Response.Write("書號重復，請重新輸入") End Ifmyrow = ds.Tables("book08").NewRow myrow("書號") = Trim(TextBox1.Text) myrow("書名") = Trim(TextBox2.Text) my

46、row("作者") = 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")End S

47、ub(2) 修改記錄。在登陸系統(tǒng)后點擊修改按鈕進入修改頁面update.aspx。如圖5-7所示：圖5-7 修改頁面update.Aspx 在該頁面設計中添加SqlDataAdapter控件和DataSet控件，用于執(zhí)行ADO。NET數據庫訪問的相關操作。該頁中的數據通過DataGrid控件顯示，設置相應屬性，將其綁定到表book08，使其顯示book08中的數據。在DataGrid控件中添加一個按鈕列，列名為選擇。當用戶點擊該列的按鈕時自動獲取該行的相關值，將其賦值給Session變量并跳轉到update1。aspx。update1。aspx如圖：5-8所示圖5-8 修改選擇后的記錄 upd

48、ate1.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.Load If Not Page.IsPostBack Then binddata() End IfEnd Sub用于加載頁面及確認是否第一次訪問。Update.aspx中的binddata

49、事件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 SqlDataAdapter Myda.SelectCommand = mycommand Dim m

50、yds As New DataSet Myda.Fill(myds) DataGrid1.DataSource = myds DataGrid1.DataBind()End Sub用于連接數據庫并定義相關操作。Update.aspx中設置DataGrid中的ItemCommandPrivate Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand Dim b_no A