Проблема с добавлением, удалением и изменением

МеганFOX90
Дата: 13.11.2012 15:45:36
помогите пожалуйста не могу выполнить следующие коды. На форме есть кнопки добавить, удалить, изменить и сохранить. не могу сделать эти функции никак. Нужно сделать добавление/отмену записи, удаление, изменение.

Вот код удаления:
SELECT pogoda
flag=.T.
IF ThisForm.Command9.Caption=="Сохранить"
 flag=.F.
ThisForm.Command8.Caption="Добавить"
ThisForm.Command9.Caption="Удалить"
ThisForm.Command10.Enabled=.T.
ThisForm.Text1.Enabled=.F.
 TABLEUPDATE()
 ENDIF
 IF flag
 SET DELETED On
 DELETE 
 EndIf



Вот код добавления/возврата:
SELECT personal
flag=.T.
IF ThisForm.Command8.Caption=="Добавить"
   flag=.F.
ThisForm.Command8.Caption="вернуть"
ThisForm.Command9.Caption="сохранить"
ThisForm.Command10.Enabled=.F.
ThisForm.Text1.Enabled=.T.
*ThisForm.Text7.Enabled=.T.
APPEND BLANK

ENDIF 
SELECT pogoda
IF flag
ThisForm.Command8.Caption="добавить"
ThisForm.Command9.Caption="удалить"
ThisForm.Command1.Enabled=.T.
ThisForm.Command10.Enabled=.T.
ThisForm.Text1.Enabled=.F.
ThisForm.Text2.Enabled=.F.
TableRevert()
ENDIF 



Вот код изменения записи:
SELECT personal
flag=.T.
IF ThisForm.Command10.Caption=="Изменить"
  flag=.F.
ThisForm.Text1.Enabled=.T.
ThisForm.Text6.Enabled=.T.
*ThisForm.Text7.Enabled=.T.
thisform.Command10.Caption="Сохранить"
thisform.Command1.Enabled=.F.
thisform.Command9.Enabled=.F.
ENDIF
IF m.Flag = .T.
	IF MESSAGEBOX("сохранить изменения?", 4+32+256,"изменение")=6
		TABLEUPDATE(.F.,.T.,"pogoda")
	ELSE
		TABLEREVERT(.F.,"pogoda")
	ENDIF
ThisForm.Text1.Enabled=.F.
ThisForm.Text6.Enabled=.F.
*ThisForm.Text7.Enabled=.F.
thisform.Command10.Caption="изменить"
thisform.Command9.Enabled=.T.
Endif
МеганFOX90
Дата: 13.11.2012 16:26:17
Если у кого-нибудь есть готовый проект с такими кнопками скиньте пожалуйста, очень нужно. Только не с библиотечными кнопками, а с написанными вручную
Jonny540
Дата: 13.11.2012 16:30:10
МеганFOX90,

Посмотрите txtbtns в библиотеке wizstyle.vcx в папке установки VFP -> Wizards
МеганFOX90
Дата: 13.11.2012 16:56:57
Jonny540, не не не я не хочу с ними работать.. если я установлю потом программу на комп где не установлен фокспро программа не будет же работать.. я бы хотела вручную написанные коды
AndreTM
Дата: 13.11.2012 19:28:22
МеганFOX90,

Если вы не знали, то для интерпретатора любой программный код считается "вручную написанным".
С другой стороны, включенные в проект файлы хранятся внутри готового кода, и спокойно переносятся.

Вышепредставленный код явно написан не вами, и вы в нём ничего не понимаете (иначе не забыли бы упомянуть, что на форме не только "кнопки", не поленились бы сообщить о таблице, с которой работаете, а также смогли бы обосновать использование именно TableRevert() и необходимость SET DELETED ON).

Так что будьте честны - просите "сделать всё за вас, и чтобы вот здесь рюшечка висела"...
МеганFOX90
Дата: 13.11.2012 20:53:17
AndreTM, я и не говорю что я писала код. Я ведь попросила дать коды этих кнопок, если у кого-нибудь готовый проект или помогите переделать выложенный мною код.
Jonny540
Дата: 14.11.2012 05:18:24
МеганFOX90
Jonny540, не не не я не хочу с ними работать.. если я установлю потом программу на комп где не установлен фокспро программа не будет же работать..
я бы хотела вручную написанные коды
Что за чушь?
МеганFOX90
Дата: 14.11.2012 07:59:02
Jonny540, когда писала программу с библиотечными этими кнопками и открывала проект с другой папки всегда фокспро требовал путь к этим файлам VCX поэтому думала что не будет работать.
МеганFOX90
Дата: 14.11.2012 08:09:51
Установила на форму компонент picbtns из класса wizbtns создала ехе файл. Проверяю на компьютере где я пишу программу запускается работает но не видны картинки у кнопок. Можно как-то сделать чтобы они были видны?
Вот так у меня показывается
Jonny540
Дата: 14.11.2012 08:26:40
МеганFOX90
Jonny540, когда писала программу с библиотечными этими кнопками и открывала проект с другой папки всегда фокспро требовал путь к этим файлам VCX поэтому думала что не будет работать.
Вам сюда