程序是:procedure TForm4.FormCreate(Sender: TObject);
with datamodule8.booktable do
begin
databasename:='lwzl';
tablename:='book.db';
indexfieldnames:='bookno';
end;
end;
with datamodule8.booktable do
begin
databasename:='lwzl';
tablename:='book.db';
indexfieldnames:='bookno';
end;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
with datamodule8.booktable do
begin
databasename:='lwzl';
tablename:='book.db';
indexfieldnames:='bookno';
end;
end;
begin
with datamodule8.booktable do
begin
databasename:='lwzl';
tablename:='book.db';
indexfieldnames:='bookno';
end;
end;