【正文】 進行查詢，并可以查看圖書的詳細信息，查詢范圍可以按照出版社，書名，作者等查詢項目進行任意條件的組合查找；對圖書進行借閱和歸還操作，還可以進行修改密碼，查閱借書信息等操作。 一、系統(tǒng)首頁： 圖 2 系統(tǒng)首頁 任何用戶不需要登陸就可以在此頁進行圖書信息的查詢（分為精確查詢和模糊查詢）。 查詢結(jié)果： 圖 3 一般查詢結(jié)果 還可以進行高級查詢，即為書號、書名、作者名、出版社的任意組合查詢 圖 4 高級查詢頁面 查詢結(jié)果如下： 圖 5 高級查詢結(jié)果 無論是一般查詢還是高級查詢，在查詢結(jié)果的表中點擊書號就可以看到圖書的詳細信息，如下圖： 圖 6 圖書信息查看 二、在主頁上點擊權(quán)限維護，即可進入管理員登陸界面 : 圖 7 管理員登陸頁面 輸入正確的用戶名和密碼后，即可進入權(quán)限維護頁面，顯示所有圖書，可進行新書上架和添加用戶： 圖 8 權(quán)限維護頁面 點擊添加用戶，即可進入添加用戶頁面，可以為系統(tǒng)添加新用戶 圖 9 添加用戶頁面 點擊新書上架，即可進入添加圖書頁面，可以為書庫添加新書 圖 10 添加圖書頁面 添加了新書信息后，點擊添加，即可完成新書入庫，帶 *為必填內(nèi)容。點擊重置，則把已填信息清空，重新輸入。 三、在主頁上點擊用戶信息，彈出讀者登陸框： 圖 11 用戶登陸頁面 登陸成功后即可進入讀者對自己的信息進行管理和維護的界面，表中顯示當前登陸用戶的信息，在此頁面可以進入查閱信息、歷史借閱信息、修改密碼、圖書借 在用戶信息頁面點擊歷史借閱信息即可進入歷史借閱信息頁面，在此頁面中可以看到用戶從建立此用戶以來的所有借閱歷史： 圖 12 借閱歷史查看頁面 在用戶信息頁面點擊修改密碼，即可進入修改密碼頁面，在此頁面用戶可以對自己的登陸密碼進行修改： 圖 13 修改密碼頁面 在用戶信息頁面點擊圖書借閱登記，即可進入圖書借閱頁面，在此頁面輸入用戶ID 和圖書條碼，點擊確定借閱，若圖書存在并可借閱，則會顯示此用戶對此書的借閱信息，否則彈出提示信息。 圖 14 圖書借閱頁面 在用戶信息頁面點擊圖書歸還登記，即可進入圖書歸還頁面，在此頁面可顯示用戶 ID 和此用戶所有在借書目，用戶可以在各書前面的選擇框中選擇本書，最后在點擊還書，則會歸還所有打鉤的書： 圖 15 圖書歸還頁面 第四章結(jié)論 一．軟件使用說明 一、系統(tǒng)首頁： 圖 16 系統(tǒng)首頁 任何用戶不需要登陸就可以在此頁進行圖書信息的查詢（分為精確查詢和模糊查詢）。 查詢結(jié)果： 圖 17 一般查詢結(jié)果 還可以進行高級查詢，即為書號、書名、作者名、出版社的任意組合查詢 圖 18 高級查詢頁面 查詢結(jié)果如下： 圖 19 高級查詢結(jié)果 無論是一般查詢還是高級查詢，在查詢結(jié)果的表中點擊書號就可以看到圖書的詳細信息，如下圖： 圖 20 圖書信息查看 二、在主頁上點擊權(quán)限維護，即可進入管理員登陸界面 : 圖 21 管理員登陸頁面 輸入正確的用戶名和密碼后，即可進入權(quán)限維護頁面，顯示所有圖書 ,可對現(xiàn)有圖書直接進行刪除，可進行新書上架和添加用戶： 圖 22 權(quán)限維護頁面 點擊添加用戶，即可進入添加用戶頁面，可以為系統(tǒng)添加新用戶 圖 23 添加用戶頁面 點擊新書上架，即可進入添加圖書頁面，可以為書庫添加新書 圖 24 添加圖書頁面 添加了新書信息后，點擊添加，即可完成新書入庫，帶 *為必填內(nèi)容。點擊重置，則把已填信息清空，重新輸入。 三、在主頁上點擊用戶信息，彈出讀者登陸框： 圖 25 用戶登陸頁面 二．設計體會 在這半個月的時間里從盲目到有了目標，從感覺時間很多到忙得不可開交，經(jīng)歷了很多轉(zhuǎn)折點。第一天選擇題目，開始覺得所有的題目覺得都挺簡單的，但是后來仔細研究了每個題目覺得每個題目都有他深刻的含義，和難點。 后來通過查閱相關(guān)書籍明白了不少 學習我們專業(yè)需要學習的東西真多啊，并且是實時更新的。學習用 visual studio .NET 編程感覺很復雜，尤其是在前期配置的時候總也弄不通，但是后來上網(wǎng)問也找到答案了，弄懂了許多東西。也對我們平時所忽略的基于 web 編程有了一定的認識。 第五章代碼 : PublicSubOpen() () EndSub PublicSubClose() () EndSub PublicSubFill(ByVal sqlstr AsString) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) EndSub PrivateSub Page_Load(ByVal sender As , ByVal e As ) 39。在此處放置初始化頁的用戶代碼 connectingstring = (ConnectionString). myConn = New SqlConnection(connectingstring) IfNot IsPostBack Then IfNotSession(UserID) IsNothingThen IfAllowBooking(Session(UserID)) = TrueThen EndIf EndIf EndIf EndSub 39。private bind PublicFunctionGetRowsNum(ByVal sqlstr AsString) AsInteger If = Then () EndIf Fill(sqlstr) Close() (0). EndFunction PublicFunctionAllowBooking(ByVal UserID AsString) AsBoolean Dim sqlstr AsString = select * from Users,RoleInfo where = and UserID=39。 + UserID + 39。 IfGetRowsNum(sqlstr) = 0 Then ReturnFalse Else ReturnTrue EndIf EndFunction PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid) If = Then () EndIf Fill(sqlstr) = (0).DefaultView () EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid, ByVal SortExp AsObject) If = Then () EndIf Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () EndSub PrivateSubBindGrid() IfNotSession(sqlstr) IsNothingThen Dim sqlstr AsString = CType(Session(sqlstr), String) BindDBGrd(sqlstr, ResultGrid) Session(sqlstr) = sqlstr EndIf EndSub PrivateSub button1_Click(ByVal sender As , ByVal e As ) Handles Dim sign AsString = If = TrueThen sign = % EndIf Dim sqlstr AsString = select * from BookInfo where 1=1 sqlstr += and + + like 39。 + sign + + sign + 39。 Session(sqlstr) = sqlstr BindGrid() EndSub PrivateSub ResultGrid_PageIndexChanged(ByVal source AsObject, ByVal e As ) Handles = BindGrid() EndSub PrivateSub ResultGrid_SortCommand(ByVal source AsObject, ByVal e As ) Handles Dim sqlstr AsString Ifviewstate(sortexp) IsNothingThen viewstate(sortexp) = ElseIfviewstate(sortexp) = Then viewstate(sortexp) += desc Else viewstate(sortexp) = EndIf IfNotSession(sqlstr) IsNothingThen sqlstr = CType(Session(sqlstr), String) BindDBGrd(sqlstr, ResultGrid, Viewstate(sortexp)) EndIf EndSub PublicSubExecNonSql(ByVal sqlstr AsString) If = Then () EndIf myCmd = New SqlCommand(sqlstr, myConn) () () Close() EndSub PrivateSub ResultGrid_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles EndSub EndClass : Imports PublicClass addbook1 Inherits PrivateconnectingstringAsString PrivatemyConnAs SqlConnection Private ds As DataSet PrivatemyAdapterAs SqlDataAdapter ProtectedWithEvents TextBox11 As PrivatemyCmdAs SqlCommand Region Web 窗體設計器生成的代碼 39。該調(diào)用是 Web 窗體設計器所必需的。 ()PrivateSub InitializeComponent() EndSub ProtectedWithEvents Label1 As ProtectedWithEvents Label2 As ProtectedWithEvents Label3 As ProtectedWithEvents Label4 As ProtectedWithEvents Label5 As ProtectedWithEvents Label6 As ProtectedWithEvents Label7 As ProtectedWithEvents Label8 As ProtectedWithEvents Label9 As ProtectedWithEvents Label10 As ProtectedWithEvents Button1 As ProtectedWithEvents Button2 As ProtectedWithEvents Button3 As ProtectedWithEvents TextBox1 As ProtectedWithEvents TextBox2 As ProtectedWithEvents TextBox3 As ProtectedWithEvents TextBox4 As ProtectedWithEvents TextBox5 As ProtectedWithEvents TextBox6 As ProtectedWithEvents TextBox7 As ProtectedWithEvents TextBox8 As ProtectedWithEvents TextBox9 As ProtectedWithEvents TextBox10 As ProtectedWithEvents Label11 As ProtectedWithEvents Label12 As ProtectedWithE