Вверх ↑
Этот топик читают: Гость
Ответов: 109
Рейтинг: 0
#1: 2021-03-15 20:52:48 ЛС | профиль | цитата
Добрый день всем. Помогите пожалуйста.
Я занимаюсь добавлением товара в базу фирмы и мне нужно каждый раз искать описание товара. Я хочу сделать программу, чтобы можно было самому генерировать описание по шаблонам.
Чтобы можно было создавать вкладки для определенного вида товаров: например корпуса, вентиляторы, материнские платы, оперативная память и так далее. А там уже из выпадающих списков выбирать нужные параметры и чтобы они в текст формировались. И чтобы эти списки можно было редактировать.
Текст такого вида я делаю:
игровая гарнитура, 20-20000 Гц, 32 Ом, разъемы USB и 2x 3.5мм аудио

Если тут уже делали нечто подобное, подскажите пожалуйста в какой теме.
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 698
Рейтинг: 143
#2: 2021-03-15 22:03:25 ЛС | профиль | цитата
Serascer писал(а):
сделать программу, чтобы можно было самому генерировать описание по шаблонам.


Add(MainForm,2953706,21,105)
{
Width=336
Height=157
}
Add(ComboBox,16024458,147,91)
{
Left=20
Top=50
Width=65
Height=21
Strings=#7:Продать|6:Купить|0:|
Text=""
link(onClick,16050605:doWork1,[(193,104)])
}
Add(Label,7153974,147,42)
{
Left=25
Top=30
Width=54
Height=17
Caption="Действие"
}
Add(ComboBox,10017811,203,91)
{
Left=90
Top=50
Width=65
Height=21
Strings=#8:квартиру|7:комнату|4:дачу|0:|
Text=""
link(onClick,6560988:doWork1,[(242,104)])
}
Add(Label,12696315,203,42)
{
Left=100
Top=30
Width=42
Height=17
Caption="Объект"
}
Add(ComboBox,8538213,259,91)
{
Left=165
Top=50
Width=65
Height=21
Strings=#8:в Москве|11:в Ярославле|7:в Твери|8:в Самаре|0:|
Text=""
link(onClick,6560988:doWork2,[(298,104)(298,146)])
}
Add(Label,6789611,259,42)
{
Left=170
Top=30
Width=36
Height=17
Caption="Место"
}
Add(Edit,10668493,224,175)
{
Left=10
Top=90
Width=275
Text=""
}
Add(FormatStr,3195529,154,182)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,10668493:doText2,[])
link(Str1,16024458:String,[])
link(Str2,10017811:String,[(167,131)(216,131)])
link(Str3,8538213:String,[(174,138)(272,138)])
}
Add(HubEx,6560988,238,140)
{
Angle=2
link(onEvent,16050605:doWork2,[])
}
Add(HubEx,16050605,189,140)
{
Angle=2
link(onEvent,3195529:doString,[(144,146)(144,188)])
}

карма: 15

1
Голосовали:Serascer
Ответов: 109
Рейтинг: 0
#3: 2021-03-16 01:21:27 ЛС | профиль | цитата
Спасибо большое! А подскажите, как мне сделать несколько вкладок в программе?

Редактировалось 1 раз(а), последний 2021-03-16 01:21:47
карма: 1

0
Ответов: 698
Рейтинг: 143
#4: 2021-03-16 08:36:43 ЛС | профиль | цитата
Serascer писал(а):
как мне сделать несколько вкладок в программе?

Смотри вкладку error.

