Conexão Com O Banco De Dados

[eldrey]

Estou usando o DataModule e nele tenho um componente Database para a conexão do banco que é SQLServer, e tb coloco no DataModule os outros componente que utilizo, no caso dessa aplicação tenho apenas componentes query, só que estou com um problema eu quando inicio a aplicação efetuo o comando Database.connected:=true, ou seja, estabeleço conexão com o banco, mas depois peço pra fechar dando o mesmo comando com false, mas quando faço alguma operação utilizando uma query mesmo depois de ter efetuado o comando para fechar a conexão com o banco eu consigo fazer a consulta da query, mas na verdade não queria que isso acontecesse, teria que dar um erro dizendo que a conexao com o banco esta fecha, já que o alias do esta para o componente database na query, e não para o banco diretamente, já tentei usar o comando database.open e database.close, mas tb não deu certo, gostaria de saber se a query tem algum método que permite que ela mesma abra conexão com o banco e se pode ser mudada essa opção, para que a conexão só seja aberta com o componente database e não com a query.

[s3c]

Realmente quando você abre uma query e o database está fechado, automaticamente ele é aberto. Uma forma de contornar isso seria você forçar um erro antes da abertura da query no evento onBeforeOpen:

procedure TForm1.Query1BeforeOpen(DataSet: TDataSet);
begin
  if not Database1.Connected then
    TQuery(DataSet).DatabaseName := ''
  else
    TQuery(DataSet).DatabaseName := 'Nome do database';
end;