計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)--網(wǎng)上圖書館的設(shè)計(jì)與實(shí)現(xiàn)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁(yè)數(shù)：58 大?。?99.06KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)--網(wǎng)上圖書館的設(shè)計(jì)與實(shí)現(xiàn)_第1頁(yè)

已閱讀1頁(yè)，還剩57頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　計(jì)算機(jī)與信息學(xué)院　　《計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)實(shí)踐》報(bào)告　　第一章系統(tǒng)分析　　一.設(shè)計(jì)要求　　通過以下過程：需求分析、E-R模型、關(guān)系模型分析，

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

3、　　Visual studio .net 2010 SQL server 2008　　三.系統(tǒng)功能概述　　本系統(tǒng)由三個(gè)子系統(tǒng)組成：　　書目查詢管理　　權(quán)限

4、維護(hù)管理　　用戶信息管理　　其具體功能需求分析如下：　　書目查詢管理：根據(jù)一定的條件對(duì)圖書進(jìn)行查詢，并可以查看圖書的詳細(xì)信息，查詢范圍可以按照出版社，書名，作者等查詢項(xiàng)目進(jìn)行任意條件的組合查找。　　權(quán)限維護(hù)管理：系

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

6、lt;p>　　1-1 圖書管理系統(tǒng)的功能結(jié)構(gòu)圖 　　圖1 系統(tǒng)模塊圖　?、?在查詢信息模塊，用戶根據(jù)一定的條件對(duì)圖書進(jìn)行查詢，并可以查看圖書的詳細(xì)信息。還可以進(jìn)行高級(jí)查詢，查詢范圍可以按照出版社，書名，作者等查詢項(xiàng)目進(jìn)行任意條件的組合查找。　　ⅱ.在權(quán)限維護(hù)模塊，

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

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

9、信息，包括用戶ID、用戶名、密碼、E-mail、電話、地址。　　借閱信息表（LendInfo）：ID、圖書號(hào)、用戶ID、借出時(shí)間、應(yīng)還時(shí)間、是否已歸還。　　管理員信息表（Manage）：管理員ID、密碼。　　第二章系統(tǒng)設(shè)計(jì)<b

10、>　　一．流程圖：　　二．?dāng)?shù)據(jù)庫(kù)設(shè)計(jì)：　　系統(tǒng)采用SQL server2008作為應(yīng)用程序的數(shù)據(jù)庫(kù)。考慮到系統(tǒng)的實(shí)際需要，系統(tǒng)至少需要四張數(shù)據(jù)庫(kù)表，具體描述如下：　　圖書信息數(shù)據(jù)表（BookInfo）：用于存放圖書館所有已錄入的書目信息，這是本系統(tǒng)最

11、為關(guān)鍵的數(shù)據(jù)部分，包括圖書號(hào)、圖書名、出版社、作者、叢書名、書號(hào)、索取號(hào)、出版時(shí)間、價(jià)格、圖書條碼。　　用戶信息表（Users）：用于存放用戶信息，包括用戶ID、用戶名、密碼、E-mail、電話、地址。　　借閱信息表（LendInfo）：ID、圖書號(hào)、用戶ID、借出時(shí)間、應(yīng)還時(shí)間、是否已歸還。　　管理員信息表（M

12、anage）：管理員ID、密碼。　　2.數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 　　在SQLserver2000中使用企業(yè)管理器，新建數(shù)據(jù)庫(kù)，并新建表，如圖所示：　　表1 圖書信息數(shù)據(jù)表　　表2 用戶信息表<b

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

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

15、lt;b>　　　　<add key="ConnectionString" value="server=XUBO;database=Library;UID=s

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

17、pdb 信息)　　插入到編譯頁(yè)中。因?yàn)檫@將創(chuàng)建執(zhí)行起來　　較慢的大文件，所以應(yīng)該只在調(diào)試時(shí)將該值設(shè)置為 true，而所有其他時(shí)候都設(shè)置為　　false。有關(guān)更多信息，請(qǐng)參考有關(guān)　　調(diào)試 ASP.NET 文件的文檔。

18、;　　-->　　<compilation defaultLanguage="vb" debug="true" />　　<!-- 自定義錯(cuò)誤信息　　設(shè)置 customErrors mode="On" 或 &qu

19、ot;RemoteOnly" 以啟用自定義錯(cuò)誤信息，或設(shè)置為 "Off" 以禁用自定義錯(cuò)誤信息。 　　為每個(gè)要處理的錯(cuò)誤添加 <error> 標(biāo)記。　　"On" 始終顯示自定義(友好的)信息。　　"Off" 始終顯示詳細(xì)的 ASP.