Add(MainForm,563954,210,168)
{
Width=562
Height=306
}
Add(MultiSetParam,101949,357,91)
{
Parameters=#13:1;0;0;0;0;0;0|13:0;1;0;0;0;0;0|13:0;0;1;0;0;0;0|13:0;0;0;1;0;0;0|13:0;0;0;0;1;0;0|13:0;0;0;0;0;1;0|13:0;0;0;0;0;0;1|
Count=7
link(onSet1,3535760:doVisible,[])
link(onSet2,9260988:doVisible,[(445,104)(445,160)])
link(onSet3,5999461:doVisible,[(438,111)(438,202)])
link(onSet4,2725563:doVisible,[(431,118)(431,258)])
link(onSet5,5759746:doVisible,[(424,125)(424,300)])
link(onSet6,10881572:doVisible,[(417,132)(417,356)])
link(onSet7,9753900:doWork1,[(410,139)(410,391)])
}
Add(MTStrTbl,9260988,483,147)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Name="Appendix"
Columns=#2:No|18:PART NO./ АРТИКУЛ|11:DESCRIPTION|12:НАИМЕНОВАНИЕ|12:Q-ty/ КОЛ-ВО|13:UNIT/ ЕД.ИЗМ.|40:GROSS PRICE, EUR/ ЦЕНА ЗА ЕДИНИЦУ В ЕВРО|34:TOTAL PRICE, EUR/ ОБЩАЯ ЦЕНА, Евро|
ColumnClick=1
Redaction=0
Grid=0
Point(doVisible)
Point(onMouseDown)
}
Add(MTStrTbl,5999461,483,189)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Name="broker"
Columns=#7:АРТИКУЛ|18:МОДЕЛЬ / если есть|18:ОПИСАНИЕ ДЛЯ 31 ГР|14:КОД ТНВЭД ЕАЭС|13:СТРАНА ПРОИСХ|19:ФИРМА-ПРОИЗВОДИТЕЛЬ|2:ТМ|6:КОЛ-ВО|11:ЕД. ИЗМЕРЕН|17:КОД ИНД. УПАКОВКИ|25:КОЛИЧЕСТВО ВНЕШ. УПАКОВКИ|18:КОД ВНЕШ. УПАКОВКИ|22:ВЕС НЕТТО ИТОГОВЫЙ, КГ|36:ВЕС БРУТТО ИТОГОВЫЙ (БЕЗ ПАЛЛЕТ), КГ|24:ЦЕНА ЗА ЕД. ИЗМЕР., ЕВРО|15:СТОИМОСТЬ, ЕВРО|6:ИНВОЙС|4:ДАТА|12:СПЕЦИФИКАЦИЯ|4:ДАТА|22:НОМЕР РАЗРЕШИТЕЛЬНОГО |11:ДАТА ВЫДАЧИ|12:ДАТА ОКОНЧАН|6:СОСТАВ|7:ФАСОВКА|0:|
ColumnClick=1
Redaction=0
Grid=0
Point(doVisible)
Point(onMouseDown)
}
Add(MTStrTbl,3535760,483,84)
{
Top=25
Width=546
Height=242
Align=5
Name="Invoice"
Columns=#8:Item===1|24:Material/Description===0|12:Quantity===2|8:Unit===2|9:Price===1|9:Value===1|16:Manufacturer===2|21:Country of origin===2|0:|
ColumnClick=1
ColorItems=0
Redaction=0
Grid=0
Point(doVisible)
Point(onLineChange)
Point(onMouseDown)
}
Add(MTStrTbl,2725563,483,245)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Name="package"
Columns=#1:1|1:2|1:3|1:4|1:5|
ColumnClick=1
Redaction=0
Grid=0
Point(doVisible)
Point(onMouseDown)
}
Add(MTStrTbl,5759746,483,287)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Name="stock"
ColumnClick=1
Redaction=0
Grid=0
Point(doVisible)
Point(onMouseDown)
}
Add(MTStrTbl,10881572,483,343)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Name="ivan"
Columns=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
ColumnClick=1
Redaction=0
Grid=0
Point(doVisible)
Point(onMouseDown)
}
Add(TabControl,12598024,308,91)
{
Width=546
Height=25
Align=2
Tabs=#6:Invoce|8:Appendix|16:Table for broker|14:package weight|13:for warehouse|10:from stock|6:errors|
Bitmaps=[]
Border=0
link(onChange,101949:doSet,[])
}
Add(ChildPanel,9753900,483,385)
{
}
BEGIN_SDK
Add(EditMulti,977715,21,21)
{
WorkCount=1
Width=783
Height=487
link(doWork1,6555359:doVisible,[(46,27)(46,118)])
}
Add(Panel,6555359,56,105)
{
Top=25
Width=546
Height=242
Align=5
Visible=1
Point(doVisible)
}
Add(ComboBox,16024458,231,98)
{
Left=20
Top=50
Width=65
Height=21
Strings=#7:Продать|6:Купить|0:|
Text=""
link(onClick,16050605:doWork1,[(277,111)])
}
Add(Label,7153974,231,49)
{
Left=25
Top=30
Width=54
Height=17
Caption="Действие"
}
Add(ComboBox,10017811,287,98)
{
Left=90
Top=50
Width=65
Height=21
Strings=#8:квартиру|7:комнату|4:дачу|0:|
Text=""
link(onClick,6560988:doWork1,[(326,111)])
}
Add(Label,12696315,287,49)
{
Left=100
Top=30
Width=42
Height=17
Caption="Объект"
}
Add(ComboBox,8538213,343,98)
{
Left=165
Top=50
Width=65
Height=21
Strings=#8:в Москве|11:в Ярославле|7:в Твери|8:в Самаре|0:|
Text=""
link(onClick,6560988:doWork2,[(382,111)(382,153)])
}
Add(Label,6789611,343,49)
{
Left=170
Top=30
Width=36
Height=17
Caption="Место"
}
Add(Edit,10668493,308,182)
{
Left=10
Top=90
Width=275
Text=""
}
Add(FormatStr,3195529,238,189)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,10668493:doText2,[])
link(Str1,16024458:String,[])
link(Str2,10017811:String,[(251,138)(300,138)])
link(Str3,8538213:String,[(258,145)(356,145)])
}
Add(HubEx,6560988,322,147)
{
Angle=2
link(onEvent,16050605:doWork2,[])
}
Add(HubEx,16050605,273,147)
{
Angle=2
link(onEvent,3195529:doString,[(228,153)(228,195)])
}
END_SDK

