【正文】 圖書管理系統(tǒng) 作者姓名：張 超 專業(yè)名稱：計(jì)算機(jī)科學(xué)與技術(shù) 指導(dǎo)教師：李 四 講師 成都理工大學(xué)工程技術(shù)學(xué)院摘 要 圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。關(guān)鍵詞:圖書管理 借閱 瀏覽 ASP Access Abstract With the development of society, Mankind need more knowledge also constantly increase, Under this situation, book gradually bee the main path to obtain the knowledge of life, and library naturally occupied in people certainly position, how science ground the management library not only relate to the convenient degree that the reader beg to know, but also relate to the library that strategy of development, therefore, develop the management system of a perfect library can39。名字:密碼別名:描述:用戶和管理員進(jìn)入管理系統(tǒng)的條件.定義:1{數(shù)字或字符}8.位置: 管理員信息 用戶信息名字:管理員號(hào)別名:描述:管理員在圖書館中的惟一的標(biāo)識(shí).定義:1{數(shù)字}5.位置: 管理員信息名字:借閱號(hào)別名:描述:用戶在圖書館中借還書的惟一的標(biāo)識(shí).定義:1{數(shù)字}8.位置: 借閱信息名字:用戶號(hào)別名:描述: 此用戶在圖書館中的惟一的標(biāo)識(shí).定義:1{數(shù)字}8.位置: 用戶信息 借閱信息名字:圖書號(hào)別名:描述: 此書在圖書館中的惟一的標(biāo)識(shí).定義:1{數(shù)字}8.位置: 圖書信息 借閱信息2． 用戶信息表（USER）：用戶ID、用戶名、密碼、地址、EMAIL、電話。 CREATE TABLE manage ( manageid int(4) NOT NULL UNIQUE, Pass char(10) ) 。GO 創(chuàng)建觸發(fā)器創(chuàng)建關(guān)于書號(hào)和用戶號(hào)的觸發(fā)器，分別在BOOKINFO .USERS中修改bookid和userid時(shí)，在LENDINFO中也會(huì)有相應(yīng)的修改。 + UserID + 39。 myConn = New SqlConnection(connectingstring) End Sub Public Function CheckUserberInfo(ByVal Userstr As String, ByVal Pwdstr As String) As Integer If = Then () End If Dim sqlstr As String If Pwdstr = Then sqlstr = select * from manage where manageid=39。)。 myconn = New SqlConnection(connectingstring) If Not IsPostBack Then Dim sqlstr As String = select * from bookinfo BindDBGrd(sqlstr, DataGrid1) Dim ds As DataSet = New DataSet End If End Sub Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As ) Handles Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim uid As String = ().Cells(0).Text sql = delete from bookinfo where bookid=39。uid=sa。 End If Fill(sqlstr) If (0). = 0 Then Close() Return 1 End If () Close() Return 1 End Function Public Sub Open() () End Sub Public Sub Close() () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If CheckUserberInfo(, ) = 1 Then Session(UserID) = () Else (scriptjavascript:alert(39。uid=sa。pwd=123456。 myConn = New SqlConnection(connectingstring) If Then End If End Sub Public Sub ExecNonSql(ByVal sqlstr As String) If = Then () End If myCmd = New SqlCommand(sqlstr, myConn) () () () 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) If = Then () End If Fill(sqlstr) = (0).DefaultView () 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 BindDBGrid() Dim sqlstr As String = select * from BookInfo,LendInfo where = and IsBack=0 and UserID=39。 Dim myreader As SqlDataReader = ExecReaderSql(sqlstr) Dim num As Integer = 0 If Then num = myreader(BookDate) End If () Return num End Function Public Function LendBook(ByVal UserID As String, ByVal BookID As String) As Boolean Dim datenum As Integer = GetBookDate(UserID) Dim nowdate As Date = Dim ReturnDate As Date = (datenum) Dim sqlstr As String = insert into LendInfo(BookID,UserID,LendDate,ReturnDate,IsBack)values( sqlstr += 39。 sqlstr += ,0) ExecNonSql(sqlstr) Return True End Function Public Function GetMax(ByVal UserID As String) As Integer Dim sqlstr As String = select BookNum from Users where UserID=39。/script) Case 1 : (scriptjavascript:alert(3