【正文】 ADOCommand1Prepared。 ADOQuery1SQLAdd(s)。 ADOCommand1Prepared。 Edit1Text=。 ADOCommand1CommandText = insert into Booksale values ( 39。 Edit5Text=。,39。 ADOQuery1ExecSQL()。 Edit1Text=。 ,39。//執(zhí)行所包含的 SQL 語句 ADOQuery1Active=true。 功能分析能全面管理系統(tǒng)的各類主體的信息，如圖書信息，管理員信息，新增圖書信息，圖書退貨信息，查詢圖書信息，刪除圖書和修改密碼等。//清除上次使用的 SQL 語句? ADOQuery1Active=false。//設(shè)置或返回當(dāng)前執(zhí)行的文本命令。39。 ADOQuery1SQLClear()。+Edit1Text+39。 Edit2Text=。 ADOCommand1Prepared。 ADOCommand1Prepared。 s+=39。 s+=39。 where username=39。 Form6Hide()。} 修改密碼界面及代碼顯示功能描述：該模塊主要實(shí)現(xiàn)了密碼修改功能，方便管理員對自己的密碼進(jìn)行管理主要代碼：void __fastcall TForm7::Button1Click(TObject *Sender){ if(Edit1()) { ShowMessage(請輸入用戶名)。 ADOCommand1Prepared。 Edit5Text=。+Edit3Text+39。 } else { ShowMessage(您輸入的圖書數(shù)量超量，不能銷售！)。+Edit4Text+39。 s+=39。 Edit4Text=。+Edit3Text+39。 ApplicationTerminate()。 if(Edit1()) { ShowMessage(請輸入用戶名)。 s+=Edit2Text。 Form2Show()。) 。 t+=39。 ADOCommand1Execute()。 ADOCommand1Execute()。 s+=39。,39。 else{ AnsiString s=delete FROM Bookadd where bookno= 。主要代碼：void __fastcall TForm6::Button1Click(TObject *Sender){ AnsiString s=select * from Bookadd 。 ADOCommand1CommandType = cmdText。另外通過本次課程設(shè)計(jì)，為我們以后的課程設(shè)計(jì)或畢業(yè)設(shè)計(jì)打下了一些基礎(chǔ)。 Edit2SetFocus()。 Edit1Text=。 Form5Hide()。,39。主要代碼：代碼與銷售的差不多，主要是判別銷售數(shù)量與退還數(shù)量 if(ADOQuery1FieldByName(s_sum)AsString = Edit5Text) { AnsiString s=update Bookadd set bsum=bsum+ 。,39。 s+=39。 Form3Hide()。,39。 Edit2Text= 。 s+= where username=39。 s+=Edit1Text。 Edit1SetFocus()。+Edit5Text+39。 }} 銷售圖書界面及代碼顯示功能描述：實(shí)現(xiàn)銷售圖書功能，主要填寫的數(shù)據(jù)有銷售單號、圖書編號、名稱、銷售數(shù)量、 金額以及銷售的日期，將這些數(shù)據(jù)添加到數(shù)據(jù)庫中的 Booksale 表中，同時(shí)將 Bookadd 表中的圖書數(shù)量做相應(yīng)的減少操作。 ADOCommand1CommandType = cmdText。+Edit6Text+39。 s+=39。+Edit5Text+39。 } else { ShowMessage(您輸入的圖書數(shù)量超量，不能退還！)。 Edit2Text=。 Edit3SetFocus()。在這里我們要謝謝我們的同學(xué)們和周強(qiáng)老師，他們不僅給我們指出了較好的運(yùn)行程序的環(huán)境和開發(fā)平臺，而且不時(shí)的為我們解疑難問題，讓我對課程程序中出錯(cuò)地方有了更深刻的了解，對掌握它又有了新的方法，周強(qiáng)老師對數(shù)據(jù)庫建表的講解使我們對數(shù)據(jù)庫基礎(chǔ)知識有了進(jìn)一步的認(rèn)識。 AnsiString p=Edit1Text。 }} 查詢圖書界面及代碼顯示功能描述：實(shí)現(xiàn)查詢圖書信息的功能，以便在實(shí)現(xiàn)新增、銷售、退還、刪除時(shí)進(jìn)行實(shí)時(shí)查看， 同時(shí)可以進(jìn)行單一的查詢，在進(jìn)行設(shè)計(jì)時(shí)添加了“sleect * from Bookadd” ，設(shè)置 了按圖書編號查詢的操作，以便快速的查詢指定的圖書信息。主要代碼：void __fastcall TForm8::Button1Click(TObject *Sender){ if(Edit2()||Edit1()) ShowMessage(圖書信息不能為空請輸入!)。+Edit6Text+39。 s+=Edit5Text。 ADOCommand1Prepared。 ADOCommand1Prepared。 else { AnsiString t= select * from Bookadd where bookno= 。+Edit6Text+39。 } } else { Form1Hide()。 s+= and passw