карма: 15

1
Голосовали:Serascer
Ответов: 109
Рейтинг: 0
#5: 2021-03-16 17:36:41 ЛС | профиль | цитата
Gunta писал(а):
Serascer писал(а):
как мне сделать несколько вкладок в программе?

Смотри вкладку error.



|
Большое спасибо! )
карма: 1

0
Ответов: 109
Рейтинг: 0
#6: 2021-03-16 22:16:55 ЛС | профиль | цитата
Помогите еще раз пожалуйста )
Как сделать перенос слов на следующую строк? Сейчас при формировании описания, если оно не влезает в Поле ввода, то конец не виден.

P.S. Разобрался )

Редактировалось 1 раз(а), последний 2021-03-16 22:30:55
карма: 1

0
Ответов: 109
Рейтинг: 0
#7: 2021-03-17 20:10:18 ЛС | профиль | цитата
Я закончил ) Вдруг кому надо )
В элементах Выпадающий список прописаны пути к файлам где списки строк. В соответствующих дочерних формах они должны быть одинаковыми, учтите.
Можно было бы сделать все через базу данных, но мне для работы проще использовать текстовые файлы, да и разбираться в этом не хочется )
не знаю как вставить файл или код полностью, выложил в облако себе.
https://cloud.mail.ru/public/G2i8/yzSjdy2FG

Редактировалось 1 раз(а), последний 2021-03-17 20:12:35
карма: 1

0
Ответов: 109
Рейтинг: 0
#8: 2021-03-18 22:08:11 ЛС | профиль | цитата
Эм. Возникла проблема )) Помогите еще раз пожалуйста. Если сформировать в программе описание, скопировать текст и вставить в блокнот или на сайт, то часть русского текста иероглифами получается. Не весь, а именно часть ) А если открыть текстовый файл со строками и исправить там текст, то в самой программе вместо русских букв ????? стоит. Понимаю, что дело в кодировке, но не пойму в чем именно проблема и как исправить (
карма: 1

0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)