No se me puede enviar tu código, en intentado de diferentes formas, de antemano agradezco por tu ayuda.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
function nValidarLogin($login,$pass,$empresa){
$obj_pSegSist = new nSeguridadSistema();
$validacionUsuario = $obj_pSegSist -> nValidarUsuario($login);
if ($validacionUsuario== 2 ){
//echo("hola");
$rpta = "No existe el usuario introducido";
echo ($rpta);
//header("location: ../cp/pAcceso.php?rpta=".$rpta);
}else{
$validacionUsuarioClave = $obj_pSegSist -> nValidarUsuarioClave($login,$pass);
if($validacionUsuarioClave == 1){
$validacionEmpresa = $obj_pSegSist -> nValidarEmpresa($login,$pass,$empresa);
if($validacionEmpresa == 1){
//session_start();
$_SESSION['usuario']=$login;
if(isset($_SESSION['usuario'])){
// header("location: ../cp/pMenuPrincipal1.php");
echo (1);
}
}else{
$rpta = "Usuario no pertenece a la empresa selecionada";
echo($rpta);
//header("location: ../cp/pAcceso.php?rpta=".$rpta);
}
}else{
$rpta = "Password incorrecto";
echo($rpta);
//header("location: ../cp/pAcceso.php?rpta=".$rpta);
}
}
}
var button = Ext.getCmp('but');
button.on('click', function(){
Ext.Ajax.request({
url:"../cn/nLogin.php",
params:{funcion:'nValidarLogin', txt_usuario:uss.getValue(), txt_clave:pas.getValue(),txt_empresa:emp.getValue()},
success:terminado,
failure:conexionFailure
});
function terminado(resp){
if(resp.responseText==1){
Ext.Msg.alert("INFORMACION DEL SISTEMA ","Binevnidoas al Sistema Contable")
window.location.href = 'pMenuPrincipal1.php'
}
else{
Ext.Msg.alert("INFORMACION DEL SISTEMA",resp.responseText);
}
}
})
Imports System.Data.SqlClient
Imports System.Data.DataView
Public Class Form1
Dim con As New SqlConnection("Integrated security=sspi;server=.;database =northwind")
Dim dtb As DataTable
Dim da As SqlDataAdapter
Function llenar_combo() As DataTable
da = New SqlDataAdapter("select *from categories", con)
dtb = New DataTable
da.Fill(dtb)
Return dtb
End Function
Function llenar_listbox() As DataTable
'creamos la consulta y filtramos los datos segun el campo que tiene en comun
da = New SqlDataAdapter("select *from products where categorYid =" & Me.ComboBox1.SelectedValue & "", con)
dtb = New DataTable
da.Fill(dtb)
Return dtb
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ComboBox1.DataSource = llenar_combo()
Me.ComboBox1.ValueMember = "categorYid"
Me.ComboBox1.DisplayMember = "categoryname"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Try
Me.ListBox1.DataSource = llenar_listbox()
Me.ListBox1.ValueMember = "Productid"
Me.ListBox1.DisplayMember = "productname"
Catch ex As Exception
End Try
End Sub
End Class
go
use master
go
drop database usuarios
go
create database usuarios
go
use usuarios
go
create table usuarios
(
idus int identity primary key,
usename varchar(20),
pwd varchar(20)
)
go
insert into usuarios values('admin','admin')
insert into usuarios values('Jose','Guevara')
insert into usuarios values('operador','opera')
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="loing.aspx.vb" Inherits="usarios_loing" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Página sin título</title>
<script language="javascript" src="../AjaxNet.js" type="text/javascript" > </script>
</head>
<body>
<form id="form1" runat="server">
<table>
<tr>
<td style="width: 100px">
Usuario</td>
<td style="width: 100px">
<asp:TextBox ID="t1" runat="server"></asp:TextBox></td>
<td style="width: 100px">
</td>
</tr>
<tr>
<td style="width: 100px">
contraseña</td>
<td style="width: 100px">
<asp:TextBox ID="t2" runat="server" onkeyup="usuarios();"></asp:TextBox>
<div id='resultado'></div>
</td>
<td style="width: 100px">
</td>
</tr>
<tr>
<td style="width: 100px">
<input id="log" type="button" value="Loing" onclick="usuarios();"/></td>
<td style="width: 100px">
</td>
<td style="width: 100px">
</td>
</tr>
</table>
<div id="msj" style="position:absolute;left:260px;top:180px;width:450px">
</div>
<br />
<br />
</form>
</body>
</html>
function usuarios(){
ajax = new ActiveXObject("Microsoft.XMLHTTP");
var uss = document.getElementById('t1').value;
var pas = document.getElementById('t2').value;
var boton=document.getElementById("log");
ajax.open("GET", "VereFic_Loing.aspx?us="+uss+"&ps="+pas,true);
// ajax.open("Get","VereFic_Loing.aspx?us="+uss+"&ps="+pas,true);
document.getElementById('resultado').innerHTML="";
if (ajax) {
ajax.onreadystatechange = function() {
//alert(ajax.status);
boton.disabled=true;
if (ajax.readyState == 4 && (ajax.status == 200 || ajax.status == 304 || ajax.status == 500)) {
document.getElementById('resultado').innerHTML="";
document.getElementById('resultado').innerHTML = ajax.responseText;
boton.disabled=false;
}
}
//req.open('GET', pos_url +'?nombre='+nombre,true);
ajax.send(null);
}
}
<%@ Page Language="VB"%>
<%@ Import Namespace="system.Data.SqlClient"%>
<%@ Import Namespace="system.Data"%>
<script runat="server">
'lo primero que se debe ralizar es importar los Namespace
'tanto el data com el SqlClient
'estos Namespace contienen las libreriar que interactuan con
'el administrador de base de datos utilizamos es decir con el sql server
'================0
'una ves que hemos importado las librerias cramos nuetra acadena de conexion
' a nuestra cadena de conexion lo vamos ha llamr con
Dim con As New SqlConnection("Integrated security=sspi;server=.;database=usuarios")
'database: nos permita optener el nombre de la base de datos con la que vamos a trabajar
'en este caso nuetra base de datos se llama usuarios
'SERVER:NOS DA EL ORIGEN DE DATOS ,EN ESTE CAMO ESTAMOS TRABAJANDO LOCALMENTE,
'SOLAMENTE PODRMOS PUNTO O SIMPLEMENTE (LOCAL), O EL NOMBRE DE L MAQUEINA PERO SI NUETRS BASE DE DATOS
'ESTUBIERA ALOGADO EN UN SERVIDOR TENDRIAMOS PONER EL NOMBRE DEL SERVIDOR POR EJEMPLO
'EL SERVIDOR QUE ESTA ALOGADA NUESTRA BASE DE DATOS TOMARA EL IP:200.65.15.3
'EL ORIENGE DEDATOS SERIA SERVER=200.65.15.3.
Sub page_load(ByVal sender As Object, ByVal e As System.EventArgs)
' el la varible user resivimos el parametro us que declaramos la funcion ajax
Dim user As String = Request.QueryString("us") 'recibimos el paramtro del usarios
Dim pas As String = Request.QueryString("ps") 'recibimos el paramtro del contraseña
'llamamos ala funcion y enviamos los parametros solicitados, tanto el usario con la contraseña
If users(user, pas).Rows.Count = 0 Then
'en caso la contraseña y/o usario sea inconrrecto mostrar el siguente mensaje
Response.Write("Acceso Denegado")
Else
' el caso contrario que fueran conrrecto los datos mostrar los soguente
Response.Write("Felicitacion Acceso Concedido al sistemas")
End If
End Sub
'hacemos una funcion para verficar la existencia del uasario
'de tipo datatable en el cual enviamos dos parametros ,el nombre del usario y la contraseña
Function users(ByVal us As String, ByVal pas As String) As DataTable
'creamos la consulta ala tabla usarios utilizando la sentencia like
Dim da As New SqlDataAdapter("select idus,usename,pwd from usuarios where usename like '" & us & "' and pwd like '" & pas & "'", con)
Dim ds As New DataSet
Dim dtb As New DataTable
da.Fill(dtb)
Return dtb
End Function
</script>
Dim a As New Random
For k As Integer = 0 To 2
For l As Integer = 0 To 2
m(k, l) = a.Next(5, 9)
Next
Next
Código: Me.ListView1.View = View.Details
Me.ListView1.Items.Clear()
For i As Integer = 0 To 2
Me.ListView1.Items.Add(m(i, 0))
For j As Integer = 1 To 2
Me.ListView1.Items(i).SubItems.Add(m(i, j))
Next
Next
Citarsoftdonet@hotmail.com
Cita de: seba123neo en 5 Septiembre 2008, 02:40 AM
pero aprende a postear en el foro correcto...
VISUAL C#
Class1.cs
using System;
using System.Collections.Generic;
using System.Text;
namespace WindowsApplication1
{
class Class1
{
private string apellido;
private string nombre;
private int edad;
public int Edad
{
get { return edad; }
set { edad = value; }
}
private DateTime fecha;
public DateTime Fecha
{
get { return fecha; }
set { fecha = value; }
}
public Class1()
{
}
public Class1(string apellido,string nombre,int edad,DateTime f)
{
this.apellido = apellido;
this.nombre = nombre;
this.edad = edad;
this.fecha = f;
}
public string Apellido
{
get { return apellido; }
set { apellido = value; }
}
public string Nombre
{
get { return nombre; }
set { nombre = value; }
}
public virtual string getCodigo()
{
return apellido.Substring(0, 1) + nombre.Substring(0, 1) + "001";
}
}
}
Class2.cs
using System;
using System.Collections.Generic;
using System.Text;
namespace WindowsApplication1
{
class Class2 : Class1
{
private int sueldo;
private string codigo;
public int Sueldo
{
get { return sueldo; }
set { sueldo = value; }
}
public string Codigo
{
get { return codigo; }
}
public Class2(string apellido,string nombre,int edad)
{
}
public Class2() : base("Perez", "Juan", 25,DateTime.Now) { }
public override string getCodigo() {
//return base.getCodigo();
codigo = Apellido.Substring(0, 1) + Nombre.Substring(0, 1) + Fecha.Year.ToString().Substring(2,2);
return codigo;
}
public override string ToString()
{
string cadena="";
cadena += "Codigo : " + Codigo + "\n" + "Apellido : " + Apellido + "\n" + "Nombre : " + Nombre;
return cadena;
}
}
}