【導讀】以及前端應用程序的開發(fā)兩個方面。性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應用程序。調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設計風格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“借閱管理”。點取代人工操作，提高了圖書館管理工作效率。工作學習及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。以前開發(fā)Windows應用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識和經(jīng)過特殊的培訓才能勝任。夠開發(fā)出功能強大、適合自己特殊需求的應用程序了。管理,以及圖書查閱,報表打印等功能的一種計算機應用技術的創(chuàng)新,圖書館管理系統(tǒng)是典型的信息管理。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。都有待于我在以后的工作學習中進一步改進。它易學易用，如同VB，因而被稱為“第四代編程語。從1995年推出至今已經(jīng)經(jīng)歷了7個版本，運行在win9x或winme，win2021，winxp，這里把“VB”比作是傻瓜相機，Delphi是帶有自動功能。用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。沒有這本書，請重新輸入 39。)。 :=39。39。 end else begin end。 if then if not (39。bookname39。,[]) then begin showmessage(39。沒有這本書，請重新輸入 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。沒有這本書，請重新輸入 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。沒有符合條件的紀錄 39。)。 /// :=39。39。 /// end else begin /// showmessage(39。紀錄已經(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。沒有符合條件的紀錄 39。)。 :=39。39。 end else begin showmessage(39。紀錄已經(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。沒有符合條件的紀錄 39。)。 :=39。39。 end else begin showmessage(39。紀錄已經(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。沒有符合條件的紀錄 39。)。 :=39。39。 end else begin showmessage(39。紀錄已經(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。沒有符合條件的紀錄 39。)。 :=39。39。 end else begin showmessage(39。紀錄已經(jīng)查找到了 39。)。 。 。 :=39。select * fro