Re[4]: Функция для записи изменений в БД
От: MishaMW Россия  
Дата: 18.01.05 08:49
Оценка:
Здравствуйте, wildwind, Вы писали:

W>Вот и давай все подробно и по порядку.


на форме соеденены Query1, DataSource1, DBGrid1

Query1.RequestLive:=True;
DBGrid1.ReadOnly:=False;
DBGrid1.Columns[8].ReadOnly:=False;

Пользователь вводит в MaskEdit1 номер и при нажатии на кнопку в DBGrid1 отображается одна соответствующая запись

procedure TForm1.Button1Click(Sender: TObject);   //поиск телефона
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('SELECT * FROM KSN WHERE priglas IS NULL');
   Query1.Open;
   Label2.Caption:='Не приглашено '+IntToStr(Query1.RecordCount)+' человек';
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('SELECT * FROM KSN WHERE priglas IS NOT NULL');
   Query1.Open;
   Label3.Caption:='Приглашено '+IntToStr(Query1.RecordCount)+' человек';
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('SELECT * FROM KSN WHERE (NOMER=:A1)');
   Query1.Params[0].AsFloat:=StrToFloat(MaskEdit1.Text);
   Query1.Open;
   Button2.Enabled:=True;
   Label1.Caption:='Отобрано '+IntToStr(Query1.RecordCount)+' записей';
end;


Пользователь вводит данные в столбец DBGrid-а, и нужно, чтобы при переходе в другую ячейку или при нажатии кнопки данные сохранялись. На самом же деле они сохраняются только при выходе из прилодения.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.