вставка даты циклом из edit

[artemavd]

Зачем же тогда downto применять?

Согласен)
Вот сейчас сделал такой код:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,j: integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do
 begin
 Form8.Table_jur.Append;
  if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then

 for k:=4 to Form8.StringGrid1.ColCount - 1 do
     Form8.Table_jur.Insert;
     Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
     Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
     Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
     Form8.Table_jur.FieldByName('God_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,29]);
     Form8.Table_jur.FieldByName('Chetvert').AsString:=Form8.StringGrid1.Cells[2,28];
     Form8.Table_jur.FieldByName('Pred_jur').AsString:=Form8.StringGrid1.Cells[2,29];
     Form8.Table_jur.FieldByName('Klass').AsString:=Form8.StringGrid1.Cells[4,28];
     Form8.Table_jur.FieldByName('Data').AsString:=Form8.StringGrid1.Cells[k,0];
     Form8.Table_jur.Post;
//     Form8.Table_jur.Refresh;
  Inc(i);
 end;
end;

Все данные заносятся, а дата нет. Чего я тут намудрил? В идеале, мне надо, чтобы в БД в таблице данные хранились в таком виде, в котором таблица представлена во вложении. . Как перелопатить мой код, чтобы добиться такого?

[Karabash]

Тип поля Data в таблице БД может не быть строкой.
Data может быть зарезервированным словом для БД и тогда поле не может иметь такое наименование.

Но, если вы утверждаете (см. первый пост темы), что без применения цикла даты записывались в базу, тогда эти утверждения не верны и нужна база с исходниками проекта чтобы понять в чем проблема.

[artemavd]

Data может быть зарезервированным словом для БД

Нет, я не дмаю, что здесь в слове проблема. Ибо заменив название "Data" на "Kogda", эфеект был тот же самый.
Сейчас я пытался переделать код. И получилось вот что:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,j: integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do
 begin
 Form8.Table_jur.Append;
  if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then

  for k:=4 to Form8.StringGrid1.ColCount  do

     Form8.Table_jur.Insert;
     Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
     Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
     Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
     Form8.Table_jur.FieldByName('God_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,29]);
     Form8.Table_jur.FieldByName('Chetvert').AsString:=Form8.StringGrid1.Cells[2,28];
     Form8.Table_jur.FieldByName('Pred_jur').AsString:=Form8.StringGrid1.Cells[2,29];
     Form8.Table_jur.FieldByName('Klass').AsString:=Form8.StringGrid1.Cells[4,28];
     Form8.Table_jur.FieldByName('Data').AsDateTime:=StrToDateTime(DateToStr(Form8.DateTimePicker1.Date));
     Form8.Table_jur.Post;
  Inc(i);
 end;
end;

Когда я из полей ввода заполнил данные (выбрал четверть, предмет, год, ввел название класса, ввел ФИО учеников, выбрал дату из DateTimePicker, поставил типа оценки за этот день и нажал на кнопку внесения данных в БД (код выше), то все нормально занеслось. После этого я сохранил этот лист в файл Excel. Затем я перезапускаю свою программу, загружаю свой лист в мою прогу. Затем я должен снова выбрать дату (она должна стать следующей после предыдущей). Но, она не следующей встает, а затирает ту, что уже была, оставляя оценки. Так не должно быть. А когда воторой раз нажимаю на кнопку внесения данных, то появляется ошибка "DataSource_jur nor insert or edit mode" (типа такой. )Как исправить? Вот код, который предложил мне, Уважаемый Stilet, чтобы дата располагалась друг за другом в ячейках грида в нулевой(первой) строке:

procedure TForm8.DateTimePicker1CloseUp(Sender: TObject);
begin
 Form8.StringGrid1.Cells[Form8.StringGrid1.Tag + 4,0]:=FormatDateTime('dd.mm',Form8.DateTimePicker1.Date);
  if Form8.StringGrid1.Tag < Form8.StringGrid1.ColCount then
    begin
     Form8.StringGrid1.Tag:=Form8.StringGrid1.Tag + 1;
    end;
end;

Этот код работал хорошо для кода в посте №11. Как его передалать для кода в посте №12?

[Karabash]

Измененное значение Tag (StringGrid1.Tag:=StringGrid1.Tag + 1) не сохраняется при выходе из программы.
Значение это надо либо где-то хранить (ini, реестр, БД), или после запуска программы и подгрузки данных выяснять на какой колонке кончаются даты и уже номер этой колонки + 1 присваивать свойству Tag (это перед выполнением процедуры DateTimePicker1CloseUp).
Если я правильно понял проблему.

[artemavd]

или после запуска программы и подгрузки данных выяснять на какой колонке кончаются даты и уже номер этой колонке присваивать свойству Tag

А как это в виде кода будет выглядеть?

Если я правильно понял проблему.

Попробуем сначала сделать с датой.

[Karabash]

Опять же в цикле (при входе или в функции/процедуре, где происходит загрузка данных в грид и после этой загрузки):

for i := 4 to StringGrid1.ColCount-1 do
  if StringGrid1[i, 0] = '' then begin
    StringGrid1.Tag := i - 4;
    break;
  end;

[artemavd]

Попробовал Ваш код, вроде получилось. Только прищлось заменить i - 4 на i - 3. Казалось бы, теперь данные должны заноситься. Но нет. Выдается ошибка при повторном нажатии на кнопку такого плана "Table_jur: Dataset not in edit or insert mode" и выделяет в коде вот эту строчку:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,j: integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do
 begin
 Form8.Table_jur.Append;
  if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then

  for k:=4 to Form8.StringGrid1.ColCount  do

     Form8.Table_jur.Insert;
     Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
     Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
     Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
     Form8.Table_jur.FieldByName('God_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,29]);
     Form8.Table_jur.FieldByName('Chetvert').AsString:=Form8.StringGrid1.Cells[2,28];
     Form8.Table_jur.FieldByName('Pred_jur').AsString:=Form8.StringGrid1.Cells[2,29];
     Form8.Table_jur.FieldByName('Klass').AsString:=Form8.StringGrid1.Cells[4,28];
     Form8.Table_jur.FieldByName('Data').AsDateTime:=StrToDateTime(DateToStr(Form8.DateTimePicker1.Date));
     Form8.Table_jur.Post;
  Inc(i);
 end;
end;

???

[Karabash]

Form8.Table_jur.Append;
Form8.Table_jur.Insert;
Надо оставить либо одно, либо другое (опять же неизвестен тип БД).
А ошибка на самом деле относится к предыдущей строке. Уж так отладчик устроен в D7. Т.е. при первом же присвоении значения полю происходит ошибка.

[artemavd]

опять же неизвестен тип БД

тип Paradox. BDE.
Я убрал Form8.Table_jur.Append. Прошелся отладчиком. Он выдает ошибку сразу после строки:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,j: integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do
 begin
 Form8.Table_jur.Append;
  if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then

  for k:=4 to Form8.StringGrid1.ColCount  do

     Form8.Table_jur.Insert;
     Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
     Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
     Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
     Form8.Table_jur.FieldByName('God_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,29]);
     Form8.Table_jur.FieldByName('Chetvert').AsString:=Form8.StringGrid1.Cells[2,28];
     Form8.Table_jur.FieldByName('Pred_jur').AsString:=Form8.StringGrid1.Cells[2,29];
     Form8.Table_jur.FieldByName('Klass').AsString:=Form8.StringGrid1.Cells[4,28];
     Form8.Table_jur.FieldByName('Data').AsDateTime:=StrToDateTime(DateToStr(Form8.DateTimePicker1.Date));
     Form8.Table_jur.Post;
  Inc(i);
 end;
end;

Я ее закоментировал. Снова запускаю. Опять ошибка. На этот раз отладчик показывает на Form8.Table_jur.Post. Я и его в коменты отправил. Опять запускаю. Снова ошибка. И меня выбрасывает на строчку:

Form8.Table_jur.FieldByName('Data').AsDateTime:=StrToDateTime(DateToStr(Form8.DateTimePicker1.Date));

???

[Karabash]

В коде та же самая логическая ошибка (сразу не заметил), которая была в коде какого-то предыдущего поста: цикл for без операторных скобок (begin..end). Поэтому в цикле выполняется только оператор Insert, другие не выполняются (вернее, выполняются один раз после цикла). Поэтому происходит ошибка "Dataset not in edit or insert mode". Метод Post разместив переданные в поля данные переводит DataSet в нормальный режим и тогда можно повторно использовать Insert. Если же Post не было (как в нашем случае), то следующий вызов Insert генерит такую ошибку.