Muchas gracias
He creado este ejemplo con lo que tu me has dicho y me funciona.
Asi que me gustaria si algo esta mal me lo corrijas.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBGrids, DB, DBTables;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
DataSource1:TDataSource;
Table1:TTable;
DBGrid1:TDBGrid;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
// Creo el DataSource, el Table y el DBGrid y lo asigno al Form1
Datasource1 := Tdatasource.Create(Form1);
Table1 := TTable.Create(Form1);
DBGrid1 := TDBGrid.Create(Form1);
//En las propiedades del table1 tengo en
with table1 do
begin
DatabaseName := 'e:\ejemplo';
Name := 'Table1';
TableName :='Clientes.dbf';
Active := True;
Datasource1.Dataset := Table1;
// logicamente antes de poner en activo la tabla, todas
// las propiedades deben estar establecidas.
end;
//En las propiedades del Grid1 tengo en
with DBGrid1 do
begin
DBGrid1.SetBounds(0,40,Form1.Width, Form1.Height-40);
DBGrid1.Parent:= Form1;
DBGrid1.Visible:= True;
DBgrid1.Datasource := DataSource1;
end;
// Abro el Table1
table1.Open;
end;
end.
Me falta ordenar la tabla. Supongo que lo sacare.
Habras visto que soy novato total
Pero me gusta esta forma de aprender.
Me puedes decir como hago para que el hilo salga bonito como el tuyo?
|