【正文】 lend_able:=strtoint([0].text)。39。 :=。can_borrow39。 exit。var can_borrow: integer。 。 s1:=(39。39。 。).AsString)。).AsString+39。 with qrymate do begin close。sbookclass39。sclassId39。 :=p。 for i:=0 to do //search bookclass begin sub:=(root,(39。 :=。 qrymate:=(self)。 i,j,k,s:integer。begin if not then begin 。procedure (Sender: TObject)。+cast(i as varchar(5)) 設(shè)置圖書號(hào) insert into Book values (bookId,Index,Isbn,sBookName,spress,Author,classId, sMemo,state,fprice) set i=i+1 end update [dbo].Stock set stockstate=0 where StockId=stockId endEND if error0 or rowcount = 0 rollback transaction。 and istate=139。 or sPress like 39。%39。%39。%39。 or smemo like 39。%39。 39。select sbookId as 圖書編號(hào), sBookName as 圖書名稱, sAuthor as 作者, sISBN as ISBN, sPress as 出版社, sIndex as 索引號(hào), fprice as 價(jià)格, istate as 是否可借, smemo as 備注from Book where sindex like 39。9) 下訂單：ALTER PROCEDURE [dbo].[Proc_MakeOrder]bookname varchar(30),press varchar(20)=null,order_num int ,orderstaffId varchar(20),state int=null outputASBEGIN declare orderid varchar(30) set orderid=bookname+39。+BookId+cast(GETDATE() as varchar(10)) insert into [dbo].Borrowed values(BorrowId,ReaderId,BookId,GETDATE(),GETDATE()+30,null,0) update Book set iState=0 where sBookId=BookId set state=1 endENDif error0 or rowcount = 0 rollback transaction。三、 系統(tǒng)設(shè)計(jì)1. 數(shù)據(jù)表1) ER圖：LevelBookNumBorrowdateReturndatemanageManagerManagerIDPasswordNameLevelPresentPositionPlevelPnameBorrowedReaderNameSexBirthdayUserIDPasswordDeadlineLevelhasReaderKindMaxSumaddOrderOrderIDOrderdateorderStaffIDBookNameBookPressofStockstockIDorderIDenterStaffIDofBookIndexNumIsbnBookIDNameAuthorPressPriceBookstatePriceAuthorIsbnrealNumenterstockclassBookClassClassIDClassNameMemoBorrowIDFine_ticketEmailPhoneKindNamePhoneEmailSexBirthday2) 關(guān)系模式：Book(BookId,Index,ISBN,BookName,Press,Author,ClassID,Memo,State)Bookclass(classid,Bookclass,classID)Borrowed(BorrowedId,ReaderId,BookId,Borrow_Date,DeadLine,Return_date,Fine_ticket)FineKind(FineKind,Describe,Num)Reader(ReaderId,Password,ReaderLevel,Name,Sex,Email,Phone,Birthday,Expiry_Time)ReaderKind(ReaderLevel,Kind_Name,Max_borrow_num)Manager(ManagerId,Password,Name,Level,Phone,Email,Birthday,Sex)ManagerKind(ManagerLevel,Level_Name)Order(OrderId,BookName,Press,Order_num,OrderDate,OrderStaffId)Stock(StockId,OrderId, StockStaffId, Author,ISBN,Price,RealNum,StockDate)3) 表的物理設(shè)計(jì)Book（圖書表）BookClass（圖書分類表）Borrowed（借閱表）FineKind（罰款設(shè)置表）Manager（管理員表）ManagerKind（管理員類別表）Order（訂單表）Reader（用戶表）ReaderKind（用戶類別表）Stock（圖書入庫(kù)表）2. 視圖，索引，數(shù)據(jù)庫(kù)權(quán)限： 存儲(chǔ)過(guò)程：1) 增加員工：ALTER PROCEDURE [dbo].[Proc_addAdm]managerId varchar(20),password varchar(20)=39。存取方式：聯(lián)機(jī)處理，以更新操作為主，隨機(jī)檢索。實(shí)際上“ 圖書管理”還可以細(xì)化，分為圖書記錄維護(hù)、訂單增加和新書入庫(kù)三個(gè)下級(jí)處理框，而“ 讀者管理”也可以細(xì)化為新讀者入戶和讀者記錄維護(hù)兩個(gè)下級(jí)處理框。圖書的使用對(duì)象是借閱者，例如學(xué)生，教師；管理者是圖書館的管理員。SQL Server 2008是一個(gè)重大的產(chǎn)品版本，它推出了許多新的特性和關(guān)鍵的改進(jìn)，使得它成為至今為止的最強(qiáng)大和最全面的SQL Server版本。隨著計(jì)算機(jī)及性能的不斷提高，計(jì)算機(jī)已經(jīng)在教學(xué)、科研、管理等方面得到越來(lái)越廣泛的應(yīng)用。8六、收獲和體會(huì) 同樣，圖書館管理系統(tǒng)有效地管理也離不開(kāi)計(jì)算機(jī)。這篇文章詳細(xì)介紹了Microsoft SQL Server 2008中的新的特性、優(yōu)點(diǎn)和功能…… 在現(xiàn)今數(shù)據(jù)的世界里，公司要獲得成功和不斷發(fā)展，他們需要定位主要的數(shù)據(jù)趨勢(shì)的愿景。因此根據(jù)這些信息，本系統(tǒng)的主要功能就是：實(shí)現(xiàn)圖書館圖書信息的管理和維護(hù)，如用戶信息管理，圖書館規(guī)則維護(hù)，新書入庫(kù)，整理圖書，修改圖書信息和進(jìn)行查詢等；以及服務(wù)系統(tǒng)的圖書信息查詢，圖書的借出和歸還等功能；:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。圖書進(jìn)貨、入庫(kù)讀者情況圖書圖書管理D1 圖書記錄讀者管理D1 讀者記錄讀者 圖2 “內(nèi)部管理”的細(xì)化數(shù)據(jù)流圖還書請(qǐng)求圖書情況圖書信息借書請(qǐng)求讀者查看書目D1 圖書記錄借書處理D3 借書記錄還書處理讀者圖書D2 讀者記錄 圖3 “借書管理”的細(xì)化數(shù)據(jù)流圖經(jīng)過(guò)整理后得出細(xì)化后的系統(tǒng)數(shù)據(jù)流圖，如圖4圖書進(jìn)貨、入庫(kù)還書請(qǐng)求圖書情況借書請(qǐng)求用戶身份圖書信息用戶身份管理員情況用戶身份讀者情況圖書圖書管理D1 圖書記錄讀者管理D4 用戶記