【正文】 先考慮在進(jìn)入子系統(tǒng)時(shí)一應(yīng)該做什么，進(jìn)入子系統(tǒng)之后又應(yīng)該做什么，提供哪些服務(wù)等。 :=39。 :=false。 end else begin showmessage(39。readerid39。 end。 end。)。 (39。 35 (39。 end。,mterror,[mbok],0)。 begin if key=13 then bobox1change(sender)。 :=false。).Value :=。, ,[]) then begin messagedlg(39。book39。 end。 :=[i].[2]。 :=39。).Value :=inttostr(ex) 。 (39。 execsql。insert into reader(readerid,name,sex,idcardno)39。)。39。 (39。)。 procedure (Sender: TObject)。idcardno39。 while not eof do begin with do begin caption:=fieldbyname(39。 end。outdate39。).AsString )。 end。39。,author=39。已成功入庫(kù)！ 39。參數(shù) 價(jià)格 設(shè)置錯(cuò)誤 39。).Value := 。 end。 //檢查書(shū)號(hào)是否已經(jīng)存在 with do begin close。 :=39。查詢(xún)失敗 39。outdate39。) else 23 (39。readerid39。 Shift: TShiftState)。 end。).AsString 。select readerid,name,sex,idcardno from reader where readerid like :readerid 39。 except messagedlg(39。).AsString )。).Value :=content。 (39。 with do begin content:= 。 begin :=39。 程序界面如下： 18 程序主要代碼如下： procedure (Sender: TObject)。 end。+vxmm+39。 open。在窗體中添加 三個(gè) edit 組件，三個(gè) label 組件，兩個(gè) button 組件，程序界面如下： ⑺ 程序的主要代碼： procedure (Sender: TObject)。 16 。 open。)。 end。”用戶(hù)？ 39。 begin :=false。 begin close。 :=true。用戶(hù)權(quán)限：讀者 39。用戶(hù)名或密碼錯(cuò) !39。 end。Persist Security Info=False39。,now())+timetostr(now)。 //顯示借閱管理 end。 begin 。 procedure (Sender: TObject)。 end。 //程序當(dāng)前的途徑 shortdateformat:=39。 1 Delphi 課 程 設(shè) 計(jì) （圖書(shū)信息管理系統(tǒng)） 學(xué)院：數(shù)計(jì)學(xué)院 專(zhuān)業(yè)： 08 信管 學(xué)號(hào)： 080304041 姓名：林燕玉 2 目錄 （圖書(shū) 信息管理系統(tǒng) ） ????????? ..3. 2 需求分析 ????????? ..3. ????????? ..3. ????????? ..4. 圖書(shū)信息表 ??????????? .4. 讀者信息表 ??????????? .5. 圖書(shū)借閱 表 ??????????? .6. 用戶(hù)信息 表 ??????????? .7. 模塊設(shè)計(jì) ????????? ..7. 主窗體的創(chuàng)建 ??????????? .7. ??????????? .11. ??????????? 11. 用戶(hù)密碼窗體設(shè)計(jì) ??????????? 13. 添加用戶(hù)窗體設(shè)計(jì) ?????????? ..14. 修改密碼窗體設(shè)計(jì) ?????????? ..16. 信息查詢(xún)窗體設(shè)計(jì) ?????????? ..17. 圖書(shū)管理窗體設(shè)計(jì) ????? ????? .. 23. 讀者管理窗體設(shè)計(jì) ?????????? ..27. 借閱管理窗體設(shè)計(jì) ?????????? ..31. 規(guī)章制度窗體設(shè)計(jì) ?????????? ..36. 圖書(shū)館背景窗體設(shè)計(jì) ?????????? ..37. ?????????? ..37. ?????????? ..38. ?????????? ..38. ?????????? ..39. 一、 概述： 本系統(tǒng)是介紹一個(gè)用 delphi 為開(kāi)發(fā)工具基于 ADO 的圖書(shū)館圖書(shū)管理系統(tǒng)。yyyy/mm/dd39。 procedure (Sender: TObject)。 begin button5click(sender)。 //顯示圖書(shū)查詢(xún) end。 procedure (Sender: TObject)。 end。 :=adoconnection1。 procedure (Sender: TObject)。)。 。 :=true。 end。 。 if MessageDlg(vmsg, mtConfirmation, [mbYes, mbNo],0)=mrNo then exit。 procedure (Sender: TObject)。 exit。 end。 (sqlstr)。 var vymm,vxmm,vyhm,sqlstr:string。 if recordcount0 then begin vymm:=FieldByName(39。39。 end。 begin :=39。39。 //將查詢(xún)內(nèi)容存放到變量 content 中 if then //如果選擇了模糊查詢(xún) content:=39。name39。 end。 (floattostr(fieldbyname(39。查詢(xún)失敗 39。)。 (fieldbyname(39。 next。 begin if key=13 then //按回車(chē)鍵 button4click(sender)。).Value :=content。男 39。).AsDateTime 60 then (floattostr((datefieldbyname(39。,mterror,[mbok],0)。39。 。 close。 (39。,mtError,[mbok],0)。)。39。39。 procedure (Sender: TObject)。 //將所有圖書(shū)書(shū)號(hào)加入到 bobox1 中 next。 //DBoutdate 連接數(shù)據(jù)表中 outdate 字段 :=39。 end。readerid39。).asstring)。 var i:integer。 (39。readerid39。 :=39。 (39。+ 39。 end。update reader set name=:readername,sex=:sex,idcardno=:idno 39。 (39。39。 //讀者身份證號(hào) end。 close。 :=39。沒(méi)有數(shù)據(jù)或數(shù)據(jù)庫(kù)操作失敗 39。 open。 :=true。 end。 close。 except :=39。select code from lend where readerid=:readerid39。code39。 (39。 close。 if canlend=false then 36 begin :=+39。).value:=。請(qǐng)輸入借書(shū)證號(hào)！ 39。 showmessage(39。39。在本系統(tǒng)設(shè)計(jì)中， 第一， 對(duì)于操作系統(tǒng)子系統(tǒng)，提供 登錄 功能，在用戶(hù)登錄之后可實(shí)現(xiàn)權(quán)限管理、修改密碼和退出系統(tǒng)功能；第二，對(duì)于信息查詢(xún)子系統(tǒng)，用戶(hù)進(jìn)入時(shí)首先調(diào)用相關(guān)的數(shù)據(jù)表，進(jìn)入系統(tǒng)后，子系統(tǒng)提供圖書(shū)信息查詢(xún)、讀者信息查詢(xún)、借閱信息查詢(xún)的功能。 系統(tǒng)劃分子系統(tǒng)之后，就是繼續(xù)劃分子系統(tǒng)的小模塊。39。 close。 end。 (39。 except canlend:=true。 except :=0。select * from lend where code=:code and readerid=:readerid39。)。 then begin try with do begin 。 close。 不 存 在39。 Shift: TShiftState)。 end。code39。code39。 if length()=4 then begin try 33 with do begin tablename:=39。 next。 then //修改性別 :=0 else :=1。39。sex39。 try with do //將修改后的讀者數(shù)據(jù)提交給讀者數(shù)據(jù)表 reader begin 。).Value := 。 (39。select readerid from reader where readerid=:readerid39。 begin :=39。)。delete from lend where readerid=:readerid39。 end。 (fieldbyname(39。 。 end。 //DBpress 連接數(shù)據(jù)表中 press 字段 :=39。code39。 with do end。+voutdate+39。39。 showmessage(39。 except messagedlg(39。author39。 exit。 end。39。 except messagedlg(39。 if datefieldbyname(39。女 39。 (39。 var Key: Word。).AsString )。readerid39。 if then //按借書(shū)證號(hào)查詢(xún) 21 begin (39。 end。outdate39。author39。)。 begin try 。 procedure (Sender: TObject)。 ⅰ .查詢(xún)圖書(shū)基本信息 頁(yè)面： 在窗體中添加一個(gè) GroupBox 組件， 一 個(gè) button 組件，四個(gè) radiobutton 組件 ,一個(gè) checkbox 組件，一個(gè) edit 組件，一個(gè) listview組件，一個(gè) statictext 組件，一個(gè) label 組件。 end。39。 (sqlstr)。 ⑹． 修改密碼