Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2005
GliceMan GliceMan is offline
Miembro
 
Registrado: dic 2004
Posts: 13
Poder: 0
GliceMan Va por buen camino
Hola Neftalí, he probado el Ino Setup y me ha gustado mas que el InstallShield, es sencillo de usar, y da una presentación del instalador muy elegante, pero se me plantean 2 dudas:

Estoy intentando hacer un formulario con el ino setup form designer para que me pida un número de Serie, lo he creado de la siguiente manera:

[code]
Código:
function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
Next: Boolean;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
{ PASTE THE DECLARATIONS HERE }
begin
if (not BackClicked and (CurPage = wpWelcome)) or
	 (BackClicked and (CurPage = wpPassword)) then
begin
	DlgPagesClearCustom();
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm;
Left := 32;
Top := 112;
Width := 67;
Height := 13;
Caption := 'Nº DE SERIE:';
Font.Color := -16777208;
Font.Height := -11;
Font.Name := 'Times New Roman';
Font.Style := [fsBold];
end;
{ Label2 }
Label2 := TLabel.Create(WizardForm);
with Label2 do
begin
Parent := WizardForm;
Left := 128;
Top := 112;
Width := 19;
Height := 13;
Caption := ' - ';
end;
{ Label3 }
Label3 := TLabel.Create(WizardForm);
with Label3 do
begin
Parent := WizardForm;
Left := 192;
Top := 112;
Width := 16;
Height := 13;
Caption := ' - ';
end;
{ Label4 }
Label4 := TLabel.Create(WizardForm);
with Label4 do
begin
Parent := WizardForm;
Left := 256;
Top := 112;
Width := 16;
Height := 13;
Caption := ' - ';
end;
{ Edit1 }
Edit1 := TEdit.Create(WizardForm);
with Edit1 do
begin
Parent := WizardForm;
Left := 104;
Top := 112;
Width := 25;
Height := 21;
MaxLength := 3;
TabOrder := 0;
end;
{ Edit2 }
Edit2 := TEdit.Create(WizardForm);
with Edit2 do
begin
Parent := WizardForm;
Left := 144;
Top := 112;
Width := 49;
Height := 21;
MaxLength := 5;
TabOrder := 1;
end;
{ Edit3 }
Edit3 := TEdit.Create(WizardForm);
with Edit3 do
begin
Parent := WizardForm;
Left := 208;
Top := 112;
Width := 49;
Height := 21;
MaxLength := 4;
TabOrder := 2;
end;
{ Edit4 }
Edit4 := TEdit.Create(WizardForm);
with Edit4 do
begin
Parent := WizardForm;
Left := 272;
Top := 112;
Width := 25;
Height := 21;
MaxLength := 2;
TabOrder := 3;
end;
 
	{ PASTE THE IMPLEMENTATION HERE }
if((edit1.text='***')and(edit2.text='*****')and(edit3.text='****')and(edit4.text='**'))then
Begin
	Next := DlgPageProcessCustom();
end
else
Begin
ShowMessage('El Nº DE SERIE introducido no es valido');
end;
	if not BackClicked then
	 Result := Next
	else
	 Result := not Next;
	ScriptDlgPageClose(not Result);
end
else
	Result := True;
end;
Pero me da errores en los ScriptDlgPage y no se por que, por que la implementación la he copiado de la documentación lo unico que he puesto yo es el If.

Otra cosa es que no se como coger la ruta donde guarde el usuario la base de datos y guardarmela en un Txt para asi poder cargarsela al Adoconnection al inicio del programa.

Un Saludo.

Última edición por GliceMan fecha: 01-02-2005 a las 13:39:08.
Responder Con Cita
  #2  
Antiguo 01-02-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.475
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por GliceMan
...Otra cosa es que no se como coger la ruta donde guarde el usuario la base de datos y guardarmela en un Txt para asi poder cargarsela al Adoconnection al inicio del programa
Yo en principio optaría por la otra opción, es la más sencilla (y te olvidas de realizar ese trabajao en la instalación); Piensa en un TXT de conexión en el directorio de tu app. (por ejemplo); Si al arrancar la aplicación el TXT no está pues lo pides; Así, al arrancar la primera vez tu aplicación te pedirá el TXT de conexión; Una vez introducidos los datos y creado el TXT, lo guardas en disco y cierras la aplicación y la vuelves a abrir.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 01-02-2005
GliceMan GliceMan is offline
Miembro
 
Registrado: dic 2004
Posts: 13
Poder: 0
GliceMan Va por buen camino
Gracias de Nuevo Neftalí, lo de cerrar mi aplicación se hacerlo, pero,¿como la vuelvo a abrir sin que el usuario toque nada?

Perdona mi ignorancia,pero, es que estoy bastante pez en esto de las bases de datos,bueno y la programación en general.

Y si no es mucho molestar cuantos registros puede llegar a almacenar un base de datos Access, lo digo por que el usuario en poco tiempo me ha metido 500 registros y me da miedo que se me quede pillada la base de datos.

En caso de que no sean muchos más ¿a que base de datos me recomiendas que la migre?

Gracias y perdona que te moleste tanto.

Un saludo.

Última edición por GliceMan fecha: 01-02-2005 a las 15:50:30.
Responder Con Cita
  #4  
Antiguo 01-02-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.475
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por GliceMan
lo de cerrar mi aplicación se hacerlo, pero,¿como la vuelvo a abrir sin que el usuario toque nada?
Una primera opción es la "manual"; El típico mensajito que le aparece al usuario diciendo "Los cambios realizados no tendrán efecto hasta que reinicie la aplicación..."; Sí ya se que no es muy sofisticado... La segunda opción (hacerlo de forma automática) requiere un pequeño ejecutable auxiliar que arranca tu aplicación; Lo que hace tu aplicación antes de cerrarse es llamar a éste ejecutable y luego se cierra; éste ejecutable lo único que debe hacer es una pequeña espera (para dar tiempo a que la anterior instancia se cierre) y luego abrir tu aplicación (ShellExecurte, WinExec o similar).

Cita:
Empezado por GliceMan
Y si no es mucho molestar cuantos registros puede llegar a almacenar un base de datos Access, lo digo por que el usuario en poco tiempo me ha metido 500 registros y me da miedo que se me quede pillada la base de datos.
Bueno, debería hacer una estimación del número de registros que puede llegar a almacenar la tabla de Access; Es un cálculo simple, estima por ejemplo cuantos registros pueden crearse al cabo de 20 años (no creo que tu aplicación tenga una vida tan larga, pero así te aseguras...)
Piensa que una tabla Accces puede llegar a un tamaño de 2 GB (si divides eso por el tamaño de tu registro obtendrás el número); Pero ya te comento, que no deberías tener problemas ta¡rabajando con un orden de "MILES" de registros.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:49:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi