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

　

【文章內容簡介】 。 end。 end。 確定按鈕代碼： procedure (Sender: TObject)。 begin if = 39。39。 then begin ShowMessage(39。類別編號不能為空！ 39。)。 。 Exit。 end。 if = 39。39。 then begin ShowMessage(39。類別名稱不能為空！ 39。)。 。 Exit。 end。 。 。 := 39。insert into 圖書類別 (類別編號 ,圖書類別 )39。 + 39。values(:id,:name)39。 (39。id39。).Value:=Trim(edtTyp)。 (39。name39。).Value:=Trim(edtB)。 {:=39。update 圖書類別 set (類別編號 ,圖書類別 )39。+39。values(:id,:name)39。 (39。id39。).Value:=trim(edtTypeI)。 (39。name39。).Value:=trim(edtBoo)。} 。 。 。 :=39。select * from 圖書類別 39。 。 。 end。 刪除按鈕代碼： procedure (Sender: TObject)。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g17 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(editBook)。 (39。readerid39。).Value:=trim(editre)。 (39。time39。).Value:=DateTimePicker1.Time。 scope fthnirj.(2)uld:m,qay3bkw4x56v1g18 。 。 //更新圖書信息表在庫標志 。 。 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 scope fthnirj.(2)uld:m,qay3bkw4x56v1g19 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 scope fthnirj.(2)uld:m,qay3bkw4x56v1g20 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 scope fthnirj.(2)uld:m,qay3bkw4x56v1g21 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