USE dep
GO

-- TABLA DEPARTAMENTO

CREATE TABLE DEPARTAMENTO(
NOMBRED VARCHAR(15) NOT NULL,
NUMEROD INT NOT NULL,
NSSGTE  CHAR(9),
FECHAINICGTE DATE,

PRIMARY KEY (NUMEROD),
UNIQUE(NOMBRED),
FOREIGN KEY (NSSGTE) REFERENCES EMPLEADO (NSS),
)
GO

--TABLA EMPLEADO 

CREATE TABLE EMPLEADO(
NOMBREP  VARCHAR(15) NOT NULL,
INIC     CHAR NULL,
APELLIDO VARCHAR (15)NOT NULL,
NSS      CHAR(9)NOT NULL,
FECHAN   DATE,
DIRECCION VARCHAR (30) NULL,
SEXO     CHAR NULL,
SALARIO  DECIMAL (10,2) NULL,
NSSUPER  CHAR(9) NULL,  
ND       INT NULL,
PRIMARY KEY (NSS),
FOREIGN KEY (NSSSUPER)REFERENCES EMPLEADO(NSS),
FOREIGN KEY (ND) REFERENCES DEPARTAMENTO (NUMEROD),
)
GO

-- TABLA LUGARES_DEPTOS


CREATE TABLE LUGARES_DEPTOS(
NUMEROD INT NOT NULL,
LUGARD  VARCHAR (15) NOT NULL,

PRIMARY KEY (NUMEROD, LUGARD),
FOREIGN KEY (NUMEROD) REFERENCES DEPARTAMENTO (NUMEROD),
)
GO


-- TABLA PROYECTO


CREATE TABLE PROYECTO(
NOMBREPR  VARCHAR(15) NOT NULL,
NUMEROP   INT NOT NULL,
LUGARP    VARCHAR(15) NULL,
NUMD      INT NOT NULL,
PRIMARY KEY (NUMEROP),
UNIQUE (NOMBREPR),
FOREIGN KEY (NUMD) REFERENCES DEPARTAMENTO (NUMEROD),
)
GO


--TABLA TRABAJA_EN

CREATE TABLE TRABAJA_EN(
NSSE  CHAR(9) NOT NULL,
NUMP  INT NOT NULL,
HORAS DECIMAL (3,1) NOT NULL,  
PRIMARY KEY (NSSE, NUMP),
FOREIGN KEY (NSSE) REFERENCES EMPLEADO (NSS),
FOREIGN KEY (NUMP) REFERENCES PROYECTO (NUMEROP),
)
GO

--TABLA DEPENDIENTE

CREATE TABLE DEPENDIENTE(
NSSE    CHAR(9)NOT NULL, 
NOMBRE_DEPENDIENTE VARCHAR(15)NOT NULL,  
SEXO    CHAR,
FECHAN  DATE,
PARENTESCO VARCHAR (8) NULL,
PRIMARY KEY (NSSE,NOMBRE_DEPENDIENTE),
FOREIGN KEY (NSSE) REFERENCES EMPLEADO (NSS),
)
GO

Mens. 1767, Nivel 16, Estado 0, Línea 4
La clave externa 'FK__DEPARTAME__NSSGT__4D94879B' hace referencia a la tabla no válida 'EMPLEADO'.
Mens. 1750, Nivel 16, Estado 0, Línea 4
No se pudo crear la restricción. Consulte los errores anteriores.
Mens. 1769, Nivel 16, Estado 1, Línea 4
La clave externa 'NSSSUPER' hace referencia a una columna no válida 'NSSSUPER' en la tabla que hace la referencia 'EMPLEADO'.
Mens. 1750, Nivel 16, Estado 0, Línea 4
No se pudo crear la restricción. Consulte los errores anteriores.
Mens. 1767, Nivel 16, Estado 0, Línea 5
La clave externa 'FK__LUGARES_D__NUMER__52593CB8' hace referencia a la tabla no válida 'DEPARTAMENTO'.
Mens. 1750, Nivel 16, Estado 0, Línea 5
No se pudo crear la restricción. Consulte los errores anteriores.
Mens. 1767, Nivel 16, Estado 0, Línea 6
La clave externa 'FK__PROYECTO__NUMD__59FA5E80' hace referencia a la tabla no válida 'DEPARTAMENTO'.
Mens. 1750, Nivel 16, Estado 0, Línea 6
No se pudo crear la restricción. Consulte los errores anteriores.
Mens. 1767, Nivel 16, Estado 0, Línea 5
La clave externa 'FK__TRABAJA_EN__NSSE__5EBF139D' hace referencia a la tabla no válida 'EMPLEADO'.
Mens. 1750, Nivel 16, Estado 0, Línea 5
No se pudo crear la restricción. Consulte los errores anteriores.
Mens. 1767, Nivel 16, Estado 0, Línea 4
La clave externa 'FK__DEPENDIENT__NSSE__6383C8BA' hace referencia a la tabla no válida 'EMPLEADO'.
Mens. 1750, Nivel 16, Estado 0, Línea 4
No se pudo crear la restricción. Consulte los errores anteriores.

Warning: sybase_select_db() [function.sybase-select-db]: 0 is not a Sybase link index in /opt/apache/htdocs/sistema/admin.php on line 4
insert into acceso values ('administrador','Administrador','91f5167c34c400758115c2a6826ec2e3','SAD','A')

Warning: sybase_query() [function.sybase-query]: -1
 is not a Sybase link index in /opt/apache/htdocs/sistema/admin.php on line 9

For i = 0 To Form1.lsvProductos.Items.Count - 1
                    If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then

                        'cant = Form1.lsvProductos.Items(i).SubItems(2).Text
                        cant = Form1.txtcantidad.Text.ToString 
                        Form1.lsvProductos.Items(i).SubItems(2).Text = cant 'aqui le digo que en el subitem 2 ponga la cant que es el txtcantidad 
                        subtotal = cant * costo
                        Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal
                        Exit For
                        'b = True
                    End If
                Next

                'If b = False Then
                If (i = Form1.lsvProductos.Items.Count) Then
                    Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre)
                    Form1.lsvProductos.Items.SubItems.Add(Form1.txtcantidad.Text) ' aqui se supone que lo debo de agregar pero no lo hace
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo)
                    subtotal = 1 * costo
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal)
                End If