HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуфункционал кнопки ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 85
Рейтинг: 0
#1: 2018-06-11 07:28:49 ЛС | профиль | цитата
пробую сделать функционал кнопки записи в БД. Не получается .
Нужно следующее:
1. в начальный момент времени кнопка неактивна.
2 только при заполнении всех полей ввода она активируется
3. при нажатии на активируемую кнопку, происходит событие для записи в БД и очищаются поля ввода.

Выкладываю что наделал, правда тут 3 поля, в реальном проекте их 13.
Короче нужна помощь или правильное направление для решения.. 

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
 Width=666
 Height=693
}
Add(Button,4573931,490,287)
{
 Left=92
 Top=162
 Width=140
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Сохранить в БД"
 Point(doEnabled)
 link(onClick,15479712:doEvent1,[(527,293)(527,286)])
}
Add(Hub,15479712,532,280)
{
 link(onEvent1,9545359:doWork1,[(558,286)(558,277)(398,277)])
}
Add(Edit,12628318,245,161)
{
 Left=15
 Top=35
 Text=""
}
Add(Edit,561928,294,161)
{
 Left=15
 Top=105
 Text=""
}
Add(ComboBox,10894054,343,147)
{
 Left=15
 Top=160
 Height=21
 Strings=#2:12|2:23|2:34|
 Point(EditText)
}
Add(BitsToInt,7748796,287,287)
{
 Count=3
 link(onNumber,233264:doCompare,[])
 link(Bit1,12628318:Text,[(293,212)(251,212)])
 link(Bit2,561928:Text,[])
 link(Bit3,10894054:EditText,[(307,239)(363,239)])
}
Add(If_else,233264,350,287)
{
 Type=5
 Op2=Integer(7)
 link(onTrue,9545359:doWork3,[(398,293)])
 link(onFalse,15581685:doWork2,[])
}
Add(ChanelToIndex,15581685,427,287)
{
 link(onIndex,4573931:doEnabled,[])
}
Add(HubEx,9545359,394,280)
{
 link(onEvent,15581685:doWork1,[(414,286)(414,293)])
}
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8888
Рейтинг: 823
#2: 2018-06-11 10:00:18 ЛС | профиль | цитата
RT9U, при множественном вводе данных негоже заставлять девочку прыгать с клавиатуры на мышку
Ввод данных


Add(MainForm,487848,308,126)
{
 link(onCreate,15567605:doWork2,[])
}
Add(Button,4573931,497,259)
{
 Left=102
 Top=82
 Width=140
 Font=[MS Sans Serif,8,1,0,1]
 Enabled=1
 Caption="Сохранить в БД"
 Point(doEnabled)
 Point(doSetFocus)
 link(onClick,15479712:doEvent1,[])
}
Add(Hub,15479712,539,259)
{
 OutCount=3
 link(onEvent1,13841795:doString,[])
 link(onEvent2,15581685:doWork1,[(564,272)(564,251)(424,251)(424,265)])
 link(onEvent3,15567605:doWork3,[(571,279)(571,244)(354,244)])
}
Add(Edit,12628318,399,126)
{
 Left=15
 Top=35
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,3405022:doEvent1,[(438,139)(438,146)])
}
Add(Edit,561928,476,126)
{
 Left=80
 Top=35
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,9188035:doEvent1,[(515,139)(515,146)])
}
Add(ComboBox,10894054,686,105)
{
 Left=275
 Top=35
 Height=21
 Strings=#2:12|2:23|2:34|
 Point(EditText)
 Point(doSetFocus)
 Point(onKeyUp)
 link(onKeyUp,11746255:doCompare,[])
}
Add(ChanelToIndex,15581685,434,259)
{
 link(onIndex,4573931:doEnabled,[])
}
Add(Edit,3656102,553,126)
{
 Left=145
 Top=35
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,12507759:doEvent1,[(592,139)(592,146)])
}
Add(Edit,6246287,630,126)
{
 Left=210
 Top=35
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,10894054:doSetFocus,[(672,139)(672,153)])
}
Add(Label,6424068,490,77)
{
 Left=80
 Top=5
 Width=210
 Height=30
 Caption="Ввести данные и нажать Enter\r\nКнопка нажимаеся клавишей "Пауза""
 AutoSize=1
 Alignment=2
}
Add(Hub,3405022,448,140)
{
 link(onEvent1,561928:doSetFocus,[])
 link(onEvent2,561928:doSelectAll,[])
}
Add(Hub,9188035,525,140)
{
 link(onEvent1,3656102:doSetFocus,[])
 link(onEvent2,3656102:doSelectAll,[])
}
Add(Hub,12507759,602,140)
{
 link(onEvent1,6246287:doSetFocus,[])
 link(onEvent2,6246287:doSelectAll,[])
}
Add(If_else,8065869,399,196)
{
 Type=5
 Op2=String()
 link(onTrue,6378386:doCompare,[])
 link(Op1,3068713:Var2,[])
}
Add(If_else,6378386,476,196)
{
 Type=5
 Op2=String()
 link(onTrue,11844015:doCompare,[])
 link(Op1,5981747:Var2,[])
}
Add(If_else,11844015,553,196)
{
 Type=5
 Op2=String()
 link(onTrue,9404438:doCompare,[])
 link(Op1,116600:Var2,[])
}
Add(If_else,9404438,630,196)
{
 Type=5
 Op2=String()
 link(onTrue,10458939:doCompare,[])
 link(Op1,1108513:Var2,[])
}
Add(If_else,10458939,693,196)
{
 Type=5
 Op2=String()
 link(onTrue,6451213:doEvent1,[(732,202)(732,300)(389,300)(389,272)])
 link(Op1,15736809:Var2,[])
}
Add(FormatStr,13841795,588,259)
{
 DataCount=5
 Mask="%1;%2;%3;%4;%5"
 link(onFString,14772827:doText,[])
 link(Str1,3068713:Var3,[(594,187)])
 link(Str2,5981747:Var3,[(601,180)])
 link(Str3,116600:Var3,[(608,173)])
 link(Str4,1108513:Var1,[(615,173)])
 link(Str5,15736809:Var1,[(622,180)])
}
Add(Hub,11866819,364,140)
{
 link(onEvent1,12628318:doSetFocus,[])
 link(onEvent2,12628318:doSelectAll,[])
}
Add(Label,14772827,644,259)
{
 Left=30
 Top=130
 Width=115
}
Add(HubEx,15567605,350,140)
{
 link(onEvent,11866819:doEvent1,[])
}
Add(GetDataEx,3068713,399,182)
{
 link(Data,12628318:Text,[])
}
Add(GetDataEx,5981747,476,175)
{
 link(Data,561928:Text,[])
}
Add(GetDataEx,116600,553,168)
{
 link(Data,3656102:Text,[])
}
Add(GetDataEx,15736809,693,175)
{
 link(Data,10894054:String,[])
}
Add(GetDataEx,1108513,630,168)
{
 link(Data,6246287:Text,[])
}
Add(Hub,6451213,399,266)
{
 link(onEvent1,15581685:doWork2,[])
 link(onEvent2,4573931:doSetFocus,[(473,279)(473,272)])
}
Add(If_else,11746255,735,119)
{
 Op2=Integer(13)
 link(onTrue,8065869:doCompare,[(774,125)(774,167)(389,167)(389,202)])
}
карма: 19

0
Ответов: 85
Рейтинг: 0
#3: 2018-06-11 10:35:50 ЛС | профиль | цитата
Леонид, приветствую!! Действительно работает. Спасибо!! Единственное, что мне не понятно почему стрелки продвинутых GetData направлены в верх, а не вниз. Простос этими хабами я редко работаю. Хочу понять почему?))))
карма: 0

0
Ответов: 8888
Рейтинг: 823
#4: 2018-06-11 14:05:54 ЛС | профиль | цитата
RT9U, потому, что они замещают этот старый элемент для разветвления данных: 

Add(GetData,15418920,343,196)
{
}

, а данные в HiAsm проходят СВЕХУ ВНИЗ, за очень небольшим исключением :-)
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#5: 2018-06-11 16:23:59 ЛС | профиль | цитата
RT9U, http://forum.hiasm.com/topic/59923
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#6: 2018-06-13 05:55:42 ЛС | профиль | цитата
Tad, спасибо, только установить не могу его. При перетаскивании элемента выдает ошибку. Вообще я еще не разу не ставил новые элементы. Прочитал, что делать это можно перетаскиваем файла с раcширением ini в поле HIASMa. Выскакивает окошко пишу записать в Strings, далее ошибка. наверное что-то не так делаю..
карма: 0

0
Ответов: 85
Рейтинг: 0
#7: 2018-06-13 07:30:50 ЛС | профиль | цитата
Куда-то закинул его. вроде заработал элемент, но в списке элементов его не нашел... Лан потом разберусь. Короче мне элемент от Tad, очень понравился. Минус только что при нажатии на кнопку, кнопка не дезактивируется.

Редактировалось 2 раз(а), последний 2018-06-13 07:32:12
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#8: 2018-06-13 08:05:37 ЛС | профиль | цитата
RT9U писал(а):
Минус только что при нажатии на кнопку, кнопка не дезактивируется.
Это уже событие КНОПКИ
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#9: 2018-06-14 14:25:42 ЛС | профиль | цитата
RT9U, а можно и использовать возможности SQL
http://forum.hiasm.com/getfile/38389
при этом условия проверки для разных окон ввода могут быть заданы индивидуально.

Редактировалось 3 раз(а), последний 2018-06-14 19:29:01
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#10: 2018-06-14 17:00:51 ЛС | профиль | цитата

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Проверка.rar [1.7KB] [397]
Ответов: 85
Рейтинг: 0
#11: 2018-07-18 07:10:24 ЛС | профиль | цитата
опять полный компот с кнопками.
в проекте 2 кнопки вверх и вниз.
Задача: при нажатии кнопки и удержании на выходе DoData с периодом появлялась соответствующая этой кнопки стринговая строка. При отпускании ничего не передавалось.
У меня вроде работает, но при нажатии "вверх" выборка стинговой строки происходит нормально, а вот при нажатии кнопки вниз. кнопка подвисает, и реакции на нажание нет. Укажите верное направление Мне надо чтобы чётко работало. Нажал и держишь , идет одна строка. отжал ничего не идет. другую нажал идет другая строка. отжал ничего не идёт 


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(Button,11643805,70,189)
{
 Left=200
 Top=10
 Width=90
 Height=35
 Caption="Вверх"
 RespondToEnter=0
 Point(onMouseDown)
 Point(onMouseUp)
 link(onMouseDown,9186986:doEvent1,[(118,202)(118,188)])
 link(onMouseUp,12590787:doStop,[])
}
Add(Button,2563829,70,273)
{
 Left=200
 Top=60
 Width=90
 Height=35
 Caption="Вниз"
 RespondToEnter=0
 Point(onMouseUp)
 Point(onMouseDown)
 link(onMouseUp,26374:doEvent1,[(121,286)(121,244)])
 link(onMouseDown,14237603:doStop,[(156,293)(156,300)])
}
Add(ChanelToIndex,6346270,329,224)
{
 Count=3
 link(onIndex,7921068:doSelect,[])
}
Add(ListBox,7921068,385,182)
{
 Left=295
 Top=420
 Width=120
 Height=100
 Visible=1
 Strings=#0:|4:@1#2|4:#1@2|0:|0:|
 Point(onSelect)
 Point(doSelect)
 Point(String)
 link(onSelect,8495156:doData,[(429,202)(429,248)(387,248)(387,286)])
}
Add(DoData,8495156,406,280)
{
 link(Data,7921068:String,[])
}
Add(Timer,12590787,224,196)
{
 Interval=200
 Enable=1
 link(onTimer,6346270:doWork2,[(282,202)(282,237)])
}
Add(Timer,14237603,224,287)
{
 Interval=200
 Enable=1
 link(onTimer,6346270:doWork3,[(289,293)(289,244)])
}
Add(Hub,2769430,273,154)
{
 InCount=2
 OutCount=1
 link(onEvent1,6346270:doWork1,[(308,160)(308,230)])
}
Add(Hub,9186986,133,182)
{
 link(onEvent1,12590787:doTimer,[(175,188)(175,202)])
 link(onEvent2,2769430:doEvent1,[(210,195)(210,160)])
}
Add(Hub,26374,133,238)
{
 link(onEvent1,14237603:doTimer,[(175,244)(175,293)])
 link(onEvent2,2769430:doEvent2,[(210,251)(210,167)])
}
карма: 0

