【正文】 REATE DATABASE LIBRARY創(chuàng)建員工基本信息 CREATE TABLE BookInfo ( bookid int(4) NOT NULL UNIQUE , bookname varchar(100) , pubname varchar(100) , bookauthor varchar(50) , series varchar(50) , ISBN varchar(50) , SearchNO varchar(50) , PubDate smalldatetime(4) , Price float(8) , Barcode varchar(50))。4． 管理員信息表（MANGER）：管理員ID、密碼。基于以上三種方法四．?dāng)?shù)據(jù)庫(kù)設(shè)計(jì)：本系統(tǒng)使用SQL SERVER2000作為應(yīng)用程序的數(shù)據(jù)庫(kù)。信息和材料、能源一樣成為一種社會(huì)的基本生產(chǎn)資料，在人類(lèi)的社會(huì)生產(chǎn)活動(dòng)中發(fā)揮著重要的作用。Server2000數(shù)據(jù)庫(kù)管理系統(tǒng)、SQL語(yǔ)言原理、.NET應(yīng)用程序設(shè)計(jì)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用，主要完成對(duì)圖書(shū)管理系統(tǒng)的需求分析、功能模塊劃分、數(shù)據(jù)庫(kù)需求分析，并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。系統(tǒng)運(yùn)行結(jié)果證明，本文所設(shè)計(jì)的圖書(shū)管理系統(tǒng)可以滿足借閱者、圖書(shū)館工作人員的雙方面的需要。同時(shí)人們對(duì)信息和數(shù)據(jù)的利用與處理也已進(jìn)入自動(dòng)化、網(wǎng)絡(luò)化和社會(huì)化的階段，因此，開(kāi)發(fā)相關(guān)的管理信息系統(tǒng)已經(jīng)成為各行各業(yè)的必要和必需了，管理信息系統(tǒng)作為一門(mén)邊緣學(xué)科，集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)于一體，可以解決企業(yè)或組織所面臨的問(wèn)題，對(duì)內(nèi)來(lái)看，可以提高工作效率；對(duì)外來(lái)看，獲得競(jìng)爭(zhēng)優(yōu)勢(shì)?？紤]到系統(tǒng)的實(shí)際需求，系統(tǒng)至少需要四張數(shù)據(jù)庫(kù)表，具體如下：1． 圖書(shū)信息數(shù)據(jù)表（BOOKINFO）：用于圖書(shū)館的所有已錄入的書(shū)目信息，這是本系統(tǒng)最為關(guān)鍵的數(shù)據(jù)部分，包括圖書(shū)號(hào)、圖書(shū)名、圖書(shū)作者、出版時(shí)間、索取號(hào)、價(jià)格和圖書(shū)條碼。數(shù)字字典名字:圖書(shū)信息別名:描述:描述圖書(shū)館所有已錄入的書(shū)目信息及該書(shū)的庫(kù)存情況.定義:圖書(shū)號(hào)+圖書(shū)名+圖書(shū)作者+出版時(shí)間+索取號(hào)+價(jià)格+圖書(shū)條碼。 CREATE TABLE LendInfo( LendID int(4) NOT NULL UNIQUE , BookID int(4) NOT NULL UNIQUE , UserID varchar(50) NOT NULL UNIQUE , LendDate smalldatetime(4) , ReturnDate smalldatetime(4) , IsBack int(4) )。Create view book_nameAsSelect bookid,pubname,bookauthor,bookname,searchNOFROM BOOKINFOWHERE bookname=’ASP程序設(shè)計(jì)’；創(chuàng)建關(guān)于用戶名的視圖，因?yàn)椴樵儠r(shí)需要綁定。CREATE TABLE users ( userid int(4) NOT NULL UNIQUE , username char(10) , pass char(10) , char(50) , phone char(10) , address varchar(50) , BookNum int(4) )。Database=library。private bind Public Function GetRowsNum(ByVal sqlstr As String) As Integer If = Then () End If Fill(sqlstr) Close() Return (0). End Function Public Function AllowBooking(ByVal UserID As String) As Boolean Dim sqlstr As String = select * from UserInfo,RoleInfo where = and AllowBooking=1 and UserID=39。 Session(sqlstr) = sqlstr BindGrid() End Sub Private Sub ResultGrid_PageIndexChanged(ByVal source As Object, ByVal e As ) Handles = BindGrid() End Sub Private Sub ResultGrid_SortCommand(ByVal source As Object, ByVal e As ) Handles Dim sqlstr As String If viewstate(sortexp) Is Nothing Then viewstate(sortexp) = ElseIf viewstate(sortexp) = Then viewstate(sortexp) += desc Else viewstate(sortexp) = End If If Not Session(sqlstr) Is Nothing Then sqlstr = CType(Session(sqlstr), String) BindDBGrd(sqlstr, ResultGrid, Viewstate(sortexp)) End If End Sub Public Sub ExecNonSql(ByVal sqlstr As String) If = Then () End If myCmd = New SqlCommand(sqlstr, myConn) () () Close() End SubEnd Class可以根據(jù)書(shū)名，內(nèi)容進(jìn)行查詢，我們選取任意匹配：如上圖所示最上方為自定義用戶控件：bar點(diǎn)擊權(quán)限維護(hù)：Imports Public Class user Inherits Private connectingstring As String Private myConn As SqlConnection Private ds As DataSet Private myAdapter As SqlDataAdapter Protected WithEvents Button2 As Protected WithEvents Label1 As Protected WithEvents Label2 As Protected WithEvents TextBox1 As Protected WithEvents Label3 As Protected WithEvents TextBox2 As Protected WithEvents Login_trname As Protected WithEvents Login_trpassword As Private myCmd As SqlCommand Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。pwd=123456。 + + 39。登陸失敗?。?！39。) End If End SubEnd Class登陸成功后：點(diǎn)擊刪除后：再次查詢時(shí)：Imports Public Class delete Inherits Dim myconn As SqlConnection Private connectingstring As String Private ds As DataSet Private myAdapter As SqlDataAdapter Private myCmd As SqlCommand Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid) If = Then () End If Fill(sqlstr) = (0).DefaultView () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object) If = Then () End If Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () End Sub Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。pwd=123456。刪除成功！?。?9。Database=library。 + + 39。 + Pwdstr + 39。/script) (javascript:=39。Database=library。 + UserID + 39。uid=sa。 BindDBGrd(sqlstr, Da