|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.11.2009, 17:37 | #1 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 2
|
сохранения данных в стрингриде после редактирования его (добавление)
ПОДСКАЖИТЕ КАК ПРАВИЛЬНО НАПИСАТЬ ПРОЦЕДУРУ СОХРАНЕНИЯ
используя стрингрид для заявок выбираю из списка заявок (заявку ) и нажимаю отказ. после этого кнопка отказ срабатует но после выхода из программы она даннные не сохраняе. Вопрос как сделать чтобы она сохраняла данные после изменения. код обновления(выборки) и функции кнопок ниже. procedure TForm3.Button33Click(Sender: TObject); begin cbox1.Clear; qordp1.SQL.Clear; qordp1.SQL.ADD('SELECT Nomer, Id, Id_m'); qordp1.SQL.add('FROM "Order"'); qordp1.SQL.add('Where id_m= '+inttostr(id_m)); qordp1.Open; while not qordp1.Eof do begin cbox1.Items.Add(qordp1nomer.Value); qordp1.Next; end; qordp1.Close; end; procedure TForm3.Button35Click(Sender: TObject); var i:integer; begin for i:=1 to sgord2.ColCount do begin if sgord2.Cells[i, 2] = cbox1.Text then begin sgord2.Cells[i,24]:='0'; sgord2.Cells[i,28]:='Отказ'; end; end;end; procedure TForm3.cbox1Select(Sender: TObject); begin filter:=''; filter:='(CAST("order".nomer AS nomer) between cbox1.Items.Add(qordp1nomer.Value)' ; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Восстановление предыдущей версии файла после сохранения | specman | Microsoft Office Excel | 1 | 02.11.2009 18:42 |
Увеличение размера изображения на 34% после сохранения в D7 | Alex Cones | Мультимедиа в Delphi | 13 | 17.08.2009 22:06 |
Сохранения файла после передачи | albatros | Работа с сетью в Delphi | 2 | 26.12.2008 21:07 |
Макрос сохранения после печати | lala_white | Microsoft Office Word | 2 | 10.08.2008 12:50 |
Corel Draw - рисунки после редактирования здорово увеличиваются | Viteef | Свободное общение | 8 | 19.02.2008 09:16 |