Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Indigo Rose AutoPlay Media Studio (часть 1)

Модерирует : gyra, Maz

Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

maykop3000



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Для ленивых и нетерпеливых обзор темы aka FAQ
 
Где почитать:
------------------------
Для начала читаем статьи: тут раз илитут раз и два и три
Скриптовый язык LUA (англ) На русском здесь,  еще тут и  тут
Видео-уроки (анг)  
 
 
Где поживиться:
----------------------------
Видео-уроки (Flash) от производителя (англ)
Тоже официальное видео (англ)
Бесплатные шаблоны (маски) для окон ваших приложений (англ)
"Подарки к Рождеству" на оффсайте (англ)
Плагин LuaCOM (англ)
Примеры для начинающих (англ)
Неплохие примеры, библиотеки (англ)
Еще примеры, один из самых активных юзеров на оффоруме (англ)
Плагины и библиотеки (не все free) (англ)
Еще плагины (англ)
Собрание уроков (иногда с русскими объяснениями)  
 
Где найти ответы на вопросы:
------------------------------------
Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke
Запуск файлов из Web объекта
Реализация Play-листов для Винампа от BOObastis
Виды путей, используемых в AMS от GOOSE
Таблица дисков системы от Lexua
Вывод HTML отчета с использованием SQLite плагина от IndigoRose
Используем таймер
Полноэкранный режим для приложения
Показ\скрытие объектов по действиям мыши
Последовательный запуск нескольких файлов
Запуск WinRARa для распаковки архивов от Reineke
Изменяем скроллинг ListBox-у от GOOSE
Изменяем курсор в приложении от GOOSE
Перенос строки во всплывающей подсказке от GOOSE
Изменяем иконку приложения от Lexua
Включение\отключение фоновой музыки кнопкой
Отправка данных из форм по e-mail от GOOSE
Запускаем экзешник по информации из реестра от Lexua
Утилита для защиты авторанов
Из окна в полноэкранный режим и обратно
Для тех, у кого русский проект с "кракозяблами"
Выделение и копирование в буфер текста\части текста от GOOSE
Работаем с запароленными архивами от GOOSE
Работаем с объектом дерева от GOOSE
Проигрвывание MP3 из ListBox-а подряд от UMode
Простой пример бегущей строки от GOOSE
И более красивый от tavria2
Ряд вопросов и ответов по созданию меню для DVD от tavria2
 
------------------------
Шапка исправлена. Актуально на 3.08.06 GOOSE
------------------------
 
Разработчиков autorun'ов и графических дизайнеров приглашаем посетить проект шаблонов для Autoplay Media Studio:
http://ams-templates.com

Всего записей: 544 | Зарегистр. 24-09-2002 | Отправлено: 23:32 05-12-2002 | Исправлено: Maz, 12:33 25-09-2017
Dgikar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2

Цитата:
Цитата:По поводу проекта, то, как его юда "прикрутить?"?  
 
Сюда ни как, можешь кинуть сюда:  
http://rapidshare.de
http://hyperupload.com
http://www.megaupload.com/ru
http://shareua.com/upload

 
 
Я лучше код выложу, ток чур громко не смеяться. Договорились?

Всего записей: 173 | Зарегистр. 03-10-2006 | Отправлено: 16:40 06-10-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dgikar
Договорились.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 22:06 07-10-2006 | Исправлено: tavria2, 15:18 08-10-2006
UMode



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет!
 
Ребята, оказия такая:
 
1. String.Upper - работает только с латиницей
2. File.Rename - не переименовывает файл, если в новом имени изменили только регистр
 
Вопрос: чей тут глюк- мой или AMS?

Всего записей: 30 | Зарегистр. 03-05-2006 | Отправлено: 10:06 08-10-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
UMode

Цитата:
чей тут глюк- мой или AMS?

Явно AMS А с русскими именами файлов и в других местах вылазят бока
Если бы AMS умела работать с юникодом, IMHO таких проблем не было-бы.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 14:01 08-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
UMode

Цитата:
чей тут глюк- мой или AMS?

