Дмитрий. доброго времени!
приобрели программу.
подскажите пожалуйста, что не так?:
procedure fMain_Button1_OnClick (Sender: string; var Cancel: boolean);
//1// № вагона
if arrStr[1] = '' then arrStr[1] := 'NULL';
//2// Станция дислокации
if arrStr[2] = '' then arrStr[2] := 'NULL';
//3// индекс поезда
if arrStr[3] = '' then arrStr[3] := 'NULL';
//4// дата дислокации // приводим дату к формату, который необходим для записи в БД
if arrStr[4]<>'' then // если данные есть
sDate1 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[4])) + '"'
else sDate1 := 'NULL'; // иначе значение NULL
//5// операция
if arrStr[5] = '' then arrStr[5] := 'NULL';
//6// Станция назначения
if arrStr[6] = '' then arrStr[6] := 'NULL';
//7// код грузополучателя
if arrStr[7] <> '' then arrStr[7] := ''''+ ReplaceStr(arrStr[7], '''', '''''') + ''''
else arrStr[7] := 'NULL';
//8// наименование грузополучателя
if arrStr[8] <> '' then arrStr[8] := ''''+ ReplaceStr(arrStr[8], '''', '''''') + ''''
else arrStr[8] := 'NULL';
//9// станция отправления
if arrStr[9] = '' then arrStr[9] := 'NULL';
//10// дата отправления // приводим дату к формату, который необходим для записи в БД
if arrStr[10]<>'' then // если данные есть
sDate2 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[10])) + '"'
else sDate2 := 'NULL'; // иначе значение NULL
//11// груз
if arrStr[11] = '' then arrStr[11] := 'NULL';
//12// собственник
if arrStr[12] = '' then arrStr[12] := 'NULL';
//13// род
if arrStr[13] <> '' then arrStr[13] := ''''+ ReplaceStr(arrStr[13], '''', '''''') + ''''
else arrStr[13] := 'NULL';
//14// № накладной
if arrStr[14] = '' then arrStr[14] := 'NULL';
//15// состояние
if arrStr[15] = '' then arrStr[15] := 'NULL';
//16// парк
if arrStr[16] = '' then arrStr[16] := 'NULL';
//17// код неисправности
arrStr[17] := ReplaceStr(arrStr[17], ',', '.');
if arrStr[17] = '' then arrStr[17] := 'NULL';
//18// вес груза
arrStr[18] := ReplaceStr(arrStr[18], ',', '.');
if arrStr[18] = '' then arrStr[18] := 'NULL';
//19// грузоподъемность вагона
arrStr[19] := ReplaceStr(arrStr[19], ',', '.');
if arrStr[19] = '' then arrStr[19] := 'NULL';
// проверяем, для избежания дубликатов, данная проверка не обязательна, и зависит от вашей ситуации
//sval := SQLExecute('SELECT id FROM currency WHERE (date = ' + sDate + ') AND (id_valute = ' + ValuteID + ') AND (value = ' + arrStr[2] + ') ;');
//if sval = '' then // если в переменной sval - пусто, значит SQL запрос ничего не вернул, и дубликата данных нет
// с помощью SQL запрос вставляем данные в БД
SQLExecute ('INSERT INTO t_data (num_wag, st_dislok, index_poezda, d_dislok, oper, st_naznach, code_poluchatelya, name_poluchatelya, st-otprav, d_otpravleniya, gruz, sobstven, rod, naklad, sostoyanie, park, neispr_code, ves, gruzopod) VALUES ('+ arrStr[1] +', '+ arrStr[2] +', '+ arrStr[3] +', '+ sDate1 +', '+ arrStr[5] +', '+ arrStr[6] +', '+ arrStr[7] +', '+ arrStr[8] +', '+ arrStr[9] +', '+ sDate2 +', '+ arrStr[11] +', '+ arrStr[12] +', '+ arrStr[13] +', '+ arrStr[14] +', '+ arrStr[15] +', '+ arrStr[16] +', '+ arrStr[17] +', '+ arrStr[18] +', '+ arrStr[19] +');');
// выводим в компонент надписи, какое количество строк с данными обработано
fMain.Label1.Caption := 'Загружено строк ' + IntToStr(i) + ' из ' + IntToStr(c);
// необходимо, чтобы надпись в Label один обновилась
Application.ProcessMessages;
end;
sl.Free; // уничтожаем объект, после работы с ним
fMain.TableGrid1.dbUpdate; // заставляем TableGrid обновить данные
end;
OpenDialog.Free; // уничтожаем объект, после работы с ним
end;
Данные не грузятся, вообще ничего не происходит - кроме обновления таблицы(
с Ув. Андрей
с Ув. Андрей