【正文】
kno,sborrow:string。 exit。,MB_YESNO)= IDYES then begin try booknodel()。++39。 end else begin try booknodel()。 except MessageDlg(39。 if =true then begin sbookno:=[39。 //圖書已借出 then begin if MessageBox(0,PChar(39。刪除完成39。,mtWarning,[mbok],0)。+sbookno),MB_OK)。 。能干的人,不在情緒上計較,只在做事上認真;無能的人!不在做事上認真,只在情緒上計較。 end。刪除39。 end。刪除39。+sbookno+39。]。++39。刪除完成39。,mtWarning,[mbok],0)。刪除完成39。 if bookborrowed()=true //圖書已借出 then begin if MessageBox(0,PChar(39。此號39。 if = 0 then Result := False else Result := True。begin try 。5. 整理圖書庫: a、圖書遺失:首先根據(jù)讀者編號查詢該遺失圖書的基本信息。 權(quán)限為‘3’的用戶為前臺的工作人員;他只能負責前臺的工作:圖書借出、圖書歸還。. . . ..