Programade administracion

[Martin2]

Hola a todos es mi primera ves en este foro.
Les cuento tengo que hacer un programa chiquito y me quede trabado.
La consigna es la siguiente: (en vez de las figuras adjunto archivo con lo que hice)



Administrar la cuenta corriente de un grupo de clientes de una empresa.

Se deben cargar los datos de los clientes, estos son:

1.Apellido
2.Nombre
3.Teléfono.
4.E-mail.
5.Fecha de nacimiento: Día, mes y año
6.Saldo.-

Descripción de Figura 1
La pantalla principal contara con una grilla de 4 columnas, en la primera estarán juntos Apellido y nombres, 2da. Saldo, 3ra. Teléfono y 4ta. Edad, se calcula con la fecha de nacimiento y la fecha actual.-
Además se podrá ingresar el nombre de un contacto y deberá buscarlo en la lista.- Esta deberá estar ordenada por Apellido y Nombre.
En la parte inferior tenemos 4 botones. Agregar, Ver/Editar y Eliminar que llamaran a un segundo formulario (Fig. 3) para realizar las acciones que sus nombres indican. Salir: guarda los datos en el archivo y sale de la aplicación.





Descripción de Figura 2
Deberá tener las siguientes opciones en el menú:
Archivo

• Abrir los archivos de datos de contactos. (OpenDialog1)
• Guardar el archivo de contactos. (SaveDialog1)

Descripción de Figura 3



Deberá tener los siguientes Botones:

Cancelar

• Vuelve al formulario anterior sin acciones.

Guardar

• Modifica la tabla en el formulario anterior.

[afunez2007]

Y en sintesis cual es tu problema?, en que te quedaste trabado?

Saludos

[Martin2]

Hola Alfredo te respondi al mail de tu contacto si me ayudas te lo voy agradecer mucho ya que es muy importante terminar este trabajo.
Saludos
Martin

[Neftali [Germán.Estévez]]

Hola Martín, creo que lo primero que deberías hacer es revisar la Guía de estilo de los foros.

En segundo lugar, comentarte que (al menos yo) no veo ninguna de las immágenes que has puesto.
En tercer lugar, ya que has empezado el hilo en estos foros y hay quien te ha contestado, creo que deberías continuarlo aquí; Más que nada, porque esto son unos foros y no una "página de contactos".

Si alguien posteriormente tiene la misma (o similar) duda, le gustará encontrar una respuesta y no el hilo tal y como está ahora.
Igualmente otras personas del foro podrán aportarte sus opiniones, ideas y/o comentarios.

Un saludo.

[afunez2007]

Efectivamente Neftali tienes razon
Con respecto a este tema comentare lo sigiente:

Martin no estaba usando base de datos y yo le recomende que lo hiciera
Luego le explique como hacer para trabajar con tablas y grids para que la informacion se viera reflejada.
Seguidamente agregue un par de eventos para el manejo del alias de la base: Este crea el alias o lo modifica si hace falta ademas configura la sesion

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
MyList: TStringList;
Lista:TStringList;
begin
  Lista:= TStringList.Create;
  Session1.GetAliasNames(Lista);
  Session1.Active:=False;
  Database1.Connected:=False;
  MyList := TStringList.Create;
  with MyList do
  begin
    Add('DEFAULT DRIVER=PARADOX');
    Add('ENABLE BCD=FALSE');
    Add('PATH='+ExtractFilePath(Application.ExeName));
  end;
  IF  AnsiContainsStr(Lista.GetText, 'CUENTAS') then
  begin
    try
     Form1.Session1.ModifyAlias('CUENTAS', MyList);
     Form1.Session1.SaveConfigFile;
    except

    end;
  end else
  begin
    try
      Form1.Session1.AddAlias('CUENTAS', 'STANDARD', MyList);
    except

    end;
    MyList.Free;
  end;
   IF  not DirectoryExists(ExtractFilePath(Application.ExeName)+'PRIV') then
   begin
      CreateDir(ExtractFilePath(Application.ExeName)+'PRIV');
      Session1.PrivateDir := ExtractFilePath(Application.ExeName)+'PRIV';
   end;
   IF  not DirectoryExists(ExtractFilePath(Application.ExeName) +'NET') then
   begin
      CreateDir(ExtractFilePath(Application.ExeName) +'NET');
   end;
  try
    Session1.NetFileDir := ExtractFilePath(Application.ExeName) + 'NET';
  except

  end;
  Session1.Active:=True;
  Database1.Connected:=True;  
end;

Y la insercion de registros en la tabla: desde el form2

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  FECHANAC:TDateTime;
  EDAD:Integer;
begin
FORM1.TABLE1.Open;
FORM1.TABLE1.Insert;
FORM1.Table1.FieldByName('NOMBRE').Text:=Trim(Edit1.Text)+', '+TRIM(Edit2.Text);
FORM1.Table1.FieldByName('TELEFONO').aSINTEGER:=StrToInt(Edit3.Text);
FORM1.Table1.FieldByName('SALDO').AsFloat:=StrTofLOAT(Edit4.Text);
FORM1.Table1.FieldByName('LOCALIDAD').Text:=Edit5.Text;
FORM1.Table1.FieldByName('EMAIL').Text:=Edit6.Text;
FECHANAC:=StrToDate(Edit7.Text+'/'+Edit8.Text+'/'+Edit9.Text);
EDAD:=YearsBetween(FECHANAC,Now);
FORM1.Table1.FieldByName('EDAD').ASINTEGER:=EDAD;
FORM1.Table1.Post;
FORM1.Table1.Active:=False;
FORM1.Table1.Active:=True;
end;

Espero haber ilustrado un poco la situcion

Saludos

[Martin2]

Hola a todos antes que nada pido disculpas pero es que soy nuevo en lo que refiere a foros, programacion DELPHI y vincularme de esta manera con la gente no asi con la pcs que hace mucho que estoy en esto.
No respondi antes porque estaba muy ocupado tratando de hacer este trabajo ya que lo tenia que presentar para la facu.
Agradesco a Afunez2007 que me dio una mano muy grande en la puesta a punto del programa, lamentablemente no lo pude presentar asi por la forma en que exigian que lo presente.
Asi que presente lo que tenia echo hasta el momento.
Quiero destacar y resaltar la ayuda desinteresada y RAPIDA que recibi por medio de este foro y epero mas adelante hacer aportes de mas valor.
Por ahora y si les sirve aca les envio el codigo que hice (no esta completo).
Saludos!