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

Список Форумов  :: Visual Foxpro, Foxpro for DOS
  

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

Сообщений: 1
Дата: 24.12.14 22: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

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

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

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

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


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

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

Сообщений: 681
Дата: 25.12.14 13:34:38
-


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




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

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

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


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

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

Сообщений: 681
Дата: 25.12.14 14:21:12
-


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




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

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

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

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

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

Сообщений: 944
Откуда: Москва
Дата: 25.12.14 15: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 10:57:59
-


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




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

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

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

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

Сообщений: 681
Дата: 26.12.14 11:28:08
-


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




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

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

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

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

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

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


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

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

Сообщений: 681
Дата: 28.12.14 16:21:40
-


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




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

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

Сообщений: 32556
Дата: 29.12.14 14:32:53
Самоирония - хорошее качество


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

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

Сообщений: 681
Дата: 29.12.14 15:42:31
-


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




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

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

Сообщений: 21908
Дата: 29.12.14 16:12:08
Igor Korolyov
Самоирония - хорошее качество

OFFTOP

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

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

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

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

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

Сообщений: 21908
Дата: 29.12.14 20:04:28
[attachment 20721 think1.jpg]
Ratings: 0 negative/0 positive

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

Сообщений: 681
Дата: 30.12.14 09:04:11
-


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




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



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

On-line: 8 Pliskin  (Гостей: 7)

17.06.2019 18:49:44 exec: 0.52
Mem: 1.543 Mb

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