Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

Прервать процедуру.   Найти похожие ветки 

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
3-94282
Igor65
2002-04-08 14:54
2002.04.29
Как импортировать информацию из txt файла в базу


3-94285
sany
2002-04-08 08:57
2002.04.29
надо базу данных написать для хранения информации о видео кассетх


7-94594
ATLANTIDO
2002-02-02 23:58
2002.04.29
ШАРИТЬ ПО ДИСКАМ ЗАПРЕЩЕНО


7-94600
kioto
2002-01-27 10:59
2002.04.29
Отображение содержимого окна при перетаскивании


1-94492
Hort
2002-04-16 15:14
2002.04.29
Как настроить принтер?