关联规则算法的实现和表示Delphi源码

				program iAnalysis;
				
				uses
				  Forms,
				  UnitFrmMain in 'Source\UnitFrmMain.pas' {FrmMain},
				  ADOMD_TLB in '..\..\..\delphi\Delphi7\Borland Delphi 7 Studio Enterprise\Imports\ADOMD_TLB.pas',
				  UnitFrmYearAndCountry in 'Source\UnitFrmYearAndCountry.pas' {FrmYearAndCountry},
				  UnitFrmMonthAndCountry in 'Source\UnitFrmMonthAndCountry.pas' {FrmMonthAndCountry},
				  UnitFrmYearAndProduct in 'Source\UnitFrmYearAndProduct.pas' {FrmYearAndProduct},
				  UnitFrmMonthAndProduct in 'Source\UnitFrmMonthAndProduct.pas' {FrmMonthAndProduct},
				  UnitFrmCustomerAndCategory in 'Source\UnitFrmCustomerAndCategory.pas' {FrmCustomerAndCategory},
				  UnitFrmCustomerAndProduct in 'Source\UnitFrmCustomerAndProduct.pas' {FrmCustomerAndProduct},
				  UnitDM in 'Source\UnitDM.pas' {DM: TDataModule},
				  UnitFrm3D in 'Source\UnitFrm3D.pas' {Frm3D},
				  UnitFrm3DView in 'Source\UnitFrm3DView.pas' {Frm3DView},
				  UnitFrmAssociation in 'Source\UnitFrmAssociation.pas' {FrmAssociation};
				
				{$R *.res}
				
				begin
				  Application.Initialize;
				  Application.CreateForm(TFrmMain, FrmMain);
				  Application.CreateForm(TFrmYearAndCountry, FrmYearAndCountry);
				  Application.CreateForm(TFrmMonthAndCountry, FrmMonthAndCountry);
				  Application.CreateForm(TFrmYearAndProduct, FrmYearAndProduct);
				  Application.CreateForm(TFrmMonthAndProduct, FrmMonthAndProduct);
				  Application.CreateForm(TFrmCustomerAndCategory, FrmCustomerAndCategory);
				  Application.CreateForm(TFrmCustomerAndProduct, FrmCustomerAndProduct);
				  Application.CreateForm(TDM, DM);
				  Application.CreateForm(TFrm3D, Frm3D);
				  Application.CreateForm(TFrm3DView, Frm3DView);
				  Application.CreateForm(TFrmAssociation, FrmAssociation);
				  Application.Run;
				end.