Здравтствуйте, просьба помочь с написанием перечисленных выше кнопок. в кнопке добавить написала Append Blank, конечно работает. при желании отменить добавление написала в коде TableRevert(), не работает выдает ошибку function requires row or table buffering mode. Как правильно должен выглядить код?????

А где посмотреть код кнопок да и сами кнопки??? Мне б просто в обработчике события Click у кнопки написать код.

Спасибо! При исправлении в DataEnviroment, отмена при добавлении заработала. Теперь вопрос: как запись правильно удалять, причем совсем (физически).

ну он же просто помечает запись на удаление. (если я не ошибаюсь), а мне нужно совсем чтоб удалялась. Это у меня курсовая работа такая.

Спасибо! Удаление тож заработало при помоши Set Deleted on

Подозрения были, что эта запись будет снова отображаться при перезапуске программы, сейчас они развеялись. просто раньше не работало. При использовании команды Delete возникала ошибка trigger failed, сейчас ошибка не возникает.

А вот Pack не работает. Может что неправильно пишу.
Пишу Set Deleted on
Delete
Pack
Возникает ошибка Command cannot be issued on a table with cursors in table buffering mode.
Что делаю не так????????????

и еще несколько вопросов:
Как проверить таблицу на пустоту?
Как обратиться к записи в таблице, расположенной перед текущей?

[quot Sergey Sizov.]Ну вот, опять двадцать пять...

И ЗАЧЕМ pack понадобился? Опять удаленные записи помешали? Так их в какой-нибудь служебной процедуре удаляют, а не во время текущей работы.



Pack понадобился, потому что перезапускаю программу, а там опять ненужные записи вылезают, хочу от них избавиться.

Поставила. Ничего не изменилось. Да и не должно наверно. Если я заново запускаю FoxPro со своим проектом эти записи возникают вновь, поэтому хотелось бы все-таки их совсем удалить

у меня главная программа main, которая запускает меню. В ней и поставила


SET DEFAULT TO &Dir_Dbf

CLOSE data
* заставка
SET DEFAULT TO &Dir_Form
*DO FORM LichnDann
SET DELET ON
SET DEFAULT TO &Dir_prg
*SET PROCEDURE TO proc
DO menu2.mpr
READ Events
CLOSE DATABASES
RETURN

это её кусок

нет, там ничего такого нет


Это меню

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _21r1731x3 OF _MSYSMENU PROMPT "\<1.Ввод документов" COLOR SCHEME 3 ;
KEY ALT+1, ""
DEFINE PAD kmenu2 OF _MSYSMENU PROMPT "\<2.Запросы" COLOR SCHEME 3 ;
KEY ALT+2, ""
DEFINE PAD kmenu3 OF _MSYSMENU PROMPT "\<3.Вывод документов" COLOR SCHEME 3 ;
KEY ALT+3, ""
DEFINE PAD kmenu4 OF _MSYSMENU PROMPT "\<4.Справка" COLOR SCHEME 3 ;
KEY ALT+4, ""
DEFINE PAD kmenu5 OF _MSYSMENU PROMPT "\<5.Выход" COLOR SCHEME 3 ;
KEY ALT+5, ""
ON PAD _21r1731x3 OF _MSYSMENU ACTIVATE POPUP _2160sk08s
ON PAD kmenu2 OF _MSYSMENU ACTIVATE POPUP _2160sk08t
ON PAD kmenu3 OF _MSYSMENU ACTIVATE POPUP _2160sk08u
ON SELECTION PAD kmenu5 OF _MSYSMENU Quit

DEFINE POPUP _2160sk08s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2160sk08s PROMPT "\<1.Файл"
DEFINE BAR 2 OF _2160sk08s PROMPT "\<2.Природные условия"
DEFINE BAR 3 OF _2160sk08s PROMPT "\<3.Описание препятствия"
ON SELECTION BAR 1 OF _2160sk08s ;
DO _21r1731x5 ;
IN LOCFILE("\БД\PRG\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")
ON SELECTION BAR 2 OF _2160sk08s ;
DO _21r1731x8 ;
IN LOCFILE("\БД\PRG\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")
ON SELECTION BAR 3 OF _2160sk08s ;
DO _21r1731xb ;
IN LOCFILE("\БД\PRG\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")

DEFINE POPUP _2160sk08t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2160sk08t PROMPT "Добавить"
ON SELECTION BAR 1 OF _2160sk08t DO FORM Погода.SCX

DEFINE POPUP _2160sk08u MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2160sk08u PROMPT "Добавить"
ON SELECTION BAR 1 OF _2160sk08u DO FORM Препятствия.SCX


* *********************************************************
* *
* * _21R1731X5 ON SELECTION BAR 1 OF POPUP _2160sk08s
* *
* * Procedure Origin:
* *
* * From Menu: MENU2.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP _2160sk08s
* * Prompt: 1.Файл
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _21r1731x5
SET DEFAULT TO &Dir_Form
DO FORM form1


* *********************************************************
* *
* * _21R1731X8 ON SELECTION BAR 2 OF POPUP _2160sk08s
* *
* * Procedure Origin:
* *
* * From Menu: MENU2.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP _2160sk08s
* * Prompt: 2.Природные условия
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _21r1731x8
SET DEFAULT TO &Dir_Form
DO FORM form2


* *********************************************************
* *
* * _21R1731XB ON SELECTION BAR 3 OF POPUP _2160sk08s
* *
* * Procedure Origin:
* *
* * From Menu: MENU2.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP _2160sk08s
* * Prompt: 3.Описание препятствия
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _21r1731xb
SET DEFAULT TO &Dir_Form
DO FORM form3


А эта вся main

