資料庫應(yīng)用程式

資料庫應(yīng)用程式1簡易圖書館網(wǎng)頁撰寫一個簡易資料庫網(wǎng)頁,包含以下功能登入功能查詢館藏功能查詢個人借閱紀(jì)錄功能借書功能還書功能學(xué)生管理書本管理2Library.mdbBook(書本資料表)Borrow(借閱紀(jì)錄資料表)Student(學(xué)生資料表)3基本架構(gòu)App_data(library.mdb)Book.aspx(書本管理頁面)Borrow.aspx(書本借閱頁面)Borrowingstate.aspx(個人借閱狀況頁面)Default.aspx(查詢可借閱書本頁面)Login.aspx(登入頁面)Showdetails.aspx(書本詳細(xì)資料頁面)Student.aspx(學(xué)生管理頁面)Web.config(基本組態(tài))4Login.aspx拉取login控制項(xiàng)

ProtectedSubLogin1_Authenticate(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.AuthenticateEventArgs)HandlesLogin1.AuthenticateIfLogin1.Password=Login1.UserNameThene.Authenticated=TrueMe.Session("username")=Login1.UserNameResponse.Redirect("default.aspx")EndIfEndSub5Default.aspx(主要頁面)查詢目前圖書館的館藏書本讓使用者選擇要借閱的書本連結(jié)借閱狀況學(xué)生管理書本管理Label1Session(“username”)6查詢目前圖書館的館藏書本Textbox+buttonTextbox預(yù)設(shè)值為%設(shè)定sqldatasource1GridView連結(jié)book資料表編輯資料行->新增hyperlinkfield->詳細(xì)資料編輯資料行->新增hyperlinkfield->借書7“詳細(xì)資料”連結(jié)Target=_blankDataNavigateUrlFields=書名DataNavigateUrlFormats=Showdetails.aspx?id={0}8Showdetails.aspxSqldatasource1連結(jié)book資料表設(shè)定過濾條件Where書名=querystring(“id”)formview9Web.config要讓querystring能夠傳送中文檔名,必須修改web.config編碼方式在<system.web>下方,加入big編碼<system.web>

<globalizationresponseEncoding="big5"requestEncoding="big5"/>10“借書”連結(jié)DataNavigateUrlFields=書名DataNavigateUrlFormats=borrow.aspx?id={0}11Borrow.aspxSqldatasource1連結(jié)borrow資料庫勾選insert,delete,update選項(xiàng)Formview1連結(jié)sqldatasouce1Defaultmode=insertSqldatasource2連結(jié)書本資料庫,選擇書名修改formview1的insertitemtemplateDropdowlist1連結(jié)sqldatasource2資料繫結(jié)設(shè)定”書名”新增連結(jié)改成借閱回首頁hyperlink12借閱編號為自動編號,所以必須刪除三處地方InsertCommand=“INSERTINTO[borrow]([借閱編號],[借閱人],[書本],[借閱日期],[歸還日期])VALUES(?,?,?,?,?)"12

<InsertParameters><asp:ParameterName=“借閱編號"Type=“Int32"/>313

ProtectedSubFormView1_DataBound(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesFormView1.DataBound

Dima,bAsTextBoxDimcAsDropDownLista=FormView1.FindControl("TextBox1")a.Text=Me.Session("username")c=FormView1.FindControl("dropdownlistbook")c.SelectedValue=Request.QueryString("book")b=FormView1.FindControl("textboxdate")b.Text=Now()a=FormView1.FindControl("textboxreturn")a.Text=DateTime.Parse(b.Text).AddDays(7)EndSubProtectedSubFormView1_ItemInserted(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.FormViewInsertedEventArgs)HandlesFormView1.ItemInserted

Response.Redirect("default.aspx")EndSub要accesstemplate裡面的控制項(xiàng)(例如textbox1,dropdownlistbook等),必須利用formview的findcontrol方法注意:textbox1等名稱,必須跟insertitemtemplate裡的一模一樣,包含大小寫也要相同新增後回到default.aspx14Borrowingstate.aspx(借閱狀況)Sqldatasource1連接borrow資料表設(shè)定過濾條件where“借閱人”=session(“username”)Formview1連結(jié)sqldatasource1分頁編輯樣板新增buttonCommandname=delete回首頁hyperlink15Borrowingstate.aspx.vb

ProtectedSubFormView1_DataBound(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesFormView1.DataBound

Label1.Text=Me.Session("username")&"你好"&vbCrLfLabel2.Text="你總共借閱"&FormView1.DataItemCount&"本書"EndSub16Book.aspx(書本管理)Sqldatasource1連結(jié)book資料表勾選insert,delete,update選項(xiàng)Gridview1連結(jié)sqldatasource1勾選啟用編輯,啟用刪除Gridview沒有新增功能拉取所有欄位以及新增書本按鈕17Book.aspx.vb

ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click

Me.SqlDataSource1.InsertParameters("書名").DefaultValue=TextBoxbook.TextMe.SqlDataSource1.InsertParameters("作者").DefaultValue=TextBoxauthor.TextMe.SqlDataSource1.InsertParameters("出版公司").DefaultValue=TextBoxpublisher.TextMe.SqlDataSource1.InsertParameters("出版日期").DefaultValue=TextBoxdate.TextTryMe.SqlDataSource1.Insert()Me.GridView1.DataBind()CatchexAsExceptionMsgBox(ex.Message)EndTryEndSub18Student.aspx(學(xué)生管理)Sqldatasource1連結(jié)student資料表勾選insert,delete,update選項(xiàng)Gridview1連結(jié)sqldatasource1勾選啟用編輯,啟用刪除Gridview沒有新增功能拉取所有欄位以及新增學(xué)生按鈕19Student.aspx.vb

ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click

Me.SqlDataSource1.InsertParameters("姓名").DefaultValue=TextBoxname.TextMe.SqlDataSource1.InsertParameters("性別").DefaultValue=TextBoxsex.TextMe.SqlDataSource1.InsertParameters("生日").DefaultValue=TextBoxbirth.TextMe.SqlDataSou