2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩57頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、<p><b>  計算機與信息學院</b></p><p>  《計算機網(wǎng)絡系統(tǒng)實踐》報告</p><p><b>  第一章 系統(tǒng)分析</b></p><p><b>  一.設計要求</b></p><p>  通過以下過程:需求分析、E-R模型、關系模型分析,

2、在數(shù)據(jù)庫中構建數(shù)據(jù)庫、表或視圖,熟悉數(shù)據(jù)庫開發(fā)流程;</p><p>  根據(jù)圖書館系統(tǒng)功能,條理清晰地設計前臺各腳本頁面;</p><p>  在時間允許的情況下,適當考慮頁面的美觀;</p><p>  熟悉腳本頁面與數(shù)據(jù)庫的多種連接方法。</p><p><b>  二.開發(fā)環(huán)境與工具</b></p>

3、<p>  Visual studio .net 2010 SQL server 2008</p><p><b>  三.系統(tǒng)功能概述</b></p><p>  本系統(tǒng)由三個子系統(tǒng)組成:</p><p><b>  書目查詢管理</b></p><p><b>  權限

4、維護管理</b></p><p><b>  用戶信息管理</b></p><p>  其具體功能需求分析如下:</p><p>  書目查詢管理:根據(jù)一定的條件對圖書進行查詢,并可以查看圖書的詳細信息,查詢范圍可以按照出版社,書名,作者等查詢項目進行任意條件的組合查找。</p><p>  權限維護管理:系

5、統(tǒng)管理員可以在此模塊中,添加圖書,對已有的圖書信息進行刪除和添加用戶。</p><p>  用戶信息管理:用戶登陸該系統(tǒng)后可以進行圖書的借閱和歸還操作,還可以進行修改密碼,查閱借書信息等操作。</p><p>  四、系統(tǒng)功能描述及軟件模塊劃分</p><p>  根據(jù)系統(tǒng)的功能,可以設計出系統(tǒng)的功能模塊,整個系統(tǒng)的功能結構如圖1-1所示。</p>&

6、lt;p>  1-1 圖書管理系統(tǒng)的功能結構圖 </p><p><b>  圖1 系統(tǒng)模塊圖</b></p><p> ?、?在查詢信息模塊,用戶根據(jù)一定的條件對圖書進行查詢,并可以查看圖書的詳細信息。還可以進行高級查詢,查詢范圍可以按照出版社,書名,作者等查詢項目進行任意條件的組合查找。</p><p> ?、?在權限維護模塊,

7、系統(tǒng)管理員可以在此模塊中,對已有的圖書信息進行修改,刪除,也可以新增圖書信息,新加用戶。</p><p> ?、?用戶信息管理:用戶登陸該系統(tǒng)后可以進行圖書的借閱和歸還操作,還可以進行修改密碼,查閱借書信息等操作。</p><p><b>  五、設計需求</b></p><p>  1.數(shù)據(jù)庫的需求分析</p><p>

8、;  系統(tǒng)采用SQL server2000作為應用程序的數(shù)據(jù)庫??紤]到系統(tǒng)的實際需要,系統(tǒng)至少需要四張數(shù)據(jù)庫表,具體描述如下:</p><p>  圖書信息數(shù)據(jù)表(BookInfo):用于存放圖書館所有已錄入的書目信息,這是本系統(tǒng)最為關鍵的數(shù)據(jù)部分,包括圖書號、圖書名、出版社、作者、叢書名、書號、索取號、出版時間、價格、圖書條碼。</p><p>  用戶信息表(Users):用于存放用戶

9、信息,包括用戶ID、用戶名、密碼、E-mail、電話、地址。</p><p>  借閱信息表(LendInfo):ID、圖書號、用戶ID、借出時間、應還時間、是否已歸還。</p><p>  管理員信息表(Manage):管理員ID、密碼。</p><p><b>  第二章 系統(tǒng)設計</b></p><p><b

10、>  一.流程圖:</b></p><p><b>  二.數(shù)據(jù)庫設計:</b></p><p>  系統(tǒng)采用SQL server2008作為應用程序的數(shù)據(jù)庫??紤]到系統(tǒng)的實際需要,系統(tǒng)至少需要四張數(shù)據(jù)庫表,具體描述如下:</p><p>  圖書信息數(shù)據(jù)表(BookInfo):用于存放圖書館所有已錄入的書目信息,這是本系統(tǒng)最

11、為關鍵的數(shù)據(jù)部分,包括圖書號、圖書名、出版社、作者、叢書名、書號、索取號、出版時間、價格、圖書條碼。</p><p>  用戶信息表(Users):用于存放用戶信息,包括用戶ID、用戶名、密碼、E-mail、電話、地址。</p><p>  借閱信息表(LendInfo):ID、圖書號、用戶ID、借出時間、應還時間、是否已歸還。</p><p>  管理員信息表(M

12、anage):管理員ID、密碼。</p><p>  2.數(shù)據(jù)庫結構設計 </p><p>  在SQLserver2000中使用企業(yè)管理器,新建數(shù)據(jù)庫,并新建表,如圖所示:</p><p>  表1 圖書信息數(shù)據(jù)表</p><p><b>  表2 用戶信息表</b></p><p><b

13、>  表3 借閱信息表</b></p><p><b>  表4 管理員信息表</b></p><p>  連接數(shù)據(jù)庫和文件配置</p><p>  數(shù)據(jù)庫調用字符串主要有數(shù)據(jù)源Datasourse,如果是本地連接就設置為loaclhost,也可以把自己的電腦設置為服務器,用戶ID賦值為系統(tǒng)默認的sa,連接密碼PWD賦值為sa

14、,數(shù)據(jù)庫的名字為library. 具體配置如下:</p><p>  <?xml version="1.0" encoding="utf-8" ?></p><p>  <configuration></p><p>  <appSettings></p><p>&

15、lt;b>  <!--</b></p><p>  設置數(shù)據(jù)庫連接字符串配置</p><p><b>  --></b></p><p>  <add key="ConnectionString" value="server=XUBO;database=Library;UID=s

16、a;Password=sa" /></p><p>  </appSettings> </p><p>  <system.web></p><p>  <!-- 動態(tài)調試編譯</p><p>  設置 compilation debug="true" 以將調試符號(.

17、pdb 信息)</p><p>  插入到編譯頁中。因為這將創(chuàng)建執(zhí)行起來</p><p>  較慢的大文件,所以應該只在調試時將該值設置為 true,而所有其他時候都設置為</p><p>  false。有關更多信息,請參考有關</p><p>  調試 ASP.NET 文件的文檔。</p><p><b>

18、;  --></b></p><p>  <compilation defaultLanguage="vb" debug="true" /></p><p>  <!-- 自定義錯誤信息</p><p>  設置 customErrors mode="On" 或 &qu

19、ot;RemoteOnly" 以啟用自定義錯誤信息,或設置為 "Off" 以禁用自定義錯誤信息。 </p><p>  為每個要處理的錯誤添加 <error> 標記。</p><p>  "On" 始終顯示自定義(友好的)信息。</p><p>  "Off" 始終顯示詳細的 ASP.

20、NET 錯誤信息。</p><p>  "RemoteOnly" 只對不在本地 Web 服務器上運行的</p><p>  用戶顯示自定義(友好的)信息。出于安全目的,建議使用此設置,以便 </p><p>  不向遠程客戶端顯示應用程序的詳細信息。</p><p><b>  --></b>&

21、lt;/p><p>  <customErrors mode="RemoteOnly" /></p><p>  <!-- 身份驗證 </p><p>  此節(jié)設置應用程序的身份驗證策略。可能的模式是 "Windows"、 </p><p>  "Forms"、 &q

22、uot;Passport" 和 "None"</p><p>  "None" 不執(zhí)行身份驗證。 </p><p>  "Windows" IIS 根據(jù)應用程序的設置執(zhí)行身份驗證 </p><p>  (基本、簡要或集成 Windows)。在 IIS 中必須禁用匿名訪問。</p>&

23、lt;p>  "Forms" 您為用戶提供一個輸入憑據(jù)的自定義窗體(Web 頁),然后 </p><p>  在您的應用程序中驗證他們的身份。用戶憑據(jù)標記存儲在 Cookie 中。</p><p>  "Passport" 身份驗證是通過 Microsoft 的集中身份驗證服務執(zhí)行的,</p><p>  它為成員站點提

24、供單獨登錄和核心配置文件服務。</p><p><b>  --></b></p><p>  <authentication mode="Windows" /> </p><p><b>  <!-- 授權 </b></p><p>  此節(jié)設置應用程

25、序的授權策略??梢栽试S或拒絕不同的用戶或角色訪問</p><p>  應用程序資源。通配符: "*" 表示任何人,"?" 表示匿名</p><p>  (未經(jīng)身份驗證的)用戶。</p><p><b>  --></b></p><p>  <authorization

26、></p><p>  <allow users="*" /> <!-- 允許所有用戶 --></p><p>  <!-- <allow users="[逗號分隔的用戶列表]"</p><p>  roles="[逗號分隔的角色列表]"/><

27、/p><p>  <deny users="[逗號分隔的用戶列表]"</p><p>  roles="[逗號分隔的角色列表]"/></p><p><b>  --></b></p><p>  </authorization></p&g

28、t;<p>  <!-- 應用程序級別跟蹤記錄</p><p>  應用程序級別跟蹤為應用程序中的每一頁啟用跟蹤日志輸出。</p><p>  設置 trace enabled="true" 可以啟用應用程序跟蹤記錄。如果 pageOutput="true",則</p><p>  在每一頁的底部顯示跟蹤

29、信息。否則,可以通過瀏覽 Web 應用程序</p><p>  根目錄中的 "trace.axd" 頁來查看</p><p><b>  應用程序跟蹤日志。</b></p><p><b>  --></b></p><p>  <trace enabled=&quo

30、t;false" requestLimit="10" pageOutput="false" traceMode="SortByTime" localOnly="true" /></p><p>  <!-- 會話狀態(tài)設置</p><p>  默認情況下,ASP.NET 使用 Cookie

31、 來標識哪些請求屬于特定的會話。</p><p>  如果 Cookie 不可用,則可以通過將會話標識符添加到 URL 來跟蹤會話。</p><p>  若要禁用 Cookie,請設置 sessionState cookieless="true"。</p><p><b>  --></b></p>&l

32、t;p>  <sessionState </p><p>  mode="InProc"</p><p>  stateConnectionString="tcpip=127.0.0.1:42424"</p><p>  sqlConnectionString="data source=127.0.0.1

33、;Trusted_Connection=yes"</p><p>  cookieless="false" </p><p>  timeout="800" </p><p><b>  /></b></p><p><b>  <!-- 全球化&

34、lt;/b></p><p>  此節(jié)設置應用程序的全球化設置。</p><p><b>  --></b></p><p>  <globalization requestEncoding="utf-8" responseEncoding="utf-8" /></p>

35、<p>  </system.web></p><p>  </configuration></p><p><b>  第三章 系統(tǒng)的實現(xiàn)</b></p><p>  經(jīng)過調試及測試,系統(tǒng)能夠很好的完成預期功能,用戶登陸該系統(tǒng)后可以進行圖書的根據(jù)一定的條件對圖書進行查詢,并可以查看圖書的詳細信息,查詢范圍

36、可以按照出版社,書名,作者等查詢項目進行任意條件的組合查找;對圖書進行借閱和歸還操作,還可以進行修改密碼,查閱借書信息等操作。</p><p><b>  一、系統(tǒng)首頁:</b></p><p><b>  圖2 系統(tǒng)首頁</b></p><p>  任何用戶不需要登陸就可以在此頁進行圖書信息的查詢(分為精確查詢和模糊查詢

37、)。</p><p><b>  查詢結果:</b></p><p>  圖3 一般查詢結果</p><p>  還可以進行高級查詢,即為書號、書名、作者名、出版社的任意組合查詢</p><p>  圖4 高級查詢頁面</p><p><b>  查詢結果如下:</b>

38、</p><p>  圖5 高級查詢結果</p><p>  無論是一般查詢還是高級查詢,在查詢結果的表中點擊書號就可以看到圖書的詳細信息,如下圖:</p><p>  圖6 圖書信息查看</p><p>  二、在主頁上點擊權限維護,即可進入管理員登陸界面:</p><p>  圖7 管理員登陸頁面</

39、p><p>  輸入正確的用戶名和密碼后,即可進入權限維護頁面,顯示所有圖書,可進行新書上架和添加用戶:</p><p>  圖8 權限維護頁面</p><p>  點擊添加用戶,即可進入添加用戶頁面,可以為系統(tǒng)添加新用戶</p><p>  圖9 添加用戶頁面</p><p>  點擊新書上架,即可進入添加圖書頁面,

40、可以為書庫添加新書</p><p>  圖10 添加圖書頁面</p><p>  添加了新書信息后,點擊添加,即可完成新書入庫,帶*為必填內容。點擊重置,則把已填信息清空,重新輸入。</p><p>  三、在主頁上點擊用戶信息,彈出讀者登陸框:</p><p>  圖11 用戶登陸頁面</p><p>  登陸成

41、功后即可進入讀者對自己的信息進行管理和維護的界面,表中顯示當前登陸用戶的信息,在此頁面可以進入查閱信息、歷史借閱信息、修改密碼、圖書借</p><p>  在用戶信息頁面點擊歷史借閱信息即可進入歷史借閱信息頁面,在此頁面中可以看到用戶從建立此用戶以來的所有借閱歷史:</p><p>  圖12 借閱歷史查看頁面</p><p>  在用戶信息頁面點擊修改密碼,即可

42、進入修改密碼頁面,在此頁面用戶可以對自己的登陸密碼進行修改:</p><p>  圖13 修改密碼頁面</p><p>  在用戶信息頁面點擊圖書借閱登記,即可進入圖書借閱頁面,在此頁面輸入用戶ID和圖書條碼,點擊確定借閱,若圖書存在并可借閱,則會顯示此用戶對此書的借閱信息,否則彈出提示信息。</p><p>  圖14 圖書借閱頁面</p>&l

43、t;p>  在用戶信息頁面點擊圖書歸還登記,即可進入圖書歸還頁面,在此頁面可顯示用戶ID和此用戶所有在借書目,用戶可以在各書前面的選擇框中選擇本書,最后在點擊還書,則會歸還所有打鉤的書:</p><p>  圖15 圖書歸還頁面</p><p><b>  第四章 結論</b></p><p><b>  一.軟件使用說明

44、</b></p><p><b>  一、系統(tǒng)首頁:</b></p><p><b>  圖16 系統(tǒng)首頁</b></p><p>  任何用戶不需要登陸就可以在此頁進行圖書信息的查詢(分為精確查詢和模糊查詢)。</p><p><b>  查詢結果:</b><

45、;/p><p>  圖17 一般查詢結果</p><p>  還可以進行高級查詢,即為書號、書名、作者名、出版社的任意組合查詢</p><p>  圖18 高級查詢頁面</p><p><b>  查詢結果如下:</b></p><p>  圖19 高級查詢結果</p><

46、p>  無論是一般查詢還是高級查詢,在查詢結果的表中點擊書號就可以看到圖書的詳細信息,如下圖:</p><p>  圖20 圖書信息查看</p><p>  二、在主頁上點擊權限維護,即可進入管理員登陸界面:</p><p>  圖21 管理員登陸頁面</p><p>  輸入正確的用戶名和密碼后,即可進入權限維護頁面,顯示所有圖書,

47、可對現(xiàn)有圖書直接進行刪除,可進行新書上架和添加用戶:</p><p>  圖22 權限維護頁面</p><p>  點擊添加用戶,即可進入添加用戶頁面,可以為系統(tǒng)添加新用戶</p><p>  圖23 添加用戶頁面</p><p>  點擊新書上架,即可進入添加圖書頁面,可以為書庫添加新書</p><p>  圖2

48、4 添加圖書頁面</p><p>  添加了新書信息后,點擊添加,即可完成新書入庫,帶*為必填內容。點擊重置,則把已填信息清空,重新輸入。</p><p>  三、在主頁上點擊用戶信息,彈出讀者登陸框:</p><p>  圖25 用戶登陸頁面</p><p><b>  二.設計體會</b></p>

49、<p>  在這半個月的時間里從盲目到有了目標,從感覺時間很多到忙得不可開交,經(jīng)歷了很多轉折點。第一天選擇題目,開始覺得所有的題目覺得都挺簡單的,但是后來仔細研究了每個題目覺得每個題目都有他深刻的含義,和難點。</p><p>  后來通過查閱相關書籍明白了不少學習我們專業(yè)需要學習的東西真多啊,并且是實時更新的。學習用visual studio .NET 編程感覺很復雜,尤其是在前期配置的時候總也弄不通

50、,但是后來上網(wǎng)問也找到答案了,弄懂了許多東西。也對我們平時所忽略的基于web編程有了一定的認識。</p><p><b>  第五章 代碼</b></p><p>  SearchN.aspx.vb:</p><p>  Public Sub Open()</p><p>  myConn.Open()</p>

51、;<p><b>  End Sub</b></p><p>  Public Sub Close()</p><p>  myConn.Close()</p><p><b>  End Sub</b></p><p>  Public Sub Fill(ByVal sqlstr A

52、s String)</p><p>  myAdapter = New SqlDataAdapter(sqlstr, myConn)</p><p>  ds = New DataSet</p><p>  myAdapter.Fill(ds)</p><p><b>  End Sub</b></p>&

53、lt;p>  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p><p>  '在此處放置初始化頁的用戶代碼</p><p>  connectingstring = System.Configuration.Conf

54、igurationSettings.AppSettings("ConnectionString").ToString.Trim</p><p>  myConn = New SqlConnection(connectingstring)</p><p>  If Not IsPostBack Then</p><p>  If Not Sessi

55、on("UserID") Is Nothing Then</p><p>  If AllowBooking(Session("UserID")) = True Then</p><p><b>  End If</b></p><p><b>  End If</b></p&

56、gt;<p><b>  End If</b></p><p><b>  End Sub</b></p><p>  'private bind</p><p>  Public Function GetRowsNum(ByVal sqlstr As String) As Integer</p

57、><p>  If myConn.State = ConnectionState.Closed Then</p><p>  myConn.Open()</p><p><b>  End If</b></p><p>  Fill(sqlstr)</p><p><b>  Close()

58、</b></p><p>  Return ds.Tables(0).Rows.Count</p><p>  End Function</p><p>  Public Function AllowBooking(ByVal UserID As String) As Boolean</p><p>  Dim sqlstr As

59、 String = "select * from Users,RoleInfo where Users.userid=RoleInfo.RoleID and UserID='" + UserID + "'"</p><p>  If GetRowsNum(sqlstr) = 0 Then</p><p>  Return False&

60、lt;/p><p><b>  Else</b></p><p>  Return True</p><p><b>  End If</b></p><p>  End Function</p><p>  Public Sub BindDBGrd(ByVal sqlstr A

61、s String, ByVal myDBGrd As DataGrid)</p><p>  If myConn.State = ConnectionState.Closed Then</p><p>  myConn.Open()</p><p><b>  End If</b></p><p>  Fill(sqls

62、tr)</p><p>  myDBGrd.DataSource = ds.Tables(0).DefaultView</p><p>  myDBGrd.DataBind()</p><p><b>  End Sub</b></p><p>  Public Sub BindDBGrd(ByVal sqlstr As

63、 String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object)</p><p>  If myConn.State = ConnectionState.Closed Then</p><p>  myConn.Open()</p><p><b>  End If</b></p&g

64、t;<p>  Fill(sqlstr)</p><p>  Dim dv As DataView = ds.Tables(0).DefaultView</p><p>  dv.Sort = SortExp</p><p>  myDBGrd.DataSource = dv</p><p>  myDBGrd.DataBind

65、()</p><p><b>  End Sub</b></p><p>  Private Sub BindGrid()</p><p>  If Not Session("sqlstr") Is Nothing Then</p><p>  Dim sqlstr As String = CType

66、(Session("sqlstr"), String)</p><p>  BindDBGrd(sqlstr, ResultGrid)</p><p>  Session("sqlstr") = sqlstr</p><p><b>  End If</b></p><p><

67、;b>  End Sub</b></p><p>  Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click</p><p>  Dim sign As String = ""</p>

68、;<p>  If AnyChoice.Checked = True Then</p><p>  sign = "%"</p><p><b>  End If</b></p><p>  Dim sqlstr As String = "select * from BookInfo where 1

69、=1 "</p><p>  sqlstr += " and " + dropdownlist1.SelectedValue + " like '" + sign + txtContent.Text.ToString.Trim + sign + "' "</p><p>  Session("s

70、qlstr") = sqlstr</p><p>  BindGrid()</p><p><b>  End Sub</b></p><p>  Private Sub ResultGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebCo

71、ntrols.DataGridPageChangedEventArgs) Handles ResultGrid.PageIndexChanged</p><p>  ResultGrid.CurrentPageIndex = e.NewPageIndex</p><p>  BindGrid()</p><p><b>  End Sub</b>

72、;</p><p>  Private Sub ResultGrid_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles ResultGrid.SortCommand</p><p>  Dim sqlstr As Str

73、ing</p><p>  If viewstate("sortexp") Is Nothing Then</p><p>  viewstate("sortexp") = e.SortExpression.ToString</p><p>  ElseIf viewstate("sortexp") = e

74、.SortExpression.ToString Then</p><p>  viewstate("sortexp") += " desc"</p><p><b>  Else</b></p><p>  viewstate("sortexp") = e.SortExpressio

75、n.ToString</p><p><b>  End If</b></p><p>  If Not Session("sqlstr") Is Nothing Then</p><p>  sqlstr = CType(Session("sqlstr"), String)</p><

76、;p>  BindDBGrd(sqlstr, ResultGrid, Viewstate("sortexp"))</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Public Sub ExecNonSql(ByVal sql

77、str As String)</p><p>  If myConn.State = ConnectionState.Closed Then</p><p>  myConn.Open()</p><p><b>  End If</b></p><p>  myCmd = New SqlCommand(sqlstr,

78、myConn)</p><p>  myCmd.ExecuteNonQuery()</p><p>  myCmd.Dispose()</p><p><b>  Close()</b></p><p><b>  End Sub</b></p><p>  Private

79、Sub ResultGrid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResultGrid.SelectedIndexChanged</p><p><b>  End Sub</b></p><p><b>  End

80、Class</b></p><p>  Addbook.aspx.vb:</p><p>  Imports System.Data.SqlClient</p><p>  Public Class addbook1</p><p>  Inherits System.Web.UI.Page</p><p>

81、;  Private connectingstring As String</p><p>  Private myConn As SqlConnection</p><p>  Private ds As DataSet</p><p>  Private myAdapter As SqlDataAdapter</p><p>  Prot

82、ected WithEvents TextBox11 As System.Web.UI.WebControls.TextBox</p><p>  Private myCmd As SqlCommand</p><p>  #Region " Web 窗體設計器生成的代碼 "</p><p>  '該調用是 Web 窗體設計器所必需的。&

83、lt;/p><p>  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()</p><p><b>  End Sub</b></p><p>  Protected WithEvents Label1 As System.Web.UI

84、.WebControls.Label</p><p>  Protected WithEvents Label2 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label3 As System.Web.UI.WebControls.Label</p><p>  Protected

85、 WithEvents Label4 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label5 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label6 As System.Web.UI.WebControls.La

86、bel</p><p>  Protected WithEvents Label7 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label8 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Lab

87、el9 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label10 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Button1 As System.Web.UI.WebControls.Button</p>

88、;<p>  Protected WithEvents Button2 As System.Web.UI.WebControls.Button</p><p>  Protected WithEvents Button3 As System.Web.UI.WebControls.Button</p><p>  Protected WithEvents TextBox1 As

89、 System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox</p&g

90、t;<p>  Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBo

91、x6 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox8 As System.Web.UI.WebControls.TextBox<

92、;/p><p>  Protected WithEvents TextBox9 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox10 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents

93、Label11 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label12 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label13 As System.Web.UI.WebControls.Label</p

94、><p>  Protected WithEvents Label14 As System.Web.UI.WebControls.Label</p><p>  '注意: 以下占位符聲明是 Web 窗體設計器所必需的。</p><p>  '不要刪除或移動它。</p><p>  Private designerPlacehold

95、erDeclaration As System.Object</p><p>  Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init</p><p>  'CODEGEN: 此方法調用是 Web 窗體設計器所必需的</p>

96、;<p>  '不要使用代碼編輯器修改它。</p><p>  InitializeComponent()</p><p><b>  End Sub</b></p><p>  #End Region</p><p>  Private Sub Page_Load(ByVal sender As

97、System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p><p>  '在此處放置初始化頁的用戶代碼</p><p>  connectingstring = System.Configuration.ConfigurationSettings.AppSettings("ConnectionSt

98、ring").ToString.Trim</p><p>  myConn = New SqlConnection(connectingstring)</p><p><b>  End Sub</b></p><p>  Public Sub ExecNonSql(ByVal sqlstr As String)</p>

99、<p>  If myConn.State = ConnectionState.Closed Then</p><p>  myConn.Open()</p><p><b>  End If</b></p><p>  myCmd = New SqlCommand(sqlstr, myConn)</p><p&

100、gt;  myCmd.ExecuteNonQuery()</p><p>  myCmd.Dispose()</p><p>  myConn.Close()</p><p><b>  End Sub</b></p><p>  Private Sub Button3_Click(ByVal sender As Sys

101、tem.Object, ByVal e As System.EventArgs) Handles Button3.Click</p><p>  Response.Redirect("delete.aspx")</p><p><b>  End Sub</b></p><p>  Private Sub Button2_C

102、lick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</p><p>  TextBox1.Text = ""</p><p>  TextBox2.Text = ""</p><p>  TextBox3.

103、Text = ""</p><p>  TextBox4.Text = ""</p><p>  TextBox5.Text = ""</p><p>  TextBox6.Text = ""</p><p>  TextBox7.Text = "&qu

104、ot;</p><p>  TextBox8.Text = ""</p><p>  TextBox9.Text = ""</p><p>  TextBox10.Text = ""</p><p><b>  End Sub</b></p>&l

105、t;p>  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</p><p>  'Dim sqlstr As String = "insert into BookInfo(BookID,BookName,PubName,Bo

106、okAuthor,Series,ISBN,SearchNO,PubDate,Price,BarCode) values ('" & TextBox1.Text & " ','" & TextBox2.Text & "','" & TextBox3.Text & " ','&q

107、uot; & TextBox4.Text & " ','" & TextBox5.Text & " ','" & TextBox6.Text & " ','" & TextBox7.Text & " ','" & TextB

108、ox8.Text & " ','" & TextBox9.Text & " ','" & TextBox10.Text & "')"</p><p>  'Dim sqlstr = "INSERT INTO [運貨商$](公司名稱,電話)VALUES (&#

109、39;" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "')"</p><p>  If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox6.Text = &quo

110、t;" Or TextBox10.Text = "" Then</p><p>  Response.Write("<script>javascript:alert('請將打*的位置填滿?。。?#39;);</script>")</p><p><b>  Else</b></p&

111、gt;<p>  Dim sqlstr As String = "insert into BookInfo(BookID,BookName,PubName,BookAuthor,Series,ISBN,SearchNO,PubDate,Price,BarCode,BookState) values ( "</p><p>  sqlstr += "'"

112、 + TextBox1.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox2.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox3.Text.T

113、oString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox4.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox5.Text.ToString.Trim + &qu

114、ot;'"</p><p>  sqlstr += ",'" + TextBox6.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox7.Text.ToString.Trim + "'"<

115、/p><p>  sqlstr += ",'" + TextBox8.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox9.Text.ToString.Trim + "'"</p><p> 

116、 sqlstr += ",'" + TextBox10.Text.ToString.Trim + "'"</p><p>  sqlstr += ",'" + TextBox11.Text.ToString.Trim + "'"</p><p>  sqlstr += "

117、;)"</p><p>  ExecNonSql(sqlstr)</p><p>  TextBox1.Text = ""</p><p>  TextBox2.Text = ""</p><p>  TextBox3.Text = ""</p><p&

118、gt;  TextBox4.Text = ""</p><p>  TextBox5.Text = ""</p><p>  TextBox6.Text = ""</p><p>  TextBox7.Text = ""</p><p>  TextBox8.Te

119、xt = ""</p><p>  TextBox9.Text = ""</p><p>  TextBox10.Text = ""</p><p><b>  End If</b></p><p><b>  End Sub</b><

120、;/p><p><b>  End Class</b></p><p>  adduser.aspx.vb:</p><p>  Imports System.Data.SqlClient</p><p>  Public Class adduser</p><p>  Inherits System

121、.Web.UI.Page</p><p>  Private connectingstring As String</p><p>  Private myConn As SqlConnection</p><p>  Private ds As DataSet</p><p>  Private myAdapter As SqlDataAd

122、apter</p><p>  Protected WithEvents Label11 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label12 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents

123、 TextBox7 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox8 As System.Web.UI.WebControls.TextBox</p><p>  Private myCmd As SqlCommand</p><p>  #Region &quo

124、t; Web 窗體設計器生成的代碼 "</p><p>  '該調用是 Web 窗體設計器所必需的。</p><p>  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()</p><p><b>  End Sub</

125、b></p><p>  Protected WithEvents Label1 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label2 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents L

126、abel3 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label4 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label5 As System.Web.UI.WebControls.Label</p>

127、<p>  Protected WithEvents Label6 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox2 As

128、System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox</p>

129、;<p>  Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox</p><p>  Protected WithEvents Label7

130、As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label8 As System.Web.UI.WebControls.Label</p><p>  Protected WithEvents Label9 As System.Web.UI.WebControls.Label</p><

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論