【正文】 () () datamand = New SqlCommand(Select * from System_books WHERE bookauthor LIKE 39。 amp。 amp。 %39。, dataconnection) dataAdapter = New SqlDataAdapter(datamand) (dbset, System_books) = True = (System_books) MyReader = () While End While () () () End Sub Sub findByISDN() () () datamand = New SqlCommand(Select * from System_books WHERE bookid = 39。 amp。 amp。 39。, dataConnection) dataAdapter= New SqlDataAdapter(datamand) (dbset, System_books) = True = (System_books) MyReader = () While End While () () () End Sub添加圖書程序代碼如下：Private Sub BtnAdd_Click(ByVal sender As , ByVal e As ) Handles If checkSpecificFields() = False Then MsgBox(請在相應的文本框中添加書籍信息) Else If checkSpecificFields() = True Then add_BookIntoDatabase() Beep() () MsgBox(書籍信息已被添加到數據庫) clearFields() End If End IfEnd SubFunction add_BookIntoDatabase() () dataCommand = New SqlCommand(INSERT INTO systemBooks VALUES(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。), dataConnection) () () () End Function刪除圖書代碼：Private Sub DGResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As ) Handles If 1 Then Dim DR As DialogResult DR = MsgBox(請確認是否刪除 amp。 ().Cells(1).Value amp。 這條記錄, , 信息框) If DR = Then () DataCommand = New SqlCommand(DELETE FROM systemBooks WHERE bookid=39。 amp。 ().Cells(0).Value amp。 39。, DataConnection) () () () () Else Exit Sub End If BtnSearch_Click(sender, e) End If End Sub更新圖書代碼：Private Sub BtnEdit_Click(ByVal sender As , ByVal e As ) Handles updateBook() MsgBox(書籍信息已被更新!) End SubFunction updateBook() () Try DataCommand = New SqlCommand(UPDATE systemBooks SET BookName =39。 amp。 amp。 39。,bookAuthor = 39。 amp。 amp。 39。,Bookpub= 39。 amp。 amp。 39。,Bookpubdate = 39。 amp。 amp。 39。, Bookindate = 39。 amp。 amp。 39。, isborrowed = 39。 amp。 amp。 39。, DataConnection) () Catch c As Exception MsgBox() End Try () () End Function為了保證圖書管理系統的穩(wěn)定高速運行，必須要增加硬件并對現有的硬件進行改造，特提出以下硬件需求。（注：這里的硬件指一個完整的硬件系統，其部分的包含了對軟件的需求，這些軟件是為了正常運行管理系統所必須配備的）服務器的要求：服務器的中央處理部件（CPU）建議使用PIII 1G（以上） Xeon處理器芯片；服務器內存必須使用服務器專用ECC內存；為了保證數據存儲的絕對可靠，硬盤應使用磁盤冗余陣列（RAID 01）；為了防止服務器不可預測的故障，或者服務器的定期維護對公司整個業(yè)務造成的影響，所有建議使用兩臺服務器。兩臺服務器應構成雙機熱備份。中間使用WatchDog電路。這樣的結構可以保證整個系統的長時間不間斷工作，即使在服務器定期維護的時候也可以使用后備另一臺服務器工作；服務器應支持熱插拔電源；服務器必須配備UPS（不間斷電源）；服務器應該放在學校內部。不然無法進行程序調試；服務器應該必須有固定IP地址；其他性能在經濟條件允許的情況下，應該盡量使用高速穩(wěn)定的配件；服務器上應該配備的軟件；服務器必須使用專業(yè)的防火墻和反病毒軟件；除了為了運行必須配備的程序以外，服務器上建議盡量不要安裝其他無關程序，以減少程序的混亂或者程序的意外沖突。操作系統：Microsoft Windows 2000 server 或者 Microsoft Windows 2000 Advanced server數據庫：Microsoft SQL Server 2000 (簡體中文版) 各系的操作系統盡量統一。（Windows 9x系列或者Windows 2000系列）。這樣可以避免管理軟件在出來因為操作系統版本不一致造成的過多的開銷。各系的機器必須也安裝反病毒軟件和防火墻。以防止網絡上的蠕蟲病毒在整個網絡范圍內的蔓延。如果要打印涉及字段比較多的報表，應該配備針式打印機。39