Главная страница
    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.008 c
3-94317
AndreyP
2002-04-09 13:23
2002.04.29
Показ результата выборки


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


3-94346
62mkv
2002-04-10 10:27
2002.04.29
Ребята, есть ли у кого-нибудь отдельный дистрибут QReport 3 ?


7-94601
Albun
2002-01-31 23:33
2002.04.29
USB Программирование


3-94260
kosty
2002-04-07 20:34
2002.04.29
база данных





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский