HiAsm
HiAsm
Вверх ↑
ФорумыСхемыДля тех кто работает с базами данных. ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#1: 2019-02-03 17:44:56 ЛС | профиль | цитата
Ввод Ф.И.О.
Используя возможности ComboBox.EditText нетрудно организовать
1. Добавление
2. Фильтрацию по первой букве
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1fiobd.rar [7.9KB] [522]
Ответов: 2059
Рейтинг: 132
#2: 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)])
}
База та-же.

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

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

0
Ответов: 5227
Рейтинг: 587
#3: 2019-02-03 20:39:45 ЛС | профиль | цитата
НИКОЛАЙ НЕКРАСОВ писал(а):

Однажды, в студёную зимнюю пору
Я из лесу вышел; был сильный мороз.
Гляжу, поднимается медленно в гору
Лошадка, везущая хворосту воз.
И, шествуя важно, в спокойствии чинном,
Лошадку ведёт под уздцы мужичок
В больших сапогах, в полушубке овчинном,
В больших рукавицах... а сам с ноготок!
«Здорово, парнище!» — «Ступай себе мимо!» —
«Уж больно ты грозен, как я погляжу!
Откуда дровишки?» — «Из лесу, вестимо,
Отец, слышишь, рубит, а я отвожу».
(В лесу раздавался топор дровосека.) —
«А что, у отца-то большая семья?» —
«Семья-то большая, да два человека
Всего мужиков-то: отец мой да я...» —
«Так вон оно что! А как звать тебя?» — «Власом». —
«А кой тебе годик?» — «Шестой миновал...
Ну, мёртвая!» — крикнул малюточка басом,
Рванул под уздцы и быстрей зашагал...
На эту картину так солнце светило,
Ребёнок был так уморительно мал,
Как будто всё это картонное было,
Как будто бы в детский театр я попал.
Но мальчик был мальчик живой, настоящий,
И дровни, и хворост, и пегонький конь,
И снег до окошек деревни лежащий,
И зимнего солнца холодный огонь —
Всё, всё настоящее русское было,
С клеймом нелюдимой, мертвящей зимы,
Что русской душе так мучительно мило,
Что русские мысли вселяет в умы, —
Те честные мысли, которым нет доли,
Которым нет смерти — . . . . . . . .
В которых так много и злобы и боли,
‎В которых так много любви!


Tad, от души, это не флуд а просто поэзия
2.1.3. Запрещены флуд, оффтоп, некропостинг, оверквотинг, чрезмерное использование любых слов, символов и bb-code для выделения своих сообщений.

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2059
Рейтинг: 132
#4: 2019-02-03 22:22:00 ЛС | профиль | цитата
Ну думаю началось!
Ну вот зачем Некрасов?
Оно надо?
Всем шлея под хвост попала.
Похоже, что уже здесь ничего хорошего не будет.

P.S.
Tad показал что подобные задачи можно решать инструментарием баз.
Я показал, что два способа могут сосуществовать дополняя друг друга.

Ей богу, патология какая-то!

Редактировалось 2 раз(а), последний 2019-02-03 23:33:31
карма: 6

0
4
ФорумыСхемыДля тех кто работает с базами данных. ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика