Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прервать процедуру. [D6, Win2k]

ruslan_as © (2002-04-16 09:23:00)
Делаю импорт товаров. Как правильно остановить этот процесс кнопкой "ОТМЕНА".

begin
DM.clImport.First;
while not dm.clImport.Eof do
begin
dm.oqImport.ClearVariables;
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByName("KOD").Value);
dm.oqImport.SetVariable ("GOD",dm.clImport.FieldByName("GOD").Value);
dm.oqImport.SetVariable ("K_CEH",dm.clImport.FieldByName("K_CEH").Value);
dm.oqImport.SetVariable ("VID",dm.clImport.FieldByName("VID").Value);
dm.oqImport.SetVariable ("KOL_M1",dm.clImport.FieldByName("KOL_M1").Value);
dm.oqImport.SetVariable ("KOL_M2",dm.clImport.FieldByName("KOL_M2").Value);
dm.oqImport.SetVariable ("KOL_M3",dm.clImport.FieldByName("KOL_M3").Value);
dm.oqImport.SetVariable ("KOL_M4",dm.clImport.FieldByName("KOL_M4").Value);
dm.oqImport.SetVariable ("KOL_M5",dm.clImport.FieldByName("KOL_M5").Value);
dm.oqImport.SetVariable ("KOL_M6",dm.clImport.FieldByName("KOL_M6").Value);
dm.oqImport.SetVariable ("KOL_M7",dm.clImport.FieldByName("KOL_M7").Value);
dm.oqImport.SetVariable ("KOL_M8",dm.clImport.FieldByName("KOL_M8").Value);
dm.oqImport.SetVariable ("KOL_M9",dm.clImport.FieldByName("KOL_M9").Value);
dm.oqImport.SetVariable ("KOL_M10",dm.clImport.FieldByName("KOL_M10").Value);
dm.oqImport.SetVariable ("KOL_M11",dm.clImport.FieldByName("KOL_M11").Value);
dm.oqImport.SetVariable ("KOL_M12",dm.clImport.FieldByName("KOL_M12").Value);
dm.oqImport.Execute;
dm.clImport.Next;
end;
ShowMessage("Импорт товаров завершен!");
DM.odsGodova.Close;
DM.odsGodova.Open;
fmGod.Show;
fmImport.Close;
end;

ruslan_as (2002-04-16 11:09:00) [1]
Спасибо! Уже работает. А уточнить не помешает - бывают такого напишут ...и работает!

gek (2002-04-16 10:53:00) [2]
Да эта строка неверна
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByNameApplication.Processmessages;
надо конечно же
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByName("KOD").Value);

Ну догадаться можно то

Anatoly Podgoretsky (2002-04-16 10:53:00) [3]
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByName("KOD").Value);

gek (2002-04-16 10:47:00) [4]
Application.Processmessages;

ruslan_as (2002-04-16 10:42:00) [5]
Не понятно
"("KOD",dm.clImport.FieldByNameApplication.Processmessages;
("KOD").Value);"
Ругаеться Undeclared identifier: "FieldByNameApplication"

gek (2002-04-16 09:32:00) [6]
begin
GLOBAL_CANCEL:=false;
DM.clImport.First;
while not dm.clImport.Eof do
begin
Application.Processmessages;
if GLOBAL_CANCEL then
BREAK;
dm.oqImport.ClearVariables;
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByNameApplication.Processmessages;
("KOD").Value);
dm.clImport.Next;
Application.Processmessages;
end;
ShowMessage("Импорт товаров завершен!");
DM.odsGodova.Close;
DM.odsGodova.Open;
fmGod.Show;
fmImport.Close;
end;

procedure TMain_Form.ToolBtn_stopcicleClick(Sender: TObject);
begin
GLOBAL_CANCEL:=true;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »