PRACTICA 03 (Signo Zodiacal en power builder)

PRACTICA 03 (Signo Zodiacal en power builder)

Codigo Fuente:

Ø Botón apply:

intdia,mes,año,szodiaco

string z

datefec

dia=integer(sle_dia.text)

mes=integer(sle_mes.text)

año=integer(sle_año.text)

fec=today()

szodiaco=integer(right(string(fec),4))

ifdia>=21 and mes=3 or dia<=19 and mes=4 then

            z="Aries"

            pb_imagen.picturename="F:\power2010\aries_small.jpg"

elseifdia>=20 and mes=4 or dia<=20 and mes=5 then

            z="Tauro"

            pb_imagen.picturename="F:\power2010\tauros_small.jpg"

elseifdia>=21 and mes=5 or dia<=20 and mes=6 then

            z="Gemenis"

            pb_imagen.picturename="F:\power2010\geminis_small.jpg"

elseifdia>=21 and mes=6 or dia<=22 and mes=7 then

            z="Cancer"

            pb_imagen.picturename="F:\power2010\cancer_small.jpg"

elseifdia>=23 and mes=7 or dia<=22 and mes=8 then

            z="Leo"

            pb_imagen.picturename="F:\power2010\leo_small.jpg"

elseifdia>=23 and mes=8 or dia<=22 and mes=9 then

            z="Virgo"

            pb_imagen.picturename="F:\power2010\virgo_small.jpg"

elseifdia>=23 and mes=9 or dia<=22 and mes=10 then

            z="Libra"

            pb_imagen.picturename="F:\power2010\libra_small.jpg"

elseifdia>=23 and mes=10 or dia<=21 and mes=11 then

            z="Escorpio"

            pb_imagen.picturename="F:\power2010\scorpio_small.jpg"

elseifdia>=22 and mes=11 or dia<=20 and mes=12 then

            z="Sagitario"

            pb_imagen.picturename="F:\power2010\sagitario_small.jpg"

elseifdia>=21 and mes=12 or dia<=19 and mes=1 then

            z="Capricornio"

            pb_imagen.picturename="F:\power2010\capricornio_small.jpg"

elseifdia>=20 and mes=1 or dia<=18 and mes =2 then

            z="Acuario"

            pb_imagen.picturename="F:\power2010\acuario_small.jpg"

elseifdia>=19 and mes=2 or dia<=19 and mes=3 then

            z="Picis"

            pb_imagen.picturename="F:\power2010\piscis_small.jpg"

           

endif

st_res.text="Usted Tiene" +""+ string  (szodiaco - año) +"Años y su Signo es:" + string(z)
__________________________________________________ 

Ejercicio.... (checkbox)

 Diseñe el siguiente formulario....

Codigo fuente click aqui...

  Descargar en ZIP..click aqui...

Recuerda las consultas en el siguiente formulario

http://romeral.webcindario.com/Contactos.htm

Read More →

Crear instalador en visual Estudio2017

Crear un instalador para WindowsApplication en Visual Studio paso a paso.

 

Este es un tutorial muy básico de como realizar un instalador en visual Studio pero esto solo abarca un la creación de un instalador de aplicaciones Windows, un instalador para sitios Web es un poco diferente y mas adelante tratare de publicar otra entrada con ese tema.

Habiendo quedando claro eso comencemos con la creación del instalador.

Paso 1.- Agregar un nuevo proyecto de instalación a una solución existente.

Aquí tenemos nuestra solución que se llama “ProyectoPrueba” que contiene un solo proyecto del tipo WindowsApplication que se llama también ProyectoPrueba, no importa el proyecto que sea, solo que sea del tipo Windows application.

Damos clic con el botón derecho en la solución en el explorador de soluciones y seleccionamos Agregar > Nuevo proyecto.

Al hacer esto se nos mostrara la siguiente pantalla para elegir un nuevo proyecto y seleccionamos un proyecto en: Otros Tipos de proyectos > Instalación e Implementación > Proyecto de instalación.

Paso 2.- Seleccionar que archivos de nuestro proyecto queremos añadir al instalador.

Y al seleccionar el nuevo proyecto se nos mostrara la siguiente pantalla, la cual tratare de explicar a continuación.

Aquí se ve un árbol de exploración que es el “Sistema de archivos en el equipo de destino”, esto se puede visualizar como el equipo en donde vamos a instalar nuestra aplicación la cual se nos muestran 3 carpetas las cuales tratare de explicar a continuación.

Carpeta de aplicación: Es donde se colocan todos los archivos necesarios para que nuestra aplicación funcione.

Escritorio del usuario: Es donde se colocan los elementos que se mostraran en el escritorio del usuario, casi siempre aquí se pone un acceso directo al Ejecutable (.exe) de nuestra aplicación.

Menú programas del usuario: Lo que ponemos aquí se muestra en “Inicio > Todos los programas” del equipo de destino.

Read More →

Mis Practicas en (Power Builder 11.0): Listbox en (POwerBuilder 11.0)

Mis Practicas en (Power Builder 11.0): Listbox en (POwerBuilder 11.0)

Read More →

Listbox en (POwerBuilder 11.0)

 DISEÑAR EL SIGUIENTE FORMULARIO

ü Listado de países.

ü Codigo fuente

CODIGO:

v Boton mostrar:

lb_lista1.additem(sle_pais.text)

sle_pais.text=""

mostar()

v Boton delete:

if lb_lista2.selectedIndex()=-1 then

//if lb_lista1.selectedIndex()=-1 and lb_lista2.selectedIndex()  = -1 then

            messagebox("error","selecciona un elemento")

else

           

//lb_lista1.deleteitem(lb_lista1.selectedindex())

lb_lista2.deleteitem(lb_lista2.selectedindex())

end if

mostar()

 

v Boton <<:

Integer i

For i=1 To lb_lista2.totalitems()

            lb_lista2.selectitem(i)

            lb_lista1.additem(lb_lista2.selecteditem())

Next

lb_lista2.reset()

mostar()

v  Boton <:

If lb_LISTA2.selectedindex() < 0 Then

            Messagebox("Error","Seleccione un Registro")

Else

            lb_lista1.additem(lb_lista2.selecteditem())

            lb_lista2.deleteitem(lb_lista2.selectedindex())

End If

mostar()

v  Boton >>:

//Script Clicked del boton >>

Integer i

For i=1 To lb_lista1.totalitems()

            lb_lista1.selectitem(i)

            lb_lista2.additem(lb_lista1.selecteditem())

Next

lb_lista1.reset()

mostar()

v  Boton >:

If lb_LISTA1.selectedindex() < 0 Then

            Messagebox("Error","Seleccione un Registro")

Else

            lb_lista2.additem(lb_lista1.selecteditem())

            lb_lista1.deleteitem(lb_lista1.selectedindex())

End If

mostar()

v  Nuevo:

lb_lista1.reset()

lb_lista2.reset()

mostar()

*Recuerda si no entiendes deja tu mensaje en los comentarios

Read More →

Factura en JAVA

Click aqui....Envia su banners gratis publicaremos aqui en este espacio..

Factura en JAVA

1: Diseñe el siguiente Formulario

2:Codigo Fuente

 

private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                        

        // TODO add your handling code here:

           //Agregamos a la lista

        lbcantidad.add(txtcantidad.getText());

        lbunitario.add(txtpunitario.getText());

        lbdescripcion.add(txtdescripcion.getText());

      

    //  Variables:

     

   Double precio,a,cantidad,st,i,t,y,ig,f;

         cantidad=Double.parseDouble(txtcantidad.getText());

         precio=Double.parseDouble(txtpunitario.getText());

         a=cantidad*precio;

        lbtotal.add(String.valueOf(a));

         st=Double.parseDouble(txtstotal.getText());

   txtstotal.setText(String.valueOf(a+st));

   f=Double.parseDouble(txtstotal.getText());

ig=f*0.19;

txtigv.setText(String.valueOf(ig));

 t=Double.parseDouble(txtstotal.getText());

i=Double.parseDouble(txtigv.getText());

y=i+t;

txttotal.setText(String.valueOf(y))

formWindowActivated:(Recuerda Dento del evento de Window)

private void formWindowActivated(java.awt.event.WindowEvent evt) {                                    

        // TODO add your handling code here:

        //Agregamos al Combo Box

         cbocodigo.add("00002");

         cbocodigo.add("00003");

         cbocodigo.add("00004");

         cbocodigo.add("00005");

         cbocodigo.add("00006");

         cbocodigo.add("00007");

         cbocodigo.add("00008");

     

    }       

 

private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {                                        

        // TODO add your handling code here:

    //Genera Codigo:

      

            lbnro.setText(String.valueOf(lbnro.getText()+1));

        //Limpia los texbox.

             txtcantidad.setText("0");

                txtpunitario.setText("0");

                        txtdescripcion.setText("");

                        txtstotal.setText("0");

                        txtigv.setText("0");

                        txttotal.setText("0");

                        lbcantidad.clear();

                        lbdescripcion.clear();

                       lbunitario.clear();

                     lbtotal.clear();

***********************************************************

*Recuerda si no entiendes deja tu mensaje en este link

Read More →

CRUD LISTAR ,GUARDAR , ELIMINAR ,BUSCAR en(JAVA y SQLSERVER)

REGISTRO DE VEHICULO

Diseño en Netbeans  

Diseña el siguiente formulario

Crea el siguiente base de datos

 create database RegistroVehiculo

use RegistroVehiculo

CREATE table vehiculo

(

num_Regis varchar(8) primary key not null,

fecha datetime null,

placa varchar(10)null,

Marca varchar(10) null,

modelo varchar (20)null,

año char(4),

color varchar (15)null,

precio DECIMAL(10,2)

)

GO

Insert into vehiculo values('000','20/02/10','PDF222','TOYOTA','COROLA','1989','AZUL','2.63')

---***********************************

create procedure guardar

@numR VARCHAR(8),

@fecha datetime,

@placa varchar(10),

@marca varchar(10),

@modelo varchar(20),

@año char(4),

@color varchar(15),

@precio decimal(10,2)

as

insert into vehiculo values(@numR,@fecha,@placa,@marca,@modelo,@año,@color,@precio)

go

exec guardar '0002','20/02/10','PDF222','TOYOTA','COROLA','1989','AZUL','2.63'

---*******************************

go

create procedure eleminar

@numR  varchar(8)

as

delete from vehiculo where @numR=num_regis

exec eleminar '000'

go

---**********************************

create procedure actualizar

@numR VARCHAR(8),

@fecha datetime,

@placa varchar(10),

@marca varchar(10),

@modelo varchar(20),

@año char(4),

@color varchar(15),

@precio decimal(10,2)

as

update vehiculo set @fecha=fecha,@placa=placa,@marca=marca,@modelo=modelo,@año=año,@color=color,@precio=precio where @numR=Num_Regis

go

---***************************

create procedure Buscar

@NumR VARCHAR(8)

AS

select fecha,placa,marca,modelo,año,color,precio from vehiculo where @NumR=num_Regis

go

exec buscar '0001'

Script de formulario

//private void btngrabarActionPerformed(java.awt.event.ActionEvent evt) {                                         

        String placa=txtplaca.getText()

  String marca=(String) cbomarca.getSelectedItem();

       String modelo=(String) cbomodel.getSelectedItem();

       String año=(String) cboaño.getSelectedItem();

       String color=(String) cbocolor.getSelectedItem();

        String precio=txtprecio.getText();

        String driver="sun.jdbc.odbc.JdbcOdbcDriver";

        String dns="jdbc:odbc:dbjava";

        String sql ="insert into vehiculos values(?,?,?,?,?,?)";

        try {

            Class.forName(driver);

            Connection con=DriverManager.getConnection(dns);

            PreparedStatement pst=con.prepareStatement(sql);

            pst.setString(1,placa);

            pst.setString(2,marca);

            pst.setString(3,modelo);

            pst.setString(4,año);

            pst.setString(5,color);

            pst.setString(6,precio);

            int nfilas=pst.executeUpdate();

            if(nfilas > 0)

             JOptionPane.showMessageDialog(null,"Unidad Grabada");

            else

                JOptionPane.showMessageDialog(null, "Unidad no se puede grabar");

             pst.close(); con.close();

        } catch (Exception e1)

        { JOptionPane.showMessageDialog(null, e1.getMessage());

        }

  }                       

//private void btnNuevoActionPerformed(java.awt.event.ActionEvent evt) {

    txtplaca.setText(null);

   txtprecio.setText(null);

    }

   // private void btnlimpiarActionPerformed(java.awt.event.ActionEvent evt) {

     txtplaca.setText(null);

   txtprecio.setText(null);

    }

//    private void cbomarcaActionPerformed(java.awt.event.ActionEvent evt) {                                         

        // TODO add your handling code here:

    }                                       

  private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) {                                        

                   System.exit(0);

    }                                        

// private void btnmodificarActionPerformed(java.awt.event.ActionEvent evt) {                                            

       String placa=txtplaca.getText();

       String marca=(String) cbomarca.getSelectedItem();

       String modelo=(String) cbomodel.getSelectedItem();

       String año=(String) cboaño.getSelectedItem();

       String color=(String) cbocolor.getSelectedItem();

        String precio=txtprecio.getText();

        String driver="sun.jdbc.odbc.JdbcOdbcDriver";

        String dns="jdbc:odbc:dbjava";

        String sql ="update  vehiculos Set precio=? where placa=?";

        try {

            Class.forName(driver);

            Connection con=DriverManager.getConnection(dns);

            PreparedStatement pst=con.prepareStatement(sql);

          pst.setString(1,placa);

           pst.setString(2,marca);

           pst.setString(3,modelo);

           pst.setString(4,año);

            pst.setString(5,color);

            pst.setString(6,precio);

            int nfilas=pst.executeUpdate();

            if(nfilas > 0)

             JOptionPane.showMessageDialog(null,"Unidad Modificada");

            else

                JOptionPane.showMessageDialog(null, "La unidad no  puede ser modificada  O no Existe....?");

             pst.close(); con.close();

        } catch (Exception e1)

        { JOptionPane.showMessageDialog(null, e1.getMessage());

        }

//private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) {                                                       System.exit(0);

    }     

//private void btnvertodoActionPerformed(java.awt.event.ActionEvent evt) {                                          

          String driver="sun.jdbc.odbc.JdbcOdbcDriver";

        String dns="jdbc:odbc:dbjava";

        String sql ="select * from vehiculos";

        try {

            Class.forName(driver);

            Connection con=DriverManager.getConnection(dns);

            PreparedStatement pst=con.prepareStatement(sql);

            ResultSet rs=pst.executeQuery();

            jTextArea1.setText(null);

            while(rs.next())

             jTextArea1.append(rs.getString(1)+"\t"+ rs.getString(2)+"\t "+ rs.getString(3)+"\t"+ rs.getString(4)+"\t"+ rs.getString(5)+"\t"+ rs.getString(6)+"\n");

   pst.close(); con.close();

 }

    catch (Exception e1)

        { JOptionPane.showMessageDialog(null, e1.getMessage());

        }

   }     

                                      

                               

Read More →