資料庫應用程式

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

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

<globalizationresponseEncoding="big5"requestEncoding="big5"/>10“借書”連結DataNavigateUrlFields=書名DataNavigateUrlFormats=borrow.aspx?id={0}11Borrow.aspxSqldatasource1連結borrow資料庫勾選insert,delete,update選項Formview1連結sqldatasouce1Defaultmode=insertSqldatasource2連結書本資料庫,選擇書名修改formview1的insertitemtemplateDropdowlist1連結sqldatasource2資料繫結設定”書名”新增連結改成借閱回首頁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裡面的控制項(例如textbox1,dropdownlistbook等),必須利用formview的findcontrol方法注意:textbox1等名稱,必須跟insertitemtemplate裡的一模一樣,包含大小寫也要相同新增後回到default.aspx14Borrowingstate.aspx(借閱狀況)Sqldatasource1連接borrow資料表設定過濾條件where“借閱人”=session(“username”)Formview1連結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連結book資料表勾選insert,delete,update選項Gridview1連結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(學生管理)Sqldatasource1連結student資料表勾選insert,delete,update選項Gridview1連結sqldatasource1勾選啟用編輯,啟用刪除Gridview沒有新增功能拉取所有欄位以及新增學生按鈕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