D
dreamblue
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
t:ttable;
begin
t:=TTable.Create(self);
t.DatabaseName:='实验';
t.TableName:='buy.DB';
t.Open;
datasource1.dataset:=t;
dbgrid1.DataSource:=datasource1;
end;
var
t:ttable;
begin
t:=TTable.Create(self);
t.DatabaseName:='实验';
t.TableName:='buy.DB';
t.Open;
datasource1.dataset:=t;
dbgrid1.DataSource:=datasource1;
end;