Переделка кода от BDE на Firebird!

[soleil@mmc]

код конечно устрелиться - тупое копирование
хотя ничего там не зависит от этих ифов (по крайней мере в том варианте в котором приведено здесь)

и зачем нужно запускать вот такой цикл:

 while Form1.SG1.Cells[1,i] <> '' do

видимо, поэтому все висит

и зачем делать это?

 Form13.pFIBDataSet_rezult.Insert;
 Form13.pFIBDataSet_rezult.Close;

[mihali4]

Абсолютно верно.
Неохота было сначала даже просматривать код, а сейчас пробежался - Inc(i) висит вне цикла...
Ну, а это:

Form13.pFIBDataSet_rezult.Insert;
Form13.pFIBDataSet_rezult.Close;

видимо, какое-то ноу-хау...

[Roof]

к слову о коде - гораздо проще, на мой взгляд, выявлять ошибки, если прописывать with. Я уже не представляю работу в делфи без него, когда куча строк с одним объектом.

[artemavd]

Поправил код на такой:

procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;
  if Form13.pFIBDataSet_spisok.Locate('FAMILIY;IMY;OTCHEST',VarArrayOf([Form1.SG1.Cells[1,i],
                                 Form1.SG1.Cells[2,i],Form1.SG1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
 begin
     Form13.pFIBDataSet_rezult.Insert;
     Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
     Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
     Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
     Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
     Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
     Form13.pFIBDataSet_rezult.Post;
     Form13.pFIBDataSet_rezult.Refresh;
     Form13.pFIBDataSet_rezult.Open;
  end;

  if Form18.sLabel7.Caption = '1' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;

  if Form18.sLabel7.Caption = '2' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;

[artemavd]

Продолжение:

  if Form18.sLabel7.Caption = '3' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;

  if Form18.sLabel7.Caption = '4' then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;
  Inc(i);
 end;

Выдается сообщение, что "pFIBDataSet_rezult: Cannot modify a read-only dataset".

[soleil@mmc]

еще немного по коду
а в чем отличия кода после строки

if Form18.sLabel7.Caption = '1' then

и после = 2, =3, =4 ??? и где код для =5?

имхо там никакой разницы, а просто куча лишних проверок
а даже если бы и была разница, то все равно достаточно было бы ее реализовать внутри одного такого блока кода

а по запросу - приведи тексты запросов в этом компоненте - будет видно
либо сними галку ReadOnly с датасета

[artemavd]

то все равно достаточно было бы ее реализовать внутри одного такого блока кода

Как именно это можно реализовать? Согласен, что там много лишнего, но, по-другому пока не знаю как сделать..

либо сними галку ReadOnly с датасета

А где эта галка находится? Я не нашел в свойствах ее.

[soleil@mmc]

весь код можно свести к этому

procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;
  if Form13.pFIBDataSet_spisok.Locate('FAMILIY;IMY;OTCHEST',VarArrayOf([Form1.SG1.Cells[1,i],
                                 Form1.SG1.Cells[2,i],Form1.SG1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
 begin
     Form13.pFIBDataSet_rezult.Insert;
     Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
     Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
     Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
     Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
     Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
     Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
     Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
     Form13.pFIBDataSet_rezult.Post;
     Form13.pFIBDataSet_rezult.Refresh;
     Form13.pFIBDataSet_rezult.Open;
  end;

  if StrToInt(Form18.sLabel7.Caption) in (1, 2, 3, 4) then
    begin
   Form13.pFIBDataSet_rezult.Insert;
   Form13.pFIBDataSet_rezult.FieldByName('IDCHETVERT').AsInteger:=StrToInt(Form18.sLabel7.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDPREDMET').AsInteger:=StrToInt(Form18.sLabel8.Caption);
   Form13.pFIBDataSet_rezult.FieldByName('IDINFO').AsInteger:=StrToInt(Form1.SG1.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('DVOEK').AsInteger:=StrToInt(Form1.SG2.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('TROEK').AsInteger:=StrToInt(Form1.SG2.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHETVEROK').AsInteger:=StrToInt(Form1.SG2.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PYTEROK').AsInteger:=StrToInt(Form1.SG2.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('PROPUSKI').AsInteger:=StrToInt(Form1.SG2.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KO').AsInteger:=StrToInt(Form1.SG3.Cells[0,i]);
   Form13.pFIBDataSet_rezult.FieldByName('SB').AsInteger:=StrToInt(Form1.SG3.Cells[1,i]);
   Form13.pFIBDataSet_rezult.FieldByName('KY').AsInteger:=StrToInt(Form1.SG3.Cells[2,i]);
   Form13.pFIBDataSet_rezult.FieldByName('Y').AsInteger:=StrToInt(Form1.SG3.Cells[3,i]);
   Form13.pFIBDataSet_rezult.FieldByName('O').AsInteger:=StrToInt(Form1.SG3.Cells[4,i]);
   Form13.pFIBDataSet_rezult.FieldByName('CHO').AsInteger:=StrToInt(Form1.SG3.Cells[5,i]);
   Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;
     end;
 Inc(i);
 end;

но вот непонятка
все-таки есть инкремент, а цикла уже нет...
в предыдущем твоем варианте был цикл, но он был криво реализован
короче, напиши по-русски что ты там вообще делаешь? может это можно как-то проще организовать

[artemavd]

короче, напиши по-русски что ты там вообще делаешь? может это можно как-то проще организовать

Я должен заносить данные из трех StringGrid-ов в БД. В StringGrid-ах имеются данные. В первом StringGrid-e (SG1) записаны ФИО ученика и его ID. Во втором StringGrid-е (SG2) записаны количества оценок, в третьем (SG3) StringGrid-е расчитанные показатели. Каждая строка во второй и третьей таблице соответствует строке в первой. Код, который был сделан в BDE хорошо работал, хоть, как Вы и говорите был реализован коряво . сейчас попробую Ваш, soleil@mmc код.
................
P.S. Код попробовал. Выдается снова ошибка "pFIBDataSet_rezult: Cannot modify a read-only dataset". И, кстати, soleil@mmc, в строке

if StrToInt(Form18.sLabel7.Caption) in (1, 2, 3, 4) then

не хватае скобок [].
Должно быть так:

if StrToInt(Form18.sLabel7.Caption) in ([1, 2, 3, 4]) then

Правильно ли я понял смысл этой строки: значение полученное в Form18.sLabel7.Caption сравнивается из массива [1,2,3,4]??? Эт чтобы смысл понять

[soleil@mmc]

1) ну да, множества в паскале в квадратных скобках (путаю иногда с пиэлевым синтаксисом)
2) замечательно, листай свои стринггриды и вноси данные
только вот в обработчике у тебя нет листания
и если сравнивать со старым примером, то там у тебя был компонент ТТабле - через него редактировать/добавлять легко (если это данные одной таблицы)
а в ФИБах еще нужно правильно все написать в запросе, но стринггриды-то у тебя не ДБ-шные и тогда неясно зачем ты там постишь и рефреш/опен делаешь?!
3) дык каков текст запроса в Form13.pFIBDataSet_rezult?
имхо проще написать отдельным запросом

insert into ...

и подставить через параметры все данные
и тогда ни к чему там делать вот это

Form13.pFIBDataSet_rezult.Post;
   Form13.pFIBDataSet_rezult.Refresh;
   Form13.pFIBDataSet_rezult.Open;

достаточно будет сделать

Form13.pFIBDataSet_rezult.ExecSQL;