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