Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.006 c
6-35401
ZED
2002-05-30 00:33
2002.08.12
TWebBrowser - как узнать содержимое формы


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


14-35464
Bboy
2002-07-18 22:37
2002.08.12
Проблемы при просмотре фильма???!?!?!?


3-35163
Sibiryak
2002-07-22 07:58
2002.08.12
проблемы с инсертом(+)


1-35372
@andrew
2002-07-29 12:25
2002.08.12
Привет Всем!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский