河南科技大學課程設計說明書課程名稱＿＿軟件項目綜合實踐＿＿題目＿＿圖書借閱數(shù)據(jù)挖掘系統(tǒng)＿＿院系＿電子信息工程學院計算機系＿班級＿＿＿＿計科***＿＿＿＿學生姓名＿＿＿＿***＿＿＿＿＿指導教師＿孫士保、白秀玲、趙海霞＿日期＿2012.9.3~2012.9.14＿軟件項目綜合實踐任務書軟件項目綜合實踐題目圖書借閱數(shù)據(jù)挖掘系統(tǒng)姓名***學號*****專業(yè)班級計算機09*組長***同組成員*****指導教師孫士保白秀玲趙海霞軟件項目綜合實踐目的通過綜合實踐，使學生鞏固數(shù)據(jù)庫技術、數(shù)據(jù)結構、數(shù)據(jù)挖掘等知識，將理論與實際相結合，完成一個小型數(shù)據(jù)挖掘系統(tǒng)的設計與實現(xiàn)。在此基礎上強化學生的實踐意識，提高其實際動手能力和創(chuàng)新能力。軟件項目綜合實踐環(huán)境硬件：裝有windows操作系統(tǒng)的計算機軟件：SQLServer2000C++Builder軟件項目綜合實踐任務和要求任務：1.進行圖書借閱數(shù)據(jù)挖掘系統(tǒng)的數(shù)據(jù)管理、數(shù)據(jù)采集、數(shù)據(jù)預處理、數(shù)據(jù)挖掘、解釋評估等步驟的設計；2.實現(xiàn)圖書借閱數(shù)據(jù)挖掘系統(tǒng)的主界面、圖書借閱數(shù)據(jù)挖掘模塊的功能。要求：1.功能滿足需求說明、界面友好、保證一定性能要求。2.撰寫出符合要求的軟件項目綜合實踐報告。參考文獻毛國君等,數(shù)據(jù)挖掘原理與算法.北京:·清華大學出版社王珊等數(shù)據(jù)庫系統(tǒng)概論高等教育出版社時間進度安排序號起止日期工作內(nèi)容120講授數(shù)據(jù)挖掘概念及其算法，學生分組220數(shù)據(jù)預處理，形成挖掘處理所需要的數(shù)據(jù)格式32012年9月5日-算法設計420界面設計:參數(shù)設置，閾值設定；結果顯示520程序組裝調試62012年9月12-13日講授文檔撰寫方法，形成文檔內(nèi)容及格式撰寫要求，撰寫軟件綜合實踐報告，檢查程序720檢查程序，上交軟件綜合實踐報告指導教師簽字：年月日圖書借閱數(shù)據(jù)挖掘系統(tǒng)致謝在這篇論文即將完成之時，我要在這里特別的感謝一下在我的畢業(yè)設計過程中幫助和關心過我的老師和同學。在畢業(yè)設計的整個實驗過程中，孫士保、白秀玲、趙海霞三位老師給了我很多的關心和幫助。特別是孫士保老師，他嚴謹?shù)闹螌W態(tài)度、親和的工作作風以及深厚的科研知識，都給我留下了深刻的印象。從孫老師身上，我學到了很多東西，不僅是學術知識，還有工作方式、治學態(tài)度等。最后，再一次向所有關心過我、幫助過我的老師和同學送上最深的謝意和最真摯的祝福！參考文獻毛國君等,數(shù)據(jù)挖掘原理與算法.北京:清華大學出版社王珊等數(shù)據(jù)庫系統(tǒng)概論高等教育出版社附錄個人設計界面程序代碼圖書借閱系統(tǒng)主界面代碼：//圖書借閱系統(tǒng)主界面#include<vcl.h>#pragmahdrstop#include"Unit1.h"#include"Unit3.h"#include"Unit2.h"#include"Unit4.h"http://#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm1*Form1;//__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner){}//void__fastcallTForm1::Button1Click(TObject*Sender){Form3->Show();}//void__fastcallTForm1::Button2Click(TObject*Sender){Form2->Show();}//void__fastcallTForm1::Button4Click(TObject*Sender){Form1->Close();}//void__fastcallTForm1::Button3Click(TObject*Sender){Form4->Show();}//借閱信息數(shù)據(jù)挖掘代碼://借閱信息數(shù)據(jù)挖掘代碼#include<vcl.h>#pragmahdrstop#include"Unit3.h"#include"Unit7.h"http://#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm3*Form3;inti=0,a=0;boolt1=false,t2=false,t3=false;//__fastcallTForm3::TForm3(TComponent*Owner):TForm(Owner){}//void__fastcallTForm3::creat(){i=0;a=0;TADOQuery*query=newTADOQuery(NULL);query->Connection=Form3->ADOConnection1;query->SQL->Clear();query->SQL->Add("selectreaderid,bookid,booknamefromborrow");query->ExecSQL();query->Open();AnsiStringstr1,str2,str3,str4;ListBox1->Items->Add("readeridbookidbookname");while(!query->Eof){str1=query->FieldByName("readerid")->AsString;str2=query->FieldByName("bookid")->AsString;str3=query->FieldByName("bookname")->AsString;str4=str1+""+str2+""+str3;ListBox1->Items->Add(str4);query->MoveBy(1);i++;}ListBox1->Items->Add("================================");ListBox1->Items->Add("");query->SQL->Clear();query->SQL->Add("selectcount(bookid)counttfrombook");query->ExecSQL();query->Open();if(!query->Eof)a=StrToInt(query->FieldByName("countt")->AsString);deletequery;}void__fastcallTForm3::fun1(){TADOQuery*query=newTADOQuery(NULL);query->Connection=Form3->ADOConnection1;intj=0,m,n;int*num=newint[a];j=Edit1->Text*i;AnsiStringstr1="",str2="";str1="候選集1";str2="頻選集1";ListBox1->Items->Add(str1);for(m=1;m<=a;m++){str1="";query->SQL->Clear();query->SQL->Add("selectcount(readerid)counttfromborrowwherebookid='"+IntToStr(m)+"'");query->ExecSQL();query->Open();if(!query->Eof){num[m-1]=StrToInt(query->FieldByName("countt")->AsString);if(num[m-1]!=0){str1+=IntToStr(m)+""+query->FieldByName("countt")->AsString;ListBox1->Items->Add(str1);}}}ListBox1->Items->Add(str2);for(m=0;m<a;m++)if(num[m]>=j){t1=true;str2="";str2+=IntToStr(m+1)+""+IntToStr(num[m]);ListBox1->Items->Add(str2);}ListBox1->Items->Add("");ListBox1->Items->Add("");delete[]num;deletequery;}void__fastcallTForm3::fun2(){TADOQuery*query=newTADOQuery(NULL);query->Connection=Form3->ADOConnection1;intj=0,m,n;int**num1=newint*[a];for(intb=0;b<a;b++)num1[b]=newint[a];j=Edit1->Text*i;AnsiStringstr1="",str2="";str1="候選集2";str2="頻選集2";ListBox1->Items->Add(str1);for(m=1;m<=a;m++)for(n=m+1;n<=a;n++){str1="";query->SQL->Clear();query->SQL->Add("selectcount(readerid)counttfromborrowwherebookid='"+IntToStr(m)+"'andreaderidin(selectreaderidfromborrowwherebookid='"+IntToStr(n)+"')");query->ExecSQL();query->Open();if(!query->Eof){num1[m-1][n-1]=StrToInt(query->FieldByName("countt")->AsString);if(num1[m-1][n-1]!=0){str1+=IntToStr(m)+""+IntToStr(n)+""+query->FieldByName("countt")->AsString;ListBox1->Items->Add(str1);}}}ListBox1->Items->Add(str2);for(m=0;m<a;m++)for(n=m+1;n<a;n++)if(num1[m][n]>=j){t2=true;str2="";str2+=IntToStr(m+1)+""+IntToStr(n+1)+""+IntToStr(num1[m][n]);ListBox1->Items->Add(str2);}ListBox1->Items->Add("");ListBox1->Items->Add("");delete[]num1;deletequery;}void__fastcallTForm3::fun3(){TADOQuery*query=newTADOQuery(NULL);query->Connection=Form3->ADOConnection1;intj=0,m,n,h,b,c;int***num3=newint**[a];for(b=0;b<a;b++)num3[b]=newint*[a];for(b=0;b<a;b++)for(c=0;c<a;c++)num3[b][c]=newint[a];j=Edit1->Text*i;AnsiStringstr1="",str2="";str1="候選集3";str2="頻選集3";ListBox1->Items->Add(str1);for(m=1;m<=a;m++)for(n=m+1;n<=a;n++)for(h=n+1;h<=a;h++){str1="";query->SQL->Clear();query->SQL->Add("selectcount(readerid)counttfromborrowwherebookid='"+IntToStr(m)+"'andreaderidin(selectreaderidfromborrowwherebookid='"+IntToStr(n)+"'andreaderidin(selectreaderidfromborrowwherebookid='"+IntToStr(h)+"'))");query->ExecSQL();query->Open();if(!query->Eof){num3[m-1][n-1][h-1]=StrToInt(query->FieldByName("countt")->AsString);if(num3[m-1][n-1][h-1]!=0){str1+=IntToStr(m)+""+IntToStr(n)+""+IntToStr(h)+""+query->FieldByName("countt")->AsString;ListBox1->Items->Add(str1);}}}ListBox1->Items->Add(str2);for(m=0;m<a;m++)for(n=m+1;n<a;n++)for(h=n+1;h<a;h++)if(num3[m][n][h]>=j){t3=true;str2="";str2+=IntToStr(m+1)+""+IntToStr(n+1)+""+IntToStr(h+1)+""+IntToStr(num3[m][n][h]);ListBox1->Items->Add(str2);}ListBox1->Items->Add("");ListBox1->Items->Add("");delete[]num3;deletequery;}void__fastcallTForm3::guanlian(){TADOQuery*query=newTADOQuery(NULL);query->Connection=Form3->ADOConnection1;intj=0,m,n,h,f,g;floatk;j=Edit1->Text*i;k=StrToFloat(Edit2->Text);AnsiStringstr1="",str2="";str1="關聯(lián)規(guī)則";ListBox1->Items->Add(str1);for(m=1;m<=a;m++){f=0;query->SQL->Clear();query->SQL->Add("selectcount(readerid)counttfromborrowwherebookid='"+IntToStr(m)+"'");query->ExecSQL();query->Open();f=StrToInt(query->FieldByName("countt")->AsString);if(f!=0){for(n=1;n<=a;n++){if(m!=n){g=0;query->SQL->Clear();query->SQL->Add("selectcount(readerid)counttfromborrowwherebookid='"+IntToStr(m)+"'andreaderidin(selectreaderidfromborrowwherebookid='"+IntToStr(n)+"')");query->ExecSQL();query->Open();g=StrToInt(query->FieldByName("countt")->AsString);if(100*g/f>=(k*100)){str2="";query->SQL->Clear();query->SQL->Add("selectbooknamefrombookwherebookid='"+IntToStr(m)+"'");query->ExecSQL();query->Open();str2+=query->FieldByName("bookname")->AsString;query->SQL->Clear();query->SQL->Add("selectbooknamefrombookwherebookid='"+IntToStr(n)+"'");query->ExecSQL();query->Open();str2+="=========>"+query->FieldByName("bookname")->AsString+""+FloatToStr(100*g/f)+"%";ListBox1->Items->Add(str2);}}}}}deletequery;}void__fastcallTForm3::FormCreate(TObject*Sender){creat();}//void__fastcallTForm3::Button1Click(TObject*Sender){if(Edit1->Text<1&&Edit2->Text<1&&Edit3->Text!=""){intl=StrToInt(Edit3->Text);if(l<=3){if(l==1){ListBox1->Clear();creat();fun1();}elseif(l==2){ListBox1->Clear();creat();fun1();if(t1==true)fun2();}elseif(l==3){ListBox1->Clear();creat();fun1();if(t1==true){fun2();if(t2==true)fun3();}}guanlian();}elseShowMessage("挖掘深度請輸入0到3之間的整數(shù)！");}elseShowMessage("請輸入0到1之間的數(shù)！");}//void__fastcallTForm3::Button2Click(TObject*Sender){Form3->Close();}//void__fastcallTForm3::Button3Click(TObject*Sender){Form7->Show();}//借閱信息查詢界面代碼://借閱信息查詢界面代碼#include<vcl.h>#pragmahdrstop#include"Unit7.h"http://#pragmapackage(smart_init)#pragmaresource"*.dfm"TFo