Delphi добавление записи в Stringgrid

[lpud]

у меня такая проблема.

procedure TForm2.Button1Click(Sender: TObject); (это кнопка заполнения)
begin
ZAPSTR(Sender);
end;

procedure TForm2.Button2Click(Sender: TObject); (кнопка добавления)
begin

DM.IBQuery1.Close;
DM.IBQuery1.SQL.Clear;
DM.IBQuery1.SQL.Text:='INSERT INTO ok (zak, tip, dl, sh, nf, mat, st) VALUES ('+QuotedStr(edit1.Text)+','+QuotedStr(edit2.Text) +','+QuotedStr(edit3.Text) +','+QuotedStr(edit4.Text) +','+QuotedStr(edit5.Text) +','+QuotedStr(edit6.Text) +','+QuotedStr(edit7.Text) +')';
DM.IBQuery1.execsql;

procedure TForm2.Button1Click(Sender: TObject);
begin
ZAPSTR(Sender);
end;

При заполнении и добавлении в stringgrid е ничего не добавляет а после перезапуска программы там уже заполненные. Как сделать чтобы сразу показывал заполение. И какую процедуру написать чтобы удалить из stringrid/ Заранее благодарен

[evg_m]

как всегда самое интересное и не показали.

При заполнении и добавлении в stringgrid е ничего не добавляет

где код начального заполнения stringGrid?
где код добавления в stringGrid?
после добавления надо СНОВА заполнить .
Т.К. у вас путаница
заполняете StringGrid
добавляете в базу (НЕ StringGrid)
а StringGrid про базу НИЧЕГО не знает. про нее знает только "ZAPSTR"

[lpud]

вот весть код.

[evg_m]

после добавления надо СНОВА заполнить .
Т.К. у вас путаница
заполняете StringGrid
добавляете в базу (НЕ StringGrid)
а StringGrid про базу НИЧЕГО не знает. про нее знает только "ZAPSTR"
ZAPSTR знает про таблицу НО не знает что данные в базе изменились (стало быть их надо читать и заполнять заново).

procedure TForm2.Button2Click(Sender: TObject);
begin

DM.IBQuery1.Close;
DM.IBQuery1.SQL.Clear;
DM.IBQuery1.SQL.Text:='INSERT INTO ok (zak, tip, dl, sh, nf, mat, st) VALUES ('+QuotedStr(edit1.Text)+','+QuotedStr(ComboBox1.text) +','+QuotedStr(edit3.Text) +','+QuotedStr(edit4.Text) +','+QuotedStr(ComboBox2.text) +','+QuotedStr(ComboBox3.text) +','+QuotedStr(edit4.Text) +')';
DM.IBQuery1.execsql;

/// после добавления надо СНОВА прочитать и заполнить .
DM.IBTable1.Close;//закрываем чтобы СНОВА прочитать
ZAPSTR(Sender);  // надо СНОВА заполнить

end;

[lpud]

Огромное спасибо заработал))а как удалить выделенный запись стринггрда.

[evg_m]

Огромное спасибо заработал))а как удалить выделенный запись стринггрда.

Удалять надо не запись StringGrid а СООТВЕТСТВУЮЩУЮ ей запись БД(таблицы).
DM.ISquery1.SQL.Text:='delete from ok where ???????';
и перечитывать данные аналогично добавлению.

[lpud]

при удалении выдет ошибку
project project1.exe raised exespition class EIBinterbaseerror whit message Dynamic SQL error
SQL error code = -104
token unknow -line 1, char 7
form'.
вот код который я написал
DM.IBQuery1.Close;
DM.IBQuery1.SQL.Clear;
DM.IBQuery1.SQL.Text:='Delete form ok where (zak, tip, dl, sh, nf, mat, st) VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(ComboBox1.text) +','+QuotedStr(edit3.Text) +','+QuotedStr(edit4.Text) +','+QuotedStr(ComboBox2.text) +','+QuotedStr(ComboBox3.text) +','+QuotedStr(edit4.Text) +')';
DM.IBQuery1.execsql;
{ibtransaction1.commit;
ibtransaction1.active:=true;}
ZAPSTR(Sender);

в чем ошибка?

[evg_m]

в чем ошибка?

в незнании синтаксиса SQL.
http://programmersforum.ru/showthread.php?t=1589
Мартин Грубер.

delete from ok where zak=.... and tp=.... and ....