Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Прервать процедуру. 


ruslan_as   (2002-04-16 09:23) [0]

Делаю импорт товаров. Как правильно остановить этот процесс кнопкой "ОТМЕНА".

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;



gek   (2002-04-16 09:32) [1]

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;



ruslan_as   (2002-04-16 10:42) [2]

Не понятно
"("KOD",dm.clImport.FieldByNameApplication.Processmessages;
("KOD").Value);"
Ругаеться Undeclared identifier: "FieldByNameApplication"



gek   (2002-04-16 10:47) [3]

Application.Processmessages;



gek   (2002-04-16 10:53) [4]

Да эта строка неверна
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByNameApplication.Processmessages;
надо конечно же
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByName("KOD").Value);

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



Anatoly Podgoretsky   (2002-04-16 10:53) [5]

dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByName("KOD").Value);



ruslan_as   (2002-04-16 11:09) [6]

Спасибо! Уже работает. А уточнить не помешает - бывают такого напишут ...и работает!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.536 c
6-94536           avk                   2002-02-15 22:51  2002.04.29  
TStream...получение картинки...


1-94515           Lena Z                2002-04-16 16:42  2002.04.29  
L470


1-94426           Катерина              2002-04-17 14:59  2002.04.29  
Форма-фрейм-форма


3-94295           anton_private         2002-04-08 14:03  2002.04.29  
Как получить список MS SQL серверов в сети?


6-94532           Timon                 2002-02-14 09:21  2002.04.29  
TClientSocket