cspregression.designer.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 756 行 · 第 1/3 页

Partial Public Class CSPRegression
	Inherits System.Windows.Forms.Form

	<System.Diagnostics.DebuggerNonUserCode()> _
	Public Sub New()
		MyBase.New()

		'This call is required by the Windows Form Designer.
		InitializeComponent()

	End Sub

	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> _
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing AndAlso components IsNot Nothing Then
			components.Dispose()
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.  
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> _
	Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container
		Me.lblProduct = New System.Windows.Forms.Label
		Me.lblMonths = New System.Windows.Forms.Label
		Me.lblConfidence = New System.Windows.Forms.Label
		Me.txtSignificance = New System.Windows.Forms.TextBox
		Me.lblStudentsT = New System.Windows.Forms.Label
		Me.txtNextQuarterUnits = New System.Windows.Forms.TextBox
		Me.lblNextQuarter = New System.Windows.Forms.Label
		Me.txtNextMonthUnits = New System.Windows.Forms.TextBox
		Me.lblNextMonth = New System.Windows.Forms.Label
		Me.txtAverageUnits = New System.Windows.Forms.TextBox
		Me.lblAverage = New System.Windows.Forms.Label
		Me.txtCorrelation = New System.Windows.Forms.TextBox
		Me.txtSlope = New System.Windows.Forms.TextBox
		Me.txtIntercept = New System.Windows.Forms.TextBox
		Me.lblCorrelation = New System.Windows.Forms.Label
		Me.lblSlope = New System.Windows.Forms.Label
		Me.lblIntercept = New System.Windows.Forms.Label
		Me.chkUseSalesOrders = New System.Windows.Forms.CheckBox
		Me.lstData = New System.Windows.Forms.ListBox
		Me.cboMonths = New System.Windows.Forms.ComboBox
		Me.btnGetData = New System.Windows.Forms.Button
		Me.cboProduct = New System.Windows.Forms.ComboBox
		Me.btnCSPClient = New System.Windows.Forms.Button
		Me.txtStartDate = New System.Windows.Forms.TextBox
		Me.lblStartDate = New System.Windows.Forms.Label
		Me.txtEndDate = New System.Windows.Forms.TextBox
		Me.lblEndDate = New System.Windows.Forms.Label
		Me.txtConfidence = New System.Windows.Forms.TextBox
		Me.lblHeader = New System.Windows.Forms.Label
		Me.txtNextQuarterSales = New System.Windows.Forms.TextBox
		Me.lblNextQuarterSales = New System.Windows.Forms.Label
		Me.txtNextMonthSales = New System.Windows.Forms.TextBox
		Me.lblNextMonthSales = New System.Windows.Forms.Label
		Me.txtAverageSales = New System.Windows.Forms.TextBox
		Me.lblAverageSales = New System.Windows.Forms.Label
		Me.btnAllProducts = New System.Windows.Forms.Button
		Me.txtGetRegression = New System.Windows.Forms.TextBox
		Me.lblGetRegression = New System.Windows.Forms.Label
		Me.txtGetData = New System.Windows.Forms.TextBox
		Me.lblGetData = New System.Windows.Forms.Label
		Me.txtRecords = New System.Windows.Forms.TextBox
		Me.lblRecords = New System.Windows.Forms.Label
		Me.txtUnitPrice = New System.Windows.Forms.TextBox
		Me.lblUnitPrice = New System.Windows.Forms.Label
		Me.txtListPrice = New System.Windows.Forms.TextBox
		Me.lblListPrice = New System.Windows.Forms.Label
		Me.txtDiscount = New System.Windows.Forms.TextBox
		Me.lblDiscount = New System.Windows.Forms.Label
		Me.chkDescending = New System.Windows.Forms.CheckBox
		Me.ttRegr = New System.Windows.Forms.ToolTip(Me.components)
		Me.txtInventory = New System.Windows.Forms.TextBox
		Me.txtDays = New System.Windows.Forms.TextBox
		Me.lblInventory = New System.Windows.Forms.Label
		Me.lblDays = New System.Windows.Forms.Label
		Me.SuspendLayout()
		'
		'lblProduct
		'
		Me.lblProduct.AutoSize = True
		Me.lblProduct.Location = New System.Drawing.Point(12, 41)
		Me.lblProduct.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
		Me.lblProduct.Name = "lblProduct"
		Me.lblProduct.Size = New System.Drawing.Size(46, 14)
		Me.lblProduct.TabIndex = 56
		Me.lblProduct.Text = "Product:"
		'
		'lblMonths
		'
		Me.lblMonths.AutoSize = True
		Me.lblMonths.Location = New System.Drawing.Point(258, 41)
		Me.lblMonths.Name = "lblMonths"
		Me.lblMonths.Size = New System.Drawing.Size(44, 14)
		Me.lblMonths.TabIndex = 55
		Me.lblMonths.Text = "Months:"
		'
		'lblConfidence
		'
		Me.lblConfidence.AutoSize = True
		Me.lblConfidence.Location = New System.Drawing.Point(464, 328)
		Me.lblConfidence.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
		Me.lblConfidence.Name = "lblConfidence"
		Me.lblConfidence.Size = New System.Drawing.Size(81, 14)
		Me.lblConfidence.TabIndex = 54
		Me.lblConfidence.Text = "Confidence (c):"
		'
		'txtSignificance
		'
		Me.txtSignificance.Location = New System.Drawing.Point(522, 296)
		Me.txtSignificance.Name = "txtSignificance"
		Me.txtSignificance.Size = New System.Drawing.Size(59, 20)
		Me.txtSignificance.TabIndex = 53
		Me.txtSignificance.TabStop = False
		Me.txtSignificance.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtSignificance, "Statistical significance (Student's t)")
		'
		'lblStudentsT
		'
		Me.lblStudentsT.AutoSize = True
		Me.lblStudentsT.Location = New System.Drawing.Point(443, 299)
		Me.lblStudentsT.Name = "lblStudentsT"
		Me.lblStudentsT.Size = New System.Drawing.Size(82, 14)
		Me.lblStudentsT.TabIndex = 52
		Me.lblStudentsT.Text = "Significance (t):"
		'
		'txtNextQuarterUnits
		'
		Me.txtNextQuarterUnits.Location = New System.Drawing.Point(389, 325)
		Me.txtNextQuarterUnits.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
		Me.txtNextQuarterUnits.Name = "txtNextQuarterUnits"
		Me.txtNextQuarterUnits.Size = New System.Drawing.Size(62, 20)
		Me.txtNextQuarterUnits.TabIndex = 51
		Me.txtNextQuarterUnits.TabStop = False
		Me.txtNextQuarterUnits.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtNextQuarterUnits, "Projected unit sales for three months following End Date")
		'
		'lblNextQuarter
		'
		Me.lblNextQuarter.AutoSize = True
		Me.lblNextQuarter.Location = New System.Drawing.Point(313, 328)
		Me.lblNextQuarter.Margin = New System.Windows.Forms.Padding(3, 3, 2, 3)
		Me.lblNextQuarter.Name = "lblNextQuarter"
		Me.lblNextQuarter.Size = New System.Drawing.Size(77, 14)
		Me.lblNextQuarter.TabIndex = 50
		Me.lblNextQuarter.Text = "Three Months:"
		'
		'txtNextMonthUnits
		'
		Me.txtNextMonthUnits.Location = New System.Drawing.Point(240, 325)
		Me.txtNextMonthUnits.Margin = New System.Windows.Forms.Padding(0, 3, 3, 3)
		Me.txtNextMonthUnits.Name = "txtNextMonthUnits"
		Me.txtNextMonthUnits.Size = New System.Drawing.Size(62, 20)
		Me.txtNextMonthUnits.TabIndex = 49
		Me.txtNextMonthUnits.TabStop = False
		Me.txtNextMonthUnits.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtNextMonthUnits, "Projected unit sales for month following End Date")
		'
		'lblNextMonth
		'
		Me.lblNextMonth.AutoSize = True
		Me.lblNextMonth.Location = New System.Drawing.Point(176, 328)
		Me.lblNextMonth.Margin = New System.Windows.Forms.Padding(2, 3, 1, 3)
		Me.lblNextMonth.Name = "lblNextMonth"
		Me.lblNextMonth.Size = New System.Drawing.Size(63, 14)
		Me.lblNextMonth.TabIndex = 48
		Me.lblNextMonth.Text = "This Month:"
		'
		'txtAverageUnits
		'
		Me.txtAverageUnits.Location = New System.Drawing.Point(89, 325)
		Me.txtAverageUnits.Margin = New System.Windows.Forms.Padding(1, 3, 2, 3)
		Me.txtAverageUnits.Name = "txtAverageUnits"
		Me.txtAverageUnits.Size = New System.Drawing.Size(77, 20)
		Me.txtAverageUnits.TabIndex = 47
		Me.txtAverageUnits.TabStop = False
		Me.txtAverageUnits.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtAverageUnits, "Average monthly units sold")
		'
		'lblAverage
		'
		Me.lblAverage.AutoSize = True
		Me.lblAverage.Location = New System.Drawing.Point(8, 328)
		Me.lblAverage.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
		Me.lblAverage.Name = "lblAverage"
		Me.lblAverage.Size = New System.Drawing.Size(78, 14)
		Me.lblAverage.TabIndex = 46
		Me.lblAverage.Text = "Average Units:"
		'
		'txtCorrelation
		'
		Me.txtCorrelation.Location = New System.Drawing.Point(366, 296)
		Me.txtCorrelation.Name = "txtCorrelation"
		Me.txtCorrelation.Size = New System.Drawing.Size(62, 20)
		Me.txtCorrelation.TabIndex = 44
		Me.txtCorrelation.TabStop = False
		Me.txtCorrelation.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtCorrelation, "Correlation coefficient")
		'
		'txtSlope
		'
		Me.txtSlope.Location = New System.Drawing.Point(213, 296)
		Me.txtSlope.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
		Me.txtSlope.Name = "txtSlope"
		Me.txtSlope.Size = New System.Drawing.Size(74, 20)
		Me.txtSlope.TabIndex = 41
		Me.txtSlope.TabStop = False
		Me.txtSlope.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtSlope, "Slope of the regression line (units/month)")
		'
		'txtIntercept
		'
		Me.txtIntercept.Location = New System.Drawing.Point(80, 296)
		Me.txtIntercept.Margin = New System.Windows.Forms.Padding(0, 3, 3, 3)
		Me.txtIntercept.Name = "txtIntercept"
		Me.txtIntercept.Size = New System.Drawing.Size(76, 20)
		Me.txtIntercept.TabIndex = 40
		Me.txtIntercept.TabStop = False
		Me.txtIntercept.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.ttRegr.SetToolTip(Me.txtIntercept, "Units at 0 months")
		'
		'lblCorrelation
		'
		Me.lblCorrelation.AutoSize = True
		Me.lblCorrelation.Location = New System.Drawing.Point(294, 299)
		Me.lblCorrelation.Name = "lblCorrelation"
		Me.lblCorrelation.Size = New System.Drawing.Size(77, 14)
		Me.lblCorrelation.TabIndex = 45
		Me.lblCorrelation.Text = "Correlation (r):"
		'
		'lblSlope
		'
		Me.lblSlope.AutoSize = True
		Me.lblSlope.Location = New System.Drawing.Point(162, 299)
		Me.lblSlope.Name = "lblSlope"
		Me.lblSlope.Size = New System.Drawing.Size(53, 14)
		Me.lblSlope.TabIndex = 43
		Me.lblSlope.Text = "Slope (b):"
		'
		'lblIntercept
		'
		Me.lblIntercept.AutoSize = True
		Me.lblIntercept.Location = New System.Drawing.Point(11, 299)
		Me.lblIntercept.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)