0
Ответов: 8888
Рейтинг: 823
#12: 2018-07-18 09:10:03 ЛС | профиль | цитата
RT9U,
Так?


Add(MainForm,12783146,154,154)
{
}
Add(Button,11643805,210,147)
{
 Left=15
 Top=25
 Caption="0"
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onMouseLeave)
 link(onMouseDown,6346270:doWork1,[(279,160)(279,230)])
 link(onMouseUp,3407896:doWork1,[(263,167)])
 link(onMouseLeave,3407896:doWork2,[])
}
Add(Button,2563829,210,189)
{
 Left=15
 Top=50
 Caption="1"
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onMouseLeave)
 link(onMouseDown,6346270:doWork2,[(270,202)(270,237)])
 link(onMouseUp,7168050:doWork2,[])
 link(onMouseLeave,12166258:doWork2,[])
}
Add(ChanelToIndex,6346270,294,224)
{
 Count=4
 link(onIndex,9401376:doEvent1,[])
}
Add(Button,12463846,210,231)
{
 Left=15
 Top=75
 Caption="2"
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onMouseLeave)
 link(onMouseDown,6346270:doWork3,[])
 link(onMouseUp,5444545:doWork2,[])
 link(onMouseLeave,1708585:doWork2,[])
}
Add(Button,3813714,210,273)
{
 Left=15
 Top=100
 Caption="3"
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onMouseLeave)
 link(onMouseDown,6346270:doWork4,[(277,286)(277,251)])
 link(onMouseUp,15045713:doWork2,[])
 link(onMouseLeave,2765454:doWork2,[])
}
Add(StrList,15778116,385,168)
{
 Strings=#3:000|3:111|3:222|3:333|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2945569:doValue,[])
}
Add(Hub,9401376,343,224)
{
 OutCount=3
 link(onEvent1,14064994:doClear,[(473,230)(473,251)])
 link(onEvent2,15778116:doGetString,[(368,237)(368,216)])
 link(onEvent3,13280762:doTimer,[])
}
Add(Memory,2945569,434,175)
{
 link(onData,13367518:doWork1,[(487,181)])
}
Add(DoData,5060269,434,238)
{
 link(onEventData,13367518:doWork2,[])
 link(Data,2945569:Value,[])
}
Add(Timer,13280762,385,238)
{
 Interval=200
 Enable=1
 link(onTimer,5060269:doData,[])
}
Add(Memo,14064994,497,238)
{
 Left=100
 Top=5
 Width=130
 Height=250
}
Add(HubEx,13367518,483,238)
{
 link(onEvent,14064994:doAdd,[])
}
Add(HubEx,2765454,259,294)
{
 link(onEvent,13280762:doStop,[(361,300)(361,251)])
}
Add(HubEx,15045713,259,287)
{
 Angle=1
 link(onEvent,2765454:doWork1,[])
}
Add(HubEx,5444545,259,245)
{
 Angle=1
 link(onEvent,1708585:doWork1,[])
}
Add(HubEx,1708585,259,252)
{
 Angle=1
 link(onEvent,15045713:doWork1,[])
}
Add(HubEx,7168050,259,203)
{
 Angle=1
 link(onEvent,12166258:doWork1,[])
}
Add(HubEx,12166258,259,210)
{
 Angle=1
 link(onEvent,5444545:doWork1,[])
}
Add(HubEx,3407896,259,168)
{
 Angle=1
 link(onEvent,7168050:doWork1,[])
}
карма: 19

0
Ответов: 85
Рейтинг: 0
#13: 2018-07-19 05:38:58 ЛС | профиль | цитата
Леонид, Работает. никогда не пользовался onMouseLeave. Спасибо за науку. Только вот не понимаю, как вытащить строки в сом -порт???
Я взял с точки doAdd блока Memo. Мне кажется это как-то коряво. Хотя и работает.. Еще раз спасибо
карма: 0

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