clientinfo.vb

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

Imports System.Data.OleDb
Public Class ClientInfo
    Inherits System.Windows.Forms.Form
    Private ourConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\EasySelling\EasySelling.mdb;Persist Security Info=False"
    Private clientConnection As OleDbConnection = New OleDbConnection(ourConn)
    Private clientCommand As OleDbCommand
    Private clientDataReader As OleDbDataReader
    Friend WithEvents chkbComPaper As System.Windows.Forms.CheckBox
    Friend WithEvents cmbComPaperOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents cmbComPaperOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents cmbComPaperCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents cmbCopyPaperOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents cmbCopyPaperOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents chkbCopyPaper As System.Windows.Forms.CheckBox
    Friend WithEvents cmbCopyPaperCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents cmbGelInkPenOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents chkbGelInkPen As System.Windows.Forms.CheckBox
    Friend WithEvents cmbGelInkPenOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents cmbGelInkPenCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents chkbHighLighter As System.Windows.Forms.CheckBox
    Friend WithEvents cmbHighLighterCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents cmbHighLighterOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents cmbHighLighterOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents cmbScotchTapeOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents chkbScotchTape As System.Windows.Forms.CheckBox
    Friend WithEvents cmbScotchTapeOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents cmbScotchTapeCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents cmbGlueSticOrderValue As System.Windows.Forms.ComboBox
    Friend WithEvents chkbGlueStic As System.Windows.Forms.CheckBox
    Friend WithEvents cmbGlueSticCurrPro As System.Windows.Forms.ComboBox
    Friend WithEvents cmbGlueSticOrdFreq As System.Windows.Forms.ComboBox
    Friend WithEvents cmbAnnualTurnOver As System.Windows.Forms.ComboBox
    Friend WithEvents txtGeneralComments As System.Windows.Forms.TextBox
    Friend WithEvents txtPastExp As System.Windows.Forms.TextBox
    Private strSqlStatement As String
    Private varCompanyName As New StartApplication.ShareClass()
    Private clientID As Long
    Private adoConn As New ADODB.Connection()
    Private rsSalesRep As New ADODB.Recordset()

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

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

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents lblLabelFormDes As System.Windows.Forms.Label
    Friend WithEvents btnUpdate As System.Windows.Forms.Button
    Friend WithEvents lblAddress_Line1 As System.Windows.Forms.Label
    Friend WithEvents lblAddress_Line2 As System.Windows.Forms.Label
    Friend WithEvents lblCellPhoneNumber As System.Windows.Forms.Label
    Friend WithEvents lblCity As System.Windows.Forms.Label
    Friend WithEvents lblClient_Name As System.Windows.Forms.Label
    Friend WithEvents lblContact_Person As System.Windows.Forms.Label
    Friend WithEvents editCellPhoneNumber As System.Windows.Forms.TextBox
    Friend WithEvents editCity As System.Windows.Forms.TextBox
    Friend WithEvents lblEmailAddress As System.Windows.Forms.Label
    Friend WithEvents lblFax As System.Windows.Forms.Label
    Friend WithEvents lblPhoneNumber As System.Windows.Forms.Label
    Friend WithEvents lblRemarks As System.Windows.Forms.Label
    Friend WithEvents lblState As System.Windows.Forms.Label
    Friend WithEvents lblTitle As System.Windows.Forms.Label
    Friend WithEvents lblZipCode As System.Windows.Forms.Label
    Friend WithEvents editEmailAddress As System.Windows.Forms.TextBox
    Friend WithEvents editFax As System.Windows.Forms.TextBox
    Friend WithEvents editPhoneNumber As System.Windows.Forms.TextBox
    Friend WithEvents editRemarks As System.Windows.Forms.TextBox
    Friend WithEvents editState As System.Windows.Forms.TextBox
    Friend WithEvents editTitle As System.Windows.Forms.TextBox
    Friend WithEvents editZipCode As System.Windows.Forms.TextBox
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents cmbIndustryType As System.Windows.Forms.ComboBox
    Friend WithEvents editAddressLine1 As System.Windows.Forms.TextBox
    Friend WithEvents editAddressLine2 As System.Windows.Forms.TextBox
    Friend WithEvents editClientName As System.Windows.Forms.TextBox
    Friend WithEvents editContactPerson As System.Windows.Forms.TextBox

    '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.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.cmbIndustryType = New System.Windows.Forms.ComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lblLabelFormDes = New System.Windows.Forms.Label()
        Me.btnUpdate = New System.Windows.Forms.Button()
        Me.lblAddress_Line1 = New System.Windows.Forms.Label()
        Me.lblAddress_Line2 = New System.Windows.Forms.Label()
        Me.lblCellPhoneNumber = New System.Windows.Forms.Label()
        Me.lblCity = New System.Windows.Forms.Label()
        Me.lblClient_Name = New System.Windows.Forms.Label()
        Me.lblContact_Person = New System.Windows.Forms.Label()
        Me.editAddressLine1 = New System.Windows.Forms.TextBox()
        Me.editAddressLine2 = New System.Windows.Forms.TextBox()
        Me.editCellPhoneNumber = New System.Windows.Forms.TextBox()
        Me.editCity = New System.Windows.Forms.TextBox()
        Me.editClientName = New System.Windows.Forms.TextBox()
        Me.editContactPerson = New System.Windows.Forms.TextBox()
        Me.lblEmailAddress = New System.Windows.Forms.Label()
        Me.lblFax = New System.Windows.Forms.Label()
        Me.lblPhoneNumber = New System.Windows.Forms.Label()
        Me.lblRemarks = New System.Windows.Forms.Label()
        Me.lblState = New System.Windows.Forms.Label()
        Me.lblTitle = New System.Windows.Forms.Label()
        Me.lblZipCode = New System.Windows.Forms.Label()
        Me.editEmailAddress = New System.Windows.Forms.TextBox()
        Me.editFax = New System.Windows.Forms.TextBox()
        Me.editPhoneNumber = New System.Windows.Forms.TextBox()
        Me.editRemarks = New System.Windows.Forms.TextBox()
        Me.editState = New System.Windows.Forms.TextBox()
        Me.editTitle = New System.Windows.Forms.TextBox()
        Me.editZipCode = New System.Windows.Forms.TextBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.cmbHighLighterCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.cmbHighLighterOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.cmbHighLighterOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.chkbHighLighter = New System.Windows.Forms.CheckBox()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.cmbGelInkPenCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.cmbGelInkPenOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.cmbGelInkPenOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.chkbGelInkPen = New System.Windows.Forms.CheckBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.cmbCopyPaperCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cmbCopyPaperOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.cmbCopyPaperOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.chkbCopyPaper = New System.Windows.Forms.CheckBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.cmbComPaperCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.cmbComPaperOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.cmbComPaperOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.chkbComPaper = New System.Windows.Forms.CheckBox()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.txtGeneralComments = New System.Windows.Forms.TextBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.txtPastExp = New System.Windows.Forms.TextBox()
        Me.cmbAnnualTurnOver = New System.Windows.Forms.ComboBox()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.cmbGlueSticCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.cmbGlueSticOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.cmbGlueSticOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.chkbGlueStic = New System.Windows.Forms.CheckBox()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.cmbScotchTapeCurrPro = New System.Windows.Forms.ComboBox()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.cmbScotchTapeOrderValue = New System.Windows.Forms.ComboBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.cmbScotchTapeOrdFreq = New System.Windows.Forms.ComboBox()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.chkbScotchTape = New System.Windows.Forms.CheckBox()
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()