clientinfo.vb

VBA专业项目进行开发的实例项目的一些源代码

        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.Location = New System.Drawing.Point(191, 21)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(157, 16)
        Me.Label9.TabIndex = 75
        Me.Label9.Text = "Annual Order Value (in $):"
        '
        'cmbGelInkPenOrdFreq
        '
        Me.cmbGelInkPenOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGelInkPenOrdFreq.Enabled = False
        Me.cmbGelInkPenOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGelInkPenOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbGelInkPenOrdFreq.Location = New System.Drawing.Point(112, 45)
        Me.cmbGelInkPenOrdFreq.Name = "cmbGelInkPenOrdFreq"
        Me.cmbGelInkPenOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbGelInkPenOrdFreq.TabIndex = 24
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.Location = New System.Drawing.Point(8, 45)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(104, 16)
        Me.Label10.TabIndex = 55
        Me.Label10.Text = "Order Frequency:"
        '
        'chkbGelInkPen
        '
        Me.chkbGelInkPen.Location = New System.Drawing.Point(8, 21)
        Me.chkbGelInkPen.Name = "chkbGelInkPen"
        Me.chkbGelInkPen.Size = New System.Drawing.Size(160, 16)
        Me.chkbGelInkPen.TabIndex = 22
        Me.chkbGelInkPen.Text = "Uses Gel Ink Pen"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbCopyPaperCurrPro, Me.Label5, Me.cmbCopyPaperOrderValue, Me.Label6, Me.cmbCopyPaperOrdFreq, Me.Label7, Me.chkbCopyPaper})
        Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox2.Location = New System.Drawing.Point(7, 93)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(520, 80)
        Me.GroupBox2.TabIndex = 55
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Copy Paper"
        '
        'cmbCopyPaperCurrPro
        '
        Me.cmbCopyPaperCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbCopyPaperCurrPro.Enabled = False
        Me.cmbCopyPaperCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbCopyPaperCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbCopyPaperCurrPro.Location = New System.Drawing.Point(344, 45)
        Me.cmbCopyPaperCurrPro.Name = "cmbCopyPaperCurrPro"
        Me.cmbCopyPaperCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbCopyPaperCurrPro.TabIndex = 21
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.Location = New System.Drawing.Point(240, 45)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(104, 16)
        Me.Label5.TabIndex = 77
        Me.Label5.Text = "Current Provider:"
        '
        'cmbCopyPaperOrderValue
        '
        Me.cmbCopyPaperOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbCopyPaperOrderValue.Enabled = False
        Me.cmbCopyPaperOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbCopyPaperOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbCopyPaperOrderValue.Location = New System.Drawing.Point(344, 21)
        Me.cmbCopyPaperOrderValue.Name = "cmbCopyPaperOrderValue"
        Me.cmbCopyPaperOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbCopyPaperOrderValue.TabIndex = 19
        Me.cmbCopyPaperOrderValue.Text = "0"
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.Location = New System.Drawing.Point(191, 21)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(157, 16)
        Me.Label6.TabIndex = 75
        Me.Label6.Text = "Annual Order Value (in $):"
        '
        'cmbCopyPaperOrdFreq
        '
        Me.cmbCopyPaperOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbCopyPaperOrdFreq.Enabled = False
        Me.cmbCopyPaperOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbCopyPaperOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbCopyPaperOrdFreq.Location = New System.Drawing.Point(112, 45)
        Me.cmbCopyPaperOrdFreq.Name = "cmbCopyPaperOrdFreq"
        Me.cmbCopyPaperOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbCopyPaperOrdFreq.TabIndex = 20
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.Location = New System.Drawing.Point(8, 45)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(104, 16)
        Me.Label7.TabIndex = 55
        Me.Label7.Text = "Order Frequency:"
        '
        'chkbCopyPaper
        '
        Me.chkbCopyPaper.Location = New System.Drawing.Point(8, 21)
        Me.chkbCopyPaper.Name = "chkbCopyPaper"
        Me.chkbCopyPaper.Size = New System.Drawing.Size(160, 16)
        Me.chkbCopyPaper.TabIndex = 18
        Me.chkbCopyPaper.Text = "Uses Copy Paper"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbComPaperCurrPro, Me.Label4, Me.cmbComPaperOrderValue, Me.Label3, Me.cmbComPaperOrdFreq, Me.Label2, Me.chkbComPaper})
        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(7, 11)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(520, 72)
        Me.GroupBox1.TabIndex = 54
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Computer Paper"
        '
        'cmbComPaperCurrPro
        '
        Me.cmbComPaperCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbComPaperCurrPro.Enabled = False
        Me.cmbComPaperCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbComPaperCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbComPaperCurrPro.Location = New System.Drawing.Point(344, 42)
        Me.cmbComPaperCurrPro.Name = "cmbComPaperCurrPro"
        Me.cmbComPaperCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbComPaperCurrPro.TabIndex = 17
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(240, 42)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(104, 16)
        Me.Label4.TabIndex = 77
        Me.Label4.Text = "Current Provider:"
        '
        'cmbComPaperOrderValue
        '
        Me.cmbComPaperOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbComPaperOrderValue.Enabled = False
        Me.cmbComPaperOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbComPaperOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbComPaperOrderValue.Location = New System.Drawing.Point(344, 18)
        Me.cmbComPaperOrderValue.Name = "cmbComPaperOrderValue"
        Me.cmbComPaperOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbComPaperOrderValue.TabIndex = 15
        Me.cmbComPaperOrderValue.Text = "0"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(191, 18)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(157, 16)
        Me.Label3.TabIndex = 75
        Me.Label3.Text = "Annual Order Value (in $):"
        '
        'cmbComPaperOrdFreq
        '
        Me.cmbComPaperOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbComPaperOrdFreq.Enabled = False
        Me.cmbComPaperOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbComPaperOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbComPaperOrdFreq.Location = New System.Drawing.Point(112, 42)
        Me.cmbComPaperOrdFreq.Name = "cmbComPaperOrdFreq"
        Me.cmbComPaperOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbComPaperOrdFreq.TabIndex = 16
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(8, 42)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(104, 16)
        Me.Label2.TabIndex = 55
        Me.Label2.Text = "Order Frequency:"
        '
        'chkbComPaper
        '
        Me.chkbComPaper.Location = New System.Drawing.Point(8, 18)
        Me.chkbComPaper.Name = "chkbComPaper"
        Me.chkbComPaper.Size = New System.Drawing.Size(160, 16)
        Me.chkbComPaper.TabIndex = 14
        Me.chkbComPaper.Text = "Uses Computer Paper"
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3})
        Me.TabPage3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabPage3.Location = New System.Drawing.Point(4, 23)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(536, 390)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Product Usage and Competitors - II"
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label16, Me.txtGeneralComments, Me.Label15, Me.txtPastExp, Me.cmbAnnualTurnOver, Me.Label14, Me.GroupBox7, Me.GroupBox8})
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(536, 390)
        Me.Panel3.TabIndex = 1
        '
        'Label16
        '
        Me.Label16.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label16.Location = New System.Drawing.Point(7, 299)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(192, 16)
        Me.Label16.TabIndex = 78
        Me.Label16.Text = "Summarize:"
        '
        'txtGeneralComments
        '
        Me.txtGeneralComments.BackColor = System.Drawing.Color.LightCyan
        Me.txtGeneralComments.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtGeneralComments.Location = New System.Drawing.Point(7, 320)
        Me.txtGeneralComments.Multiline = True
        Me.txtGeneralComments.Name = "txtGeneralComments"
        Me.txtGeneralComments.Size = New System.Drawing.Size(520, 56)
        Me.txtGeneralComments.TabIndex = 40
        Me.txtGeneralComments.Text = ""