ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с добавлением, удалением и изменением
25 сообщений из 49, страница 1 из 2
  1  все
Проблема с добавлением, удалением и изменением
    #38036467
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
помогите пожалуйста не могу выполнить следующие коды. На форме есть кнопки добавить, удалить, изменить и сохранить. не могу сделать эти функции никак. Нужно сделать добавление/отмену записи, удаление, изменение.

Вот код удаления:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
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




Вот код добавления/возврата:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
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




Вот код изменения записи:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
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
...
Рейтинг: 0 / 0
13.11.2012, 15:45
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38036570
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Если у кого-нибудь есть готовый проект с такими кнопками скиньте пожалуйста, очень нужно. Только не с библиотечными кнопками, а с написанными вручную
...
Рейтинг: 0 / 0
13.11.2012, 16:26
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38036577
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
МеганFOX90,

Посмотрите txtbtns в библиотеке wizstyle.vcx в папке установки VFP -> Wizards
...
Рейтинг: 0 / 0
13.11.2012, 16:30
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38036635
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Jonny540, не не не я не хочу с ними работать.. если я установлю потом программу на комп где не установлен фокспро программа не будет же работать.. я бы хотела вручную написанные коды
...
Рейтинг: 0 / 0
13.11.2012, 16:56
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38036918
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
МеганFOX90,

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

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

Так что будьте честны - просите "сделать всё за вас, и чтобы вот здесь рюшечка висела"...
...
Рейтинг: 0 / 0
13.11.2012, 19:28
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037018
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
AndreTM, я и не говорю что я писала код. Я ведь попросила дать коды этих кнопок, если у кого-нибудь готовый проект или помогите переделать выложенный мною код.
...
Рейтинг: 0 / 0
13.11.2012, 20:53
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037297
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
МеганFOX90Jonny540, не не не я не хочу с ними работать.. если я установлю потом программу на комп где не установлен фокспро программа не будет же работать ..
я бы хотела вручную написанные кодыЧто за чушь?
...
Рейтинг: 0 / 0
14.11.2012, 05:18
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037339
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Jonny540, когда писала программу с библиотечными этими кнопками и открывала проект с другой папки всегда фокспро требовал путь к этим файлам VCX поэтому думала что не будет работать.
...
Рейтинг: 0 / 0
14.11.2012, 07:59
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037344
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Установила на форму компонент picbtns из класса wizbtns создала ехе файл. Проверяю на компьютере где я пишу программу запускается работает но не видны картинки у кнопок. Можно как-то сделать чтобы они были видны?
Вот так у меня показывается
...
Рейтинг: 0 / 0
14.11.2012, 08:09
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037350
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
МеганFOX90Jonny540, когда писала программу с библиотечными этими кнопками и открывала проект с другой папки всегда фокспро требовал путь к этим файлам VCX поэтому думала что не будет работать.Вам сюда
...
Рейтинг: 0 / 0
14.11.2012, 08:26
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037363
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
МеганFOX90Установила на форму компонент picbtns из класса wizbtns создала ехе файл. Проверяю на компьютере где я пишу программу запускается работает но не видны картинки у кнопок. Можно как-то сделать чтобы они были видны?
Вот так у меня показываетсяBMP-шки в проект перепишите. И биб-ку классов тоже.
...
Рейтинг: 0 / 0
14.11.2012, 08:46
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037368
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Jonny540, прочла по добавление файлов внутрь проекта, но не поняла в моем случае что нужно сделать. Там описано как раскидывать файлы и как указывать пути.. я устанавливала txtbtns на форму переимеовала заголовки кнопок на русский но две не смогла это где добавление и сохранение кажется есть возможность их переименовать? Это одна кнопка видимо и на английском заголовок меняется
...
Рейтинг: 0 / 0
14.11.2012, 08:49
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037371
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Jonny540, как их прописать то и где?
...
Рейтинг: 0 / 0
14.11.2012, 08:52
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037545
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Для всех кнопок указала путь к картинкам в папке где содержится проект. предварительно картинки скопировала в эту папку. Две кнопки Добавить и Изменить не отображают нормально картинки потому что там при нажатии добавить картинка меняется на сохранение. Можно в программе как-то указать путь в этим картинкам?
...
Рейтинг: 0 / 0
14.11.2012, 11:16
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037552
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
ааа все получилось сделала
...
Рейтинг: 0 / 0
14.11.2012, 11:19
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037570
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
можно как-то получить доступ к форме на картинке и изменить там названия с английского на русский? а то когда ехе создаю на английском все
...
Рейтинг: 0 / 0
14.11.2012, 11:25
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037606
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
уже все
...
Рейтинг: 0 / 0
14.11.2012, 11:47
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037615
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
блин не получилось.. когда нажимаю добавить иконки у кнопки добавить и редактировать исчезают, точно также когда нажимаю редактировать
...
Рейтинг: 0 / 0
14.11.2012, 11:51
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037704
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
как исправить? везде в классах полазила все оды посмотрела кнопок в классах нигде не нашла как изменить..
...
Рейтинг: 0 / 0
14.11.2012, 12:34
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037754
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
картинки получилось сделать, но только если указать определенную папку. Хочу теперь разместить картинки в папку с ехе файлом. Подскажите как указать путь типа 'Папка_с_exe\папка_с_картинками\'
...
Рейтинг: 0 / 0
14.11.2012, 12:54
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037894
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
МеганFOX90,

Невнимательно читали статью. Все используемые файлы (в т.ч. и картинки) включаются в проект (вкладка Other->Other files)
...
Рейтинг: 0 / 0
14.11.2012, 13:48
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38037898
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
Jonny540, они есть там. Когда запускаю программу на выполнение не создавая ехе все показывает, а когда создаю ехе и его запускаю то не видны
...
Рейтинг: 0 / 0
14.11.2012, 13:50
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38038143
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
в процедуре setcaption у picbtns написала код переделала под такой и заработал. Но если удалить папку img то не показывает. Я хотела чтобы ехе был не зависим от картинок. Можно ли это сделать как-нибудь? Заранее спасибо

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
IF !THIS.EditMode
	THIS.cmdAdd.Picture = 'img\WZNEW.BMP'
	THIS.cmdEdit.Picture = 'img\WZEDIT.BMP'
	THIS.cmdAdd.DownPicture = 'img\WZNEW.BMP'
	THIS.cmdEdit.DownPicture = 'img\WZEDIT.BMP'
ELSE
	THIS.cmdAdd.Picture = 'img\WZSAVE.BMP'
	THIS.cmdEdit.Picture = 'img\WZUNDO.BMP'
	THIS.cmdAdd.DownPicture = 'img\WZSAVE.BMP'
	THIS.cmdEdit.DownPicture = 'img\WZUNDO.BMP'
ENDIF
...
Рейтинг: 0 / 0
14.11.2012, 15:07
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38038181
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
МеганFOX90,

добавь все файлы картинок в проект, на вкладке Other - Other files
...
Рейтинг: 0 / 0
14.11.2012, 15:19
| Ответить | Цитировать | Написать  
Проблема с добавлением, удалением и изменением
    #38038187
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
и пиши пути без папок
Код: sql
1.
THIS.cmdAdd.Picture = 'WZNEW.BMP'
...
Рейтинг: 0 / 0
14.11.2012, 15:20
| Ответить | Цитировать | Написать  
25 сообщений из 49, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с добавлением, удалением и изменением
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=49&tid=1583329]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 269ms
total:  418ms
созд. / загр.: 418ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]