數據庫圖書管理信息系統課程設計(編輯修改稿)

　

【文章內容簡介】 rim()。} 。 。 。 :=39。select * from 圖書類別39。 。 。end。刪除按鈕代碼：procedure (Sender: TObject)。begin if (39。是否刪除記錄？39。, 39。確定39。, MB_OKCANCEL) = IDOK then 。end。借閱按鈕代碼：procedure (Sender: TObject)。var strBookID: string。begin if = 39。39。 then begin ShowMessage(39。借書證號不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。圖書編號不能為空！39。)。 。 Exit。 end。 if getBookCount() 0 then begin ShowMessage(39。此書已經被借出！39。)。 Exit。 end else begin strBookID := Trim()。 。 。 := 39。update 借出信息 set 借出狀態=1 where 圖書編號= 39。+ strBookID。 。 。 := 39。insert into 借出信息(圖書編號,借書證號,借出日期,借出狀態)values(:BookID,39。 + 39。:readerID,:time,1)39。(39。Bookid39。).Value:=trim()。 (39。readerid39。).Value:=trim()。 (39。time39。).Value:=。 。 。 //更新圖書信息表在庫標志 。 。 strSql := 39。update 圖書明細表 set 狀態=39。39。借出39。39。 where 圖書編號= 39。 + strBookID。 := strSql。 。 。 end。 if messagedlg(39。借閱成功，還有要借的書籍嗎？39。, mtconfirmation, [mbyes, mbno], 0) = mryes then begin := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 。 end。end。其他相關實現代碼：procedure (Sender: TObject。 var Key: Char)。begin if Key = 13 then begin if ViewBook() = false then begin ShowMessage(39。沒有此書, 請重新選擇！39。)。 Exit。 end。 := false。 := 39。圖書編號=39。39。39。 + + 39。39。39。39。 := true。 end。end。function (BookID: string): boolean。var Query: TADOQuery。begin Query := (self)。 := 。 (39。select * from 圖書明細表 where 圖書編號=:id39。)。 (39。ID39。).Value := BookID。 。 if = 0 then begin Result := false。 。 Exit。 end else Result := true。end。function (user: string): boolean。var Query1: TADOQuery。begin Query1 := (self)。 := 。 (39。select * from 學生信息表 where 借書證號=:id39。)。 (39。ID39。).Value := user。 。 if = 0 then begin Result := false。 Exit。 end else Result := true。end。procedure (Sender: TObject。 var Key: Char)。begin if Key = 13 then begin := IntToStr(getOwnCount())。 if viewUser() = false then begin ShowMessage(39。沒有此用戶, 請重新選擇！39。)。 Exit。 end。 end。end。function (userID: string): integer。var Query2: TADOQuery。begin try Query2 := (self)。 := 。 (39。select count(借書證號) from 借出信息 where 借書證號=:id 39。)。 (39。ID39。).Value := userID。 。 Result := [0].Value。 。 。 except Result := 0。 end。end。function (BookID: string): integer。var Query2: TADOQuery。begin try Query2 := (self)。 := 。 (39。select count(圖書編號) from 借出信息 where 圖書編號=:id and 借出狀態=139。)。 (39。ID39。).Value := BookID。 。 Result := [0].Value。 。 。 except Result := 0。 end。end。歸還按鈕代碼 ：procedure (Sender: TObject)。var BorrowBookID: string。 BookID: string。 strSql: string。 strBookID: string。 strDate:string。begin strDate:=trim()。 if = 39。39。 then begin ShowMessage(39。借書證號不能為空！39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。圖書編號不能為空！39。)。 。 Exit。 end。 BorrowBookID := Trim()。 BookID := Trim()。 if (BorrowBookID 39。39。) and (BookID 39。39。) then begin 。 。 strSql := 39。update 借出信息 set 借出狀態=0 ,還書日期=39。39。39。 + strdate + 39。39。39。 where 圖書編號 =39。 + BookID + 39。 and 借書證號=39。39。39。 + BorrowBookID + 39。39。39。 and 借出狀態=1 39。 (strSql)。 。 if 0 then begin ShowMessage(39。還書成功!39。)。 //更新圖書信息表在庫標志 strBookID := Trim()。 。 。 strSql := 39。update 圖書明細表 set 狀態=39。39。在庫39。39。 where 圖書編號=39。 + strBookID。 := strSql。 。 。 end else ShowMessage(39。此書已還過!39。)。 end。end。其它相關實現代碼：procedure (Sender: TObject。 var Key: Char)。begin if Key = 13 then begin if ViewBook() = false then begin ShowMessage(39。沒有此書, 請重新選擇！39。)。 Exit。 end。 := false。 := 39。圖書編號=39。39。39。 + + 39。39。39。39。 := true。 :=datetostr(date)。 end。end。procedure (Sender: TObject。 var Key: Char)。begin if Key = 13 then begin 。 。 (39。 select 借出日期 from 借出信息 where 借書證號=39。39。39。 + + 39。39。39。39。)。 。 := true。 if 0 then := (39。借出日期39。).AsString。 := i