home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / soft / Codice / Libro Visual Basic e Database / FormCliente.vb < prev    next >
Encoding:
Text File  |  2003-09-30  |  26.8 KB  |  546 lines
  1. Public Class FormCliente
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Windows Form Designer generated code "
  5.  
  6.     Public Sub New()
  7.         MyBase.New()
  8.  
  9.         'This call is required by the Windows Form Designer.
  10.         InitializeComponent()
  11.  
  12.         'Add any initialization after the InitializeComponent() call
  13.  
  14.     End Sub
  15.  
  16.     'Form overrides dispose to clean up the component list.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  25.  
  26.     'Required by the Windows Form Designer
  27.     Private components As System.ComponentModel.IContainer
  28.  
  29.     'NOTE: The following procedure is required by the Windows Form Designer
  30.     'It can be modified using the Windows Form Designer.  
  31.     'Do not modify it using the code editor.
  32.     Public WithEvents TxtIdCliente As System.Windows.Forms.TextBox
  33.     Public WithEvents TxtRagioneSociale As System.Windows.Forms.TextBox
  34.     Public WithEvents TxtPIVACF As System.Windows.Forms.TextBox
  35.     Public WithEvents TxtCitta As System.Windows.Forms.TextBox
  36.     Public WithEvents TxtIndirizzo As System.Windows.Forms.TextBox
  37.     Public WithEvents TxtCAP As System.Windows.Forms.TextBox
  38.     Public WithEvents TxtCognome As System.Windows.Forms.TextBox
  39.     Public WithEvents TxtNome As System.Windows.Forms.TextBox
  40.     Public WithEvents TxtTelefono As System.Windows.Forms.TextBox
  41.     Public WithEvents TxtFax As System.Windows.Forms.TextBox
  42.     Public WithEvents TxtCellulare As System.Windows.Forms.TextBox
  43.     Public WithEvents LblIdCliente As System.Windows.Forms.Label
  44.     Public WithEvents LblRagioneSociale As System.Windows.Forms.Label
  45.     Public WithEvents LblPIVACF As System.Windows.Forms.Label
  46.     Public WithEvents LblCitta As System.Windows.Forms.Label
  47.     Public WithEvents LblIndirizzo As System.Windows.Forms.Label
  48.     Public WithEvents LblCAP As System.Windows.Forms.Label
  49.     Public WithEvents LblCognome As System.Windows.Forms.Label
  50.     Public WithEvents LblNome As System.Windows.Forms.Label
  51.     Public WithEvents LblTelefono As System.Windows.Forms.Label
  52.     Public WithEvents LblFax As System.Windows.Forms.Label
  53.     Public WithEvents LblCellulare As System.Windows.Forms.Label
  54.     Friend WithEvents ButtonNuovo As System.Windows.Forms.Button
  55.     Friend WithEvents ButtonSalva As System.Windows.Forms.Button
  56.     Friend WithEvents ButtonCancella As System.Windows.Forms.Button
  57.     Public WithEvents txtProvincia As System.Windows.Forms.TextBox
  58.     Public WithEvents Label1 As System.Windows.Forms.Label
  59.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  60.         Me.TxtIdCliente = New System.Windows.Forms.TextBox()
  61.         Me.TxtRagioneSociale = New System.Windows.Forms.TextBox()
  62.         Me.TxtPIVACF = New System.Windows.Forms.TextBox()
  63.         Me.TxtCitta = New System.Windows.Forms.TextBox()
  64.         Me.TxtIndirizzo = New System.Windows.Forms.TextBox()
  65.         Me.TxtCAP = New System.Windows.Forms.TextBox()
  66.         Me.TxtCognome = New System.Windows.Forms.TextBox()
  67.         Me.TxtNome = New System.Windows.Forms.TextBox()
  68.         Me.TxtTelefono = New System.Windows.Forms.TextBox()
  69.         Me.TxtFax = New System.Windows.Forms.TextBox()
  70.         Me.TxtCellulare = New System.Windows.Forms.TextBox()
  71.         Me.LblIdCliente = New System.Windows.Forms.Label()
  72.         Me.LblRagioneSociale = New System.Windows.Forms.Label()
  73.         Me.LblPIVACF = New System.Windows.Forms.Label()
  74.         Me.LblCitta = New System.Windows.Forms.Label()
  75.         Me.LblIndirizzo = New System.Windows.Forms.Label()
  76.         Me.LblCAP = New System.Windows.Forms.Label()
  77.         Me.LblCognome = New System.Windows.Forms.Label()
  78.         Me.LblNome = New System.Windows.Forms.Label()
  79.         Me.LblTelefono = New System.Windows.Forms.Label()
  80.         Me.LblFax = New System.Windows.Forms.Label()
  81.         Me.LblCellulare = New System.Windows.Forms.Label()
  82.         Me.ButtonNuovo = New System.Windows.Forms.Button()
  83.         Me.ButtonSalva = New System.Windows.Forms.Button()
  84.         Me.ButtonCancella = New System.Windows.Forms.Button()
  85.         Me.txtProvincia = New System.Windows.Forms.TextBox()
  86.         Me.Label1 = New System.Windows.Forms.Label()
  87.         Me.SuspendLayout()
  88.         '
  89.         'TxtIdCliente
  90.         '
  91.         Me.TxtIdCliente.AcceptsReturn = True
  92.         Me.TxtIdCliente.AutoSize = False
  93.         Me.TxtIdCliente.BackColor = System.Drawing.SystemColors.Window
  94.         Me.TxtIdCliente.Cursor = System.Windows.Forms.Cursors.IBeam
  95.         Me.TxtIdCliente.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  96.         Me.TxtIdCliente.ForeColor = System.Drawing.SystemColors.WindowText
  97.         Me.TxtIdCliente.Location = New System.Drawing.Point(112, 8)
  98.         Me.TxtIdCliente.MaxLength = 0
  99.         Me.TxtIdCliente.Name = "TxtIdCliente"
  100.         Me.TxtIdCliente.RightToLeft = System.Windows.Forms.RightToLeft.No
  101.         Me.TxtIdCliente.Size = New System.Drawing.Size(121, 19)
  102.         Me.TxtIdCliente.TabIndex = 22
  103.         Me.TxtIdCliente.Text = ""
  104.         '
  105.         'TxtRagioneSociale
  106.         '
  107.         Me.TxtRagioneSociale.AcceptsReturn = True
  108.         Me.TxtRagioneSociale.AutoSize = False
  109.         Me.TxtRagioneSociale.BackColor = System.Drawing.SystemColors.Window
  110.         Me.TxtRagioneSociale.Cursor = System.Windows.Forms.Cursors.IBeam
  111.         Me.TxtRagioneSociale.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  112.         Me.TxtRagioneSociale.ForeColor = System.Drawing.SystemColors.WindowText
  113.         Me.TxtRagioneSociale.Location = New System.Drawing.Point(112, 32)
  114.         Me.TxtRagioneSociale.MaxLength = 0
  115.         Me.TxtRagioneSociale.Name = "TxtRagioneSociale"
  116.         Me.TxtRagioneSociale.RightToLeft = System.Windows.Forms.RightToLeft.No
  117.         Me.TxtRagioneSociale.Size = New System.Drawing.Size(121, 19)
  118.         Me.TxtRagioneSociale.TabIndex = 23
  119.         Me.TxtRagioneSociale.Text = ""
  120.         '
  121.         'TxtPIVACF
  122.         '
  123.         Me.TxtPIVACF.AcceptsReturn = True
  124.         Me.TxtPIVACF.AutoSize = False
  125.         Me.TxtPIVACF.BackColor = System.Drawing.SystemColors.Window
  126.         Me.TxtPIVACF.Cursor = System.Windows.Forms.Cursors.IBeam
  127.         Me.TxtPIVACF.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  128.         Me.TxtPIVACF.ForeColor = System.Drawing.SystemColors.WindowText
  129.         Me.TxtPIVACF.Location = New System.Drawing.Point(112, 56)
  130.         Me.TxtPIVACF.MaxLength = 0
  131.         Me.TxtPIVACF.Name = "TxtPIVACF"
  132.         Me.TxtPIVACF.RightToLeft = System.Windows.Forms.RightToLeft.No
  133.         Me.TxtPIVACF.Size = New System.Drawing.Size(121, 19)
  134.         Me.TxtPIVACF.TabIndex = 24
  135.         Me.TxtPIVACF.Text = ""
  136.         '
  137.         'TxtCitta
  138.         '
  139.         Me.TxtCitta.AcceptsReturn = True
  140.         Me.TxtCitta.AutoSize = False
  141.         Me.TxtCitta.BackColor = System.Drawing.SystemColors.Window
  142.         Me.TxtCitta.Cursor = System.Windows.Forms.Cursors.IBeam
  143.         Me.TxtCitta.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  144.         Me.TxtCitta.ForeColor = System.Drawing.SystemColors.WindowText
  145.         Me.TxtCitta.Location = New System.Drawing.Point(112, 80)
  146.         Me.TxtCitta.MaxLength = 0
  147.         Me.TxtCitta.Name = "TxtCitta"
  148.         Me.TxtCitta.RightToLeft = System.Windows.Forms.RightToLeft.No
  149.         Me.TxtCitta.Size = New System.Drawing.Size(121, 19)
  150.         Me.TxtCitta.TabIndex = 25
  151.         Me.TxtCitta.Text = ""
  152.         '
  153.         'TxtIndirizzo
  154.         '
  155.         Me.TxtIndirizzo.AcceptsReturn = True
  156.         Me.TxtIndirizzo.AutoSize = False
  157.         Me.TxtIndirizzo.BackColor = System.Drawing.SystemColors.Window
  158.         Me.TxtIndirizzo.Cursor = System.Windows.Forms.Cursors.IBeam
  159.         Me.TxtIndirizzo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  160.         Me.TxtIndirizzo.ForeColor = System.Drawing.SystemColors.WindowText
  161.         Me.TxtIndirizzo.Location = New System.Drawing.Point(112, 104)
  162.         Me.TxtIndirizzo.MaxLength = 0
  163.         Me.TxtIndirizzo.Name = "TxtIndirizzo"
  164.         Me.TxtIndirizzo.RightToLeft = System.Windows.Forms.RightToLeft.No
  165.         Me.TxtIndirizzo.Size = New System.Drawing.Size(121, 19)
  166.         Me.TxtIndirizzo.TabIndex = 26
  167.         Me.TxtIndirizzo.Text = ""
  168.         '
  169.         'TxtCAP
  170.         '
  171.         Me.TxtCAP.AcceptsReturn = True
  172.         Me.TxtCAP.AutoSize = False
  173.         Me.TxtCAP.BackColor = System.Drawing.SystemColors.Window
  174.         Me.TxtCAP.Cursor = System.Windows.Forms.Cursors.IBeam
  175.         Me.TxtCAP.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  176.         Me.TxtCAP.ForeColor = System.Drawing.SystemColors.WindowText
  177.         Me.TxtCAP.Location = New System.Drawing.Point(112, 128)
  178.         Me.TxtCAP.MaxLength = 0
  179.         Me.TxtCAP.Name = "TxtCAP"
  180.         Me.TxtCAP.RightToLeft = System.Windows.Forms.RightToLeft.No
  181.         Me.TxtCAP.Size = New System.Drawing.Size(121, 19)
  182.         Me.TxtCAP.TabIndex = 27
  183.         Me.TxtCAP.Text = ""
  184.         '
  185.         'TxtCognome
  186.         '
  187.         Me.TxtCognome.AcceptsReturn = True
  188.         Me.TxtCognome.AutoSize = False
  189.         Me.TxtCognome.BackColor = System.Drawing.SystemColors.Window
  190.         Me.TxtCognome.Cursor = System.Windows.Forms.Cursors.IBeam
  191.         Me.TxtCognome.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  192.         Me.TxtCognome.ForeColor = System.Drawing.SystemColors.WindowText
  193.         Me.TxtCognome.Location = New System.Drawing.Point(112, 152)
  194.         Me.TxtCognome.MaxLength = 0
  195.         Me.TxtCognome.Name = "TxtCognome"
  196.         Me.TxtCognome.RightToLeft = System.Windows.Forms.RightToLeft.No
  197.         Me.TxtCognome.Size = New System.Drawing.Size(121, 19)
  198.         Me.TxtCognome.TabIndex = 28
  199.         Me.TxtCognome.Text = ""
  200.         '
  201.         'TxtNome
  202.         '
  203.         Me.TxtNome.AcceptsReturn = True
  204.         Me.TxtNome.AutoSize = False
  205.         Me.TxtNome.BackColor = System.Drawing.SystemColors.Window
  206.         Me.TxtNome.Cursor = System.Windows.Forms.Cursors.IBeam
  207.         Me.TxtNome.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  208.         Me.TxtNome.ForeColor = System.Drawing.SystemColors.WindowText
  209.         Me.TxtNome.Location = New System.Drawing.Point(112, 176)
  210.         Me.TxtNome.MaxLength = 0
  211.         Me.TxtNome.Name = "TxtNome"
  212.         Me.TxtNome.RightToLeft = System.Windows.Forms.RightToLeft.No
  213.         Me.TxtNome.Size = New System.Drawing.Size(121, 19)
  214.         Me.TxtNome.TabIndex = 29
  215.         Me.TxtNome.Text = ""
  216.         '
  217.         'TxtTelefono
  218.         '
  219.         Me.TxtTelefono.AcceptsReturn = True
  220.         Me.TxtTelefono.AutoSize = False
  221.         Me.TxtTelefono.BackColor = System.Drawing.SystemColors.Window
  222.         Me.TxtTelefono.Cursor = System.Windows.Forms.Cursors.IBeam
  223.         Me.TxtTelefono.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  224.         Me.TxtTelefono.ForeColor = System.Drawing.SystemColors.WindowText
  225.         Me.TxtTelefono.Location = New System.Drawing.Point(112, 200)
  226.         Me.TxtTelefono.MaxLength = 0
  227.         Me.TxtTelefono.Name = "TxtTelefono"
  228.         Me.TxtTelefono.RightToLeft = System.Windows.Forms.RightToLeft.No
  229.         Me.TxtTelefono.Size = New System.Drawing.Size(121, 19)
  230.         Me.TxtTelefono.TabIndex = 30
  231.         Me.TxtTelefono.Text = ""
  232.         '
  233.         'TxtFax
  234.         '
  235.         Me.TxtFax.AcceptsReturn = True
  236.         Me.TxtFax.AutoSize = False
  237.         Me.TxtFax.BackColor = System.Drawing.SystemColors.Window
  238.         Me.TxtFax.Cursor = System.Windows.Forms.Cursors.IBeam
  239.         Me.TxtFax.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  240.         Me.TxtFax.ForeColor = System.Drawing.SystemColors.WindowText
  241.         Me.TxtFax.Location = New System.Drawing.Point(112, 224)
  242.         Me.TxtFax.MaxLength = 0
  243.         Me.TxtFax.Name = "TxtFax"
  244.         Me.TxtFax.RightToLeft = System.Windows.Forms.RightToLeft.No
  245.         Me.TxtFax.Size = New System.Drawing.Size(121, 19)
  246.         Me.TxtFax.TabIndex = 31
  247.         Me.TxtFax.Text = ""
  248.         '
  249.         'TxtCellulare
  250.         '
  251.         Me.TxtCellulare.AcceptsReturn = True
  252.         Me.TxtCellulare.AutoSize = False
  253.         Me.TxtCellulare.BackColor = System.Drawing.SystemColors.Window
  254.         Me.TxtCellulare.Cursor = System.Windows.Forms.Cursors.IBeam
  255.         Me.TxtCellulare.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  256.         Me.TxtCellulare.ForeColor = System.Drawing.SystemColors.WindowText
  257.         Me.TxtCellulare.Location = New System.Drawing.Point(112, 248)
  258.         Me.TxtCellulare.MaxLength = 0
  259.         Me.TxtCellulare.Name = "TxtCellulare"
  260.         Me.TxtCellulare.RightToLeft = System.Windows.Forms.RightToLeft.No
  261.         Me.TxtCellulare.Size = New System.Drawing.Size(121, 19)
  262.         Me.TxtCellulare.TabIndex = 32
  263.         Me.TxtCellulare.Text = ""
  264.         '
  265.         'LblIdCliente
  266.         '
  267.         Me.LblIdCliente.BackColor = System.Drawing.SystemColors.Control
  268.         Me.LblIdCliente.Cursor = System.Windows.Forms.Cursors.Default
  269.         Me.LblIdCliente.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  270.         Me.LblIdCliente.ForeColor = System.Drawing.SystemColors.ControlText
  271.         Me.LblIdCliente.Location = New System.Drawing.Point(8, 8)
  272.         Me.LblIdCliente.Name = "LblIdCliente"
  273.         Me.LblIdCliente.RightToLeft = System.Windows.Forms.RightToLeft.No
  274.         Me.LblIdCliente.Size = New System.Drawing.Size(105, 17)
  275.         Me.LblIdCliente.TabIndex = 33
  276.         Me.LblIdCliente.Text = "IdCliente"
  277.         '
  278.         'LblRagioneSociale
  279.         '
  280.         Me.LblRagioneSociale.BackColor = System.Drawing.SystemColors.Control
  281.         Me.LblRagioneSociale.Cursor = System.Windows.Forms.Cursors.Default
  282.         Me.LblRagioneSociale.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  283.         Me.LblRagioneSociale.ForeColor = System.Drawing.SystemColors.ControlText
  284.         Me.LblRagioneSociale.Location = New System.Drawing.Point(8, 32)
  285.         Me.LblRagioneSociale.Name = "LblRagioneSociale"
  286.         Me.LblRagioneSociale.RightToLeft = System.Windows.Forms.RightToLeft.No
  287.         Me.LblRagioneSociale.Size = New System.Drawing.Size(105, 17)
  288.         Me.LblRagioneSociale.TabIndex = 34
  289.         Me.LblRagioneSociale.Text = "RagioneSociale"
  290.         '
  291.         'LblPIVACF
  292.         '
  293.         Me.LblPIVACF.BackColor = System.Drawing.SystemColors.Control
  294.         Me.LblPIVACF.Cursor = System.Windows.Forms.Cursors.Default
  295.         Me.LblPIVACF.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  296.         Me.LblPIVACF.ForeColor = System.Drawing.SystemColors.ControlText
  297.         Me.LblPIVACF.Location = New System.Drawing.Point(8, 56)
  298.         Me.LblPIVACF.Name = "LblPIVACF"
  299.         Me.LblPIVACF.RightToLeft = System.Windows.Forms.RightToLeft.No
  300.         Me.LblPIVACF.Size = New System.Drawing.Size(105, 17)
  301.         Me.LblPIVACF.TabIndex = 35
  302.         Me.LblPIVACF.Text = "PIVACF"
  303.         '
  304.         'LblCitta
  305.         '
  306.         Me.LblCitta.BackColor = System.Drawing.SystemColors.Control
  307.         Me.LblCitta.Cursor = System.Windows.Forms.Cursors.Default
  308.         Me.LblCitta.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  309.         Me.LblCitta.ForeColor = System.Drawing.SystemColors.ControlText
  310.         Me.LblCitta.Location = New System.Drawing.Point(8, 80)
  311.         Me.LblCitta.Name = "LblCitta"
  312.         Me.LblCitta.RightToLeft = System.Windows.Forms.RightToLeft.No
  313.         Me.LblCitta.Size = New System.Drawing.Size(105, 17)
  314.         Me.LblCitta.TabIndex = 36
  315.         Me.LblCitta.Text = "Citta"
  316.         '
  317.         'LblIndirizzo
  318.         '
  319.         Me.LblIndirizzo.BackColor = System.Drawing.SystemColors.Control
  320.         Me.LblIndirizzo.Cursor = System.Windows.Forms.Cursors.Default
  321.         Me.LblIndirizzo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  322.         Me.LblIndirizzo.ForeColor = System.Drawing.SystemColors.ControlText
  323.         Me.LblIndirizzo.Location = New System.Drawing.Point(8, 104)
  324.         Me.LblIndirizzo.Name = "LblIndirizzo"
  325.         Me.LblIndirizzo.RightToLeft = System.Windows.Forms.RightToLeft.No
  326.         Me.LblIndirizzo.Size = New System.Drawing.Size(105, 17)
  327.         Me.LblIndirizzo.TabIndex = 37
  328.         Me.LblIndirizzo.Text = "Indirizzo"
  329.         '
  330.         'LblCAP
  331.         '
  332.         Me.LblCAP.BackColor = System.Drawing.SystemColors.Control
  333.         Me.LblCAP.Cursor = System.Windows.Forms.Cursors.Default
  334.         Me.LblCAP.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  335.         Me.LblCAP.ForeColor = System.Drawing.SystemColors.ControlText
  336.         Me.LblCAP.Location = New System.Drawing.Point(8, 128)
  337.         Me.LblCAP.Name = "LblCAP"
  338.         Me.LblCAP.RightToLeft = System.Windows.Forms.RightToLeft.No
  339.         Me.LblCAP.Size = New System.Drawing.Size(105, 17)
  340.         Me.LblCAP.TabIndex = 38
  341.         Me.LblCAP.Text = "CAP"
  342.         '
  343.         'LblCognome
  344.         '
  345.         Me.LblCognome.BackColor = System.Drawing.SystemColors.Control
  346.         Me.LblCognome.Cursor = System.Windows.Forms.Cursors.Default
  347.         Me.LblCognome.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  348.         Me.LblCognome.ForeColor = System.Drawing.SystemColors.ControlText
  349.         Me.LblCognome.Location = New System.Drawing.Point(8, 152)
  350.         Me.LblCognome.Name = "LblCognome"
  351.         Me.LblCognome.RightToLeft = System.Windows.Forms.RightToLeft.No
  352.         Me.LblCognome.Size = New System.Drawing.Size(105, 17)
  353.         Me.LblCognome.TabIndex = 39
  354.         Me.LblCognome.Text = "Cognome"
  355.         '
  356.         'LblNome
  357.         '
  358.         Me.LblNome.BackColor = System.Drawing.SystemColors.Control
  359.         Me.LblNome.Cursor = System.Windows.Forms.Cursors.Default
  360.         Me.LblNome.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  361.         Me.LblNome.ForeColor = System.Drawing.SystemColors.ControlText
  362.         Me.LblNome.Location = New System.Drawing.Point(8, 176)
  363.         Me.LblNome.Name = "LblNome"
  364.         Me.LblNome.RightToLeft = System.Windows.Forms.RightToLeft.No
  365.         Me.LblNome.Size = New System.Drawing.Size(105, 17)
  366.         Me.LblNome.TabIndex = 40
  367.         Me.LblNome.Text = "Nome"
  368.         '
  369.         'LblTelefono
  370.         '
  371.         Me.LblTelefono.BackColor = System.Drawing.SystemColors.Control
  372.         Me.LblTelefono.Cursor = System.Windows.Forms.Cursors.Default
  373.         Me.LblTelefono.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  374.         Me.LblTelefono.ForeColor = System.Drawing.SystemColors.ControlText
  375.         Me.LblTelefono.Location = New System.Drawing.Point(8, 200)
  376.         Me.LblTelefono.Name = "LblTelefono"
  377.         Me.LblTelefono.RightToLeft = System.Windows.Forms.RightToLeft.No
  378.         Me.LblTelefono.Size = New System.Drawing.Size(105, 17)
  379.         Me.LblTelefono.TabIndex = 41
  380.         Me.LblTelefono.Text = "Telefono"
  381.         '
  382.         'LblFax
  383.         '
  384.         Me.LblFax.BackColor = System.Drawing.SystemColors.Control
  385.         Me.LblFax.Cursor = System.Windows.Forms.Cursors.Default
  386.         Me.LblFax.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  387.         Me.LblFax.ForeColor = System.Drawing.SystemColors.ControlText
  388.         Me.LblFax.Location = New System.Drawing.Point(8, 224)
  389.         Me.LblFax.Name = "LblFax"
  390.         Me.LblFax.RightToLeft = System.Windows.Forms.RightToLeft.No
  391.         Me.LblFax.Size = New System.Drawing.Size(105, 17)
  392.         Me.LblFax.TabIndex = 42
  393.         Me.LblFax.Text = "Fax"
  394.         '
  395.         'LblCellulare
  396.         '
  397.         Me.LblCellulare.BackColor = System.Drawing.SystemColors.Control
  398.         Me.LblCellulare.Cursor = System.Windows.Forms.Cursors.Default
  399.         Me.LblCellulare.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  400.         Me.LblCellulare.ForeColor = System.Drawing.SystemColors.ControlText
  401.         Me.LblCellulare.Location = New System.Drawing.Point(8, 248)
  402.         Me.LblCellulare.Name = "LblCellulare"
  403.         Me.LblCellulare.RightToLeft = System.Windows.Forms.RightToLeft.No
  404.         Me.LblCellulare.Size = New System.Drawing.Size(105, 17)
  405.         Me.LblCellulare.TabIndex = 43
  406.         Me.LblCellulare.Text = "Cellulare"
  407.         '
  408.         'ButtonNuovo
  409.         '
  410.         Me.ButtonNuovo.Location = New System.Drawing.Point(248, 8)
  411.         Me.ButtonNuovo.Name = "ButtonNuovo"
  412.         Me.ButtonNuovo.TabIndex = 44
  413.         Me.ButtonNuovo.Text = "Nuovo"
  414.         '
  415.         'ButtonSalva
  416.         '
  417.         Me.ButtonSalva.Location = New System.Drawing.Point(248, 40)
  418.         Me.ButtonSalva.Name = "ButtonSalva"
  419.         Me.ButtonSalva.TabIndex = 45
  420.         Me.ButtonSalva.Text = "Salva"
  421.         '
  422.         'ButtonCancella
  423.         '
  424.         Me.ButtonCancella.Location = New System.Drawing.Point(248, 72)
  425.         Me.ButtonCancella.Name = "ButtonCancella"
  426.         Me.ButtonCancella.TabIndex = 46
  427.         Me.ButtonCancella.Text = "Cancella"
  428.         '
  429.         'txtProvincia
  430.         '
  431.         Me.txtProvincia.AcceptsReturn = True
  432.         Me.txtProvincia.AutoSize = False
  433.         Me.txtProvincia.BackColor = System.Drawing.SystemColors.Window
  434.         Me.txtProvincia.Cursor = System.Windows.Forms.Cursors.IBeam
  435.         Me.txtProvincia.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  436.         Me.txtProvincia.ForeColor = System.Drawing.SystemColors.WindowText
  437.         Me.txtProvincia.Location = New System.Drawing.Point(112, 272)
  438.         Me.txtProvincia.MaxLength = 0
  439.         Me.txtProvincia.Name = "txtProvincia"
  440.         Me.txtProvincia.RightToLeft = System.Windows.Forms.RightToLeft.No
  441.         Me.txtProvincia.Size = New System.Drawing.Size(121, 19)
  442.         Me.txtProvincia.TabIndex = 47
  443.         Me.txtProvincia.Text = ""
  444.         '
  445.         'Label1
  446.         '
  447.         Me.Label1.BackColor = System.Drawing.SystemColors.Control
  448.         Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
  449.         Me.Label1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  450.         Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
  451.         Me.Label1.Location = New System.Drawing.Point(8, 272)
  452.         Me.Label1.Name = "Label1"
  453.         Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
  454.         Me.Label1.Size = New System.Drawing.Size(105, 17)
  455.         Me.Label1.TabIndex = 48
  456.         Me.Label1.Text = "Provincia"
  457.         '
  458.         'FormCliente
  459.         '
  460.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  461.         Me.ClientSize = New System.Drawing.Size(336, 302)
  462.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtProvincia, Me.Label1, Me.ButtonCancella, Me.ButtonSalva, Me.ButtonNuovo, Me.TxtIdCliente, Me.TxtRagioneSociale, Me.TxtPIVACF, Me.TxtCitta, Me.TxtIndirizzo, Me.TxtCAP, Me.TxtCognome, Me.TxtNome, Me.TxtTelefono, Me.TxtFax, Me.TxtCellulare, Me.LblIdCliente, Me.LblRagioneSociale, Me.LblPIVACF, Me.LblCitta, Me.LblIndirizzo, Me.LblCAP, Me.LblCognome, Me.LblNome, Me.LblTelefono, Me.LblFax, Me.LblCellulare})
  463.         Me.Name = "FormCliente"
  464.         Me.Text = "FormCliente"
  465.         Me.ResumeLayout(False)
  466.  
  467.     End Sub
  468.  
  469. #End Region
  470.     Dim BufCliente As Cliente
  471.     Private Sub ValorizzaBuffer()
  472.         With BufCliente
  473.             On Error Resume Next
  474.             .IdCliente = TxtIdCliente.Text
  475.             .RagioneSociale = TxtRagioneSociale.Text
  476.             .PIVACF = TxtPIVACF.Text
  477.             .Citta = TxtCitta.Text
  478.             .Indirizzo = TxtIndirizzo.Text
  479.             .CAP = TxtCAP.Text
  480.             .Cognome = TxtCognome.Text
  481.             .Nome = TxtNome.Text
  482.             .Telefono = TxtTelefono.Text
  483.             .Fax = TxtFax.Text
  484.             .Cellulare = TxtCellulare.Text
  485.             .Provincia = txtProvincia.Text
  486.         End With
  487.     End Sub
  488.     Private Sub InserisciCampi()
  489.         With BufCliente
  490.             TxtIdCliente.Text = .IdCliente
  491.             TxtRagioneSociale.Text = .RagioneSociale
  492.             TxtPIVACF.Text = .PIVACF
  493.             TxtCitta.Text = .Citta
  494.             TxtIndirizzo.Text = .Indirizzo
  495.             TxtCAP.Text = .CAP
  496.             TxtCognome.Text = .Cognome
  497.             TxtNome.Text = .Nome
  498.             TxtTelefono.Text = .Telefono
  499.             TxtFax.Text = .Fax
  500.             TxtCellulare.Text = .Cellulare
  501.             txtProvincia.Text = .Provincia
  502.         End With
  503.     End Sub
  504.     Private Sub SvuotaCampi()
  505.         TxtIdCliente.Text = ""
  506.         TxtRagioneSociale.Text = ""
  507.         TxtPIVACF.Text = ""
  508.         TxtCitta.Text = ""
  509.         TxtIndirizzo.Text = ""
  510.         TxtCAP.Text = ""
  511.         TxtCognome.Text = ""
  512.         TxtNome.Text = ""
  513.         TxtTelefono.Text = ""
  514.         TxtFax.Text = ""
  515.         TxtCellulare.Text = ""
  516.         txtProvincia.Text = ""
  517.     End Sub
  518.  
  519.     Private Sub FormCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  520.  
  521.     End Sub
  522.  
  523.     Private Sub ButtonNuovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNuovo.Click
  524.         BufCliente = New Cliente()
  525.         SvuotaCampi()
  526.     End Sub
  527.  
  528.     Private Sub ButtonSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSalva.Click
  529.         If BufCliente Is Nothing Then
  530.             MessageBox.Show("Premere prima il tasto nuovo")
  531.             Exit Sub
  532.         End If
  533.         ValorizzaBuffer()
  534.         BufCliente.Salva()
  535.         InserisciCampi()
  536.     End Sub
  537.  
  538.     Private Sub ButtonCancella_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancella.Click
  539.         BufCliente.Cancella()
  540.         BufCliente = Nothing
  541.         SvuotaCampi()
  542.     End Sub
  543.  
  544.  
  545. End Class
  546.