【導(dǎo)讀】以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。性好的數(shù)據(jù)庫(kù)，開(kāi)發(fā)出功能完備，易使用的應(yīng)用程序。調(diào)試、編譯與實(shí)現(xiàn)，該程序界面友好、程序設(shè)計(jì)風(fēng)格樸素，使用起來(lái)美觀大方、方便易用。尤其是系統(tǒng)的“借閱管理”。點(diǎn)取代人工操作，提高了圖書(shū)館管理工作效率。工作學(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。以前開(kāi)發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。夠開(kāi)發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。管理,以及圖書(shū)查閱,報(bào)表打印等功能的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,圖書(shū)館管理系統(tǒng)是典型的信息管理。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。它易學(xué)易用，如同VB，因而被稱為“第四代編程語(yǔ)。從1995年推出至今已經(jīng)經(jīng)歷了7個(gè)版本，運(yùn)行在win9x或winme，win2021，winxp，這里把“VB”比作是傻瓜相機(jī)，Delphi是帶有自動(dòng)功能。用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB

　　

【正文】 Label7: TLabel。 Label8: TLabel。 ADOQuery1: TADOQuery。 RadioButton3: TRadioButton。 Edit1: TEdit。 ADOQuery1bookid: TWideStringField。 ADOQuery1bookname: TWideStringField。 ADOQuery1author: TWideStringField。 ADOQuery1in: TBooleanField。 BitBtn1: TBitBtn。 Panel7: TPanel。 RadioButton4: TRadioButton。 RadioButton5: TRadioButton。 RadioButton6: TRadioButton。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Label1: TLabel。 DataSource3: TDataSource。 DBGrid3: TDBGrid。 ADOQuery3: TADOQuery。 Panel9: TPanel。 RadioButton7: TRadioButton。 RadioButton8: TRadioButton。 RadioButton9: TRadioButton。 Edit6: TEdit。 Edit7: TEdit。 Edit8: TEdit。 Label2: TLabel。 BitBtn4: TBitBtn。 BitBtn5: TBitBtn。 BitBtn6: TBitBtn。 BitBtn2: TBitBtn。 Edit15: TEdit。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit3: TDBEdit。 DBEdit4: TDBEdit。 ADOQuery3ids: TAutoIncField。 ADOQuery3bookid: TWideStringField。 ADOQuery3studentid: TWideStringField。 ADOQuery3onceout: TBooleanField。 ADOQuery3outdata: TDateTimeField。 ADOQuery3alreadyback: TBooleanField。 ADOQuery3backdata: TDateTimeField。 ADOQuery2ids: TAutoIncField。 ADOQuery2bookid: TWideStringField。 ADOQuery2studentid: TWideStringField。 ADOQuery2onceout: TBooleanField。 ADOQuery2outdata: TDateTimeField。 ADOQuery2alreadyback: TBooleanField。 ADOQuery2backdata: TDateTimeField。 ADOQuery4: TADOQuery。 DataSource4: TDataSource。 DBGrid4: TDBGrid。 ADOQuery4ids: TAutoIncField。 ADOQuery4bookid: TWideStringField。 ADOQuery4studentid: TWideStringField。 ADOQuery4onceout: TBooleanField。 ADOQuery4outdata: TDateTimeField。 ADOQuery4alreadyback: TBooleanField。 ADOQuery4backdata: TDateTimeField。 Panel10: TPanel。 RadioButton10: TRadioButton。 RadioButton11: TRadioButton。 RadioButton12: TRadioButton。 RadioButton13: TRadioButton。 Edit16: TEdit。 Edit17: TEdit。 Edit18: TEdit。 Edit19: TEdit。 BitBtn3: TBitBtn。 BitBtn7: TBitBtn。 BitBtn8: TBitBtn。 BitBtn9: TBitBtn。 BitBtn10: TBitBtn。 procedure Button1Click(Sender: TObject)。 procedure BitBtn1Click(Sender: TObject)。 procedure BitBtn2Click(Sender: TObject)。 procedure BitBtn4Click(Sender: TObject)。 procedure BitBtn5Click(Sender: TObject)。 procedure BitBtn6Click(Sender: TObject)。 procedure BitBtn3Click(Sender: TObject)。 procedure BitBtn8Click(Sender: TObject)。 procedure BitBtn9Click(Sender: TObject)。 procedure BitBtn10Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var chacunbaobiao: Tchacunbaobiao。 implementation {$R *.dfm} procedure (Sender: TObject)。 begin 。 if then if not (39。bookid39。,[]) then begin showmessage(39。沒(méi)有這本書(shū)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin end。 if then if not (39。bookname39。,[]) then begin showmessage(39。沒(méi)有這本書(shū)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin 。 。 :=39。select * from books where bookname=39。39。39。++39。39。39。39。 。 :=39。39。 end。 if then if not (39。author39。,[]) then begin showmessage(39。沒(méi)有這本書(shū)，請(qǐng)重新輸入 39。)。 :=39。39。 end else begin 。 。 (39。select * from books where author=39。39。39。++39。39。39。39。)。 。 :=39。39。 end。 end。 procedure (Sender: TObject)。 begin 。 if then begin ////// :=true。 。 。 。 :=39。select * from books where bookid=39。39。39。++39。39。39。39。 。 if =0 then begin showmessage(39。沒(méi)有符合條件的紀(jì)錄 39。)。 /// :=39。39。 /// end else begin /// showmessage(39。紀(jì)錄已經(jīng)查找到了 39。)。 :=39。39。 end。 /// end。 ////// if then begin :=true。 。 。 。 :=39。select * from books where bookname=39。39。39。++39。39。39。39。 。 if =0 then begin showmessage(39。沒(méi)有符合條件的紀(jì)錄 39。)。 :=39。39。 end else begin showmessage(39。紀(jì)錄已經(jīng)查找到了 39。)。 :=39。39。 end。 end。 if then begin :=true。 。 。 。 :=39。select * from books where author=39。39。39。++39。39。39。39。 。 if =0 then begin showmessage(39。沒(méi)有符合條件的紀(jì)錄 39。)。 :=39。39。 end else begin showmessage(39。紀(jì)錄已經(jīng)查找到了 39。)。 :=39。39。 end。 end。 end。 procedure (Sender: TObject)。 begin :=true。 if then begin :=true。 。 if not (39。bookid39。,[]) then begin showmessage(39。沒(méi)有符合條件的紀(jì)錄 39。)。 :=39。39。 end else begin showmessage(39。紀(jì)錄已經(jīng)查找到了 39。)。 。 。 :=39。select * from bore where bookid=:bookid and onceout=true39。 (39。bookid39。).Value:=。 。 :=39。39。 end。 end。 if then begin :=true。 。 if not (39。studentid39。,[]) then begin showmessage(39。沒(méi)有符合條件的紀(jì)錄 39。)。 :=39。39。 end else begin showmessage(39。紀(jì)錄已經(jīng)查找到了 39。)。 。 。 :=39。select * fro