Ejemplos - Matrix Apocalyptic


Inicio
Generar Procedimiento almacenado de Consulta Create Proc dbo.spS_<!tabla.nombre!> <por_cada_columna_clave> @<!columna.nombre!> <!columna.declaracion.sql!><excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna_clave> AS BEGIN SET NOCOUNT ON; SELECT <por_cada_columna> <!columna.nombre!><excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> FROM <!tabla.nombre!> WHERE <por_cada_columna_clave> <!columna.nombre!> = @<!columna.nombre!><excluir_en_ultima_vuelta> AND </excluir_en_ultima_vuelta> </por_cada_columna_clave> END GO	Código Generado Create Proc dbo.spS_Trabajador @CodigoTrabajador int AS BEGIN SET NOCOUNT ON; SELECT CodigoTrabajador, CodigoInterno, Nombres, ApellidoPaterno, ApellidoMaterno, FechaNacimiento, Sexo, CodigoTipoDocumentoIdentidad, NumeroDocumentoIdentidad, CodigoSituacionLaboral, CodigoTipoTrabajador, CodigoSituacionTrabajador, PuedeSolicitarPedio, PuedeAprobarPedido, PuedeEntregarPedido, TelefonoPersonal, Observaciones, Ocupacion, Discapacidad FROM Trabajador WHERE CodigoTrabajador = @CodigoTrabajador END GO
Llamando al Procedimiento Almacenado Sub Buscar( _ <por_cada_columna_clave> , ByVal arg<!columna.nombre!> As String _ </por_cada_columna_clave> ) Dim sqlCnn As New SqlConnection(My.Settings.CnnStr) sqlCnn.Open() Dim sqlCmd As New SqlCommand With sqlCmd .CommandText = "spS_<!tabla.nombre!>" .CommandType = CommandType.StoredProcedure .Connection = sqlCnn <por_cada_columna_clave> With .Parameters.Add(.CreateParameter()) .ParameterName = "@<!columna.nombre!>" .Direction = ParameterDirection.Input .SqlDbType = SqlDbType.VarChar .Size = <!columna.longitud!> .Precision = <!columna.precision!> .Value = arg<!columna.nombre!> End With </por_cada_columna_clave> End With Dim sqlDr As SqlDataReader = sqlCmd.ExecuteReader If sqlDr.Read Then <por_cada_columna_clave> Me.ctl<!columna.nombre!>.Enabled = False </por_cada_columna_clave> <por_cada_columna> ctl<!columna.nombre!>.Text = "" & sqlDr("<!columna.nombre!>") </por_cada_columna> End If sqlDr.Close() sqlCmd.Parameters.Clear() sqlCmd.Dispose() End Sub	Código Generado Sub Buscar( _ , ByVal argCodigoTrabajador As String _ ) Dim sqlCnn As New SqlConnection(My.Settings.CnnStr) sqlCnn.Open() Dim sqlCmd As New SqlCommand With sqlCmd .CommandText = "spS_Trabajador" .CommandType = CommandType.StoredProcedure .Connection = sqlCnn With .Parameters.Add(.CreateParameter()) .ParameterName = "@CodigoTrabajador" .Direction = ParameterDirection.Input .SqlDbType = SqlDbType.VarChar .Size = 4 .Precision = 10 .Value = argCodigoTrabajador End With End With Dim sqlDr As SqlDataReader = sqlCmd.ExecuteReader If sqlDr.Read Then Me.ctlCodigoTrabajador.Enabled = False ctlCodigoTrabajador.Text = "" & sqlDr("CodigoTrabajador") ctlCodigoInterno.Text = "" & sqlDr("CodigoInterno") ctlNombres.Text = "" & sqlDr("Nombres") ctlApellidoPaterno.Text = "" & sqlDr("ApellidoPaterno") ctlApellidoMaterno.Text = "" & sqlDr("ApellidoMaterno") ctlFechaNacimiento.Text = "" & sqlDr("FechaNacimiento") ctlSexo.Text = "" & sqlDr("Sexo") ctlCodigoTipoDocumentoIdentidad.Text = "" & sqlDr("CodigoTipoDocumentoIdentidad") ctlNumeroDocumentoIdentidad.Text = "" & sqlDr("NumeroDocumentoIdentidad") ctlCodigoSituacionLaboral.Text = "" & sqlDr("CodigoSituacionLaboral") ctlCodigoTipoTrabajador.Text = "" & sqlDr("CodigoTipoTrabajador") ctlCodigoSituacionTrabajador.Text = "" & sqlDr("CodigoSituacionTrabajador") ctlPuedeSolicitarPedio.Text = "" & sqlDr("PuedeSolicitarPedio") ctlPuedeAprobarPedido.Text = "" & sqlDr("PuedeAprobarPedido") ctlPuedeEntregarPedido.Text = "" & sqlDr("PuedeEntregarPedido") ctlTelefonoPersonal.Text = "" & sqlDr("TelefonoPersonal") ctlObservaciones.Text = "" & sqlDr("Observaciones") ctlOcupacion.Text = "" & sqlDr("Ocupacion") ctlDiscapacidad.Text = "" & sqlDr("Discapacidad") End If sqlDr.Close() sqlCmd.Parameters.Clear() sqlCmd.Dispose() End Sub
Generar Procedimiento Almacenado INSERT CREATE PROC dbo.spI_<!tabla.nombre!> <por_cada_columna> @<!columna.nombre!> <!columna.declaracion.sql!> = Null<excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> AS <por_cada_columna_clave> SELECT @<!columna.nombre!> = ISNULL(MAX(<!columna.nombre!>),0)+1 FROM <!tabla.nombre!> </por_cada_columna_clave> insert into <!tabla.nombre!> ( <por_cada_columna> <!columna.nombre!><excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> ) VALUES( <por_cada_columna> @<!columna.nombre!><excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> ) GO	Código Generado CREATE PROC dbo.spI_Trabajador @CodigoTrabajador int = Null, @CodigoInterno varchar(50) = Null, @Nombres varchar(40) = Null, @ApellidoPaterno varchar(25) = Null, @ApellidoMaterno varchar(25) = Null, @FechaNacimiento datetime = Null, @Sexo varchar(1) = Null, @CodigoTipoDocumentoIdentidad int = Null, @NumeroDocumentoIdentidad varchar(25) = Null, @CodigoSituacionLaboral int = Null, @CodigoTipoTrabajador int = Null, @CodigoSituacionTrabajador int = Null, @PuedeSolicitarPedio bit = Null, @PuedeAprobarPedido bit = Null, @PuedeEntregarPedido bit = Null, @TelefonoPersonal varchar(50) = Null, @Observaciones varchar(5000) = Null, @Ocupacion varchar(50) = Null, @Discapacidad bit = Null AS SELECT @CodigoTrabajador = ISNULL(MAX(CodigoTrabajador),0)+1 FROM Trabajador insert into Trabajador ( CodigoTrabajador, CodigoInterno, Nombres, ApellidoPaterno, ApellidoMaterno, FechaNacimiento, Sexo, CodigoTipoDocumentoIdentidad, NumeroDocumentoIdentidad, CodigoSituacionLaboral, CodigoTipoTrabajador, CodigoSituacionTrabajador, PuedeSolicitarPedio, PuedeAprobarPedido, PuedeEntregarPedido, TelefonoPersonal, Observaciones, Ocupacion, Discapacidad ) VALUES( @CodigoTrabajador, @CodigoInterno, @Nombres, @ApellidoPaterno, @ApellidoMaterno, @FechaNacimiento, @Sexo, @CodigoTipoDocumentoIdentidad, @NumeroDocumentoIdentidad, @CodigoSituacionLaboral, @CodigoTipoTrabajador, @CodigoSituacionTrabajador, @PuedeSolicitarPedio, @PuedeAprobarPedido, @PuedeEntregarPedido, @TelefonoPersonal, @Observaciones, @Ocupacion, @Discapacidad ) GO
Generar Procedimiento Almacenado UPDATE CREATE PROC dbo.spU_<!tabla.nombre!> <por_cada_columna> @<!columna.nombre!> <!columna.declaracion.sql!> = Null<excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> AS UPDATE <!tabla.nombre!> SET <por_cada_columna> <!columna.nombre!> = @<!columna.nombre!><excluir_en_ultima_vuelta>, </excluir_en_ultima_vuelta> </por_cada_columna> WHERE <por_cada_columna_clave> <!columna.nombre!> = @<!columna.nombre!><excluir_en_ultima_vuelta> AND </excluir_en_ultima_vuelta> </por_cada_columna_clave> GO	Código Generado CREATE PROC dbo.spU_Trabajador @CodigoTrabajador int = Null, @CodigoInterno varchar(50) = Null, @Nombres varchar(40) = Null, @ApellidoPaterno varchar(25) = Null, @ApellidoMaterno varchar(25) = Null, @FechaNacimiento datetime = Null, @Sexo varchar(1) = Null, @CodigoTipoDocumentoIdentidad int = Null, @NumeroDocumentoIdentidad varchar(25) = Null, @CodigoSituacionLaboral int = Null, @CodigoTipoTrabajador int = Null, @CodigoSituacionTrabajador int = Null, @PuedeSolicitarPedio bit = Null, @PuedeAprobarPedido bit = Null, @PuedeEntregarPedido bit = Null, @TelefonoPersonal varchar(50) = Null, @Observaciones varchar(5000) = Null, @Ocupacion varchar(50) = Null, @Discapacidad bit = Null AS UPDATE Trabajador SET CodigoTrabajador = @CodigoTrabajador, CodigoInterno = @CodigoInterno, Nombres = @Nombres, ApellidoPaterno = @ApellidoPaterno, ApellidoMaterno = @ApellidoMaterno, FechaNacimiento = @FechaNacimiento, Sexo = @Sexo, CodigoTipoDocumentoIdentidad = @CodigoTipoDocumentoIdentidad, NumeroDocumentoIdentidad = @NumeroDocumentoIdentidad, CodigoSituacionLaboral = @CodigoSituacionLaboral, CodigoTipoTrabajador = @CodigoTipoTrabajador, CodigoSituacionTrabajador = @CodigoSituacionTrabajador, PuedeSolicitarPedio = @PuedeSolicitarPedio, PuedeAprobarPedido = @PuedeAprobarPedido, PuedeEntregarPedido = @PuedeEntregarPedido, TelefonoPersonal = @TelefonoPersonal, Observaciones = @Observaciones, Ocupacion = @Ocupacion, Discapacidad = @Discapacidad WHERE CodigoTrabajador = @CodigoTrabajador




Generar Cuadros de Texto y Etiquetas: _ Partial Class frmRegi<!tabla.nombre!> Inherits System.Windows.Forms.Form 'Form reemplaza a Dispose para limpiar la lista de componentes. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Requerido por el Diseñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento 'Se puede modificar usando el Diseñador de Windows Forms. 'No lo modifique con el editor de cÃ³digo. _ Private Sub InitializeComponent() <por_cada_columna> Me.ctl<!columna.nombre!> = New System.Windows.Forms.TextBox </por_cada_columna> <!defReiniciarPosicionY!> <por_cada_columna> Me.lbl<!columna.nombre!> = New System.Windows.Forms.Label </por_cada_columna> Me.SuspendLayout() <!defReiniciarPosicionY!> <por_cada_columna> ' 'ctl<!columna.nombre!> ' Me.ctl<!columna.nombre!>.Location = New System.Drawing.Point(110, <!defSiguientePosicionY!>) Me.ctl<!columna.nombre!>.Name = "clt<!columna.nombre!>" Me.ctl<!columna.nombre!>.MaxLength = <!columna.longitud!> Me.ctl<!columna.nombre!>.Size = New System.Drawing.Size(100, 22) Me.ctl<!columna.nombre!>.TabIndex = 0 </por_cada_columna> <!defReiniciarPosicionY!> <por_cada_columna> ' 'lbl<!columna.nombre!> ' Me.lbl<!columna.nombre!>.AutoSize = True Me.lbl<!columna.nombre!>.Location = New System.Drawing.Point(27, <!defSiguientePosicionY!>) Me.lbl<!columna.nombre!>.Name = "lbl<!columna.nombre!>" Me.lbl<!columna.nombre!>.Size = New System.Drawing.Size(40, 13) Me.lbl<!columna.nombre!>.TabIndex = 1 Me.lbl<!columna.nombre!>.Text = "<!columna.nombre!>:" </por_cada_columna> ' 'frmRegi<!tabla.nombre!> ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 266) <por_cada_columna> Me.Controls.Add(Me.ctl<!columna.nombre!>) </por_cada_columna> <por_cada_columna> Me.Controls.Add(Me.lbl<!columna.nombre!>) </por_cada_columna> Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "frmRegi<!tabla.nombre!>" Me.Text = "REGISTRO - <!tabla.nombre!>" Me.ResumeLayout(False) Me.PerformLayout() End Sub <por_cada_columna> Friend WithEvents ctl<!columna.nombre!> As System.Windows.Forms.TextBox </por_cada_columna> <por_cada_columna> Friend WithEvents lbl<!columna.nombre!> As System.Windows.Forms.Label </por_cada_columna> End Class
Inicio