Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

МАСТЕРА ! НУЖНА ВАША ПОМОЩЬ ! горю синем пламенем . уже догораю   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-35460
Огурцова Е. М.
2002-07-18 13:31
2002.08.12
Почта


1-35322
Leran2002
2002-07-29 08:05
2002.08.12
TWebBrowser


7-35476
roadstar
2002-05-29 14:23
2002.08.12
Как програмно открыть папку


1-35238
ilg
2002-07-30 16:55
2002.08.12
Компонент на основе TLabel


1-35313
Nico1a
2002-07-29 19:35
2002.08.12
TMemo