Уверен на все сто: глюк АМS.
Она вообще с кириллицей глючно работает, знает только половину кодов ACSI, локали русские определяет, как бог на душу положит, иногда непредсказуемо глючит с русскими именами файлов...

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 17:53 08-10-2006
EGORR_TOO

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пож-та как связать две таблицы в БД.
В БД две таблицы: одна основная(oborudovanie), другая c категориями(category).
Вопрос: как сделать, чтобы в поле category text таблицы  oborudovanie вставлялись данные из таблицы category. Надо написать запрос и засунуть в первую таблицу?
Покажите синтаксис, pls!...

Всего записей: 59 | Зарегистр. 03-10-2006 | Отправлено: 15:57 09-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EGORR_TOO
Надеюсь, что базы у вас SQLite
Если не так - то это не тот форум.
 

Цитата:
как сделать, чтобы в поле category text таблицы  oborudovanie вставлялись данные из таблицы category.

Изначально не верный подход! Зачем вставлять данные из одной таблицы в другую?! Они же уже есть. И совсем не важно, по скольким таблицам разложены данные...
Просто для вывода инфы используется "сложный" sql-запрос...
Метода простая, сначала подгружаешь базу.
Потом на ней делаешь запрос.
Синтаксис смотри по ссылкам в шапке и в помощи по AMS по ключевому слову SQLite.Query
 
А вообще ответ на вопрос затруднителен... Всю помощь SQLite приводить? Не проще самому глянуть:  
http://sqlite.org/lang_select.html
http://www.freesource.info/wiki/SQLite


----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 19:16 09-10-2006
EGORR_TOO

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Изначально не верный подход! Зачем вставлять данные из одной таблицы в другую?!  

Разве не лучше вынести повторяющиеся значения в отдельную таблицу и ссылаться на неё?

Всего записей: 59 | Зарегистр. 03-10-2006 | Отправлено: 10:15 10-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EGORR_TOO
Я вообще уже ничего не понимаю...
Сначала было так:
Цитата:
как сделать, чтобы в поле category text таблицы  oborudovanie вставлялись данные из таблицы category. Надо написать запрос и засунуть в первую таблицу?

Потом так:
Цитата:
Разве не лучше вынести повторяющиеся значения в отдельную таблицу и ссылаться на неё?

 
Именно так я иговорил, инфа разносится по таблицам в соответствии с тем, какую структуру БД вы там выдумали, потом нужная инфа вынимается из нужных таблиц ДЛЯ ВЫВОДА пользователю (ну или для каких то там операций)
Но зачем "перекладывать" данные из таблицы в таблицу?!
 
Ссылаться на отдельную таблицу не только можно, но и нужно только при этом не записывать результаты в таблицу опять же...

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 13:08 10-10-2006
EGORR_TOO

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я плохо объяснил.  
Я строю оболочку БД промышленного оборудования.  
В ней  таблица "oborudovanie"  с полями: категория(шиномонтажное, окрасочное, диагностическое, и т. д.), производитель(Россия, Германия, Италия, Монголия, и т. д.), название станка, обзор возможностей, техническое описалово, цена, путь к картинке.
Повторяющиеся значения разумно вынести в таблицы: "category_list" и "made_in".
Это я понимаю. А вот каким образом осуществлять связь между таблицами я не знаю.  
Подозреваю, что в таблице "oborudovanie" на месте поля с категориями должен стоять запрос к таблице  "category_list" и вместо поля made_in аналогичный запрос к таблице "made_in". Но на практике ничего не работает. Как это должно быть? Примеров я не нашел, а метод тыка уже утомил.

Всего записей: 59 | Зарегистр. 03-10-2006 | Отправлено: 14:18 10-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EGORR_TOO

Цитата:
Подозреваю, что в таблице "oborudovanie" на месте поля с категориями должен стоять запрос к таблице  "category_list" и вместо поля made_in аналогичный запрос к таблице "made_in". Но на практике ничего не работает.

И не заработает. Запросы на выборку нужно помещать в скриптах, а не в самих таблицах...
OK, попробуем родить пример.
Давай только данных побольше:
1. делаем три таблицы: "оборудование", "категория", "производитель" (это я понял)
У меня вопрос, какой запрос (выборку) ты хочешь сделать?
Дашь ответ, я напишу простой пример.
 
