powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запросы FP
32 сообщений из 32, показаны все 2 страниц
Запросы FP
    #37545482
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, помогите написать запросы на формах
1.Выдать сведения о клиентах(фио,тел,номер счета,сумму вклада, дату открытия счета),которые имеют более 2 вкладов
2.По всем видам вклада определить тех,кто имеет максимальный вклад
3.Определить сумму всех вкладов в первом квартале текущего года по каждому виду вклада и отсортировать в порядке возрастания.

тема БД "вкладчики сбербанка"

Подскажите, при заполнение/изменение таблицы пунк семейное положение я сделал 3 чет бокса,а как написать что бы выбирался и записался тока тот в котором стоит галочка?

_screen.ActiveForm.refresh()
SELECT infor
*APPEND BLANK
replace fio WITH thisform.Text1.value
replace adres WITH thisform.Text2.Value
replace Dom_tel WITH thisform.Text3.Value
replace Dt_rojden WITH thisform.Text4.Value
replace Nomer_pasp WITH thisform.Text5.Value
replace pol WITH thisform.Optiongroup1.Value
replace Cem_poloj WITH thisform.Text7.Value
thisform.Refresh
...
Рейтинг: 0 / 0
Запросы FP
    #37545487
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И еще можно ли в гридах убрать фон?
...
Рейтинг: 0 / 0
Запросы FP
    #37545488
sharrki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Woolf42,

ну наверно так

replace Cem_poloj WITH thisform.Text7.Value FOR thisform.Text7.Value=1
...
Рейтинг: 0 / 0
Запросы FP
    #37545498
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Т.е. для каждого чека надо писать отделать?
replace Cem_poloj WITH thisform.Check1.Value FOR thisform.Check1.Value=1
replace Cem_poloj WITH thisform.Check2.Value FOR thisform.Check2.Value=1
replace Cem_poloj WITH thisform.Check3.Value FOR thisform.Check3.Value=1

правильно?

У меня в меню есть пунк "О программе" как сделать что бы при нажатие на него выводилось сообщение кто сделал когда сделал и вся такая фигня?
...
Рейтинг: 0 / 0
Запросы FP
    #37545659
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

1. Смените 3 чекбокса на один оптионгруп из трех опций... В "Семейное положение" Вам наверно все-таки нужна логика "ИЛИ", а не "можно и И"... Ну, разве что если Вы принципиально хотите дать возможность выбрать например и "Женат", и "Холост"

2. авторИ еще можно ли в гридах убрать фон? Пологая, никто против не будет :) Лично я не возражаю :);)

3. авторУ меня в меню есть пунк "О программе" как сделать что бы при нажатие на него выводилось сообщение кто сделал когда сделал и вся такая фигня?
Создайте форму где напишите "И все такое", обзовите ее например "frmAboutFignea", а в меню на этом пункте укажите к выполнению "DO FORM frmAboutFignea"
...
Рейтинг: 0 / 0
Запросы FP
    #37545729
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
через оптионгрупп у меня пол,
чет я не нашел такого свойство,не подскажешь?
у меня и так все через формы,через сообщение было бы интересней:)

еще проблемка появилась.

http://s017.radikal.ru/i411/1111/81/6a2b9be8cb56.jpg

http://s003.radikal.ru/i204/1111/0d/6fbfe77dca97.jpg
подскажите как сделать что бы при запуске формы поля были пустые,а то у меня появляется первая запись из таблице и при заполнение новыми данными он ее заменяет.


http://s017.radikal.ru/i436/1111/47/6d5490dfacae.jpg
как сделать кнопку удаление текущей записи?
...
Рейтинг: 0 / 0
Запросы FP
    #37545730
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И кнопку удаления с выводом сообщение "Вы действительно хотите удалить?" и кнопочки да нет
ну или хотя бы источник где это написано

тут можно сообщения редактировать?
...
Рейтинг: 0 / 0
Запросы FP
    #37545910
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42через оптионгрупп у меня пол,
чет я не нашел такого свойство,не подскажешь?

Чего "не нашел"? свойства "пол"?! :)
или эта запятая после слова пол - вовсе и не запятая?
Вопрос размыт и не понятен

Woolf42подскажите как сделать что бы при запуске формы поля были пустые,а то у меня появляется первая запись из таблице и при заполнение новыми данными он ее заменяет.


И правильно делает.
Данные на экране - это отображение их в таблице. На какой записи указатель в таблице стоит - с той и происходит работа

Если поля должны быть вначале пусты - надо при запуске добавлять новую запись

Woolf42 как сделать кнопку удаление текущей записи?
как и остальные кнопки, которые можно увидеть на скриншоте. Они же как-то были добавлены?

Сообщения редактировать рядовым форумчанам тут нельзя
Удалять тоже


Специализированное окно соощений вызывается функцией MESSAGEBOX()
Детальное ее описание - в хелпе фокса
...
Рейтинг: 0 / 0
Запросы FP
    #37546174
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
[quot SSn888]Woolf42Чего "не нашел"? свойства "пол"?! :)
или эта запятая после слова пол - вовсе и не запятая?
Вопрос размыт и не понятен
свойство у грид, которое убирает заливку фона


Woolf42И правильно делает.
Данные на экране - это отображение их в таблице. На какой записи указатель в таблице стоит - с той и происходит работа

Если поля должны быть вначале пусты - надо при запуске добавлять новую запись

тока на запись APPEND BLANK у меня ругается комп на индексы......


Woolf42 как и остальные кнопки, которые можно увидеть на скриншоте. Они же как-то были добавлены?

добавить одно, а сделать что бы она работала другое...


PRIVATE n_Rec

select infor

IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
n_Rec=RECNO()
DELETE NEXT 1

ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF

* THISFORM.GRID1.SetFocus
THISFORM.REFRESH
нормальная кнопка получилась?


я написал пару прж файлов,на меню и выход скажите что это за ошибка:
http://s58.radikal.ru/i159/1111/a4/4cca9ecdae3b.jpg
...
Рейтинг: 0 / 0
Запросы FP
    #37546211
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

А тупо, в лоб, перевести

Нет базы данных praktikadb по адресу c:\users\Олег\desktop\практикаfp
...
Рейтинг: 0 / 0
Запросы FP
    #37546511
Woolf42, вопрос в лоб: как так получается, что вы выполняете задание на средстве программирования, которое нигде и никогда не изучали и даже в глаза не видели?
...
Рейтинг: 0 / 0
Запросы FP
    #37546546
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[quot Woolf42]SSn888
свойство у грид, которое убирает заливку фона


Именно убрать заливку если ее понимать как "сделать полностью прозрачным" не выйдет
Для махинаций с фоном и тому подоным можно использовать:
BackColor -> Цвет фона (заливки)...
ForeColor -> Цвет текста
GridLineColor -> Цвет линий сетки
GridLineWidth -> Толщина линий сетки
GridLines -> Какие линии сетки показывать (все/только вертикальные и так далее)
Набор свойств Highlight... -> те же игры с цветом, но для строки, которая выбрана в гриде на данный момент
ScrollBars -> Какие есть полосы прокрутки
Думаю - для начала на студпроект хватит, эксперементируйте

Еще по гриду
Вы должны в первую очередь усвоить, что грид - это составной объект, объект контейнерного типа
То есть - это объект со своими свойствами и методами, который в своем теле, как часть себя - содержит набор других объектов - колонок (column).
Колонка в свою очередь содержит в себе объект заголовка (шапка) и оъекта отображения данных (по умолчанию - текстовое поле)
Фокс дает возможность работать с любым из этих объектов
Вы можете изменить цвет фона грида, можете - только определенной колонки
grid.backcolor; grid.column1.backcolor
и так далее - тем самым превращая внешний вид грида в нечто у некоторых напоминающее журнал "Мурзилка"
Именно свойство "Прозрачность", верней "Тип фона" (BackStyle) можно менять во всем этом комплекте у текстового поля
grid.column1.text1.backstyle = 0
Но это не значит, что за этой частью грида будет "насквозь" видно что за ним - будет виден тот цвет, который определен как фон для колонки

В общем - эксперементируйте с вышесказанным

[quot Woolf42]SSn888 тока на запись APPEND BLANK у меня ругается комп на индексы......

описание структуры таблицы в студию

[quot Woolf42]SSn888пропущено...

свойство у грид, которое убирает заливку фона


пропущено...

тока на запись APPEND BLANK у меня ругается комп на индексы......


добавить одно, а сделать что бы она работала другое...
...

нормальная кнопка получилась?

Нет, не нормальная
Woolf42, не пишите методом научного тыка, методика "а если я поменяю А и Б местами - вдруг заработает" тут не канает
Четко определите для себя что надо сделать, последовательность и логику - и только потом излагайте это на языке программирования

Вам надо:
1. Встать на запись. Все - она выбрана - больше прыгать по таблице в этом куске проги - это излишне
2. Спросить - "Точно хотите удалить?"
3. Если ответ "Да" - то снести ее... именно ее, а не следующую или еще какую
4. Отобразить изменения в интерфейсе

При более полном наборе:
1. Встать на запись.
2. Определить - а можно ли ее удалять (а вдруг нельзя - это например документ, на который уже ссылается другой документ)
3. Если в теории ее не запрещено удалять - спросить - "Точно хотите удалить?"
4. Если ответ "Да" - то попытаться снести ее...
5. Если удалось - сообщить "удалено... мир ее праху"... если не удалось - тоже сообщить чего-нить
6. Отобразить изменения в интерфейсе

Причем:
1. Не забывайте - DELETE не удаляет запись физически, а только помечает на удаление, "исключая" ее из списка полноценно живущих. Но бывают ситуации что даже помеченные удаление записи все равно видны. Изучите системную команду SET DELETE OFF|ON
2. При перерисовке грида, в привязанной к которому таблице снесли запись - Вы вместо чего-то вменяемого вполне можете увидеть пустоту. Тогда придется перепривязывать таблицу
...
Рейтинг: 0 / 0
Запросы FP
    #37546549
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В предыдущем посте вышла небольшая лажа с цитатами - "поползли", но палагаю - разберетесь
...
Рейтинг: 0 / 0
Запросы FP
    #37546673
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Очень удивилсяWoolf42, вопрос в лоб: как так получается, что вы выполняете задание на средстве программирования, которое нигде и никогда не изучали и даже в глаза не видели?
Очень удивился, можно сказать и так, нам объяснили тока как делать таблицы именно пдф файлы, про меню формы нам не чего не рассказывали. А задание дали не выполнимое, по крайней мере для меня.
...
Рейтинг: 0 / 0
Запросы FP
    #37546690
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SSn888 про удаление я так и думал что при нажатие он тока помечает на удаление,а на самой форме уже прописано что помеченные строчки он не показывает.

Я думаю так будет по проще вам и мне
http://zalil.ru/32143584
если еще что то не так скажи,или исправь если не сложно:)
...
Рейтинг: 0 / 0
Запросы FP
    #37546692
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
дбф*
...
Рейтинг: 0 / 0
Запросы FP
    #37546741
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,
в main
Код: plaintext
1.
2.
3.
4.
5.
                                SET DEFAULT TO  "C:\FP\"
                                  SET PATH TO data,menu,forms,progs,graphics

*!*	                                  SET PATH TO DATABASE 
                                  OPEN DATABASES praktikabd

и убери галку в menu - что это меню top level form
и программа запустится!
...
Рейтинг: 0 / 0
Запросы FP
    #37546764
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

1. izmen_vk.scx - и где он?
2. хорошим тоном является не слать мусор. уничтожайте файлы BAK

Остальное скорей советы, чем поправки.
Если есть нужда в них - давайте мыло, тут писать "список рекомендаций начинающим по конкретному проекту" - это неуважение к присутствующим.

Ах, да - если таблица засунута в датаенвиромент формы и/или - в составе проекта (а у Вас именно так - и то, и другое сразу) - писать всякие сетпасы для БД как минимум излишне.
Эналогично и остальные пути (касаемо конкретно Вашего проекта, это вовсе не правило в других случаях) - асолютно излишни. Если файл в составе проекта (как например, форма) - то фокс сам найдет - где они лежат, так как Вы ему разок уже это указали (когда файл включался в состав проекта)
...
Рейтинг: 0 / 0
Запросы FP
    #37546960
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
izmen_vk.scx он оказался лишнем,я его удалил и теперь он пытается его найти:(
alegator42@mail.ru вот мыло
...
Рейтинг: 0 / 0
Запросы FP
    #37546969
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SSn888Woolf42,

2. хорошим тоном является не слать мусор. уничтожайте файлы BAK



Остальное скорей советы, чем поправки.

ну во избежание потери бд я не стал не чего удалять:) да и что ВАК это хлам я не знал.)
...
Рейтинг: 0 / 0
Запросы FP
    #37546970
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alextashkWoolf42,
в main
Код: plaintext
1.
2.
3.
4.
5.
                                SET DEFAULT TO  "C:\FP\"
                                  SET PATH TO data,menu,forms,progs,graphics

*!*	                                  SET PATH TO DATABASE 
                                  OPEN DATABASES praktikabd

и убери галку в menu - что это меню top level form
и программа запустится!
чет у меня сомнения возникли что у меня 1 меню лишнее....
это правда?)
...
Рейтинг: 0 / 0
Запросы FP
    #37546975
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alextashk, сделал как вы и сказали,убрал галочку, но все ровно если у меня бди меня в папках он их не видит. При запуске он выдает ошибку http://s017.radikal.ru/i440/1111/3a/41e9d8642bd0.jpg и потом приходится выходить через диспетчер их фокса
...
Рейтинг: 0 / 0
Запросы FP
    #37547331
sharrki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Woolf42Т.е. для каждого чека надо писать отделать?
replace Cem_poloj WITH thisform.Check1.Value FOR thisform.Check1.Value=1
replace Cem_poloj WITH thisform.Check2.Value FOR thisform.Check2.Value=1
replace Cem_poloj WITH thisform.Check3.Value FOR thisform.Check3.Value=1

правильно?

У меня в меню есть пунк "О программе" как сделать что бы при нажатие на него выводилось сообщение кто сделал когда сделал и вся такая фигня?

Да.

Я думаю лучше ограничить выбор юзера (кто ему мешать все 3 чекбокса отметить???) либо ComboBox либо OptionGroup
...
Рейтинг: 0 / 0
Запросы FP
    #37548699
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

открыть на редактирование меню
вызвать menu\View\General Options
снять галку с Top-Level

затем перегенерировать меню
menu\Menu\Generate
...
Рейтинг: 0 / 0
Запросы FP
    #37549107
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alextashk,спасибо,но мне сказали что еще рано такое делать:)

Я еще создал форму с 2 комбобоксами и парочку обычных тексбоксов. Вот код кнопки:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
_screen.ActiveForm.refresh()
SELECT vklad_banka
APPEND BLANK
IF EMPTY(thisform.Combo1.Value).or.EMPTY(thisform.TxtNomer_chet.Value).or.EMPTY(thisform.TxtDt_otk_ch.Value).or.;
EMPTY(thisform.TxtCombo2.Value).or.EMPTY(thisform.TxtCymma_chet.Value)
MESSAGEBOX('Заполните пустые ячейки!','Ошибка')
else

replace vklad_banka.kod_kl WITH infor.kod
replace vklad_banka.bid_cheta WITH vud_vklad.kod

replace Nomer_chet WITH thisform.TxtNomer_chet.Value
replace Dt_otk_ch WITH thisform.TxtDt_otk_ch.Value
replace Nomer_pasp WITH thisform.TxtNomer_pasp.Value
replace pol WITH thisform.Optiongroup1.Value
replace Cymma_chet WITH thisform.TxtCymma_chet.Value

thisform.Combo1.Value=' '
thisform.TxtNomer_chet.Value=' '
thisform.TxtDt_otk_ch.Value=' '
thisform.Combo2.Value=' '
thisform.TxtCymma_chet.Value=' '
_screen.ActiveForm.refresh()
ENDIF 

При запуске,я выбираю комбобох, он пишет что тока для чтения,а в текстбоксы вообще не хочет писать
...
Рейтинг: 0 / 0
Запросы FP
    #37550172
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Убрал у листбоксов привязку к строком, и все нормально стало,но с комбо осталось таже проблема. при записи вылазиет ошибка "Numeric overflow. Data was lost" replace Nomer_chet WITH thisform.Text1.Value вот в этой строке. Обе строки типа нумерик
...
Рейтинг: 0 / 0
Запросы FP
    #37550238
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
с ошибкой "Numeric overflow. Data was lost" сам лоханулся,не досмотрел:)
помогите хотя бы с комбобоксами и ошибкой Field KOD is read-only (тока для чтения)
...
Рейтинг: 0 / 0
Запросы FP
    #37550305
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

Письмо поймали?
Остановитесь пока, не лезьте в детали - у Вас основа неправильно заложена...
Надо сперва с ней разобраться
...
Рейтинг: 0 / 0
Запросы FP
    #37550343
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SSn888,нет ни чего не приходило
...
Рейтинг: 0 / 0
Запросы FP
    #37550434
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SSn888, попробуй еще раз отправить
...
Рейтинг: 0 / 0
Запросы FP
    #37550443
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Woolf42,

через часик, ок?
...
Рейтинг: 0 / 0
Запросы FP
    #37550474
Woolf42
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хорошо жду
...
Рейтинг: 0 / 0
32 сообщений из 32, показаны все 2 страниц
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запросы FP
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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