📄 frmwizardnumericattributes.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmWizardNumericAttributes
BorderStyle = 3 'Fixed Dialog
Caption = "Data Mining Wizard "
ClientHeight = 5190
ClientLeft = 45
ClientTop = 330
ClientWidth = 6870
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5190
ScaleWidth = 6870
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
WhatsThisHelp = -1 'True
Begin VB.Frame fraWelcome
Height = 4935
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 6615
Begin VB.Frame fraSelectedTable
Caption = "&Your Selected Columns"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3255
Left = 3360
TabIndex = 9
Top = 240
Width = 3150
Begin MSComctlLib.TreeView tvwClassPredict
Height = 2895
Left = 75
TabIndex = 11
Top = 240
Width = 3000
_ExtentX = 5292
_ExtentY = 5106
_Version = 393217
LineStyle = 1
Sorted = -1 'True
Style = 6
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame fraAvailableTables
Caption = "&Select The Numeric Columns"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3255
Left = 120
TabIndex = 8
Top = 240
Width = 3150
Begin MSComctlLib.TreeView tvwAttributes
Height = 2895
Left = 75
TabIndex = 10
Top = 240
Width = 3000
_ExtentX = 5292
_ExtentY = 5106
_Version = 393217
Sorted = -1 'True
Style = 6
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
End
End
Begin VB.Frame fraWelcome
Height = 615
Index = 2
Left = 120
TabIndex = 6
Top = 3480
Width = 6375
Begin VB.Label lblWelcome
Caption = "Select The Columns That Have Numeric Values (Numeric Attributes)."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 120
TabIndex = 7
Top = 240
Width = 6135
WordWrap = -1 'True
End
End
Begin VB.Frame FraNavigation
Height = 735
Left = 360
TabIndex = 1
Top = 4080
Width = 5895
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 5
Top = 240
Width = 855
End
Begin VB.CommandButton cmdHelp
Caption = "&Help"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 4
Top = 240
Width = 855
End
Begin VB.CommandButton cmdNext
Caption = "&Next >"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 3
Top = 240
Width = 855
End
Begin VB.CommandButton cmdBack
Caption = "< &Back"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 2
Top = 240
Width = 855
End
End
End
End
Attribute VB_Name = "frmWizardNumericAttributes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private rstSchema As ADODB.Recordset
Private Sub cmdBack_Click()
frmWizardDefineAttributes.Show
Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
frmWizardWelcome.Show
End Sub
Private Sub cmdNext_Click()
On Error GoTo ErrorHandler
Dim strSQL As String
Dim strTable As String
Dim varData As Variant
Dim CountFields As Long
Dim lngNumeric As Long
Dim lngNonNumeric As Long
'The SQL String Used In Processing
varData = DataMiningServer.AttributesSelected
strSQL = "SELECT "
For CountFields = LBound(varData) To UBound(varData)
strSQL = strSQL & varData(CountFields) & ", "
Next
strSQL = Trim(strSQL)
If Right(strSQL, 1) = "," Then
strSQL = Mid(strSQL, 1, (Len(strSQL) - 1))
End If
strTable = Trim(DataMiningServer.TableSelected)
'Replace any bracketing of the table name
If Right(strTable, 1) = "]" Then
strTable = Mid(strTable, 1, (Len(strTable) - 1))
End If
If Left(strTable, 1) = "[" Then
strTable = Mid(strTable, 2, (Len(strTable) - 1))
End If
strSQL = strSQL & " FROM " & strTable
DataMiningServer.SQLStatementUsed = strSQL
DataMiningServer.UseView = SQLView
'Create a List Of Numeric And
'Non Numeric Selections
lngNumeric = DataMiningServer.CountOfNumericAttributes
lngNonNumeric = DataMiningServer.CountOfNonNumericAttributes
If (lngNumeric = 0) And (lngNonNumeric = 0) Then
Call TreeView_Selection
End If
frmWizardResults.Show
Me.Hide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -