Всем добрый день.
Возможно вопрос уже задавался, но поиск по форуме мне результата не дал.
Есть база данных MySQL, при старте проекта происходит чтение ее таблицы и заполнение некоторых элементов формы результатами.
Обработка выполнения SQL-запроса выглядит примерно так:
// получаем таблицу инертных компонентов
procedure OnRecipeDoneSQL (DataSet:TM_DataSet)
case DataSet.Tag of
TABLE_ZS_GET:
begin
Upgrade_ZS_DataSet(DataSet);
end;
end;
В глобальном блоке объявлена переменная:
ZS_DataSet:TM_DataSet;
а также есть две процедуры:
Upgrade_ZS_DataSet - пересохраняет набор данных DataSet из SQL-запроса для будущей обработки
Upgrade_ZS_Record_Data - обновляет некоторые данные на экранной форме.
procedure Upgrade_ZS_DataSet (DataSet:TM_DataSet);
var
i: integer;
begin
ZS_DataSet:=DataSet;
// Обнуляем список записей
cm_Zs_Name_List.Clear;
i:=0;
if not ZS_DataSet.IsEmpty then
begin
ZS_DataSet.First;
while not ZS_DataSet.EOF do
begin
ZS_DataSet.Next;
i:=i+1;
cm_Zs_Name_List.AddItem(ZS_DataSet[1].AsStr);
end;
ZS_DataSet.First;
ZS_DataSet.Next;
Upgrade_ZS_Record_Data(ZS_DataSet);
end;
Zs_Count.Value:=i;
end;
procedure Upgrade_ZS_Record_Data (DataSet:TM_DataSet);
begin
Zs_Number.Value:=DataSet.RecNo; //показываем текущий номер записи
fld_Zs_Name.Text :=DataSet[1].AsStr; // и выводим данные записи
fld_Zs_Number.Text :=DataSet[2].AsStr;
fld_Zs_Manufacturer.Text :=DataSet[3].AsStr;
fld_Zs_Description.Text :=DataSet[4].AsStr;
fld_Zs_Grain.Text :=DataSet[5].AsStr;
end;
После старта проекта, сразу формируется SQ-запрос на чтение таблицы.
Все процедуры начиная с OnRecipeDoneSQL отрабатывают корректно и на экране появляются данные.
Но дальнейшие обращения к переменной ZS_DataSet приводят к ошибке "Обращение к несуществующему объекту".
Например, вот такая процедура на кнопке, которая сдвигает курсор в наборе данных.
Строка "ZS_DataSet.Next" приведет к ошибке.
procedure btn_Zs_Next_OnClick (Sender: TM_Control)
begin
ZS_DataSet.Next;
Upgrade_ZS_Record_Data (ZS_DataSet);
end.
Подскажите в чем ошибка?
Возможно надо как-то дополнительно обработать команду ZS_DataSet:=DataSet?
Но почему тогда при первом запуске процедур, работа с ZS_DataSet выполняется корректно?
