有一个form和一个datamodule,datamodule里头放有一个database和一个table。
form里头放了一个table,datasoucre,dbgrid。
在datamodule的create里头实现了与数据库的直接接连并把datamodule里头的table也连接到数据库。
dbAISM.LoginPrompt := False;
dbAISM.Params.Add(Format('USER NAME=%s', [AISMUser]));
dbAISM.Params.Add(Format('PASSWORD=%s', [Password]));
dbAISM.Open;
Table1.DatabaseName := dbAISM.DatabaseName;
Table1.Active := true;
这个时候设置form中的datasource的dataset属性为datamodule的table,运行后直接显示数据。现在我在form里头添加一个按纽,按纽实现如下代码:
  Table1.DatabaseName := datamodule.database.DatabaseName;
  Table1.Active := true;
运行的时候点击按纽,本来不应该出现提示框的,可是还是有提示框,而这个时候datamodule.database是处于open状态,应该不出现提示框的啊,这是为什么啊!