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