![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
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;
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. |
|
#2
|
||||
|
||||
|
Cita:
__________________
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. |
|
#3
|
|||
|
|||
|
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. |
|
#4
|
||||
|
||||
|
Cita:
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:
)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. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|