Delpi
Enviado por jsdghff • 16 de Junio de 2016 • Examen • 1.220 Palabras (5 Páginas) • 106 Visitas
TRABAJO DE DeLPHI
Integrantes: Franklin Zabala
Curso: Sexto Informática “A”
Fecha: 18-03-2010
- ENUNCIADO
- Realizar un proyecto de consultas de productos.
LOGO
- INSPECTOR DE OBJETOS
LOGO Timer ProgressBar1
Caption: LOGO Caption: Timer Caption: ProgressBar1
Name: LOGO On Timer: Timer1Timer Name: ProgressBar1
Borde Style: None
Form tyle: fsMDIForm
WindowState: wsMaximized
- CODIFICACION
Procedure TLOGO.Timer1Timer (Sender: Object);
begin
PROGRESSBAR1.StepIt;
IF PROGRESSBAR1.Position=100 THEN
begin
TIMER1.Enabled:=False;
LOGO.VISIBLE:=False;
CLAVE.SHOWMODAL;
CLOSE;
END;
End;
End.[pic 1]
- PANTALLA
CLAVE
- INSPECTOR DE OBJETOS
CLAVE BUTTON 1
Caption: CLAVE Caption: Button 1
Name: CLAVE Name: Button 1
Borde Style: None
Form tyle: fsMDIForm
WindowState: wsMaximized
- CODIFICACION
Procedure TCLAVE.Button1Click (Sender: Object);
begin
IF Edit2.Text='KISSME' Then
begin
MENU.show;
CLAVE.Visible:=FALSE;
End
Else
Show message ('codigo mal ingresado');
End;
End.
- PANTALLA
[pic 2]
MENU
- INSPECTOR DE OBJETOS
MENU Mainmenu1
Caption: MENU Name: Button 1
Name: MENU
Borde Style: None
Form tyle: fsMDIForm
WindowState: wsMaximized
- CODIFICACION
SALIR
Procedure T MENU.SALIR1Click (Sender: Object);
begin
HALT;
end;
AGREGAR
Procedure T MENU.AGREGAR1Click (Sender: Object);
begin
AGREGAR.ShowModal;
End;
COMPRA
Procedure T MENU.COMPRA1Click (Sender: Object);
Begin
COMPRAS.SHOWMODAL;
end;
CONSULTA
Procedure T MENU.CONSULTA1Click (Sender: Object);
begin
CONSULTA.SHOWMODAL;
end;
end.
- PANTALLA
[pic 3]
PRODUCTOS ‘AGREGAR’
- INSPECTOR DE OBJETOS
AGREGAR TABLA DATASOURCE1
Caption: Agregar Caption: Table 1 Name: DataSource1
Name: Agregar Data BaseName: dBASE Files DataSet: Table1
Borde Style: None IndexFieldNames: CODPROD
...