Ver Mensaje Individual
  #5  
Antiguo 15-12-2009
Avatar de afunez2007
afunez2007 afunez2007 is offline
Miembro
 
Registrado: oct 2007
Ubicación: La Ceiba, Honduras
Posts: 170
Reputación: 17
afunez2007 Va por buen camino
Lightbulb

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
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!!
Responder Con Cita