Imports System.Data.SqlClient
Imports System.Net
Imports System.Web.HttpApplicationState
Public Class ADMINISTRADOR_1
Inherits System.Web.UI.Page
Private strconn As String
Public objradiobox As RadioButtonList
Public objConexion As SqlConnection
Public objcomando2 As SqlDataAdapter
Public objdataset As DataSet
Public sourcepage As ADMINISTRADOR_1
Public objconexion2 As SqlConnection
Public objcomando3 As SqlCommand
Public objdatareader3 As SqlDataReader
Public objCell As TableCell
Public objRow As TableRow
Public objdatagrid As DataGrid
Protected objtextBox As TextBox
Public inicio As String System.Web.UI.WebControls.TextBox()
Public inicio2 As String
Public objDropDownlist As DropDownList
Public objListItem As ListItem
Public objlistbox1 As ListBox
Public objlistbox_gerencias As ListBox
Public componentes As String
'////para el load
Public boton_cancelarinicio As Button
Public boton_aceptar As Button
'///////////////
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tblCategorias.Rows.Clear()
objConexion = New SqlConnection(strconn)
objConexion.Open() 'ABRIMOS LO QUE ES LA CONEXION
objcomando2 = New SqlDataAdapter("select * from Componentes", objConexion)
objdataset = New DataSet()
objcomando2.Fill(objdataset, "componentes")
objRow = New TableRow()
objCell = New TableCell()
objCell.Text = "FAVOR DE SELECCIONAR UN ELEMENTO"
objRow.Cells.AddAt(0, (objCell))
tblCategorias.Rows.Add(objRow)
objdatagrid = New DataGrid()
objdatagrid.DataSource = objdataset.Tables("componentes").DefaultView
objdatagrid.DataBind()
objradiobox = New RadioButtonList()
objradiobox.DataSource = objdataset.Tables("componentes")
objradiobox.DataTextField = "componentes" ' con estas opciones especifico los elementos a mostrar
objradiobox.DataValueField = "componentes" ' creo que tienen que llevar los dos por que uno es para el valor creo.
objradiobox.ID = "Seleccion"
objradiobox.DataBind() ' sirve para enlazar los datos
boton_aceptar = New Button()
boton_aceptar.Text = "ACEPTAR"
'//////////////////
boton_aceptar2 = New Button()
boton_aceptar2.Text = "Aceptar" ' esta parte es la que hace referencia a lo que es el boton de aceptar por lop cual en esta parte pongo lo que es evento click
boton_aceptar2.ID = "orga_inicio"
boton_aceptar2.Visible = False
boton_nuevo = New Button()
boton_modificar = New Button()
boton_cancelar = New Button()
objRow = New TableRow()
objCell = New TableCell()
objCell.Controls.Add(objradiobox)
objCell.Controls.Add(boton_aceptar)
objCell.Controls.Add(boton_cancelarinicio)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objRow = New TableRow()
objCell = New TableCell()
objCell.Controls.Add(boton_aceptar2)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objRow = New TableRow()
objCell = New TableCell()
objCell.Controls.Add(objlistbox1)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objlistbox_gerencias = New ListBox()
objdataset = Nothing
objConexion.Close()
objConexion = Nothing
objcomando2 = Nothing
objConexion = Nothing
AddHandler boton_aceptar.Click, AddressOf Elementos_inicio ' esto es para llamar el evento click u otro evento desde tiempo de ejecuccion o en forma dinamica
AddHandler boton_cancelarinicio.Click, AddressOf cancelarinicio
AddHandler boton_aceptar2.Click, AddressOf hola_uno
End Sub
Private Sub Elementos_inicio(ByVal sender As Object, ByVal e As EventArgs)
Select Case objradiobox.SelectedIndex
Case 0
Call organigrama_inicio()
Case Is <> 0
End Select
End Sub
Private Sub hola_uno(ByVal sender As Object, ByVal e As EventArgs)
tblCategorias.Rows.Clear()
Dim caja_de_texto As TextBox = New TextBox()
objRow.Width = Unit.Pixel(20)
objCell = New TableCell()
objCell.Width = Unit.Pixel(100)
objCell.Height = Unit.Pixel(66)
objCell.Text = "Ingrese Subsecretaria o Area equivalente"
objRow.Cells.AddAt(0, (objCell))
tblCategorias.Rows.Add(objRow)
caja_de_texto.Text = inicio
objRow = New TableRow()
objCell = New TableCell()
objCell.Width = Unit.Pixel(50)
objCell.Controls.Add(caja_de_texto)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
boton_aceptar2.Visible = True
objCell = New TableCell()
objCell.Width = Unit.Pixel(50)
objCell.Controls.Add(boton_aceptar2)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
Dim objcomando As SqlCommand
Dim objcomando2 As SqlCommand
Dim objdatareader2 As SqlDataReader
Dim objdatareader1 As SqlDataReader
objconexion2 = New SqlConnection(strconn)
objconexion2.Open() 'ABRIMOS LO QUE ES LA CONEXION
objcomando = New SqlCommand("select padre1,tipo_organigrama from clasificacion_organigrama1 ", objconexion2)
objdatareader1 = objcomando.ExecuteReader()
objdatareader1.Read()
inicio2 = objdatareader1.Item("padre1")
objRow = New TableRow()
objCell = New TableCell()
objCell.Text = "ELEMENTOS EXISTENTES"
objRow.Cells.AddAt(0, (objCell))
tblCategorias.Rows.Add(objRow)
objconexion2.Close()
objconexion2 = Nothing
objconexion2 = New SqlConnection(strconn)
objconexion2.Open() 'ABRIMOS LO QUE ES LA CONEXION
objcomando2 = New SqlCommand("select NIVEL,Tipo_organigrama,hijo from clasificacion_organigrama1 C,MENU_ORGANIGRAMA1 X where C.padre1=x.PADRE2 and rtrim(C.padre1)='DIRECCIÓN GENERAL ' ORDER BY NIVEL,CONTADOR", objconexion2)
objdatareader2 = objcomando2.ExecuteReader()
If objdatareader2.Read = Nothing Then ' con esta se puede determinar si el datareader contiene elementos y esto me servira para agregar lo que es un nuevo elemento a alguna direccion no contemplada en el eorganigrama inicial
Else
While objdatareader2.Read()
inicio2 = objdatareader2.Item("hijo") ' en esta parte asigno lo que es un registro a la vez
objlistbox_gerencias.AutoPostBack = False
objlistbox_gerencias.Items.Add(inicio2) ' con esto estoy llenado el listbox
objRow = New TableRow()
objCell = New TableCell()
objCell.Controls.Add(objlistbox_gerencias)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
End While
End If
boton_cancelar.Visible = True
boton_eliminar.Visible = True
boton_nuevo.Visible = True
boton_modificar.Visible = True
objRow = New TableRow()
objCell = New TableCell()
objCell.Controls.Add(boton_modificar)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objCell = New TableCell()
objCell.Controls.Add(boton_eliminar)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objCell = New TableCell()
objCell.Controls.Add(boton_nuevo)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objCell = New TableCell()
'objCell.Width = Unit.Pixel(50)
objCell.Controls.Add(boton_cancelar)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
End Sub
Public Function organigrama_inicio() 'Llama a la subrutina donde se ingresar los datos
tblCategorias.Rows.Clear() 'limpia el contenido de las filas de las tablas
objRow = New TableRow()
objRow.Width = Unit.Pixel(20)
objCell = New TableCell()
objCell.Width = Unit.Pixel(100)
objCell.Height = Unit.Pixel(66)
objCell.Text = "Ingrese Subsecretaria o Area equivalente"
objRow.Cells.AddAt(0, (objCell))
tblCategorias.Rows.Add(objRow)
objtextBox = New TextBox() ' el parentesis indica constructor
objtextBox.AutoPostBack = False
objtextBox.Enabled = True
objtextBox.EnableViewState = True
objtextBox.Width = Unit.Pixel(300)
Session("datos") = objtextBox.Text()
inicio = Session("datos")
objRow = New TableRow()
objCell = New TableCell()
objCell.Width = Unit.Pixel(50)
objCell.Controls.Add(objtextBox)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
boton_aceptar2.Visible = True
objCell = New TableCell()
objCell.Width = Unit.Pixel(50)
objCell.Controls.Add(boton_aceptar2)
objRow.Cells.Add(objCell)
tblCategorias.Rows.Add(objRow)
objtextBox = Nothing
End Function
End Class
