Форум: "Базы";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
ВнизМАСТЕРА ! НУЖНА ВАША ПОМОЩЬ ! горю синем пламенем . уже догораю Найти похожие ветки
← →
the-best-officeman (2002-07-19 18:39) [0]Пять полей а таблице - обычных для редактирования. и Шестое поля - для показа состояния записи. Поле "ОТМ"
Нужно придумать. как сделать так, программа улавливала малейшее
изменение в записи и если изменения были сделаны в записи или
добавлена новая запись. то в последнем поле "ОТМ" текущей записи
ставится значение "1"
Которое показывает, что запись новая и будет выгружена при следующей выгрузке баз.
естественно если во время редактирования ячейки нажали Esc,
то снова ставится значение "0"
Если есть возможность и немножко времени. пишите плиз
хотябы кусочками исходников.
а не название события.
потому, что с ним делать ?! я незнаю.
уже и так и эдак пробовал.
с Уважением, officeman
← →
Desdechado (2002-07-19 19:15) [1]на событие BeforePost для TTable или TQuery пишешь обработчик, который меняет еще и 6 поле
← →
Viewer (2002-07-19 19:15) [2]Ну примитивно:
Читаешь запись
Делаешь изменения в элементах ввода
OnBeforePost сравниваешь их и если есть отличия изменяешь "OTM"
Потом происходит Post
Для TCLientDataset есть OldValue, CurValue и NewValue/
← →
MsGuns (2002-07-19 21:10) [3]Viewer где-то местами груб, но АБСОЛЮТНО спрапедлив !
← →
the-best-officeman (2002-07-19 21:58) [4]ГОСПОДА - МАСТЕРА
Я не когда не использовал OnBeforePost, OnAfterPost
напишите плиз примерный исходник.
как это може работать. у меня всё зацикливается и вешает комп.
напишите.
← →
the-best-officeman (2002-07-19 23:58) [5]ааааууууууууу.. приззз помогите
← →
Viewer (2002-07-20 00:09) [6]Бог мой. Начни с книжек - не будешь полным олухом выглядеть.
a:=tbMy.FieldByName("HALALA").AsString;
b:=...
...
tbMy.Edit;
Тут оператор вводит чего-то в Edit1.Text;
...
tbMy.Post;
..
На Post возникает перед ним событие на которое вешаешь обработку:
procedure TAForm.Table1BeforePost(DataSet: TDataSet);
begin
if a <> Edit1.Text then tbMy.FieldByName("OTM").AsString := "1"; // или любое другое подходяще сравнение
end;
← →
the-best-officeman (2002-07-20 01:05) [7]не твой!
ладно, мы ещё посмотрим кто из нас олух
=((
← →
Viewer (2002-07-20 11:21) [8]Еще одна полезность книжек - Вашу "простоту" никто и не заметит, может даже Вы сами.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c