Главная страница
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.49 MB
Время: 0.018 c
4-35527
Diamond Cat
2002-06-04 02:00
2002.08.12
Определение компонентов на окнах


1-35254
Freeze
2002-07-31 08:36
2002.08.12
Как программно отобразить рабочий стол как Web страницу


1-35277
Nox
2002-07-28 22:50
2002.08.12
<<<Интересный вопрос:>>>


3-35144
Devid
2002-07-20 20:41
2002.08.12
Простой да ужаса вопрос


1-35319
DeMoN-777
2002-07-28 16:01
2002.08.12
Как удалить дирикторию со всеми находяшимися в ней файлами ?