【文章內(nèi)容簡介】 st39。).AsFloat))。 (fieldbyname(39。memo039。).AsString )。 end。 next。 end。 20 :=39。共 39。+inttostr(recordcount)+39。條記錄 39。 //顯示查詢到的記錄 close。 end。 except messagedlg(39。查詢失敗 39。,mterror,[mbok],0)。 end。 end。 ⅱ .讀者基本信息查詢 頁面： 在窗體中添加一個(gè) GroupBox 組件， 一 個(gè) button 組件，兩個(gè) radiobutton 組件 ,一個(gè) checkbox 組件，一個(gè) edit 組件，一個(gè) listview組件，一個(gè) statictext 組件，一 個(gè) label 組件。 程序界面如下： 程序主要代碼： procedure (Sender: TObject)。 var content:string。 begin try 。 with do begin content:= 。 //將查詢內(nèi)容保存到變量 content 中 if then //如果選擇了模糊查詢 content:=39。%39。+content+39。%39。 。 if then //按借書證號查詢 21 begin (39。select readerid,name,sex,idcardno from reader where readerid like :readerid 39。)。 (39。readerid39。).Value :=content。 end。 if then //按姓名查詢 begin (39。select readerid,name,sex,idcardno from reader where name like :name 39。)。 (39。name39。).Value :=content。 end。 open。 while not eof do begin with do //將查詢結(jié)果加入到列表 listview2 中 begin caption:=fieldbyname(39。readerid39。).AsString 。 (fieldbyname(39。name39。).AsString )。 if fieldbyname(39。sex39。).AsString =39。139。 then (39。女 39。) else (39。男 39。)。 (fieldbyname(39。idcardno39。).AsString )。 end。 next。 end。 :=39。共 39。+inttostr(recordcount)+39。條記錄 39。//顯示查詢到的記錄數(shù) close。 end。 except messagedlg(39。查詢失敗 39。,mterror,[mbok],0)。 //顯示查詢失敗 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then //按回車鍵 button4click(sender)。 end ⅲ .借閱基本信息查詢 頁面 ： 在窗體中添加一個(gè) GroupBox 組件， 一 個(gè) button 組件，一個(gè) radiobutton 組件 ,一個(gè) checkbox 組件，一個(gè) edit 組件，一個(gè) listview組件，一個(gè) statictext 組件，一個(gè) label 組件。 程序界面如下： 22 程序的主要代碼如下： procedure (Sender: TObject)。 var content:string。 begin try 。 with do begin content:= 。 if then content:=39。%39。+content+39。%39。 。 if then //按借書證查詢 begin (39。select ,name,sex,idcardno,outdate,code from end,reader where like :readerid and = order by 39。)。 (39。readerid39。).Value :=content。 end。 open。 while not eof do begin with do //將查詢結(jié)果加入到列表 listview3 中 begin caption:=fieldbyname(39。readerid39。).AsString 。 (fieldbyname(39。name39。).AsString )。 if fieldbyname(39。sex39。).AsString =39。139。 then (39。女 39。) else 23 (39。男 39。)。 (fieldbyname(39。code39。).AsString )。 (fieldbyname(39。outdate39。).AsString )。 (floattostr(datefieldbyname(39。outdate39。).AsDateTime))。 (fieldbyname(39。idcardno39。).AsString )。 if datefieldbyname(39。outdate39。).AsDateTime 60 then (floattostr((datefieldbyname(39。outdate39。).AsDateTime60)*)) else (39。039。)。 end。 next。 end。 :=39。共 39。+inttostr(recordcount)+39。條記錄 39。 // 顯示查詢到的記錄 close。 end。 except messagedlg(39。查詢失敗 39。,mterror,[mbok],0)。 end。 end。 ⑻．圖書管理 窗體 設(shè)計(jì)： 窗體的名字為： bookform，對應(yīng)的單元文件為： 。信息查詢窗體 包 新書入庫和圖書管理兩個(gè)功能。在窗體中添加一個(gè) tPageControl 組件，在 t PageControl 組件對象中 建立兩個(gè)頁面， ⅰ .新書入庫設(shè)計(jì)：在 窗體中添加七個(gè) statictext 組件，六個(gè) DBedit 組件，一個(gè) DBmemo 組件，兩個(gè) button 組件。程序界面如下： 24 程序的主要代碼： procedure (Sender: TObject)。 begin :=39。圖書瀏覽 39。 。 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 end。 procedure (Sender: TObject)。 var vcode,vname,vauthor,vpress,voutdate,vcost,vmemo0,sqlstr:string。 begin //檢查新入庫圖書的書號是否長度是否為 4 if Length( )4 then begin messagedlg(39。書號不正確 39。,mtError,[mbok],0)。 。 exit。 end。 //檢查書號是否已經(jīng)存在 with do begin close。 。 (39。select code from book where code=:code39。)。 (39。code39。).Value := 。 open。 if recordcount0 then //此書號已經(jīng)存在 begin messagedlg(39。 書號 39。++39。 已 經(jīng) 存 在39。,mtError,[mbok],0)。 。 exit。 end。 close。 end。 try with do //將新書的數(shù)據(jù)插入到圖書數(shù)據(jù)表 book 中 begin 。 (39。insert into book(code,name,author,press,outdate,cost,memo0)39。+’ values(:code,:name,:author,:press,:outdate,:cost,:MMEMO)39。)。 (39。code39。).Value := 。 (39。name39。).Value := 。 (39。author39。).Value := 。 (39。press39。).Value := 。 try 25 (39。outdate39。).Value :=strtodate(outtimeedit. Text) 。 except messagedlg(39。參數(shù) 出版時(shí)間 設(shè)置錯誤 39。,mtError,[mbok],0)。 exit。 end。 try (39。cost39。).Value :=strtofloat() 。 except messagedlg(39。參數(shù) 價(jià)格 設(shè)置錯誤 39。,mtError,[mbok],0)。 exit。 end。 try (39。MMEMO39。).Value := 。 except messagedlg(39。memo erro39。,mterror,[mbok],0)。 exit。 end。 execSQL。 end。 Tabsheet1show(sender)。 showmessage(39。已成功入庫！ 39。)。 :=39。39。 。 except messagedlg(39。入庫錯誤 39。,mtError,[mbok],0)。 end。 begin sqlstr:=39。update book set name =39。39。39。+vname+39。39。39。,author=39。39。39。+vauthor+39。39。39。,press=39。39。39。+vpress+39。39。39。,outdate=39。39。39。+voutdate+39。39。39。,cost=39。39。39。+vcost+39。39。39。 where (code=39。39。39。+vcode+39。39。39。)39。 with do end。 end。 procedure (Sender: TObject)。 begin close。 end。 ⅱ .瀏覽圖書設(shè)計(jì)：在窗體中添加一個(gè) datasource 組件，一個(gè) bobox 組件，七個(gè) statictext 組件，五個(gè) DBedit 組件，一個(gè) DBmemo 組件，兩個(gè) button 組件。程序界面如下： 26 程序主要代碼如下： procedure (Sender: TObject)。 var i:integer。 begin 。 with do begin 。 (39。select code from book39。)。 open。 first。 for i:=0 to recordcount1 do begin (fieldbyname(39。code39。).AsString )。 //將所有圖書書號加入到 bobox1 中 next。 end。 close。 end。 end。 procedure (Sender: TObject)