数据挖掘课程设计指导书2015.docVIP

数据挖掘课程设计 指导书 河北工业大学 经济管理学院 2015年1月 一、课程设计的目的 在对数据仓库与数据挖掘理论学习的基础上，通过课程设计进一步巩固所学知识，课程设计由学生，使用计算机辅助设计完成。 使用候选项集找频繁项集（由Apriori算法实现） D→C1→L1→C2→L2→C3→L3→…→Ck→Lk→ …→Cm－1→Lm－1 如此下去，直到不能找到频繁m-项集。 其中： Ck ：候选k-项集的集合（k＝1…m－1）， 由Lk-1产生。 Lk：频繁k-项集的集合（k＝1…m－1）, Lk满足最小支持度，即最小事务支持计数。 D：待挖掘的事务数据库。 2.由频繁项集产生强关联规则 对于每个频繁项集L，产生L的所有非空子集。 对于L的每个非空子集s，如果 则输出规则“s (（L-s）”。其中，min_conf是最小置信度阈值。 VB挖掘系统界面设计 新建工程，添加MDIForm窗体和多个一般Form窗体，一个模块 为MDIForm窗体添加菜单 将MDIForm窗体的菜单和多个一般Form窗体进行连接 Private Sub d_Click() Form1.Show End Sub Private Sub dg_Click() Form2.Show End Sub 设计一般窗体的界面 如：数据显示界面 应用ADO方法进行VB与数据库的连接 新建VB工程，从下拉菜单中选择：工程——引用 选择对ADO对象和Recordset对象的引用 在工程中添加模块 在模块中写入以下代码 与Access数据库连接 Option Explicit Public zlmt As New ADODB.Connection ********************************************************** Sub Main() On Error GoTo Unconnect 使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在 z lmt.ConnectionTimeout = 10 s zlmt.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \数据库名（用具体数据库名替换）;Persist Security Info=False zlmt.Open MDIForm1.Show 启动窗体 Exit Sub Unconnect: MsgBox 数据库网络连接失败，程序将终止！, vbCritical + vbOKOnly Set zlmt = Nothing Exit Sub End Sub 与SQL Server数据库连接 Option Explicit Public zlmt As New ADODB.Connection ********************************************************** Sub Main() On Error GoTo Unconnect 使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在 z lmt.ConnectionTimeout = 10 s zlmt.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名（用具体数据库名替换）;Data Source=服务器名称（用具体服务器名替换） zlmt.Open MDIForm1.Show 启动窗体 Exit Sub Unconnect: MsgBox 数据库网络连接失败，程序将终止！, vbCritical + vbOKOnly Set zlmt = Nothing Exit Sub End Sub FlexGrid控件的使用 将数据库表中内容写入界面 Private Sub AddResult() ================================================= On Error GoTo ErrHandle Err.Clear intErrorJudge = 1 ================================================== Dim i As Inte