powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько вопросов на разные темы.
12 сообщений из 12, страница 1 из 1
Несколько вопросов на разные темы.
    #35372046
tipadub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет! С прошедшими празником!

Вот проект готов. Но остались некоторые вопросы, которые интересны самому.
1. Имеется открытая форма. Где и что нужно указать, что бы всте остальные формы, открытые ранее, и меню было не активным.

2.как убрать на форме рамку, (имею в виду видовозскую с синей полосой сверху)

3. В проекте имеется иконка, которая отображаеться в верхнем левом углу. По чему при создании ехешника у него получилась иконка лиса

4. Имееться переменная А1
как правильно записать, к примеру thisform.A1.... или thisform.(A1)....? или как то по иному

5. как убрать из экранного представления курсора NULL

6.Есть три таблицы

ключ | название проверки дата проверки | ключ пр | ключ специалисты
-------------------------- ----------------------------------------------
1 | A1 дата1 | 1 | 1
2 | A2 дата2 | 2 | 1
и т.д. колл записей неизвестно дата3 | 1 | 2
и т.д.

ключ |специалисты
--------------------
1 | B1
2 | B2
3 | B3
4 | B4

нужен отчёт

| A1 | A2 | A3 | A4 и т.д.
------------------------------------------------------------
B1 | дата | дата | | дата
-----------------------------------------------------------
B2 | дата | дата | дата | дата
------------------------------------------------------------
B3 | дата | | дата | дата
------------------------------------------------------------
B4 | дата | дата | дата | дата



Буду рад любой помощи! По вопросу с отчётом и таблицами хотелось бы получить ссылку на детальное описание процесса
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35372059
tipadub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
с таблицами какойто гон получился позже скину в отдельным документом
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35372750
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tipadub
1. Имеется открытая форма. Где и что нужно указать, что бы всте остальные формы, открытые ранее, и меню было не активным.
Надо сделать эту форму модальной. Т.е. установить ее свойство

Код: plaintext
Form.WindowType =  1  - Modal

tipadub2.как убрать на форме рамку, (имею в виду видовозскую с синей полосой сверху)
Код: plaintext
Form.TitleBar =  0  - Off

tipadub3. В проекте имеется иконка, которая отображаеться в верхнем левом углу. По чему при создании ехешника у него получилась иконка лиса
Как прикрепить к файлу EXE свою иконку

tipadub4. Имееться переменная А1
как правильно записать, к примеру thisform.A1.... или thisform.(A1)....? или как то по иному
В смысле, в переменной содержится имя свойства формы и надо сделать присвоение этому свойству?

Универсальный способ - это макроподстановка. Символ "&"

Код: plaintext
1.
2.
3.
LOCAL A1
A1 = "MyProp"
thisform.&A1 = "Новое значение"

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

tipadub5. как убрать из экранного представления курсора NULL

Код: plaintext
1.
SET NULLDISPLAY TO ""
Object.NullDisplay = ""

tipadub6.Есть три таблицы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
ключ | название проверки		дата проверки | ключ пр | ключ специалисты
--------------------------              ----------------------------------------------
   1     |              A1		дата1         |      1        |            1 
   2     |              A2		дата2         |      2        |            1 
   3     |              A3		дата3         |      1        |            2 
и т.д.  колл записей неизвестно                     и т.д.

ключ |специалисты
--------------------
    1     |       B1    
    2     |       B2
    3     |       B3
    4     |       B4

нужен отчёт

                  |      A1     |       A2      |   A3     |     A4  и т.д.
------------------------------------------------------------
      B1         |    дата    |    дата      |            |     дата
-----------------------------------------------------------
      B2         |    дата    |    дата      |    дата  |     дата
------------------------------------------------------------
      B3          |  дата     |                |    дата  |     дата
------------------------------------------------------------
      B4          |  дата     |    дата      |   дата   |     дата

Это называется "Cross-Tab" - кросс-таблица. В FoxPro есть специальная утилита (программа) позволяющая выполнить такое преобразование. Называется vfpxtab.prg. Или воспользуйтесь специальным Wizards (Tools - Wizards - All wizards - Cross-Tab), который, по сути, использует ту же программу, но предоставляет визуальный дизайн.

В принципе, ничего особо сложного. Но это не один запрос, а именно процедура. Причем, следует учитывать ограничение FoxPro на предельно допустимое количество полей (не более 254 полей). Т.е. количество значений в таблице "Проверки" не может быть более 253 (еще поле на название специалистов)
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35372783
tipadub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирМ, огромное вам спасибо! Всё детально и просто.
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35377999
tipadub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ещё раз здравствуйте всем!
Не всё так просто с крос-таблицами, два дня еложу на одном месте. Ни как въехать не могу.
Мастером вообще не получаеться, а ручками, чайник не догоняет вообще. Прилогаю кусок своей базы данных.
помогите сотворить крос-таблицу

должность | звание | Фамилия | Имя | тренаж1 | тренаж2 | тренаж 3 | ... | тренаж n
------------------------------------------------------------------------------------------------
ЛО | к-н | Петров | Петр | дата1 | дата2 | дата 3 | и т.д.

и т.д. по всем служащим


столбец должности из doljnost.doljnost
звание из zvanie.krzvanie
фамилия и имя из letchik.familia и letchik.name соответственно
тренаж1, тренаж2, тренаж3 из trenaji.trenname
дата1, дата2, дата3 из таблицы poltren.datat

в общем существуют служащие (Петров, Иванов, Сидоров), существуют тренажи (тренаж1, тренаж2, ....), каждый служащий проходит эти тренажи в разные даты (дата1, дата 2, дата3)
приведённую выше таблицу надозасунуть в табличный очёт.
Будте добры помогите, или выложите подобный пример
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35379481
tipadub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Буду рад хотя бы примеру с подобной ситуацией.
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35379564
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Воспользуйся поиском по данному форуму по слову "кросс"
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35379832
GorDan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте. У меня маленький вопросик, поэтому не хочу создавать отдельную тему.
При заполнении таблицы имеется поле OCL (основной оклад), также есть поля UD (сколько удержано с осн. оклада, т.е. -14%), NACH (сколько начислено, +40%), EDN (премия), SUM (конечный результат, сколько выдывать денег на руки). Вручную вводятся только поля OCL и END. Остальные высчитываются на основе введеных данных. Вопрос: какими командами (вообще как) их высчитывать? Т.е. как вычесть 14% с OCL и занести это в поле UD, как прибавить 40% к OCL и занести это в поле NACH, и как суммировать все это и занести в поле SUM?
Заранее спасибо :)
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35379893
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UPDATE - SQL, Команда
Код: plaintext
UPDATE <Имя таблицы> SET Column_Name1 = eExpression1 [, Column_Name2 = eExpression2 ...] [FROM [FORCE] Table_List_Item [[, ...] | [JOIN [ Table_List_Item]]] WHERE FilterCondition1 [AND | OR FilterCondition2 ...]
REPLACE Команда
Код: plaintext
1.
2.
3.
REPLACE FieldName1 WITH eExpression1 [ADDITIVE]
   [, FieldName2 WITH eExpression2 [ADDITIVE]] ... [Scope]
   [FOR lExpression1] [WHILE lExpression2] [IN nWorkArea | cTableAlias]
   [NOOPTIMIZE]
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35380024
GorDan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как будет выглядеть выполнение команды REPLACE в моем случае (например для -14%)? Как правильно записать выражение после WITH? Можете показать конкретно на моем примере, пожалуйсто.
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35380070
GorDan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все, работает, спасибо Владимир.
...
Рейтинг: 0 / 0
Несколько вопросов на разные темы.
    #35380080
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пусть в таблице <t1> имеются записи.
Мы стоим на определенной записи.
Выполнение команды
Код: plaintext
REPLACE UD WITH ROUND(t1.OCL* 0 . 14 , 2 ) IN t1
приведет к изменению значения поля UD в текущей записи таблицы t1.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько вопросов на разные темы.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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