for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Л и с о в о д ы   в с е х   с т р а н,  о б ъ е д и н я й т е с ь !!!  

Список Форумов  :: Visual Foxpro, Foxpro for DOS
   :: Помощь сайту :: 

Прошу помогите новичку
Manro026
Автор

Сообщений: 1
Дата: 24.12.14 21:31:01ОтветитьЦитировать
Всем привет делаю курсовую работу по FoxPro. Все сделал, но есть загвостка в форме У меня есть на форме кнопка добавить она работает хорошо вот код CLOSE INDEX
SELECT trener
&&SET INDEX TO Trener.CDX ORDER Tag key_tr

&&SET ORDER TO Tag key_tr OF Trener.cdx
GOTO BOTTOM
n = trener.key_tr + 1
MESSAGEBOX(n)
APPEND BLANK
Replace trener.key_tr WITH n,;
trener.nametrener WITH ThisForm.Text1.Value;
trener.famtrener WITH ThisForm.Text2.Value;
trener.ottrener WITH ThisForm.Text3.Value;
trener.addrestrenera WITH ThisForm.Text4.Value;
trener.fontrenera WITH ThisForm.Text5.Value;
trener.datarojtrenera WITH ThisForm.Text9.Value;
&& insert into trener (key_tr) values (n)


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

IF !EOF()
SKIP
ThisForm.Text1.Value=trener.nametrener
ThisForm.Text2.Value=trener.famtrener
ThisForm.Text3.Value=trener.ottrener
ThisForm.Text4.Value=trener.addrestrenera
ThisForm.Text5.Value=trener.fontrenera
ThisForm.Text6.Value=command.name_command
ThisForm.Text7.Value=command.kol_sportc
ThisForm.Text8.Value=sport.namesport
ThisForm.Text9.Value=trener.datarojtrenera
else
apend blan
endif
_screen.ActiveForm.Refresh()
помогите до ума до вести!
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Chemberzhy

Сообщений: 10144
Откуда: Измаил
Дата: 25.12.14 00:01:57ОтветитьЦитировать
Походу методику преподавания по изучению FoxPro писал плотник.
Очень уж похож почерк у автора текущего топика и предыдущего недавнего (_screen.ActiveForm.Refresh() )

По делу:
Вопрос не ясен. Создать новое поле (столбец) в таблице или, всё же создать новую запись (строку) в таблице?
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Влад Колосов

Сообщений: 22664
Откуда: Ростов-на-Дону
Дата: 25.12.14 12:09:20ОтветитьЦитировать
Базы не проектируют так, чтобы "кнопка добавляла новое поле".


------------------
Совершенство - это не тогда, когда нельзя
ничего прибавить, а тогда, когда нечего убавить.
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 25.12.14 12:34:38ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:37
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
comsel

Сообщений: 942
Откуда: Москва
Дата: 25.12.14 13:12:16ОтветитьЦитировать
pipos522
Решил попробовать сделать такую кнопку, вроде добавляет.


Этот код добавляет новое поле в существующую таблицу?
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 25.12.14 13:21:12ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:37
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Chemberzhy

Сообщений: 10144
Откуда: Измаил
Дата: 25.12.14 13:30:26ОтветитьЦитировать
Никогда не заморачивался подобными моментами.
Тупо Select..into cursor с добавлением нужных или переименованием/переделыванием столбцов, use, delete file, copy to, use

P.S. А вот добавление к элементу управления (контролу) GRID столбца вовсе никак не подразумевает модификацию таблицы
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
comsel

Сообщений: 942
Откуда: Москва
Дата: 25.12.14 14:16:50ОтветитьЦитировать
pipos522
comsel
Этот код добавляет новое поле в существующую таблицу?

что-то... куда-то... добавляет...

С огромным удовольствие посмотрю на такую кнопку в вашем "исполнении".

ALTER TABLE TableName1 ADD | ALTER [COLUMN] FieldName1

FieldType [( nFieldWidth [, nPrecision])] [NULL | NOT NULL] [CHECK lExpression1 [ERROR cMessageText1]]

[AUTOINC [NEXTVALUE NextValue [STEP StepValue]]] [DEFAULT eExpression1]

[PRIMARY KEY | UNIQUE [COLLATE cCollateSequence]]

[REFERENCES TableName2 [TAG TagName1]] [NOCPTRANS] [NOVALIDATE]
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 26.12.14 09:57:59ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:37
Ratings: 0 negative/0 positive


Вложения:
[ADD_POLE.rar (15.8KB)]  

Re: Прошу помогите новичку
pasha_usue

Сообщений: 2928
Откуда: Е-бург
Дата: 26.12.14 10:20:47ОтветитьЦитировать
pipos522
ALTER TABLE взял на вооружение, спасибо.
Вот [attachment 20702 ADD_POLE.rar] как получилось.
Нет, вы крутые программисты, я согласен. Но мне почему-то мстится, что топикстартер попутал терминологию.
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 26.12.14 10:28:08ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:38
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
comsel

Сообщений: 942
Откуда: Москва
Дата: 26.12.14 15:07:16ОтветитьЦитировать
pipos522
ALTER TABLE взял на вооружение, спасибо.
Вот [attachment 20702 ADD_POLE.rar] как получилось.

А зря. Требует ECCLUSIVE, а потому практически бесполезна.
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Igor Korolyov

Сообщений: 32017
Дата: 28.12.14 12:34:38ОтветитьЦитировать
pipos522
вроде добавляет.
[attachment 20711 facepalm.jpg]


------------------
WBR, Igor
Ratings: 0 negative/0 positive


Вложения:
[facepalm.jpg (47.5KB)]  

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 28.12.14 15:21:40ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:38
Ratings: 0 negative/0 positive


Вложения:
[rospalm.jpg (14.8KB)]  

Re: Прошу помогите новичку
Igor Korolyov

Сообщений: 32017
Дата: 29.12.14 13:32:53ОтветитьЦитировать
Самоирония - хорошее качество


------------------
WBR, Igor
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 29.12.14 14:42:31ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:38
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Simple777

Сообщений: 19993
Дата: 29.12.14 15:12:08ОтветитьЦитировать
Igor Korolyov
Самоирония - хорошее качество

OFFTOP

Главная проблема Дэниэла Крэйга в роли Джеймса Бонда - полное отсутствие самоиронии. \m/
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
alextash

Сообщений: 2231
Откуда: НСК
Дата: 29.12.14 18:38:06ОтветитьЦитировать
А я думал, что его проблема, как Джеймса Бонда, в том, что как реальный человек, он голубой.
Кстати кто там будет в роли парня Джеймса.

сорри за оффтоп.
Ratings: 0 negative/0 positive

Re: Прошу помогите новичку
Simple777

Сообщений: 19993
Дата: 29.12.14 19:04:28ОтветитьЦитировать
[attachment 20721 think1.jpg]
Ratings: 0 negative/0 positive


Вложения:
[think1.jpg (45.3KB)]  

Re: Прошу помогите новичку
pipos522

Сообщений: 681
Дата: 30.12.14 08:04:11ОтветитьЦитировать
-


------------------
Я готов целовать песок
По которому ты ходила
Снова тень наискосок
Рыжий берег с полоской ила...




Исправлено: pipos522, 30.12.14 23:39
Ratings: 0 negative/0 positive


Вложения:
[ADD_POLE.rar (15.8KB)]  



Извините, только зарегистрированные пользователи могут писать в этом форуме.

On-line: 41 and Guests: 41


© 2000-2018 Fox Club 
Яндекс.Метрика