Добавлено:
Да, кстати!
А насколько много записей будет в таблице?
Если их не много, то и нефиг делать несколько... Ежели их много, то логичнее, но совсем необязательно
Просто я подумал, что ты пытаешься поступить разумно и логично, но в процессе этих попыток забываешь одно: какой смысл, имея в таблице "оборудование" поле "производитель", делать доптаблицу "производитель"?
Тогда проще все создвть в одной.
если все же нужно несколько, то будем делать так:
- определим, по какому параметру мы будем соотносить запись в таблице "оборудование" с записью в таблице "производитель" (например, по ID)
- составим запрос, типа select * from "оборудование", "производитель" where ID = 3

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 22:28 10-10-2006 | Исправлено: GOOSE, 23:18 10-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Лови простой примерчик, на скорую руку сделанный.
Там все в одной таблице
 
Oborudovanie.cab (665 кб).



----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 00:41 11-10-2006 | Исправлено: GOOSE, 00:42 11-10-2006
shapr



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GOOSE
 У меня вот такой вопросик. Я уже как-то задавал, но без ответа.

Цитата:
Есть html страница со ссылками на файлы (архивы, исполняемые файлы, загружаемая в web объект.  
Необходимо - чтобы при нажатии на url  в web-объекте,  activx объект не выдавал предложение загрузить файл или сохранить на диск, а отрывал его, запускал.
 
Вот так ты рекомендовал  

Цитата:
Попробуй следующее:  
- кидаешь свой экзешник в папку DOC (можешь сделать поддиректории, как удобно);  
- ссылки на html странице оформляй в виде  
Код:<a href="#proga.exe">  
- в свойствах Web объекта на вкладке Actions --> OnNavigate прописываешь:  
Код:File.OpenURL("AutoPlay\\Docs\\proga.exe", SW_SHOWNORMAL);  
У меня так работает  
Удачи, пиши, если что.

Пробую - ничего не выходит. При переходе на страничку с веб, загружается сразу установка проги. Может еще че подскажешь?

Всего записей: 218 | Зарегистр. 01-05-2005 | Отправлено: 01:49 11-10-2006
Dgikar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2 & GOOSE
 

Цитата:
tavria2
 
По поводу проекта, то, как его юда "прикрутить?"?    
 
Сюда ни как, можешь кинуть сюда:  
http://rapidshare.de  
http://hyperupload.com  
http://www.megaupload.com/ru  
http://shareua.com/upload

 

Цитата:
Dgikar
Я лучше код выложу, ток чур громко не смеяться. Договорились?

 

Цитата:
 
tavria2
Договорились.  

 
Вот, выкладываю код, только !!!ГРОМКО!!! не смеяться
 


Это я вписал в On Select, On Double Click - все тож самое, только добавлено:

Код:
Tree.CollapseNode("MS", "1.1");
- это в самом начале, а это:

Код:
 
-- Открываю файл Setup.exe
File.Open("Путь к файлу:...........\Файл.............", SW_SHOWNORMAL);

 
перед каждым else
 
Что скажите?
 



Код:
 
NodeProperties0 = Tree.GetNode("MS", "1");
NodeProperties1 = Tree.GetNode("MS", "1.1");
NodeProperties2 = Tree.GetNode("MS", "1.2");
NodeProperties3 = Tree.GetNode("MS", "1.3");
NodeProperties4 = Tree.GetNode("MS", "1.4");
NodeProperties5 = Tree.GetNode("MS", "1.5");
NodeProperties6 = Tree.GetNode("MS", "1.6");
NodeProperties7 = Tree.GetNode("MS", "1.1.1");
NodeProperties8 = Tree.GetNode("MS", "1.1.2");
NodeProperties9 = Tree.GetNode("MS", "1.1.3");
NodeProperties10 = Tree.GetNode("MS", "1.1.4");
NodeProperties11 = Tree.GetNode("MS", "1.1.5");
NodeProperties12 = Tree.GetNode("MS", "1.1.6");
NodeProperties13 = Tree.GetNode("MS", "1.1.7");
 
if NodeProperties0.Selected then
-- Убираю описание продукта и серийный номер
    Paragraph.SetText("Paragraph1", " ");
    Image.SetVisible("Image3", false);
    Input.SetVisible("Input1", false);
    Image.SetVisible("Image4", false);
    Image.SetPos("Image4", 10, 570);
 
-- Убираю полосу прокрутки
    Image.SetVisible("Image5", false);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties1.Selected then
-- Устанавливаю описание продукта
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);
    Label.SetPos("Doc2", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc2", true);
 
-- Убираю руководства пользователя
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties2.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);
    Label.SetPos("Doc3", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc3", true);
 
-- Убираю не нужные руководства пользователя
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties3.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Убираю серийный номер
    Input.SetText("Input1", "");
    Image.SetVisible("Image3", false);
    Input.SetVisible("Input1", false);
    Image.SetPos("Image3", 10, 570);
    Input.SetPos("Input1", 10, 570);
 
-- Убираю руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties4.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанваливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties5.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties6.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Убираю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetVisible("Image3", false);
    Input.SetVisible("Input1", false);
    Image.SetPos("Image3", 10, 570);
    Input.SetPos("Input1", 10, 570);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);    
    Label.SetPos("Doc7", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc7", true);
 
-- Убираю не нужные руководства пользователя
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
else
if NodeProperties7.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties8.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties9.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);
    Label.SetPos("Doc5", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc5", true);
 
-- Убираю не нужные руководства пользователя
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties10.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties11.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Убираю не нужные руководства пользователя
    Image.SetVisible("Doc1", false);
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Image.SetPos("Doc1", 10, 570);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties12.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);
    Label.SetPos("Doc6", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc6", true);
 
-- Убираю не нужные руководства пользователя
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc4", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc7", false);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc4", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc7", 10, 570);
else
if NodeProperties13.Selected then
-- Устанавливаю описание продукта
    Image.SetPos("Image4", 541, 175);
    Image.SetVisible("Image4", true);
    Paragraph.SetPos("Paragraph1", 450, 190);
    Paragraph.SetText("Paragraph1", "Мой текст: ............");
 
-- Устанавливаю полосу прокрутки
    Image.SetVisible("Image5", true);
 
-- Устанавливаю серийный номер
    Input.SetText("Input1", "Мой текст: ............");
    Image.SetPos("Image3", 10, 420);
    Input.SetPos("Input1", 133, 419);
    Image.SetVisible("Image3", true);
    Input.SetVisible("Input1", true);
 
-- Устанавливаю руководство пользователя
    Image.SetPos("Doc1", 55, 457);
    Label.SetPos("Doc4", 10, 477);
    Image.SetVisible("Doc1", true);
    Label.SetVisible("Doc4", true);
 
-- Убираю не нужные руководства пользователя
    Label.SetVisible("Doc2", false);
    Label.SetVisible("Doc3", false);
    Label.SetVisible("Doc5", false);
    Label.SetVisible("Doc6", false);
    Label.SetVisible("Doc7", false);
    Label.SetPos("Doc2", 10, 570);
    Label.SetPos("Doc3", 10, 570);
    Label.SetPos("Doc5", 10, 570);
    Label.SetPos("Doc6", 10, 570);
    Label.SetPos("Doc7", 10, 570);
end
end
end
end
end
end
end
end
end
end
end
end
end
end

 

Всего записей: 173 | Зарегистр. 03-10-2006 | Отправлено: 03:05 11-10-2006 | Исправлено: Dgikar, 03:09 11-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dgikar
Только чур, не обижаться! Я без смеха, у меня у самого код не лучше иногда бывает , так как совсем не программист, и мне проще написать лишних строк, чем "родить" незнакомую функцию

Цитата:
Что скажите?

Скажу, что информативности у твоего кода практически ноль, лучше бы было пример...
Но это ладно.
А скажи-ка мне, нафига ты вставил это:
Цитата:
Tree.CollapseNode("MS", "1.1");  

Эта команда СВОРАЧИВАЕТ ноду 1.1!
Убери, и нода не будет сворачиваться.
 
Еще. tavria2 говорил, что
Цитата:
Это я вписал в On Select, On Double Click - все тож самое, только добавлено:
это лишнее
Если в селекте выбрано показать текст, то пока ты его явно не скроешь, он будет видим.
 


----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 10:30 11-10-2006
EGORR_TOO

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2GOOSE

Цитата:
[/q]
[q]Просто я подумал, что ты пытаешься поступить разумно и логично, но в процессе этих попыток забываешь одно: какой смысл, имея в таблице "оборудование" поле "производитель", делать доптаблицу "производитель"?  
Тогда проще все создвть в одной.  
если все же нужно несколько, то будем делать так:  
- определим, по какому параметру мы будем соотносить запись в таблице "оборудование" с записью в таблице "производитель" (например, по ID)  
- составим запрос, типа select * from "оборудование", "производитель" where ID = 3

Может быть я делаю не правильно... Но воспитаный на Access, я счел необходимым разделить повторяющиеся записи.  
Я и пришел сюда, чтобы узнать как правильно, а не как мне кажется правильным.
Итак...
Я планирую сделать фильтр(запрос) по производителю и по категории. В ComboBox-е "category" список категорий. При выборе категории(напр. шиномонтажное обор-ние) в следующbq  ComboBox "names"  загружаются названия станков. И далее и при выборе названия в параграфы загружается тех опислово, цена, и т.д. из таблицы "оборудование"
Размер БД может быть большой, как и количество записей в ней. Наполнять её будет сам пользователь используя скрытую страницу администрирования. Набив БД инфой, пользователь(продавец) режет эту презентацию на CD и презентует своим покупателям, которые видят лишь информационное наполнение, не подозревая, что есть ещё и вход в админскую часть.
Есть еще мысля сделать поиск по БД. Но это программа максимум...
 
За пример спасибо. Вернусь домой стану изучать.
Кстати, за сайт тоже поклон земной!

Всего записей: 59 | Зарегистр. 03-10-2006 | Отправлено: 10:30 11-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EGORR_TOO
Я тут как то пытался жене сделать утилитку для выставления баллов студентам...
Там как раз и есть выбор по спискам, скрытое администрирование и вывод.  
Правда так и не доделал Если есть желание, могу скинуть как есть, разберешься сам.

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 10:43 11-10-2006
Dgikar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GOOSE

Цитата:
Tree.CollapseNode("MS", "1.1");  
 
Эта команда СВОРАЧИВАЕТ ноду 1.1!  
Убери, и нода не будет сворачиваться.

 
а какая комманда говрит, чтобі нода не сворачивалась?
 
Я попробовал убрать, все равно, при двойном клике нода сворачивается

Всего записей: 173 | Зарегистр. 03-10-2006 | Отправлено: 11:47 11-10-2006 | Исправлено: Dgikar, 11:48 11-10-2006
EGORR_TOO

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2GOOSE
Буду признателен.  
Все чему я научился взято из примеров( с твоего сайта в том числе) и из совершенно обалденного хелпа к проге.
А скрытое администрирование я делаю просто:на нажатие "home" джамп на админку...
 Женам писать программы - неблагодарное занятие. Я по своей сужу. Как-то я наблюдал как долго она рассчитывает количество петель для своего вязания. Сел и написал ей простую программку для этих целей. А она все равно продолжает вручную считать. Консерватор!...

Всего записей: 59 | Зарегистр. 03-10-2006 | Отправлено: 12:34 11-10-2006 | Исправлено: EGORR_TOO, 12:46 11-10-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EGORR_TOO

Цитата:
Женам писать программы - неблагодарное занятие

Это точно
 
Держи пример (удалять ничего не стал, конфиденциальных сведений все равно нет;))
masha_sql_new_.cab (235 кб).


----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 13:23 11-10-2006 | Исправлено: GOOSE, 13:25 11-10-2006
   

Страницы: 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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Indigo Rose AutoPlay Media Studio (часть 1)
Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru