Переназначение источника данных во время выполнения

Question

Я сделал несколько поисков и нашел только ответы на непонятные вопросы. :)

Использование D5pro.

Я хочу переназначить DataSource TDBGrid во время выполнения. У меня есть семь одинаковых структурированных наборов данных и в зависимости от нажатия кнопки я хочу, чтобы соответствующий DataSet отображался в сетке.

Я пробовал все, и я не могу заставить его показать следующий DataSet. Он придерживается первой, назначенной при запуске. Я добираюсь, чтобы перехитрить подходы и все еще ничего не работает. Вот где я сейчас.

procedure SetSource(var aSrc : TDataSource); 
begin 
    aSrc.DataSet.Close; 
    dbgridShowData.DataSource:=aSrc; 
    aSrc.DataSet.Open; 
    aSrc.DataSet.First; 
    aSrc.DataSet.Refresh; 
end; 

Куда я иду не так?

Благодаря

Answer 1

Вы, вероятно, нужно изменить DataSource.DataSet вместо:

procedure SetDataFromDataSet(const aDataSource: TDataSource; 
    const aNewDataSet: TDataSet); 
begin 
    aDataSource.DataSet.Close; 
    aDataSource.DataSet := aNewDataSet; 
    if not aNewDataSet.Active then 
    aNewDataSet.Open; 
end; 

Пример использования:

SetDataFromDataSet(DataSource1, CustomerQuery); 

Вы не можете хотеть, чтобы закрыть и открыть наборы данных по всему миру, как это, хотя. Вероятно, лучше сделать это из вызывающего кода. Конечно, это будет зависеть от того, что вам нужно для вашего приложения.

Answer 2

Вы легко можете легко изменить набор данных, показанный DBGrid, во время выполнения. Существует два подхода:

1: используйте один источник данных, назначенный DBGrid.DataSource, и измените DataSource.DataSet на нужный DataSet. Вот простой пример со всеми назначениями, выполненными во время выполнения.

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    DBGrid1.DataSource := DataSource1; 

    DataSet1.Active := true; 
    DataSet2.Active := true; 
    DataSet3.Active := true; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    DataSource1.DataSet := DataSet1; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    DataSource1.DataSet := DataSet2; 
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
    DataSource1.DataSet := DataSet3; 
end; 

2: использовать источник данных для каждого набора данных и изменить DBGrid.DataSource до желаемого DataSource. Вот простой пример со всеми назначениями, выполненными во время выполнения.

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    DataSource1.DataSet := DataSet1; 
    DataSource2.DataSet := DataSet2; 
    DataSource3.DataSet := DataSet3; 

    DataSet1.Active := true; 
    DataSet2.Active := true; 
    DataSet3.Active := true; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    DBGrid1.DataSource := DataSource1; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    DBGrid1.DataSource := DataSource2; 
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
    DBGrid1.DataSource := DataSource3; 
end; 

Если определить столбцы DBGrid, структура DataSets должны быть одинаковы, или вам придется менять определения столбцов при изменении набора данных отображается.

Я предпочитаю использовать DataSource для каждого набора данных, потому что он более гибкий.

Answer 3

Протестировано с Delphi5 pro.

procedure TForm1.setDataSourceDataSet(var newDataSource:TDataSource); 
begin 
if DBgrid1.DataSource = nil then begin 
    DBgrid1.DataSource:=newDataSource; 
end else begin 
if DBgrid1.DataSource.Name = newDataSource.Name then exit; 
DBGrid1.DataSource.Enabled:=False; 
DBgrid1.DataSource:=newDataSource; 
end; 
If DBgrid1.DataSource.DataSet.active=False then DBgrid1.DataSource.DataSet.active:=True; 
DBGrid1.DataSource.Enabled:=True; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
setDataSourceDataSet(DataSource1); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
setDataSourceDataSet(DataSource2); 
end; 

Answer 4

Секрет заключается в том:

DBGrid1.DataSource.Enabled: = False; ... изменение ... DBGrid1.DataSource.Enabled: = True;

Испытано с D5Pro