Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
3-94322
bcg
2002-04-05 16:08
2002.04.29
remote MySQL + Delphi


1-94484
Чел - программер
2002-04-16 14:56
2002.04.29
НАРОД! Кто-нибудь знает, как обратиться к строке в memo, не ...


3-94278
Malyatko
2002-04-08 12:48
2002.04.29
Добавление в базу данных.


3-94331
insmod
2002-04-05 19:14
2002.04.29
Проблема


1-94421
Explorer
2002-04-18 09:37
2002.04.29
Интервал в QRMemo





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский