Agregar archivos de proyecto.
This commit is contained in:
288
InicioServicioYClientes/frmConfiguracionAplicacion.vb
Normal file
288
InicioServicioYClientes/frmConfiguracionAplicacion.vb
Normal file
@@ -0,0 +1,288 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.OleDb
|
||||
Imports cablin.clFuncionesGenericas
|
||||
Imports cablin
|
||||
Public Class frmConfiguracionAplicacion
|
||||
Inherits System.Windows.Forms.Form
|
||||
Private bIdentificacionValida As Boolean
|
||||
Private WithEvents tlbBarraGenerica As New ucBarraGenerica
|
||||
Friend WithEvents tbPuertoLocal As System.Windows.Forms.textBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbRutaDatos As System.Windows.Forms.textBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbRutaTemporales As System.Windows.Forms.textBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbPuertoRemoto As System.Windows.Forms.textBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbServidorRemoto As System.Windows.Forms.textBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Public WithEvents clCab As cablin.clCabLin
|
||||
'Friend NombreServicio As String
|
||||
'Friend Puerto As String
|
||||
'Friend FicheroConfig As String
|
||||
|
||||
|
||||
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'El Dise<73>ador de Windows Forms requiere esta llamada.
|
||||
InitializeComponent()
|
||||
|
||||
'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
||||
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
|
||||
|
||||
'Requerido por el Dise<73>ador de Windows Forms
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
|
||||
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
|
||||
'No lo modifique con el editor de c<>digo.
|
||||
Friend WithEvents Estado As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbServidorLocal As System.Windows.Forms.textBox
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfiguracionAplicacion))
|
||||
Me.Estado = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.tbServidorLocal = New System.Windows.Forms.textBox()
|
||||
Me.tbPuertoLocal = New System.Windows.Forms.textBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.tbRutaDatos = New System.Windows.Forms.textBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.tbRutaTemporales = New System.Windows.Forms.textBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.tbPuertoRemoto = New System.Windows.Forms.textBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.tbServidorRemoto = New System.Windows.Forms.textBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Estado
|
||||
'
|
||||
Me.Estado.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.Estado.ForeColor = System.Drawing.Color.Red
|
||||
Me.Estado.Location = New System.Drawing.Point(16, 64)
|
||||
Me.Estado.Name = "Estado"
|
||||
Me.Estado.Size = New System.Drawing.Size(653, 16)
|
||||
Me.Estado.tabIndex = 19
|
||||
Me.Estado.text = "Estado:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(21, 99)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label1.tabIndex = 28
|
||||
Me.Label1.text = "Servidor Local:"
|
||||
'
|
||||
'tbServidorLocal
|
||||
'
|
||||
Me.tbServidorLocal.Location = New System.Drawing.Point(173, 95)
|
||||
Me.tbServidorLocal.Name = "tbServidorLocal"
|
||||
Me.tbServidorLocal.Size = New System.Drawing.Size(196, 20)
|
||||
Me.tbServidorLocal.tabIndex = 27
|
||||
Me.tbServidorLocal.tag = "IND:1|NBD:N-E:ServidorLocal|USC:1"
|
||||
'
|
||||
'tbPuertoLocal
|
||||
'
|
||||
Me.tbPuertoLocal.Location = New System.Drawing.Point(173, 121)
|
||||
Me.tbPuertoLocal.Name = "tbPuertoLocal"
|
||||
Me.tbPuertoLocal.Size = New System.Drawing.Size(196, 20)
|
||||
Me.tbPuertoLocal.tabIndex = 29
|
||||
Me.tbPuertoLocal.tag = "IND:2|NBD:N-E:PuertoLocal|USC:1"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(21, 125)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label2.tabIndex = 30
|
||||
Me.Label2.text = "Puerto Local:"
|
||||
'
|
||||
'tbRutaDatos
|
||||
'
|
||||
Me.tbRutaDatos.Location = New System.Drawing.Point(173, 224)
|
||||
Me.tbRutaDatos.Name = "tbRutaDatos"
|
||||
Me.tbRutaDatos.Size = New System.Drawing.Size(496, 20)
|
||||
Me.tbRutaDatos.tabIndex = 33
|
||||
Me.tbRutaDatos.tag = "IND:5|NBD:N-E:RutaDatos|BCO:O|USC:1"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(21, 229)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label4.tabIndex = 34
|
||||
Me.Label4.text = "Ruta Datos:"
|
||||
'
|
||||
'tbRutaTemporales
|
||||
'
|
||||
Me.tbRutaTemporales.Location = New System.Drawing.Point(173, 251)
|
||||
Me.tbRutaTemporales.Name = "tbRutaTemporales"
|
||||
Me.tbRutaTemporales.Size = New System.Drawing.Size(496, 20)
|
||||
Me.tbRutaTemporales.tabIndex = 35
|
||||
Me.tbRutaTemporales.tag = "IND:6|NBD:N-E:RutaFicherosTemporales|BCO:O|USC:1"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(21, 256)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label5.tabIndex = 36
|
||||
Me.Label5.text = "Ruta Ficheros Temporales:"
|
||||
'
|
||||
'tbPuertoRemoto
|
||||
'
|
||||
Me.tbPuertoRemoto.Location = New System.Drawing.Point(173, 186)
|
||||
Me.tbPuertoRemoto.Name = "tbPuertoRemoto"
|
||||
Me.tbPuertoRemoto.Size = New System.Drawing.Size(196, 20)
|
||||
Me.tbPuertoRemoto.tabIndex = 39
|
||||
Me.tbPuertoRemoto.tag = "IND:4|NBD:N-E:PuertoRemoto|BCO:O|USC:1"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(21, 190)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label3.tabIndex = 40
|
||||
Me.Label3.text = "Puerto Remoto:"
|
||||
'
|
||||
'tbServidorRemoto
|
||||
'
|
||||
Me.tbServidorRemoto.Location = New System.Drawing.Point(173, 160)
|
||||
Me.tbServidorRemoto.Name = "tbServidorRemoto"
|
||||
Me.tbServidorRemoto.Size = New System.Drawing.Size(196, 20)
|
||||
Me.tbServidorRemoto.tabIndex = 37
|
||||
Me.tbServidorRemoto.tag = "IND:3|NBD:N-E:ServidorRemoto|USC:1"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(21, 164)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(138, 16)
|
||||
Me.Label6.tabIndex = 38
|
||||
Me.Label6.text = "Servidor Remoto:"
|
||||
'
|
||||
'frmConfiguracionAplicacion
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.ClientSize = New System.Drawing.Size(681, 345)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.tbPuertoRemoto)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.tbServidorRemoto)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.tbRutaTemporales)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.tbRutaDatos)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.tbPuertoLocal)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.tbServidorLocal)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Estado)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmConfiguracionAplicacion"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.tag = "APSB:S"
|
||||
Me.text = "Configuraci<EFBFBD>n de la Aplicaci<63>n"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmcambioPin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
Call AgregaBarraGenerica(Me, CType(tlbBarraGenerica, Object))
|
||||
clCab = New clCabLin(Me, "Instalacion", Nothing)
|
||||
Me.tlbBarraGenerica.tlbSiguiente.Enabled = False
|
||||
Me.tlbBarraGenerica.tlbSiguiente.Visible = False
|
||||
Me.tlbBarraGenerica.tlbAlmacenar.Visible = True
|
||||
Me.tlbBarraGenerica.tlbAlmacenar.Enabled = True
|
||||
Me.tlbBarraGenerica.tlbLimpiarPantalla.Visible = False
|
||||
Me.tlbBarraGenerica.tlbSalir.Enabled = True
|
||||
Me.tlbBarraGenerica.tlbEliminaFicha.Visible = False
|
||||
clCab.Estado = "Introduzca Datos"
|
||||
|
||||
Call RedibujaBarraGenerica(tlbBarraGenerica.tbGenerico)
|
||||
End Sub
|
||||
Private Sub clCab_DespuesFPulsado(ByVal Tecla As String) Handles clCab.DespuesFPulsado
|
||||
Select Case Tecla
|
||||
Case "1"
|
||||
Try
|
||||
If Me.tbServidorLocal.text <> "" Then
|
||||
If Me.tbPuertoLocal.text = "" Then
|
||||
Throw New Exception("Si especifica un servidor local, debe especificar el puerto de conexi<78>n Local")
|
||||
End If
|
||||
End If
|
||||
If Me.tbPuertoLocal.text <> "" Then
|
||||
If Me.tbServidorLocal.text = "" Then
|
||||
Throw New Exception("Si especifica un puerto local, debe especificar el servidor de conexi<78>n Local")
|
||||
End If
|
||||
End If
|
||||
If Me.tbServidorRemoto.text <> "" Then
|
||||
If Me.tbPuertoRemoto.text = "" Then
|
||||
Throw New Exception("Si especifica un servidor remoto, debe especificar el puerto de conexi<78>n remoto")
|
||||
End If
|
||||
End If
|
||||
If Me.tbPuertoRemoto.text <> "" Then
|
||||
If Me.tbServidorRemoto.text = "" Then
|
||||
Throw New Exception("Si especifica un puerto remoto, debe especificar el servidor de conexi<78>n remoto")
|
||||
End If
|
||||
End If
|
||||
If Me.tbServidorRemoto.text = "" And Me.tbServidorLocal.text = "" Then
|
||||
Throw New Exception("Debe especificar al menos un servidor")
|
||||
End If
|
||||
Me.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
|
||||
' Environment.Exit(0)
|
||||
End Try
|
||||
Case "8"
|
||||
Environment.Exit(0)
|
||||
End Select
|
||||
End Sub
|
||||
Public Shared Sub RedibujaBarraGenerica(ByVal BarraHerramientas As Windows.Forms.ToolBar)
|
||||
Try
|
||||
Dim butBoton As Windows.Forms.ToolBarButton, iNumbotones As Integer
|
||||
For Each butBoton In BarraHerramientas.Buttons
|
||||
If butBoton.Visible Then
|
||||
iNumbotones += 1
|
||||
End If
|
||||
Next
|
||||
BarraHerramientas.Width = (BarraHerramientas.ButtonSize.Width * iNumbotones) + 10
|
||||
BarraHerramientas.Parent.Width = BarraHerramientas.Width
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ". En Redibujabarragenerica" & vbCrLf & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Private Sub frmSeleccionInstalacion_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
' e.Cancel = Not bIdentificacionValida
|
||||
'End Sub
|
||||
|
||||
Private Sub frmConfiguracionAplicacion_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
|
||||
|
||||
|
||||
tbServidorLocal.Focus()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user