Вверх ↑
Ответов: 2059
Рейтинг: 132
#1: 2019-02-03 19:28:22 ЛС | профиль | цитата
Тоже самое,что в соседней теме, только вид с боку.
Полезно для самообразования.
Попробовал скрестить ужа с ежом.
Получил
метр колючей проволоки.

Add(MainForm,2953706,210,280)
{
Width=732
Height=250
Position=1
Point(onClose)
link(onCreate,10087726:doOpen,[])
link(onClose,10087726:doClose,[])
}
Add(Label,2025180,378,357)
{
Left=10
Top=20
Width=75
Height=125
Font=[Courier New,10,1,0,204]
Caption="Пол\r\n\r\nФамилия\r\n\r\nИмя\r\n\r\nОтчество"
AutoSize=1
Alignment=1
}
Add(ComboBox,8907280,378,294)
{
Left=92
Top=20
Width=150
Height=24
Text=""
ReadOnly=0
Point(Data)
link(onClick,4941119:doEvent1,[])
}
Add(SQLite_DB,10087726,266,294)
{
FileName="fio.db"
link(onOpen,16532295:doQuery,[])
}
Add(SQLite_Query,16532295,329,294)
{
SQL="SELECT "",0;\r\nSELECT name,id FROM pol;"
link(onQuery,8907280:doAdd,[])
link(onColumns,8907280:doClear,[])
}
Add(SQLite_Query,2101194,560,301)
{
link(onQuery,10351482:doWork2,[(628,307)(628,328)])
link(dbHandle,4291069:getVar,[])
}
Add(LineBreakEx,8762477,266,343)
{
Caption="dbH"
Type=3
link(_Data,10087726:dbHandle,[])
}
Add(LineBreakEx,4291069,560,273)
{
Caption="dbH"
Type=2
}
Add(FormatStr,15487924,497,301)
{
Mask="SELECT \r\n CASE %1\r\n when 1 then name||"а" ELSE name END, \r\n id from fam ORDER BY name;"
link(onFString,2101194:doQuery,[])
link(Str1,10938882:Var1,[(503,289)(419,289)])
}
Add(GetDataEx,10938882,413,329)
{
Angle=3
link(Data,8907280:Data,[(398,334)])
}
Add(FormatStr,815444,497,371)
{
Mask="SELECT name, id FROM imv ORDER BY name;"
link(onFString,14729949:doWork2,[])
}
Add(SQLite_Query,11062164,553,371)
{
link(onQuery,10351482:doWork3,[(625,377)(625,335)])
link(dbHandle,10660613:getVar,[])
}
Add(LineBreakEx,10660613,553,343)
{
Caption="dbH"
Type=2
}
Add(Hub,4941119,427,301)
{
OutCount=3
link(onEvent1,15487924:doString,[])
link(onEvent2,9562483:doEvent,[(448,314)(448,370)])
link(onEvent3,9009227:doEvent,[(445,321)(445,454)])
}
Add(IndexToChanel,9562483,455,364)
{
Count=3
Point(Index)
link(onEvent2,815444:doString,[])
link(onEvent3,8860636:doString,[(492,384)(492,419)])
link(Index,10938882:Var3,[(461,334)])
}
Add(FormatStr,8860636,497,413)
{
Mask="SELECT name, id FROM imm ORDER BY name;"
link(onFString,14729949:doWork3,[(543,419)])
}
Add(HubEx,14729949,539,371)
{
link(onEvent,11062164:doQuery,[])
}
Add(SQLite_Query,15852713,553,455)
{
link(onQuery,10351482:doWork4,[(625,461)(625,342)])
link(dbHandle,12275576:getVar,[])
}
Add(LineBreakEx,12275576,553,427)
{
Caption="dbH"
Type=2
}
Add(FormatStr,8289960,490,455)
{
Mask="SELECT case\r\n WHEN substr(name,-1)="й" then substr(name,1, length(name)-1)||"евна" \r\n ELSE name||"овна" END\r\n , id FROM imm ORDER BY name; "
link(onFString,13609745:doWork2,[])
}
Add(IndexToChanel,9009227,448,448)
{
Count=3
Point(Index)
link(onEvent2,8289960:doString,[])
link(onEvent3,7824457:doString,[(485,468)(485,503)])
link(Index,10938882:Var2,[(454,439)(419,439)])
}
Add(HubEx,13609745,532,455)
{
link(onEvent,15852713:doQuery,[])
}
Add(FormatStr,7824457,490,497)
{
Mask="SELECT case\r\n WHEN substr(name,-1)="й" then substr(name,1, length(name)-1)||"евич" \r\n ELSE name||"ович" END\r\n , id FROM imm ORDER BY name; "
link(onFString,13609745:doWork3,[(536,503)])
}
Add(MultiElement,10351482,665,315)
{
link(onEvent1,13177040:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,11981601,14,7)
{
EventCount=1
WorkCount=4
Width=356
Height=235
link(doWork1,14423967:doEvent1,[(32,13)(32,34)])
link(doWork2,5166624:doAdd,[(74,20)(74,111)])
link(doWork3,4345101:doAdd,[(112,27)(112,111)])
link(doWork4,6376137:doAdd,[(150,34)(150,111)])
}
Add(AutoCompleteMaster,5166624,133,98)
{
Strings=#7:Смирнов|6:Иванов|8:Кузнецов|5:Попов|7:Соколов|7:Лебедев|6:Козлов|7:Новиков|7:Морозов|6:Петров|6:Волков|8:Соловьев|8:Васильев|6:Зайцев|6:Павлов|7:Семенов|7:Голубев|10:Виноградов|8:Богданов|8:Воробьев|7:Федоров|8:Михайлов|6:Беляев|7:Тарасов|5:Белов|7:Комаров|5:Орлов|7:Киселев|7:Макаров|7:Андреев|7:Ковалев|5:Ильин|5:Гусев|5:Титов|7:Кузьмин|9:Кудрявцев|7:Баранов|7:Куликов|8:Алексеев|8:Степанов|7:Яковлев|7:Сорокин|7:Сергеев|7:Романов|7:Захаров|7:Борисов|7:Королев|9:Герасимов|9:Пономарев|9:Григорьев|7:Лазарев|8:Медведев|5:Ершов|7:Никитин|7:Соболев|5:Рябов|7:Поляков|7:Цветков|7:Данилов|5:Жуков|6:Фролов|8:Журавлев|8:Николаев|6:Крылов|8:Максимов|7:Сидоров|6:Осипов|8:Белоусов|7:Федотов|8:Дорофеев|6:Егоров|7:Матвеев|6:Бобров|8:Дмитриев|7:Калинин|8:Анисимов|7:Петухов|7:Антонов|8:Тимофеев|9:Никифоров|7:Веселов|8:Филиппов|6:Марков|9:Большаков|7:Суханов|7:Миронов|6:Ширяев|11:Александров|9:Коновалов|8:Шестаков|7:Казаков|6:Ефимов|7:Денисов|6:Громов|5:Фомин|7:Давыдов|9:Мельников|8:Щербаков|6:Блинов|10:Колесников|6:Карпов|9:Афанасьев|6:Власов|6:Маслов|6:Исаков|7:Тихонов|7:Аксенов|8:Гаврилов|8:Родионов|5:Котов|8:Горбунов|8:Кудряшов|5:Быков|4:Зуев|9:Третьяков|8:Савельев|5:Панов|7:Рыбаков|7:Суворов|7:Абрамов|7:Воронов|5:Мухин|7:Архипов|8:Трофимов|8:Мартынов|9:Емельянов|7:Горшков|6:Чернов|10:Овчинников|8:Селезнев|8:Панфилов|7:Копылов|6:Михеев|6:Галкин|7:Назаров|7:Лобанов|5:Лукин|7:Беляков|7:Потапов|8:Некрасов|6:Хохлов|6:Жданов|6:Наумов|5:Шилов|8:Воронцов|7:Ермаков|7:Дроздов|8:Игнатьев|5:Савин|7:Логинов|7:Сафонов|8:Капустин|8:Кириллов|7:Моисеев|7:Елисеев|7:Кошелев|6:Костин|8:Горбачев|6:Орехов|7:Ефремов|5:Исаев|9:Евдокимов|10:Калашников|7:Кабанов|6:Носков|4:Юдин|7:Кулагин|5:Лапин|8:Прохоров|8:Нестеров|9:Харитонов|8:Агафонов|8:Муравьев|8:Ларионов|8:Федосеев|5:Зимин|7:Пахомов|5:Шубин|7:Игнатов|7:Филатов|6:Крюков|5:Рогов|7:Кулаков|9:Терентьев|8:Молчанов|10:Владимиров|8:Артемьев|6:Гурьев|8:Зиновьев|6:Гришин|7:Кононов|9:Дементьев|8:Ситников|7:Симонов|5:Мишин|6:Фадеев|10:Комиссаров|8:Мамонтов|5:Носов|6:Гуляев|5:Шаров|7:Устинов|8:Вишняков|16:ЕвсеевЛаврентьев|6:Брагин|12:Константинов|8:Корнилов|6:Авдеев|5:Зыков|7:Бирюков|7:Шарапов|7:Никонов|5:Щукин|7:Дьячков|7:Одинцов|7:Сазонов|6:Якушев|12:Красильников|7:Гордеев|8:Самойлов|6:Князев|8:Беспалов|6:Уваров|6:Шашков|7:Бобылев|7:Доронин|9:Белозеров|6:Рожков|8:Самсонов|8:Мясников|7:Лихачев|5:Буров|6:Сысоев|7:Фомичев|7:Русаков|8:Стрелков|5:Гущин|7:Тетерин|7:Колобов|8:Субботин|5:Фокин|6:Блохин|11:Селиверстов|6:Пестов|10:Кондратьев|5:Силин|8:Меркушев|6:Лыткин|5:Туров|
MasterName="ф"
FileName="фамилии.txt"
Point(onEnter)
Point(Idx)
Point(Idn)
Point(Text)
Point(onEnterEx)
Point(doSetTextByIndex)
Point(doAdd)
link(onEnter,2688302:doWork1,[(179,104)])
link(onEnterEx,2688302:doWork2,[])
}
Add(FormatStr,16563880,133,147)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,10884456:doWork2,[(186,153)(186,13)])
link(Str1,5166624:Idx,[])
link(Str2,5166624:Idn,[])
link(Str3,5166624:Text,[])
}
Add(AutoCompleteMaster,4345101,210,98)
{
Strings=#1:А|7:Авдотья|4:Аким|7:Аксинья|5:Алёна|8:Алевтина|9:Александр|10:Александра|7:Алексей|5:Алина|4:Алла|9:Анастасия|8:Анатолий|8:Ангелина|6:Андрей|6:Анисья|4:Анна|5:Антон|8:Антонина|5:Анфим|6:Анфиса|11:Аполлинария|5:Арина|7:Аркадий|7:Арсений|5:Артём|7:Артемий|1:Б|6:Богдан|7:Богдана|5:Борис|8:Борислав|1:В|5:Вадим|8:Валентин|9:Валентина|7:Валерий|7:Валерия|7:Варвара|7:Василий|8:Василиса|6:Венера|4:Вера|4:Вета|6:Виктор|9:Викторина|8:Виктория|6:Вилена|8:Виолетта|7:Виталий|8:Виталина|9:(Виталия)|5:Влада|7:Владана|8:Владимир|9:Владислав|10:Владислава|7:Владлен|4:Влас|8:Всеволод|8:Вячеслав|1:Г|7:Гавриил|6:Галина|8:Геннадий|7:Георгий|7:Герасим|4:Глеб|6:Гордей|8:Григорий|1:Д|5:Дамир|6:Даниил|8:Данислав|5:Дарья|5:Денис|7:Джереми|9:(Иеремия)|4:Дина|7:Дмитрий|7:Домника|1:Е|7:Евгений|7:Евгения|7:Евдоким|7:Евдокия|8:Евстахий|4:Егор|9:Екатерина|5:Елена|9:Елизавета|6:Елисей|7:Емельян|6:Еремей|6:Есения|4:Ефим|1:З|5:Захар|7:Зинаида|7:Зиновий|5:Злата|3:Зоя|1:И|4:Иван|5:Игнат|7:Игнатий|5:Игорь|7:Иероним|8:(Джером)|8:Изабелла|8:Иллирика|4:Илья|6:Инесса|4:Инна|10:Иннокентий|6:Иоанна|3:Ира|6:Ираида|5:Ирина|5:Искра|2:Ия|1:К|6:Карина|4:Кира|6:Кирилл|4:Клим|10:Константин|8:Кристина|6:Ксения|6:Кузьма|1:Л|4:Лада|4:Лара|6:Лариса|3:Лев|6:Леонид|4:Лера|5:Лидия|4:Лика|7:Лукерья|6:Любовь|7:Людмила|4:Ляля|1:М|9:Магдалeна|4:Майя|5:Макар|7:Макарий|7:Макария|6:Максим|9:Маргарита|6:Марина|5:Мария|4:Марк|6:Мартин|8:(Мартын)|5:Марфа|6:Матвей|4:Мила|6:Милада|6:Милана|6:Милена|6:Милица|4:Мира|8:Мирослав|9:Мирослава|5:Мирра|6:Михаил|1:Н|7:Надежда|7:Наталья|5:Нелли|4:Ника|6:Никита|7:Никодим|6:Никола|7:Николай|4:Нина|6:Нинель|1:О|6:Оксана|9:Октябрина|4:Олег|5:Олеся|5:Ольга|4:Осип|7:(Иосиф)|5:Остап|1:П|4:Пётр|5:Павел|7:Павлина|7:Пелагея|6:Платон|9:Платонида|6:Полина|5:Потап|9:Прасковья|6:Прохор|1:Р|4:Рада|5:Радий|5:Радик|7:Радомир|8:Радослав|5:Раиса|6:Рената|5:Римма|5:Ринат|7:(Ренат)|6:Родион|5:Роман|9:Ростислав|8:Русалина|6:Руслан|1:С|6:Сабина|5:Савва|7:Савелий|8:Светлана|9:Святослав|9:Севастьян|5:Семён|8:Серафима|6:Сергей|5:Сидор|4:Соня|5:Софья|7:Спартак|9:Станислав|6:Стелла|6:Степан|1:Т|6:Таисия|5:Тарас|7:Татьяна|5:Таяна|7:Тимофей|5:Тихон|6:Трофим|1:У|6:Ульяна|7:Устинья|1:Ф|5:Фёдор|5:Фаина|5:Федот|6:Филипп|4:Флор|4:Фома|1:Х|7:Харитон|1:Ц|7:Цветана|1:Ю|5:Юлиан|4:Юлия|4:Юния|4:Юрий|1:Я|4:Яков|3:Яна|5:Янина|5:Ярина|7:Ярослав|8:Ярослава|
MasterName="и"
FileName="имена.txt"
Point(onEnter)
Point(Idx)
Point(Idn)
Point(Text)
Point(onEnterEx)
Point(doSetTextByIndex)
Point(doAdd)
link(onEnter,8147570:doWork1,[(256,104)])
link(onEnterEx,8147570:doWork2,[])
}
Add(FormatStr,8713230,210,147)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,10884456:doWork3,[(263,153)])
link(Str1,4345101:Idx,[])
link(Str2,4345101:Idn,[])
link(Str3,4345101:Text,[])
}
Add(AutoCompleteMaster,6376137,287,98)
{
Strings=#13:Александрович|10:Алексеевич|11:Анатольевич|9:Андреевич|9:Антонович|10:Аркадьевич|9:Артемович|10:Бедросович|10:Богданович|9:Борисович|12:Валентинович|10:Валерьевич|10:Васильевич|10:Викторович|10:Витальевич|12:Владимирович|13:Владиславович|9:Вольфович|12:Вячеславович|11:Геннадиевич|10:Георгиевич|11:Григорьевич|9:Данилович|9:Денисович|10:Дмитриевич|10:Евгеньевич|8:Егорович|8:Ефимович|8:Иванович|6:Иваныч|10:Игнатьевич|8:Игоревич|5:Ильич|9:Иосифович|9:Исаакович|10:Кириллович|14:Константинович|10:Леонидович|7:Львович|10:Максимович|9:Матвеевич|10:Михайлович|10:Николаевич|8:Олегович|8:Павлович|5:Палыч|8:Петрович|10:Платонович|10:Робертович|9:Романович|5:Саныч|11:Северинович|9:Семенович|9:Сергеевич|13:Станиславович|10:Степанович|9:Тарасович|10:Тимофеевич|9:Федорович|10:Феликсович|10:Филиппович|10:Эдуардович|7:Юрьевич|9:Яковлевич|11:Ярославович|
MasterName="о"
FileName="отчества.txt"
Point(onEnter)
Point(Idx)
Point(Idn)
Point(Text)
Point(onEnterEx)
Point(doSetTextByIndex)
Point(doAdd)
link(onEnter,5762920:doWork1,[(330,104)])
link(onEnterEx,5762920:doWork2,[])
}
Add(FormatStr,4402929,287,147)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,13634926:doWork3,[(340,153)])
link(Str1,6376137:Idx,[])
link(Str2,6376137:Idn,[])
link(Str3,6376137:Text,[])
}
Add(HubEx,2688302,175,105)
{
Angle=1
link(onEvent,16563880:doString,[(179,140)(120,140)(120,153)])
}
Add(HubEx,8147570,252,105)
{
Angle=1
link(onEvent,8713230:doString,[(256,138)(195,138)(195,153)])
}
Add(HubEx,5762920,326,105)
{
Angle=1
link(onEvent,4402929:doString,[(330,139)(275,139)(275,153)])
}
Add(HubEx,10884456,259,7)
{
link(onEvent,13634926:doWork2,[])
}
Add(HubEx,13634926,336,7)
{
link(onEvent,11981601:onEvent1,[])
}
Add(Hub,14423967,49,28)
{
OutCount=3
link(onEvent1,6376137:doSetTextByIndex,[(275,34)(275,104)])
link(onEvent2,4345101:doSetTextByIndex,[(197,41)(197,104)])
link(onEvent3,5166624:doSetTextByIndex,[(120,48)(120,104)])
}
END_SDK
Add(Edit,10612044,303,178)
{
Left=125
Top=55
Width=100
TabOrder=2
Text=""
Point(onMouseDown)
Point(Handle)
}
Add(Edit,16696011,352,178)
{
Left=125
Top=100
Width=100
TabOrder=3
Text=""
Point(Handle)
}
Add(Edit,8785993,401,178)
{
Left=125
Top=145
Width=100
TabOrder=4
Text=""
Point(onDblClick)
Point(Handle)
}
Add(AutoCompleteSlave,4125448,310,227)
{
MasterName="ф"
Index=1
IdName="Фамилия -"
link(Handle,10612044:Handle,[])
}
Add(AutoCompleteSlave,7861800,359,227)
{
MasterName="и"
Index=2
IdName="Имя -"
link(Handle,16696011:Handle,[])
}
Add(AutoCompleteSlave,2938718,408,227)
{
MasterName="о"
Index=3
IdName="Отчество -"
link(Handle,8785993:Handle,[])
}
Add(Memo,13177040,764,315)
{
Left=285
Top=20
Width=360
Height=160
TabOrder=1
ScrollBars=3
}
Add(Button,16700613,561,219)
{
Left=15
Top=185
Width=150
TabOrder=5
Caption="Очистить поля"
Data=Integer(-1)
Point(Handle)
link(onClick,10351482:doWork1,[(629,225)(629,321)])
}
База та-же.

Беда с форумом, ничего не работает!
карма: 6

0
Редактировалось 3 раз(а), последний 2019-02-03 20:15:05