20、NET 錯(cuò)誤信息。　　"RemoteOnly" 只對(duì)不在本地 Web 服務(wù)器上運(yùn)行的　　用戶顯示自定義(友好的)信息。出于安全目的，建議使用此設(shè)置，以便 　　不向遠(yuǎn)程客戶端顯示應(yīng)用程序的詳細(xì)信息。　　-->&

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

22、uot;Passport" 和 "None"　　"None" 不執(zhí)行身份驗(yàn)證。 　　"Windows" IIS 根據(jù)應(yīng)用程序的設(shè)置執(zhí)行身份驗(yàn)證 　　(基本、簡(jiǎn)要或集成 Windows)。在 IIS 中必須禁用匿名訪問。&

23、lt;p>　　"Forms" 您為用戶提供一個(gè)輸入憑據(jù)的自定義窗體(Web 頁(yè))，然后 　　在您的應(yīng)用程序中驗(yàn)證他們的身份。用戶憑據(jù)標(biāo)記存儲(chǔ)在 Cookie 中。　　"Passport" 身份驗(yàn)證是通過 Microsoft 的集中身份驗(yàn)證服務(wù)執(zhí)行的，　　它為成員站點(diǎn)提

24、供單獨(dú)登錄和核心配置文件服務(wù)。　　-->　　<authentication mode="Windows" /> 　　<!-- 授權(quán) 　　此節(jié)設(shè)置應(yīng)用程

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

26、>　　<allow users="*" /> 　　<!-- <allow users="[逗號(hào)分隔的用戶列表]"　　roles="[逗號(hào)分隔的角色列表]"/><

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

28、t;　　<!-- 應(yīng)用程序級(jí)別跟蹤記錄　　應(yīng)用程序級(jí)別跟蹤為應(yīng)用程序中的每一頁(yè)啟用跟蹤日志輸出。　　設(shè)置 trace enabled="true" 可以啟用應(yīng)用程序跟蹤記錄。如果 pageOutput="true"，則　　在每一頁(yè)的底部顯示跟蹤

29、信息。否則，可以通過瀏覽 Web 應(yīng)用程序　　根目錄中的 "trace.axd" 頁(yè)來查看　　應(yīng)用程序跟蹤日志。　　-->　　<trace enabled=&quo

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

31、來標(biāo)識(shí)哪些請(qǐng)求屬于特定的會(huì)話。　　如果 Cookie 不可用，則可以通過將會(huì)話標(biāo)識(shí)符添加到 URL 來跟蹤會(huì)話。　　若要禁用 Cookie，請(qǐng)?jiān)O(shè)置 sessionState cookieless="true"。　　-->&l

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

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

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

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

36、可以按照出版社，書名，作者等查詢項(xiàng)目進(jìn)行任意條件的組合查找；對(duì)圖書進(jìn)行借閱和歸還操作，還可以進(jìn)行修改密碼，查閱借書信息等操作。　　一、系統(tǒng)首頁(yè)：　　圖2 系統(tǒng)首頁(yè)　　任何用戶不需要登陸就可以在此頁(yè)進(jìn)行圖書信息的查詢（分為精確查詢和模糊查詢

37、）。　　查詢結(jié)果：　　圖3 一般查詢結(jié)果　　還可以進(jìn)行高級(jí)查詢，即為書號(hào)、書名、作者名、出版社的任意組合查詢　　圖4 高級(jí)查詢頁(yè)面　　查詢結(jié)果如下：

38、　　圖5 高級(jí)查詢結(jié)果　　無論是一般查詢還是高級(jí)查詢，在查詢結(jié)果的表中點(diǎn)擊書號(hào)就可以看到圖書的詳細(xì)信息，如下圖：　　圖6 圖書信息查看　　二、在主頁(yè)上點(diǎn)擊權(quán)限維護(hù)，即可進(jìn)入管理員登陸界面:　　圖7 管理員登陸頁(yè)面</

39、p>　　輸入正確的用戶名和密碼后，即可進(jìn)入權(quán)限維護(hù)頁(yè)面，顯示所有圖書，可進(jìn)行新書上架和添加用戶：　　圖8 權(quán)限維護(hù)頁(yè)面　　點(diǎn)擊添加用戶，即可進(jìn)入添加用戶頁(yè)面，可以為系統(tǒng)添加新用戶　　圖9 添加用戶頁(yè)面　　點(diǎn)擊新書上架，即可進(jìn)入添加圖書頁(yè)面，

40、可以為書庫(kù)添加新書　　圖10 添加圖書頁(yè)面　　添加了新書信息后，點(diǎn)擊添加，即可完成新書入庫(kù)，帶*為必填內(nèi)容。點(diǎn)擊重置，則把已填信息清空，重新輸入。　　三、在主頁(yè)上點(diǎn)擊用戶信息，彈出讀者登陸框：　　圖11 用戶登陸頁(yè)面　　登陸成

41、功后即可進(jìn)入讀者對(duì)自己的信息進(jìn)行管理和維護(hù)的界面，表中顯示當(dāng)前登陸用戶的信息，在此頁(yè)面可以進(jìn)入查閱信息、歷史借閱信息、修改密碼、圖書借　　在用戶信息頁(yè)面點(diǎn)擊歷史借閱信息即可進(jìn)入歷史借閱信息頁(yè)面，在此頁(yè)面中可以看到用戶從建立此用戶以來的所有借閱歷史：　　圖12 借閱歷史查看頁(yè)面　　在用戶信息頁(yè)面點(diǎn)擊修改密碼，即可

42、進(jìn)入修改密碼頁(yè)面，在此頁(yè)面用戶可以對(duì)自己的登陸密碼進(jìn)行修改：　　圖13 修改密碼頁(yè)面　　在用戶信息頁(yè)面點(diǎn)擊圖書借閱登記，即可進(jìn)入圖書借閱頁(yè)面，在此頁(yè)面輸入用戶ID和圖書條碼，點(diǎn)擊確定借閱，若圖書存在并可借閱，則會(huì)顯示此用戶對(duì)此書的借閱信息，否則彈出提示信息。　　圖14 圖書借閱頁(yè)面&l

43、t;p>　　在用戶信息頁(yè)面點(diǎn)擊圖書歸還登記，即可進(jìn)入圖書歸還頁(yè)面，在此頁(yè)面可顯示用戶ID和此用戶所有在借書目，用戶可以在各書前面的選擇框中選擇本書，最后在點(diǎn)擊還書，則會(huì)歸還所有打鉤的書：　　圖15 圖書歸還頁(yè)面　　第四章結(jié)論　　一．軟件使用說明

44、　　一、系統(tǒng)首頁(yè)：　　圖16 系統(tǒng)首頁(yè)　　任何用戶不需要登陸就可以在此頁(yè)進(jìn)行圖書信息的查詢（分為精確查詢和模糊查詢）。　　查詢結(jié)果：<

45、;/p>　　圖17 一般查詢結(jié)果　　還可以進(jìn)行高級(jí)查詢，即為書號(hào)、書名、作者名、出版社的任意組合查詢　　圖18 高級(jí)查詢頁(yè)面　　查詢結(jié)果如下：　　圖19 高級(jí)查詢結(jié)果<

46、p>　　無論是一般查詢還是高級(jí)查詢，在查詢結(jié)果的表中點(diǎn)擊書號(hào)就可以看到圖書的詳細(xì)信息，如下圖：　　圖20 圖書信息查看　　二、在主頁(yè)上點(diǎn)擊權(quán)限維護(hù)，即可進(jìn)入管理員登陸界面:　　圖21 管理員登陸頁(yè)面　　輸入正確的用戶名和密碼后，即可進(jìn)入權(quán)限維護(hù)頁(yè)面，顯示所有圖書,

47、可對(duì)現(xiàn)有圖書直接進(jìn)行刪除，可進(jìn)行新書上架和添加用戶：　　圖22 權(quán)限維護(hù)頁(yè)面　　點(diǎn)擊添加用戶，即可進(jìn)入添加用戶頁(yè)面，可以為系統(tǒng)添加新用戶　　圖23 添加用戶頁(yè)面　　點(diǎn)擊新書上架，即可進(jìn)入添加圖書頁(yè)面，可以為書庫(kù)添加新書　　圖2

48、4 添加圖書頁(yè)面　　添加了新書信息后，點(diǎn)擊添加，即可完成新書入庫(kù)，帶*為必填內(nèi)容。點(diǎn)擊重置，則把已填信息清空，重新輸入。　　三、在主頁(yè)上點(diǎn)擊用戶信息，彈出讀者登陸框：　　圖25 用戶登陸頁(yè)面　　二．設(shè)計(jì)體會(huì)

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

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

51、;　　End Sub　　Public Sub Close()　　myConn.Close()　　End Sub　　Public Sub Fill(ByVal sqlstr A

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

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

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

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

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

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

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

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

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

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

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

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

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

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

66、(Session("sqlstr"), String)　　BindDBGrd(sqlstr, ResultGrid)　　Session("sqlstr") = sqlstr　　End If<

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

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

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

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

71、ntrols.DataGridPageChangedEventArgs) Handles ResultGrid.PageIndexChanged　　ResultGrid.CurrentPageIndex = e.NewPageIndex　　BindGrid()　　End Sub

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

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

74、.SortExpression.ToString Then　　viewstate("sortexp") += " desc"　　Else　　viewstate("sortexp") = e.SortExpressio

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

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

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

78、myConn)　　myCmd.ExecuteNonQuery()　　myCmd.Dispose()　　Close()　　End Sub　　Private

79、Sub ResultGrid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResultGrid.SelectedIndexChanged　　End Sub　　End

80、Class　　Addbook.aspx.vb:　　Imports System.Data.SqlClient　　Public Class addbook1　　Inherits System.Web.UI.Page

81、;　　Private connectingstring As String　　Private myConn As SqlConnection　　Private ds As DataSet　　Private myAdapter As SqlDataAdapter　　Prot

82、ected WithEvents TextBox11 As System.Web.UI.WebControls.TextBox　　Private myCmd As SqlCommand　　#Region " Web 窗體設(shè)計(jì)器生成的代碼 "　　'該調(diào)用是 Web 窗體設(shè)計(jì)器所必需的。&

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

84、.WebControls.Label　　Protected WithEvents Label2 As System.Web.UI.WebControls.Label　　Protected WithEvents Label3 As System.Web.UI.WebControls.Label　　Protected

85、 WithEvents Label4 As System.Web.UI.WebControls.Label　　Protected WithEvents Label5 As System.Web.UI.WebControls.Label　　Protected WithEvents Label6 As System.Web.UI.WebControls.La

86、bel　　Protected WithEvents Label7 As System.Web.UI.WebControls.Label　　Protected WithEvents Label8 As System.Web.UI.WebControls.Label　　Protected WithEvents Lab

87、el9 As System.Web.UI.WebControls.Label　　Protected WithEvents Label10 As System.Web.UI.WebControls.Label　　Protected WithEvents Button1 As System.Web.UI.WebControls.Button

88、;　　Protected WithEvents Button2 As System.Web.UI.WebControls.Button　　Protected WithEvents Button3 As System.Web.UI.WebControls.Button　　Protected WithEvents TextBox1 As

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

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

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

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

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

94、>　　Protected WithEvents Label14 As System.Web.UI.WebControls.Label　　'注意: 以下占位符聲明是 Web 窗體設(shè)計(jì)器所必需的。　　'不要?jiǎng)h除或移動(dòng)它。　　Private designerPlacehold

95、erDeclaration As System.Object　　Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init　　'CODEGEN: 此方法調(diào)用是 Web 窗體設(shè)計(jì)器所必需的

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

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

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

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

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

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

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

103、Text = ""　　TextBox4.Text = ""　　TextBox5.Text = ""　　TextBox6.Text = ""　　TextBox7.Text = "&qu

104、ot;　　TextBox8.Text = ""　　TextBox9.Text = ""　　TextBox10.Text = ""　　End Sub&l

105、t;p>　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　'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 & "')"　　'Dim sqlstr = "INSERT INTO [運(yùn)貨商$](公司名稱,電話)VALUES (&#

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

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

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

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

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

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

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

116、　sqlstr += ",'" + TextBox10.Text.ToString.Trim + "'"　　sqlstr += ",'" + TextBox11.Text.ToString.Trim + "'"　　sqlstr += "

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

118、gt;　　TextBox4.Text = ""　　TextBox5.Text = ""　　TextBox6.Text = ""　　TextBox7.Text = ""　　TextBox8.Te

119、xt = ""　　TextBox9.Text = ""　　TextBox10.Text = ""　　End If　　End Sub<

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

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

122、apter　　Protected WithEvents Label11 As System.Web.UI.WebControls.Label　　Protected WithEvents Label12 As System.Web.UI.WebControls.Label　　Protected WithEvents

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

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

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

126、abel3 As System.Web.UI.WebControls.Label　　Protected WithEvents Label4 As System.Web.UI.WebControls.Label　　Protected WithEvents Label5 As System.Web.UI.WebControls.Label

127、　　Protected WithEvents Label6 As System.Web.UI.WebControls.Label　　Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox　　Protected WithEvents TextBox2 As

128、System.Web.UI.WebControls.TextBox　　Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox　　Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox

129、;　　Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox　　Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox　　Protected WithEvents Label7

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

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

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

計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)--網(wǎng)上圖書館的設(shè)計(jì)與實(shí)現(xiàn)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)--網(wǎng)上圖書館的設(shè)計(jì)與實(shí)現(xiàn)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載