startapplication.vb

这是一个VBA开发的项目实例

Imports System.Data.OleDb
Public Class StartApplication
    Inherits System.Windows.Forms.Form

    Public Class ShareClass
        Public Shared SharedValue As String
        Public Shared SharedClientID As Long
    End Class

    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
    Private strSqlStatement As String
    Friend WithEvents editName As System.Windows.Forms.TextBox
    Friend WithEvents btnDeselectAll As System.Windows.Forms.Button
    Friend WithEvents btnRefreshList As System.Windows.Forms.Button
    Private checkFirstTime As String

#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 TabStart As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    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 editAddress_Line1 As System.Windows.Forms.TextBox
    Friend WithEvents editAddress_Line2 As System.Windows.Forms.TextBox
    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 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 Panel3 As System.Windows.Forms.Panel
    Friend WithEvents btnDeleteCust As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser
    Friend WithEvents lstExistingCustomers As System.Windows.Forms.ListBox
    Friend WithEvents editCompany 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()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(StartApplication))
        Me.TabStart = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.btnRefreshList = New System.Windows.Forms.Button()
        Me.btnDeselectAll = New System.Windows.Forms.Button()
        Me.btnDeleteCust = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lstExistingCustomers = New System.Windows.Forms.ListBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Label2 = 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.editAddress_Line1 = New System.Windows.Forms.TextBox()
        Me.editAddress_Line2 = New System.Windows.Forms.TextBox()
        Me.editCellPhoneNumber = New System.Windows.Forms.TextBox()
        Me.editCity = New System.Windows.Forms.TextBox()
        Me.editName = 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.editCompany = 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.TabPage3 = New System.Windows.Forms.TabPage()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser()
        Me.TabStart.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.Panel2.SuspendLayout()
        CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'TabStart
        '
        Me.TabStart.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3})
        Me.TabStart.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabStart.Location = New System.Drawing.Point(8, 15)
        Me.TabStart.Name = "TabStart"
        Me.TabStart.SelectedIndex = 0
        Me.TabStart.Size = New System.Drawing.Size(544, 417)
        Me.TabStart.TabIndex = 0
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3})
        Me.TabPage1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabPage1.Location = New System.Drawing.Point(4, 23)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(536, 390)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Customers"
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnRefreshList, Me.btnDeselectAll, Me.btnDeleteCust, Me.Label1, Me.lstExistingCustomers})
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(536, 390)
        Me.Panel3.TabIndex = 0
        '
        'btnRefreshList
        '
        Me.btnRefreshList.BackColor = System.Drawing.Color.PowderBlue
        Me.btnRefreshList.Location = New System.Drawing.Point(346, 120)
        Me.btnRefreshList.Name = "btnRefreshList"
        Me.btnRefreshList.Size = New System.Drawing.Size(176, 24)
        Me.btnRefreshList.TabIndex = 8
        Me.btnRefreshList.Text = "Refresh Customer List"
        '
        'btnDeselectAll
        '
        Me.btnDeselectAll.BackColor = System.Drawing.Color.PowderBlue
        Me.btnDeselectAll.Location = New System.Drawing.Point(346, 88)
        Me.btnDeselectAll.Name = "btnDeselectAll"
        Me.btnDeselectAll.Size = New System.Drawing.Size(176, 24)
        Me.btnDeselectAll.TabIndex = 7
        Me.btnDeselectAll.Text = "Deselect All"
        '
        'btnDeleteCust
        '
        Me.btnDeleteCust.BackColor = System.Drawing.Color.PowderBlue
        Me.btnDeleteCust.Location = New System.Drawing.Point(346, 56)
        Me.btnDeleteCust.Name = "btnDeleteCust"
        Me.btnDeleteCust.Size = New System.Drawing.Size(176, 24)
        Me.btnDeleteCust.TabIndex = 1
        Me.btnDeleteCust.Text = "Delete Selected Customer"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(21, 30)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(232, 16)
        Me.Label1.TabIndex = 6
        Me.Label1.Text = "Select from the Existing Customers:"
        '
        'lstExistingCustomers
        '
        Me.lstExistingCustomers.BackColor = System.Drawing.Color.PowderBlue
        Me.lstExistingCustomers.ItemHeight = 14
        Me.lstExistingCustomers.Location = New System.Drawing.Point(20, 54)
        Me.lstExistingCustomers.Name = "lstExistingCustomers"
        Me.lstExistingCustomers.Size = New System.Drawing.Size(312, 312)
        Me.lstExistingCustomers.TabIndex = 0
        '
        'TabPage2
        '
        Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1})
        Me.TabPage2.Location = New System.Drawing.Point(4, 23)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(536, 390)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "About You"
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.btnUpdate, Me.lblAddress_Line1, Me.lblAddress_Line2, Me.lblCellPhoneNumber, Me.lblCity, Me.lblClient_Name, Me.editAddress_Line1, Me.editAddress_Line2, Me.editCellPhoneNumber, Me.editCity, Me.editName, Me.lblEmailAddress, Me.lblFax, Me.lblPhoneNumber, Me.lblRemarks, Me.lblState, Me.lblTitle, Me.lblZipCode, Me.editEmailAddress, Me.editFax, Me.editPhoneNumber, Me.editCompany, Me.editState, Me.editTitle, Me.editZipCode})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(536, 390)
        Me.Panel1.TabIndex = 0
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.0!, (System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(16, 54)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(328, 16)
        Me.Label2.TabIndex = 58
        Me.Label2.Text = "Sales Representative should provide details here: "
        '
        'btnUpdate
        '
        Me.btnUpdate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnUpdate.Location = New System.Drawing.Point(440, 292)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(88, 24)
        Me.btnUpdate.TabIndex = 14
        Me.btnUpdate.Text = "&Save"
        '
        'lblAddress_Line1
        '
        Me.lblAddress_Line1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAddress_Line1.Location = New System.Drawing.Point(16, 156)
        Me.lblAddress_Line1.Name = "lblAddress_Line1"
        Me.lblAddress_Line1.TabIndex = 32