图书借阅数据挖掘课程设计

河南科技大学课程设计说明书课程名称＿＿软件项目综合实践＿＿题目＿＿图书借阅数据挖掘系统＿＿院系＿电子信息工程学院计算机系＿班级＿＿＿＿计科***＿＿＿＿学生姓名＿＿＿＿***＿＿＿＿＿指导教师＿孙士保、白秀玲、赵海霞＿日期＿2012.9.3~2012.9.14＿软件项目综合实践任务书软件项目综合实践题目图书借阅数据挖掘系统姓名***学号*****专业班级计算机09*组长***同组成员*****指导教师孙士保白秀玲赵海霞软件项目综合实践目的通过综合实践，使学生巩固数据库技术、数据结构、数据挖掘等知识，将理论与实际相结合，完成一个小型数据挖掘系统的设计与实现。在此基础上强化学生的实践意识，提高其实际动手能力和创新能力。软件项目综合实践环境硬件：装有windows操作系统的计算机软件：SQLServer2000C++Builder软件项目综合实践任务和要求任务：1.进行图书借阅数据挖掘系统的数据管理、数据采集、数据预处理、数据挖掘、解释评估等步骤的设计；2.实现图书借阅数据挖掘系统的主界面、图书借阅数据挖掘模块的功能。要求：1.功能满足需求说明、界面友好、保证一定性能要求。2.撰写出符合要求的软件项目综合实践报告。参考文献毛国君等,数据挖掘原理与算法.北京:·清华大学出版社王珊等数据库系统概论高等教育出版社时间进度安排序号起止日期工作内容120讲授数据挖掘概念及其算法，学生分组220数据预处理，形成挖掘处理所需要的数据格式32012年9月5日-算法设计420界面设计:参数设置，阈值设定；结果显示520程序组装调试62012年9月12-13日讲授文档撰写方法，形成文档内容及格式撰写要求，撰写软件综合实践报告，检查程序720检查程序，上交软件综合实践报告指导教师签字：年月日图书借阅数据挖掘系统致谢在这篇论文即将完成之时，我要在这里特别的感谢一下在我的毕业设计过程中帮助和关心过我的老师和同学。在毕业设计的整个实验过程中，孙士保、白秀玲、赵海霞三位老师给了我很多的关心和帮助。特别是孙士保老师，他严谨的治学态度、亲和的工作作风以及深厚的科研知识，都给我留下了深刻的印象。从孙老师身上，我学到了很多东西，不仅是学术知识，还有工作方式、治学态度等。最后，再一次向所有关心过我、帮助过我的老师和同学送上最深的谢意和最真挚的祝福！参考文献毛国君等,数据挖掘原理与算法.北京:清华大学出版社王珊等数据库系统概论高等教育出版社附录个人设计界面程序代码图书借阅系统主界面代码：//图书借阅系统主界面#include<vcl.h>#pragmahdrstop#include"Unit1.h"#include"Unit3.h"#include"Unit2.h"#include"Unit4.h"//#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();}//借阅信息数据挖掘代码://借阅信息数据挖掘代码#include<vcl.h>#pragmahdrstop#include"Unit3.h"#include"Unit7.h"//#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="关联规则";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之间的整数！");}elseShowMessage("请输入0到1之间的数！");}//void__fastcallTForm3::Button2Click(TObject*Sender){Form3->Close();}//void__fastcallTForm3::Button3Click(TObject*Sender){Form7->Show();}//借阅信息查询界面代码://借阅信息查询界面代码#include<vcl.h>#pragmahdrstop#include"Unit7.h"//#pragmapackage(smart_init)#pragmaresource"*.dfm"TFo