CLEAR
CLOSE DATABASES
CLOSE ALL

* Также в main'е делаем все необходимые установки
SET DATE GERMAN
SET CENTURY on

* Описываем все переменные типа PUBLIC
****PUBLIC InAr [ 1, 11 ]
PUBLIC Dir, Dir_Dbf, Dir_Form, Dir_out, Dir_Prg, Dir_Help
PUBLIC ars [ 1 ], arc [ 1 ]


* Определяем директорию, из которой запускалась программа
DIR = SYS( 16 )
nc = RAT( '\', Dir )
DIR = SUBSTR( Dir, 1, nc - 1 )
nc = RAT( '\', Dir )
DIR = SUBSTR( Dir, 1, nc - 1 )

Dir_Dbf = Dir + '\Dbf'
Dir_Form = Dir + '\Form'
Dir_Help = Dir + '\help'
Dir_Out = Dir + '\out'
Dir_Prg = Dir + '\prg'

* Отладочная печать, которую потом нужно убрать ( или закомментарить ('*' в 1-й позиции)
*? dir, Dir_Prg

* Переключаемся на поддиректорию '..\Dbf', где расположены таблицы
*** !!! оератор "&" - очень мощный, он подставляет в текст программы значение переменной,
*** которая следует непосредственно за знаком &, с его помощью можно организовать массив
*** подпрограмм

SET DEFAULT TO &Dir_Dbf

CLOSE data
* заставка
SET DEFAULT TO &Dir_Form
*DO FORM LichnDann
SET DELET ON
* Переключаемся на поддиректорию '..\Prg', где расположены программы
SET DEFAULT TO &Dir_prg
* Указываем программе, что в файле proc.prg будут размещены подпрограммы
*SET PROCEDURE TO proc
DO menu2.mpr
READ Events
CLOSE DATABASES
RETURN

1. Default Data Session
А почему нельзя воспользваться Pack?

to alex11100

1) Собственно, программировать на FoxPro меня никто не обучал. Образно говоря, мне показали как делаются формы при помощи wizarda и сказали делай. В последний раз мой препод сказал, что я разбираюсь в FoxPro лучше чем он.
2) работаю на FoxPro 8.0 и все проблемы с удалением решила. Просто прописывала в главной программе, а запускала на выполнение просто форму, поэтому естественно записи всплывали.
3) А чем не понравились имена переменных? По-моему все довольно логично=))))

проблема с изменением данных в таблице. Некоторые изменения некоторых полей не сохраняются, а именно.
На форме есть TextBox, Spinner,Optiongroup. Если изменяю данные в первых двух, то в данный момент все изменяется, перезапускаю проект, смотрю все тож самое, если меняю в OptionGroup, то все изменения сохраняются и после перезапуска. Код кнопки:
flag=.T.
IF ThisForm.Command10.Caption=="Изменить"
flag=.F.
ThisForm.Text1.Enabled=.T.
ThisForm.Optiongroup1.Enabled=.T.
ThisForm.Spinner1.Enabled=.T.
thisform.Command10.Caption="Сохранить"
thisform.Command1.Enabled=.F.
thisform.Command2.Enabled=.F.
ENDIF

IF flag
IF MESSAGEBOX("Сохранить изменения?", 4+32+256,"Изменение")=6
TABLEUPDATE()
ELSE
TABLEREVERT()
ENDIF
ThisForm.Text1.Enabled=.F.
ThisForm.Optiongroup1.Enabled=.F.
ThisForm.Spinner1.Enabled=.F.
thisform.Command10.Caption="Изменить"
thisform.Command1.Enabled=.T.
thisform.Command2.Enabled=.T.
Endif

С объектом Spinner1, связано поле файл.id типа integer (раньше было numeric, изменила на integer, суть не поменялась). С объектом TextBox файл.name типа character[10]. Все через ControlSource.
Дело в том, что он у меня то сохраняет изменения, то нет. Никак последовательость выявить не могу. Я тут правда нескоько , скажем так, "химичала", пыталась восстановить удаленые записи, т.е. я думаю, что я делала это. Последовательность действий была такова: Я открыла таблицу в режиме просмотра, увидела крайний левый столбец, в котором клеточка записи, которую я удаляла была помечена черным, щелчком цвет поменялся на белый, ну и запись восстановилась. Соответственно, после этого мне захотелось что-то поменять с формы, ну вот и наткнулась на эту проблему. Может лучше просто выложить здесь свой проект? Просто не иогу объяснить точно, что именно не сохраняется. Повторюсь, последовательность выявить не могу. Причем, сразу скажу, это касается как тех записей, которые были восстановлены, так и тех, которые никогда не удалялись.

Вот моя база данных, проблемы с изменением решила радикально, удалила таблицу создала новую, пока ранние проблемы обнаружены не были. Правда, все равно, все вместе как то странно функционирует, последний раз вообще все зависло. Поиск то работает, то не работает... Эххх..

Еще проблема:
На форме есть OptionGroup со значениями "Есть", "Нет", по соответствующему выбору в полю записи таблицы (переменная логического типа) должно быть присвоено соответственно T или F. Так вот как сделать обратную связь, т.е. если значение поле Т, то точечка появляется напротив "Есть" и наоборот.
(через ControlSourse нельзя, как я понимаю)

А в CheckBox ведь могут быть выбраны оба поля одновременно (или я ошибаюсь)?????, а этого не хотелось бы. В поле таблицы я вношу запись так:

DO CASE
CASE ThisForm.OptionGroup2.Value = 1
REPLACE radar WITH .T.
CASE ThisForm.OptionGroup2.Value = 2
REPLACE radar WITH .F.
ENDCASE

и здесь все вроде работает хорошо.