| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обьясните пожалуйста как корректировать BD [D7]

denisww ©   (2004-11-01 13:06:00) 

Я изучаю SQL
сформировал через TQuery запрос на формирование одной таблицы из 2ух Paradox - результат в DBGrid.

сразу встал вопрос как в ручную редактировать результат
и
я пишу запрос для добавления строки в базу(INSERT)
строка встаёт , но Delphi ругается про ошибку создания "курсора"

просветите пожалуйста уважаемые знатоки на простеньком примере, как правильно действовать

---

DenisWW   (2004-11-04 14:47:00) [1]

Почемуже procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;
не генерит Query1BeforeClose(DataSet: TDataSet);
???????:)

---

Hmm   (2004-11-03 00:08:00) [2]

вот так всё работает:


procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var k: integer;
begin
k:= MessageDlg('Ñîõðàíèòü èçìåíåíèÿ?', mtConfirmation,[mbYes,mbNo], 0);
if (Query1.UpdatesPending) and (k=mrYes) Then begin
Query1.ApplyUpdates;
end
else begin
bquery1.CancelUpdates;
end;
end;


PS: не забудь свойство query1.cachedupdates установить в true, перед выполнением программы

---

DenisWW   (2004-11-02 15:06:00) [3]

суть: при закрытии программы хочу , закрыть базу с вопросом.
мой код не работает, при закрытии программы :(

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.Query1BeforeClose(DataSet: TDataSet);
begin
if Query1.UpdatesPending and (MessageDlg('Сохранить изменения?', mtConfirmation,
 [mbYes,mbNo], 0)=mrYes) Then Query1.ApplyUpdates;
end;

Помогите

---

DenisWW   (2004-11-02 15:06:00) [4]

суть: при закрытии программы хочу , закрыть базу с вопросом.
мой код не работает, при закрытии программы :(

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.Query1BeforeClose(DataSet: TDataSet);
begin
if Query1.UpdatesPending and (MessageDlg('Сохранить изменения?', mtConfirmation,
 [mbYes,mbNo], 0)=mrYes) Then Query1.ApplyUpdates;
end;

Помогите

---

Sergey13   (2004-11-01 13:45:00) [5]

2[2] denisww ©   (01.11.04 13:38)
>а есть возможность открыть DBGrid для редоктирования ?
Есть. TUpdateSQL 8-)

---

denisww   (2004-11-01 13:38:00) [6]

Спасибо
TUpdateSQL - решит проблемму с запросами insert,update,delete...

а есть возможность открыть DBGrid для редоктирования ?

---

Наталия   (2004-11-01 13:27:00) [7]

Попробуй использовать также TUpdateSQL - напиши в нем нужные запросы на insert,update,delete...

---

Наверх