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

1、 軟件工程課程設(shè)計題 目 學(xué)校教材訂購系統(tǒng) 學(xué) 院 嘉興學(xué)院 專 業(yè) 信息管理和信息系統(tǒng) 班 級 信息N052 學(xué) 號 01 07 15 學(xué)生姓名 顏幼幼 徐晶 俞麗 指導(dǎo)教師 張 云 編寫日期 2009年2月21日 一、開發(fā)計劃：1、系統(tǒng)敘述 在21世紀的今天，隨著計算機技術(shù)和計算機網(wǎng)絡(luò)的發(fā)展，人們逐漸開始步入信息時代。通過Internet網(wǎng)絡(luò)人們可以瀏覽各類信息，發(fā)送電子郵件，傳送文件，參與BBS，網(wǎng)上娛樂，遠程教育，遠程醫(yī)療。人們?nèi)粘９ぷ?，生活中的許多事情都已經(jīng)可以在網(wǎng)上輕松簡單的完成。互聯(lián)網(wǎng)因為它簡單的操作和強大的信息量，逐漸成為了人們工作中的好幫手和生活中不可缺少的重要組成部分。近年

2、來，互聯(lián)網(wǎng)也開始涉及學(xué)校的教材訂購，教材訂購系統(tǒng)近幾年在各高校逐漸得到廣泛的應(yīng)用。但有些教材征訂系統(tǒng)，仍然存在著在教材管理和征訂方面半手工半信息化的狀況。所謂半手工半信息化是教材科有詳細的教材資料，并把他們存放在電子文檔中。每次需要信息時，在電腦中找到對應(yīng)文檔提取所需信息，把所需的信息打印或手抄出來。即教材信息沒有形成一個大型的整體的數(shù)據(jù)庫，而且還沒有對這些數(shù)據(jù)進行操作的網(wǎng)絡(luò)應(yīng)用程序。目前國內(nèi)大部分的學(xué)校都是這種情況。針對這一情況，我們研究和開發(fā)了“學(xué)校教材訂購系統(tǒng)”作為深入研究解決這一問題辦法的初步嘗試。2、問題的提出及發(fā)展背景隨著教學(xué)數(shù)量的提高，對軟件質(zhì)量的要求也越來越高，因此，教師、學(xué)生

3、對教材的訂購了越來越重視，希望獲取教材的過程簡單，方便，快速，因而，做一個好的訂購系統(tǒng)是十分重要的。 訂購是指教師或?qū)W生向工作人員提供要采購的教材，經(jīng)工作人員審查后，發(fā)給教師或?qū)W生發(fā)票，然后去書庫去領(lǐng)取教材，但工作人員發(fā)現(xiàn)書庫中缺貨時，要及時的向采購部報告，采購部要及時的進貨，然后，工作人員來修改記錄。3、目標系統(tǒng)敘述本系統(tǒng)主要解決通過ASP.NET程序制作WEB應(yīng)用程序，通過該應(yīng)用程序?qū)崿F(xiàn)對數(shù)據(jù)庫的整合以及對數(shù)據(jù)庫的操作。數(shù)據(jù)庫的整合就是把現(xiàn)在的零散的數(shù)據(jù)庫經(jīng)過分類，綜合整理成一個大型的數(shù)據(jù)庫。所需數(shù)據(jù)都可以從里面調(diào)用，數(shù)據(jù)庫操作主要指添加，刪除，查詢等數(shù)據(jù)庫基本操作。系統(tǒng)的設(shè)計首先著眼的是

4、網(wǎng)絡(luò)，學(xué)生或教師可以通過本系統(tǒng)向教材訂購人員提交所需教材的詳細信息，教材訂購系統(tǒng)可以統(tǒng)計教材信息。因此本系統(tǒng)方便了學(xué)校教材訂購部門的工作，提高了工作效率。主要功能包括：1、收集數(shù)據(jù)。將學(xué)生教師的訂書單和缺書通知單單收集起來。 2、打印報表。產(chǎn)生待購教材表、進庫表和出庫表等各種統(tǒng)計報表3、可行性分析及開發(fā)計劃在技術(shù)上的可行性分析，本系統(tǒng)可細化為兩個子系統(tǒng)：銷售系統(tǒng)和采購系統(tǒng)銷售系統(tǒng)的工作過程為：首先由教師或?qū)W生提交購書單，經(jīng)教材發(fā)行人員審核是有效購書單后，開發(fā)票、登記并返給教師或?qū)W生領(lǐng)書單，教師或?qū)W生即可去書庫領(lǐng)書。采購系統(tǒng)的主要工作過程為：若是脫銷教材，則登記缺書，發(fā)缺書單給書庫采購人員；一旦

5、新書入庫后，即發(fā)進書通知給教材發(fā)行人員。當(dāng)書庫中的各種書籍?dāng)?shù)量發(fā)生變化（包括領(lǐng)書和進書時），都應(yīng)修改相關(guān)的書庫記錄，如庫存表或進/出庫表。在對現(xiàn)行系統(tǒng)的情況調(diào)查的基礎(chǔ)上，得出系統(tǒng)的邏輯模型。二、需求分析1、需求定義說明書此教材采購系統(tǒng)分為兩個模塊：采購系統(tǒng)和銷售系統(tǒng)。具體見下圖層次數(shù)據(jù)流圖。銷售系統(tǒng)模塊：提交購書單、審核購書單、開發(fā)票、登記購書紀錄、返回領(lǐng)書單、修改和維護數(shù)據(jù)庫中相應(yīng)的表。采購系統(tǒng)模塊：發(fā)缺書臺州單、登記缺書紀錄、擬訂待購書信息、發(fā)進書通知單、修改和維護數(shù)據(jù)庫中相應(yīng)的表。 教材管理信息系統(tǒng)的服務(wù)對象為全校師生員工，系統(tǒng)的使用對象為教務(wù)處教材管理人員及書庫管理員。系統(tǒng)主要完成以下

6、具體功能： （1）預(yù)定新書 購書者購買書庫暫時沒有的書，可以進行預(yù)訂，由教務(wù)處工作人員進行采購。（2）購書 購書者到財務(wù)室辦理繳費手續(xù)，然后憑此手續(xù)去書庫取書。（3）書出庫 書從書庫領(lǐng)出，管理員修改書庫記錄。（4）書入庫 采購人員把采購的書送入書庫，管理員修改書庫記錄。（5）書庫維護 對現(xiàn)有的書分類、統(tǒng)計、增添新書目或刪除不存在的舊書目錄等，一般由書 庫管理人員來完成。2、數(shù)據(jù)流圖 將數(shù)據(jù)流圖模塊中的內(nèi)容進一步細化，便于理解與設(shè)計。學(xué)生信息包括：姓名、學(xué)號、購書日期、采購書籍名稱、書籍編碼、書籍?dāng)?shù)量、單價、聯(lián)系方式。老師信息包括：姓名、編號、購書日期、采購書籍名稱、書籍編碼、書籍?dāng)?shù)量、單價、聯(lián)

7、系方式。書籍信息包括：書籍名稱、書籍編碼、價格、現(xiàn)有數(shù)量、出版社、作者。購書單信息包括：日期、書籍名稱、數(shù)量、學(xué)生（老師)姓名、購書人員編號。缺書單信息包括：日期、書籍名稱、數(shù)量、學(xué)生（老師)姓名、發(fā)行人員編號。發(fā)行人員信息包括：書籍名稱、數(shù)量、日期、發(fā)行人員編號、聯(lián)系方式。采購人員信息包括：書籍名稱、數(shù)量、日期、采購人員編號、聯(lián)系方式。將細化的數(shù)據(jù)流圖用圖形表示出來：如下圖 領(lǐng)書單學(xué)校教材訂購系統(tǒng)教材發(fā)行人員學(xué)生、教師 訂書單 驗證訂書單 發(fā)票、登記缺書單領(lǐng)書庫采購人員書 代購材料表單 出庫表 購書 進書通知單取書 圖2-1 教材訂購系統(tǒng)數(shù)據(jù)流程圖在數(shù)據(jù)流圖分解時，每個變動都可能引出新的問題

8、。這些問題的回答可以到處數(shù)據(jù)字典的新條目，發(fā)現(xiàn)后及時更正。隨著分析過程的深入，通過不斷地提問和問答，把軟件系統(tǒng)定義得越來越準確詳細。最終就能對系統(tǒng)的功能要求有一個較全面的認識。應(yīng)當(dāng)高度重視：通過各層數(shù)據(jù)流圖和數(shù)據(jù)字典把對系統(tǒng)的完整認識描述出來，并作為正式文檔保存。三、概要設(shè)計(系統(tǒng)設(shè)計)： 1、系統(tǒng)功能模塊結(jié)構(gòu)圖根據(jù)需求分析，學(xué)校教材訂購系統(tǒng)功能模塊結(jié)構(gòu)圖如下：銷售子系統(tǒng)銷售子系統(tǒng)提交購書單審核購書單領(lǐng)書修改庫存紀錄返回領(lǐng)書單登記購書紀錄開發(fā)票采購子系統(tǒng)采購子系統(tǒng)修改相應(yīng)的表登記缺書紀錄發(fā)進書通知單發(fā)缺書通知單2、數(shù)據(jù)庫概要設(shè)計（E-R圖）學(xué)校教材訂購系統(tǒng)中，其主要的實體分別為用戶（教師和學(xué)生

9、）、教材管理人員，經(jīng)分析后，得到主要E-R圖，如圖所示。 書 籍 價格庫存量 出版社 編號 書籍名 工 作 人 員 工號 備 注 性別 職位 姓 名 電 話 教師或?qū)W生 性 別 姓 名 編 號 進一步對學(xué)校教材訂購系統(tǒng)的銷售過程和采購過程進行數(shù)據(jù)流程分析，本系統(tǒng)應(yīng)當(dāng)具有如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：開發(fā)過程中建立了名為book的數(shù)據(jù)庫，下設(shè)book07、book08、adminlist等表如圖3-1所示：圖3-1 book數(shù)據(jù)庫圖表asminlist用于存放系統(tǒng)管理員和老師或?qū)W生的登陸用戶名和密碼，其中帳號為主碼，如圖3-2 adminlist圖所示。 圖3-2 adminlist圖表book07用

10、于存放過去兩個學(xué)期中計算機系所有已定教材的信息，其中書號為主碼，如圖3-3表book07圖所示。 圖3-3 表book07圖表book08用于存放本學(xué)期需要征訂的教材，同樣，書號為主碼，如圖3-4表book08圖所示。 圖3-4 表book08圖四、詳細設(shè)計根據(jù)功能模塊用程序流程圖進行詳細設(shè)計和各模塊詳細設(shè)計說明書如下：銷售子系統(tǒng)模塊程序流程圖：開始提交購書單 N審核購書單 1錯誤顯示 Y開發(fā)票 登記購書記錄 N錯誤顯示 審核登記 Y發(fā)領(lǐng)書通知單 修改相應(yīng)表 N審核修改 錯誤顯示 Y結(jié)束采購子系統(tǒng)模塊程序流程圖：開始發(fā)缺書單 審核缺書單 錯誤顯示 登記缺書 審核登記 錯誤顯示 修改數(shù)據(jù)庫的表

11、審核修改 錯誤顯示 發(fā)進書通知單 結(jié)束五、界面設(shè)計及主要代碼本系統(tǒng)主要有登陸界面load.aspx,顯示書目信息及功能模塊選擇頁面book.aspx,添加新記錄頁面new.aspx,添加歷史記錄頁面history.aspx和history1.aspx,修改記錄update.aspx和update1.aspx以及刪除記錄delete.aspx八個頁面組成.其中登陸與用datagrid兩大模塊的代碼編寫與設(shè)計.具體設(shè)計如下:5.1 登陸界面 當(dāng)單擊確定按鈕時,連接數(shù)據(jù)庫,確定輸入的帳號和密碼是否匹配,跳轉(zhuǎn)到書目的頁面，若不匹配,則彈出帳號錯誤或密碼錯誤的提示。如圖5-1所示 圖5-1具體代碼如下：

12、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 & "'" Dim sql As String = "select * from adminlist

13、 where 帳號=" & Trim(str) 在數(shù)據(jù)庫中搜索帳號為textbox1.text的數(shù)據(jù) 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 New DataSet da.Fill(ds, "adminlist") D

14、im dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) If ds.Tables("adminlist").Rows.Count = 1 Then判斷帳號密碼是否和數(shù)據(jù)庫匹配 If passstr = Trim(ds.Tables("adminlist").Rows(0)("密碼") Then Response.Redirect("book.aspx") Else Response.Write("密碼錯誤

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

16、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 myds As New DataSet myda.F

17、ill(myds) DataGrid1.DataSource = myds DataGrid1.DataBind() End Sub5.3 添加歷史書目 (1)history.aspx在登陸系統(tǒng)并選擇插入歷史書本后，進入添加歷史書目的頁面，決定選擇哪條記錄進行添加。如圖5-3插入歷史書目圖所示圖5-3 插入歷史書目圖 在單擊左側(cè)的選擇后，自動跳轉(zhuǎn)到update1.aspx，根據(jù)所選擇的書目，進行相應(yīng)的修改后添加到記錄中去。具體代碼如下：頁面登陸事件代碼：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.

18、EventArgs） Handles MyBase.Load If Not Page.IsPostBack Then binddata（） End If End Sub連接數(shù)據(jù)庫： Sub binddata（） Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Const strsql As String = “select * from book07 order by 書號” Dim mycommand As New SqlCommand（strsql， myconnection） Dim my

19、da As New SqlDataAdapter Myda.SelectCommand = mycommand Dim myds As New DataSet Myda.Fill（myds） DataGrid1.DataSource = myds DataGrid1.DataBind（） End Sub確定所選擇的行的數(shù)據(jù)，并把該行相應(yīng)的內(nèi)容分別通過session變量儲存下來。Private Sub DataGrid1_ItemCommand（ByVal source As Object， ByVal e As System.Web.UI.WebControls.DataGridCommand

20、EventArgs） 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”） = b_no.Text Session（“b”） = b_name.Text Session（

21、“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 Response。Redirect（“book.aspx”） End SubEnd class(2)histor

22、y1.aspx頁面：通過上一個頁面的選擇后，該頁面進行修改并添加的操作。如圖4-4修改添加記錄圖所示：圖5-4 添加記錄圖該頁面中將征定時間和數(shù)量的值用textbox表示，是為了方便在插入歷史書目的時候修改它的時間和它的數(shù)量。當(dāng)管理員修改完成后，則可單擊確定添加操作，將數(shù)據(jù)添加到08年的數(shù)據(jù)庫中。具體代碼如下：頁面登陸代碼：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load If Not IsPostBack Then Dim str As S

23、tring 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） Dim da As New SqlClient.SqlDataAdapter（sql， myconn

24、） 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（“book07”）.Rows（0）（“作者”） TextBox1.Text = ds.Tables（“boo

25、k07”）.Rows（0）（“征定時間”） TextBox2.Text = ds.Tables（“book07”）.Rows（0）（“數(shù)量”） End If End Sub修改后添加到數(shù)據(jù)庫的代碼：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 = “'“ & Label6.Text & “'“ Dim sql

26、 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， “book08”） Dim myrow As DataRow Dim dacomm As SqlClie

27、nt.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（“作者”） = Trim（Label8.Text） myrow（“征定時間”） = Trim（TextBox1.Te

28、xt） myrow（“數(shù)量”） = 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 System.Object， ByVal e As System.EventArgs） Handles

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

30、 Page.IsPostBack Then 用來確認頁面是否第一次登陸 binddata（） End If End Sub Sub binddata（） 連接到數(shù)據(jù)庫 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 SqlDataAdapt

31、er 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 System.EventArgs） Handles Button1.Click Dim i As Inte

32、ger 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 確認數(shù)據(jù)是否被點擊進行刪除 x = item.Cells（1）.Text x為datagrid第二列的數(shù)據(jù)的內(nèi)容 deletedataset（x） End If Next binddata（） Respo

33、nse.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 SqlClient.SqlCommand（qry， con） cmd.ExecuteNonQuery（

34、） 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添加新教材和修改記錄兩大模塊共三個頁面的代碼編寫與設(shè)計。具體設(shè)計如圖5-6所示：圖5-6 添記錄頁面 new.Aspx(1)添加新教材。在登陸系統(tǒng)并選擇錄入新書后，進入添加新教材頁面。如3-6圖所示：對textb

35、ox1到textbox5添加RequiredFiledValidator控件，并設(shè)置相應(yīng)屬性使textbox中的文本不能為空。對textbox1添加RegularExpressionValidator控件，設(shè)置ValidationExpression屬性為”d4”，ErrorMessage為”書號的格式為0001”。對textbox1添加RangeValidator控件，設(shè)置MinimunValue為”0001”，MaxmumValue為”9999”。使書號的取值范圍為00019999。對textbox4添加RegularExpressionValidator控件，設(shè)置ValidationEx

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

37、 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(str) Dim connstr As String = "server=localh

38、ost;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.SqlCommandBuilder(da) If ds.Tables("book08&

39、quot;).Rows.Count >= 1 Then Response.Redirect("new.aspx") Response.Write("書號重復(fù)，請重新輸入") End Ifmyrow = ds.Tables("book08").NewRow myrow("書號") = Trim(TextBox1.Text) myrow("書名") = Trim(TextBox2.Text) myrow("作者") = Trim(TextBox3.Text) myrow(&

40、quot;征定時間") = 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")End Sub(2) 修改記錄。在登陸系統(tǒng)后點擊修改按鈕進入修改頁面update.aspx。如圖5-7所示：

41、圖5-7 修改頁面update.Aspx 在該頁面設(shè)計中添加SqlDataAdapter控件和DataSet控件，用于執(zhí)行ADO。NET數(shù)據(jù)庫訪問的相關(guān)操作。該頁中的數(shù)據(jù)通過DataGrid控件顯示，設(shè)置相應(yīng)屬性，將其綁定到表book08，使其顯示book08中的數(shù)據(jù)。在DataGrid控件中添加一個按鈕列，列名為選擇。當(dāng)用戶點擊該列的按鈕時自動獲取該行的相關(guān)值，將其賦值給Session變量并跳轉(zhuǎn)到update1。aspx。update1。aspx如圖：5-8所示圖5-8 修改選擇后的記錄 update1.aspx頁面中textbox的文本來自與update.aspx中定義并賦值的Sessio

42、n變量。用戶通過修改其中的文本值并單擊確定完成修改。修改部分代碼如下：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事件private Sub binddata() Dim myconnection As New

43、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 myds As New DataSet Myda.Fill(myds) DataGrid1.DataSource = myds DataGrid1.DataBind()End Sub用