Tutorial De Visual FoxPro

Empezamos el primer tutorial del autodidacta, tomaremos a Visual FoxPro 6.0.

 

Para empezar, daremos a conocer  el entorno de desarrollo de Visual Fox Pro.

 

Entorno de Desarrollo

 

El entorno de desarrollo son las partes visuales de las que esta compuesto todo el lenguaje de programación visual, como lo son Visual FoxPro, Visual Basic, Delphi, etc., en la siguiente figura se muestra la pantalla de inicio de Visual FoxPro.

 

 

 

 

 

Barra de Menús

Por medio de esta barra de menús podremos accesar a todas las opciones que Visual FoxPro nos ofrece como Abrir o Crear una Base de Datos, un Reporte, etc.

Barra de Herramientas

Por medio de esta barra de herramientas podremos accesar a todas las opciones que mas utilizan, sin necesidad de ir a los menús a buscar sus respectivas opciones, esto es para tener un acceso mas rápido.

Ventana de Comandos

Por medio de esta ventana, podrás hacer las mismas cosas que puedes hacer a través de la barra de herramientas, solo que para esto, necesitas noción sobre codificación.

Leer Mas......

Nueva Temporada 2009

Después de muchos meses de inactividad, volveremos a rellenar de contenido este blog, como ya se dieron cuenta (muchos) ya no somos alumnos del ISTP Luis E. Valcárcel .Ahora pasamos a ser EGRESADOS, por ello es que a partir de esta temporada, no nos dedicaremos a lo que pase en nuestro Ex centro de estudios, pasaremos a desarrollar algunos manuales con los cuales los novatos aprenderán, y los que ya pasaron de ser novatos, podrán ayudarnos en lo que se necesite.

 

Como primer manual a desarrollar tenemos el ya antiguo Visual FoxPro 6.0 que empezaremos a desarrollarlo a partir de la siguiente entrada.

Leer Mas......

Examen # 2 de LP VI

* Desarrolle una aplicacion que le permita:

 

Archivo			Programas
-	Abrir		-	Factorial
			-	Cadena

 

. Cuando se haga clic en Abrir, muestre el la ventana de abrir archivo.

. al hacer clic en Factorial, muestre el formulario Factorial que tendras que elaborarlo.

. al hacer clic en Cadena, mande al formulario frmCadena que sera similar al siguiente:

 

 

 

RESOLUCION DEL EXAMEN:

FRMPRINCIPAL
MenuItem_abrir_click

        Dim vtnabrir As New OpenFileDialog
        vtnabrir.ShowDialog()

MenuItem_factorial_click

        Dim formfactorial As New Factorial
        formfactorial.MdiParent = Me
        formfactorial.Show()

MenuItem_cadena_click

        Dim formcadena As New Cadena
        formcadena.MdiParent = Me
        formcadena.Show()

FRMCADENA
BtnSeleccionar_click

        Dim origen As String
        Dim inisel, longsel As Integer
        origen = Me.TextBox1.Text
        inisel = Me.TextBox2.Text
        longsel = Me.TextBox3.Text
        Me.TextBox1.SelectionStart = inisel
        Me.TextBox1.SelectionLength = longsel
        Me.TextBox4.Text = Me.TextBox1.SelectedText
        Me.TextBox1.Focus()

FRMFACTORIAL

BtnFactorial_click

        Dim numero, i As Integer
        Dim fact As Double
        fact = 1
        numero = Me.TextBox1.Text
        For i = numero To 1 Step -1
            fact = fact * i
        Next
        Me.TextBox2.Text = fact

Leer Mas......

Examen # 1 de LP VI

Elaborar un formulario en el que con los botones   y permita pasar items desde el lst1 al lst2 y viceversa.

 

que atravez del txt1 al darle "Enter" permita agregar el item a la lst1 solo si se tratase de numero.

 

Que al darle clic en el btn3 (fuente) permita abrir el cuadro de dialogo de fuente(Tamaño de texto, negrita, cursiva, tipo de fuente,etc)

 

la salida sera similar a la siguiente:

 

 

El siguiente código pertenece al programa solicitado, se presenta solo con fines didácticos y se recomienda practicar con algo similar o quizá mas complicado para evitar la memorización. :)

 

btn1_Click

        Me.lst2.Items.Add(Me.lst1.SelectedItem)
        Me.lst1.Items.Remove(Me.lst1.SelectedItem)

btn2_click

        Me.lst1.Items.Add(Me.lst2.SelectedItem)
        Me.lst2.Items.Remove(Me.lst2.SelectedItem)

txt1_KeyPress

        If e.KeyChar = Chr(13) Then
            If IsNumeric(Me.txt1.Text) Then
                Me.lst1.Items.Add(Me.txt1.Text)
            End If
        End If

btn3_click

        Me.FontDialog1.ShowDialog()

Leer Mas......

Segunda Practica de LP VI

1. Crear Base de Datos:

CREATE TABLE [dbo].[Articulo] (
    [codart] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [desart] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [preart] [numeric](18, 0) NOT NULL ,
    [stoart] [numeric](18, 0) NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Cargo] (
    [codcar] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [descar] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Cliente] (
    [codcli] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [nomcli] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [apecli] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [dircli] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [ruccli] [varchar] (11) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Detalle] (
    [nrofac] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [codart] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [candet] [int] NOT NULL ,
    [impdet] [int] NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Empleado] (
    [codemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [nomemp] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [apeemp] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [diremp] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [sexemp] [varchar] (1) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [telemp] [varchar] (8) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [codcar] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [pasemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Factura] (
    [nrofac] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [codemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
    [fecfac] [datetime] NOT NULL ,
    [subtot] [numeric](18, 0) NOT NULL ,
    [totigv] [numeric](18, 0) NOT NULL ,
    [totfac] [numeric](18, 0) NOT NULL ,
    [codcli] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

2. Vistas:

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.a
AS
SELECT     TOP 100 PERCENT codcli AS Codigo, nomcli AS Nombre, apecli AS Apellidos, dircli AS Direccion, ruccli AS Ruc
FROM         dbo.Cliente
ORDER BY nomcli

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.b
AS
SELECT     TOP 100 PERCENT codcli, nomcli, apecli, dircli, ruccli
FROM         dbo.Cliente
WHERE     (nomcli LIKE 'M%')

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.c
AS
SELECT     dbo.Articulo.*
FROM         dbo.Articulo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.d
AS
SELECT     codart, desart, preart, stoart
FROM         dbo.Articulo
WHERE     (preart <= 30.00)

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.e
AS
SELECT     dbo.Empleado.codemp, dbo.Empleado.nomemp, dbo.Empleado.apeemp, dbo.Cargo.descar
FROM         dbo.Empleado INNER JOIN
                      dbo.Cargo ON dbo.Empleado.codcar = dbo.Cargo.codcar

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.f
AS
SELECT     dbo.Cliente.nomcli, dbo.Cliente.apecli, dbo.Factura.fecfac
FROM         dbo.Cliente INNER JOIN
                      dbo.Factura ON dbo.Cliente.codcli = dbo.Factura.codcli
WHERE     (dbo.Factura.fecfac = CONVERT(DATETIME, '2008-08-25 00:00:00', 102))

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.g
AS
SELECT     dbo.Empleado.nomemp, dbo.Empleado.apeemp, dbo.Factura.fecfac
FROM         dbo.Empleado INNER JOIN
                      dbo.Factura ON dbo.Empleado.codemp = dbo.Factura.codemp
WHERE     (dbo.Factura.fecfac = CONVERT(DATETIME, '2008-07-25 00:00:00', 102))

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

3. Procedimientos Almacenados:

SET QUOTED_IDENTIFIER ON 
-- Un procedimiento que le permita conocer los datos personales del cliente, a travez de su codigo

   create procedure P_A
 
 @codigo varchar(5) as
 Select * from cliente where codcli = @codigo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Un procedimiento que le informe el codigo de un articulo ingresando su nombre
CREATE procedure P_B
 @nombre varchar(20) as
 select desart,codart from articulo where desart like @nombre
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


-- Se quiere conocer el password de un determinado empleado conociendo su codigo y su nombre

create procedure P_C
 @codigo varchar(5),
 @nombre varchar(20) as
 select codemp,nomemp,pasemp from empleado where codemp=@codigo and nomemp = @nombre

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Se quiere conoceren base al sexo y al cargo, el nombre y apellido de un respectivo empleado
CREATE procedure P_D
 @sexo varchar(1),
 @cargo varchar(25) as

 select nomemp,apeemp,descar 
 from empleado,cargo
 where sexemp=@sexo and descar = @cargo
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Se quiere conocer el stock existente de un determinado articulo a travez de su codigo
create procedure P_E
 @codigo varchar(5) as
 select desart,stoart from articulo where codart = @codigo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE P_F as 

Select * from factura where fecfac = '27/08/2008' or fecfac='28/08/2008' and totfac > '50'
GO

Es mejor descargarte el Codigo Original que te crea todo.

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_Detalle_Articulo]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Detalle] DROP CONSTRAINT FK_Detalle_Articulo
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_Empleado_Cargo]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Empleado] DROP CONSTRAINT FK_Empleado_Cargo
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_Factura_Cliente]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Factura] DROP CONSTRAINT FK_Factura_Cliente
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_Factura_Empleado]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Factura] DROP CONSTRAINT FK_Factura_Empleado
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_Detalle_Factura]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Detalle] DROP CONSTRAINT FK_Detalle_Factura
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_A]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_A]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_B]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_B]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_C]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_C]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_D]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_D]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_E]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_E]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_F]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_F]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[f]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[g]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[g]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[e]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[e]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[a]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[a]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[b]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[b]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[c]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[c]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[d]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Articulo]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Articulo]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Cargo]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Cargo]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Cliente]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Cliente]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Detalle]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Detalle]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Empleado]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Empleado]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Factura]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Factura]
GO

CREATE TABLE [dbo].[Articulo] (
 [codart] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [desart] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [preart] [numeric](18, 0) NOT NULL ,
 [stoart] [numeric](18, 0) NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Cargo] (
 [codcar] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [descar] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Cliente] (
 [codcli] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [nomcli] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [apecli] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [dircli] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [ruccli] [varchar] (11) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Detalle] (
 [nrofac] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [codart] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [candet] [int] NOT NULL ,
 [impdet] [int] NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Empleado] (
 [codemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [nomemp] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [apeemp] [varchar] (20) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [diremp] [varchar] (25) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [sexemp] [varchar] (1) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [telemp] [varchar] (8) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [codcar] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [pasemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Factura] (
 [nrofac] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [codemp] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL ,
 [fecfac] [datetime] NOT NULL ,
 [subtot] [numeric](18, 0) NOT NULL ,
 [totigv] [numeric](18, 0) NOT NULL ,
 [totfac] [numeric](18, 0) NOT NULL ,
 [codcli] [varchar] (5) COLLATE Modern_Spanish_CI_AS NOT NULL 
) ON [PRIMARY]
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.a
AS
SELECT     TOP 100 PERCENT codcli AS Codigo, nomcli AS Nombre, apecli AS Apellidos, dircli AS Direccion, ruccli AS Ruc
FROM         dbo.Cliente
ORDER BY nomcli

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.b
AS
SELECT     TOP 100 PERCENT codcli, nomcli, apecli, dircli, ruccli
FROM         dbo.Cliente
WHERE     (nomcli LIKE 'M%')

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.c
AS
SELECT     dbo.Articulo.*
FROM         dbo.Articulo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.d
AS
SELECT     codart, desart, preart, stoart
FROM         dbo.Articulo
WHERE     (preart <= 30.00)

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.e
AS
SELECT     dbo.Empleado.codemp, dbo.Empleado.nomemp, dbo.Empleado.apeemp, dbo.Cargo.descar
FROM         dbo.Empleado INNER JOIN
                      dbo.Cargo ON dbo.Empleado.codcar = dbo.Cargo.codcar

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.f
AS
SELECT     dbo.Cliente.nomcli, dbo.Cliente.apecli, dbo.Factura.fecfac
FROM         dbo.Cliente INNER JOIN
                      dbo.Factura ON dbo.Cliente.codcli = dbo.Factura.codcli
WHERE     (dbo.Factura.fecfac = CONVERT(DATETIME, '2008-08-25 00:00:00', 102))

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE VIEW dbo.g
AS
SELECT     dbo.Empleado.nomemp, dbo.Empleado.apeemp, dbo.Factura.fecfac
FROM         dbo.Empleado INNER JOIN
                      dbo.Factura ON dbo.Empleado.codemp = dbo.Factura.codemp
WHERE     (dbo.Factura.fecfac = CONVERT(DATETIME, '2008-07-25 00:00:00', 102))

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

-- Un procedimiento que le permita conocer los datos personales del cliente, a travez de su codigo

   create procedure P_A
 
 @codigo varchar(5) as
 Select * from cliente where codcli = @codigo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Un procedimiento que le informe el codigo de un articulo ingresando su nombre
CREATE procedure P_B
 @nombre varchar(20) as
 select desart,codart from articulo where desart like @nombre
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


-- Se quiere conocer el password de un determinado empleado conociendo su codigo y su nombre

create procedure P_C
 @codigo varchar(5),
 @nombre varchar(20) as
 select codemp,nomemp,pasemp from empleado where codemp=@codigo and nomemp = @nombre

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Se quiere conoceren base al sexo y al cargo, el nombre y apellido de un respectivo empleado
CREATE procedure P_D
 @sexo varchar(1),
 @cargo varchar(25) as

 select nomemp,apeemp,descar 
 from empleado,cargo
 where sexemp=@sexo and descar = @cargo
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--Se quiere conocer el stock existente de un determinado articulo a travez de su codigo
create procedure P_E
 @codigo varchar(5) as
 select desart,stoart from articulo where codart = @codigo

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE P_F as 

Select * from factura where fecfac = '27/08/2008' or fecfac='28/08/2008' and totfac > '50'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

Leer Mas......

Mi nuevo Blog de descargas

después de pasar un tiempo entreverando las cosas por aquí, decidí que lo mejor era crear otro blog para poder publicar en el las diferentes utilidades.

 

se trata de mi blog El Placer de Compartir como dije anteriormente en el publicare warez, es decir software, música, vídeos, también podrán hacer sus peticiones de cualquier software que estén buscando que será publicado.

 

Espero que el servicio sea de su agrado.

 

ATX

Leer Mas......

INICIAMOS NUEVO SEMESTRE

 

 

Afortunadamente para algunos, desgraciadamente para otros pero ya terminamos el penúltimo semestre y estamos iniciando el ultimo, solo nos quedan 4 meses aproximadamente para terminar la carrera y ser todo unos "Técnicos en Computación e Informática", claro que sin contar con el tiempo que nos falta para titularnos.

 

Este semestre llevaremos los siguientes cursos:

 

* Lenguaje de Programación VI (Continuando con Vnet)

* Redes y Teleprocesos

* Administración de centros de computo

* Seminario II

* Análisis de Estados Financieros

* Proyectos

* Ventas y Mercadotecnia

estamos además preparándonos para celebrar la semana técnica .... nuestra semana :D

Leer Mas......