Вверх ↑
Этот топик читают: Гость
Ответов: 85
Рейтинг: 0
#1: 2017-10-27 06:12:25 ЛС | профиль | цитата

Make(delphi)
ver(4.05 build 186)
Add(MainForm,7194982,483,420)
{
Width=616
Height=441
Point(onClose)
link(onCreate,7377209:doOpen,[])
link(onClose,7377209:doClose,[])
}
Add(Edit,6135272,504,266)
{
Left=180
Top=45
Text=""
}
Add(Edit,9263952,567,266)
{
Left=275
Top=45
Text=""
}
Add(Edit,11820544,644,266)
{
Left=370
Top=45
Text=""
}
Add(StringTableMT,6358939,784,343)
{
Left=65
Top=80
Width=475
Height=250
Columns=#5:rid=0|10:Date=90==2|12:nuber1=90==2|12:nuber2=90==2|12:nuber3=90==2|
StrDelimiter="\9"
TabGrid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
AutoTblStrLst=0
Point(doMT_Add)
Point(Strings)
link(onClick,6185485:doSplit,[])
}
Add(Button,10230466,245,175)
{
Left=475
Top=45
Width=65
Caption="Добавить"
link(onClick,9970:doEvent1,[])
}
Add(DS_SQLite,7377209,560,434)
{
Name="db1"
FileName="C:\\test.db"
WaitClose=0
Point(onError)
link(onOpen,15046218:doEvent1,[])
}
Add(DSC_Query,4821829,707,378)
{
SQL="SELECT rowid,* FROM table1 ORDER BY rowid DESC;"
DSManager="db1"
link(onQuery,6358939:doMT_Add,[])
}
Add(DSC_Exec,10923020,651,434)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (Date TEXT, nuber1 TEXT, nuber2 TEXT, nuber3 TEXT);"
DSManager="db1"
}
Add(DSC_Exec,15737299,602,371)
{
DSManager="db1"
link(onExec,13786616:doEvent1,[])
}
Add(FormatStr,9133225,560,371)
{
DataCount=4
Mask="INSERT INTO table1 VALUES ('%1', '%2', '%3', '%4')"
link(onFString,15737299:doExec,[])
link(Str1,1427951:Result,[(566,359)(458,359)(458,387)(349,387)])
link(Str2,6135272:Text,[(573,335)(510,335)])
link(Str3,9263952:Text,[(580,335)(573,335)])
link(Str4,11820544:Text,[(587,335)(650,335)])
}
Add(Hub,15046218,609,434)
{
link(onEvent1,10923020:doExec,[])
link(onEvent2,13786616:doEvent2,[(644,447)(644,384)])
}
Add(Hub,13786616,665,371)
{
InCount=3
link(onEvent1,6358939:doClear,[(770,377)(770,356)])
link(onEvent2,4821829:doQuery,[])
}
Add(Hub,9970,301,175)
{
OutCount=5
link(onEvent1,9133225:doString,[(427,181)(427,377)])
link(onEvent2,14558761:doSetDate,[(332,188)(332,342)])
link(onEvent3,6135272:doText2,[(399,195)(399,279)])
link(onEvent4,9263952:doText2,[(430,202)(430,279)])
link(onEvent5,11820544:doText2,[(469,209)(469,279)])
}
Add(StrPart,6185485,847,343)
{
Char="\9"
link(onPart,8798942:doString,[])
link(Str,6358939:Select,[(853,331)(825,331)(825,400)(797,400)])
}
Add(DSC_Exec,12012279,945,350)
{
DSManager="db1"
link(onExec,13786616:doEvent3,[(990,356)(990,416)(653,416)(653,391)])
}
Add(FormatStr,8798942,896,350)
{
DataCount=1
Mask="DELETE FROM table1 WHERE rowid=%1;"
link(onFString,12012279:doExec,[])
}
Add(DatePicker,14558761,245,336)
{
Left=70
Top=45
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,1427951:doConvert,[(272,342)(272,349)])
}
Add(DateConvertor,1427951,343,343)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(Data,14558761:DateTime,[(349,331)(300,331)(300,380)(251,380)])
}
Add(DatePicker,15467716,294,511)
{
Left=295
Top=360
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,7553719:doConvert,[(321,517)(321,524)])
}
Add(DateConvertor,7553719,392,518)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(Data,15467716:DateTime,[(398,506)(349,506)(349,555)(300,555)])
}
Add(Button,10992761,294,567)
{
Left=400
Top=360
Width=105
Caption="поиск по дате"
}

Конкретно, я не врубаюсь, как сформировать запрос на выборку по дате, используя выпадающий календарь . Помогите или направьте в нужное русло. Спросил в соседней ветке ответа не последовало, скорее всего не правильно сформулировал вопрос.
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2017-10-27 07:28:11 ЛС | профиль | цитата
RT9U писал(а):
Помогите или направьте в нужное русло.

http://www.sqlite.org/lang_datefunc.html
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#3: 2017-10-27 15:21:19 ЛС | профиль | цитата


Add(DatePicker,15467716,224,476)
{
Left=295
Top=360
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,7553719:doConvert,[])
}
Add(DateConvertor,7553719,322,476)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(onResult,886002:doString,[])
link(Data,15467716:DateTime,[(328,464)(278,464)(278,518)(230,518)])
}
Add(DSC_Query,15994421,448,476)
{
DSManager="db1"
}
Add(FormatStr,886002,385,476)
{
Mask="SELECT rowid,* FROM table1 WHERE Date='%1';"
link(onFString,15994421:doQuery,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#4: 2017-10-27 15:58:21 ЛС | профиль | цитата
Tad, спасибо!!, буду пробовать прикрутить к своей тестовой таблице. я подобный запрос уже пробовал - не получилось. наверное где то ошибся..
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2017-10-27 17:21:56 ЛС | профиль | цитата
RT9U писал(а):
я подобный запрос уже пробовал - не получилось.

Возможно виновато твоё:
CREATE TABLE IF NOT EXISTS table1 (Date TEXT, nuber1 TEXT, nuber2 TEXT, nuber3 TEXT);
Date - зарезервированное слово.
Попробуй назвать по-другому.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#6: 2017-10-28 11:15:51 ЛС | профиль | цитата
Опять пробую разобраться в пакете.
Не могу понять как сделать коммутацию запросов.

Пробовал combox прикрутить- не получается .
помогите желательно по проще, чтоб я понял. Не нашел элемента который бы коммутировал поток на входе doMT_ADD


Make(delphi)
ver(4.05 build 186)
Add(MainForm,7194982,455,602)
{
Width=990
Height=907
Point(onClose)
link(onCreate,7377209:doOpen,[])
link(onClose,7377209:doClose,[])
}
Add(Edit,6135272,490,448)
{
Left=180
Top=50
TabOrder=1
Text=""
}
Add(Edit,9263952,539,448)
{
Left=240
Top=50
TabOrder=2
Text=""
}
Add(Edit,11820544,616,448)
{
Left=305
Top=50
TabOrder=3
Text=""
}
Add(StringTableMT,6358939,791,525)
{
Left=65
Top=80
Width=400
Height=250
TabOrder=5
Columns=#5:rid=0|10:Date=90==2|12:nuber1=90==2|12:nuber2=90==2|12:nuber3=90==2|
StrDelimiter="\9"
TabGrid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
AutoTblStrLst=0
Point(doMT_Add)
Point(Strings)
Point(onMouseDown)
Point(doSelEndStr)
Point(doGetStrList)
link(onMouseDown,11170313:doEvent,[])
}
Add(Button,10230466,357,413)
{
Left=365
Top=50
Width=65
Caption="Добавить"
link(onClick,9970:doEvent1,[])
}
Add(DS_SQLite,7377209,532,616)
{
Name="db1"
FileName="C://test.db"
WaitClose=0
Point(onError)
link(onOpen,15046218:doEvent1,[])
}
Add(DSC_Query,4821829,784,721)
{
DSManager="db1"
link(onQuery,6358939:doMT_Add,[(828,727)(828,647)(779,647)(779,566)])
}
Add(DSC_Exec,10923020,623,616)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (Date TEXT, nuber1 TEXT, nuber2 TEXT, nuber3 TEXT);"
DSManager="db1"
}
Add(DSC_Exec,15737299,574,553)
{
DSManager="db1"
link(onExec,13786616:doEvent1,[])
}
Add(FormatStr,9133225,532,553)
{
DataCount=4
Mask="INSERT INTO table1 VALUES ('%1', '%2', '%3', '%4')"
link(onFString,15737299:doExec,[])
link(Str1,1427951:Result,[(538,531)(335,531)])
link(Str2,6135272:Text,[(545,517)(496,517)])
link(Str3,9263952:Text,[(552,517)(545,517)])
link(Str4,11820544:Text,[(559,517)(622,517)])
}
Add(Hub,15046218,581,616)
{
link(onEvent1,10923020:doExec,[])
link(onEvent2,13786616:doEvent2,[(616,629)(616,566)])
}
Add(Hub,13786616,637,553)
{
InCount=3
link(onEvent1,6358939:doClear,[(777,559)(777,538)])
link(onEvent2,10719042:doString,[(663,566)(663,682)(618,682)(618,755)])
}
Add(Hub,9970,406,413)
{
OutCount=4
link(onEvent1,9133225:doString,[(434,419)(434,559)])
link(onEvent2,11820544:doText2,[(601,426)(601,461)])
link(onEvent3,9263952:doText2,[(519,433)(519,461)])
link(onEvent4,6135272:doText2,[(448,440)(448,461)])
}
Add(StrPart,6185485,994,546)
{
Char="\9"
link(onPart,8798942:doString,[])
link(Str,6358939:Select,[(1000,513)(832,513)(832,582)(804,582)])
}
Add(DSC_Exec,12012279,1092,553)
{
DSManager="db1"
link(onExec,13786616:doEvent3,[(1135,559)(1135,592)(632,592)(632,573)])
}
Add(FormatStr,8798942,1043,553)
{
DataCount=1
Mask="DELETE FROM table1 WHERE rowid=%1;"
link(onFString,12012279:doExec,[])
}
Add(IndexToChanel,11170313,840,532)
{
link(onEvent2,9942662:doPopupHere,[])
}
Add(PopupMenu,9942662,889,539)
{
Menu=#18:Отменить удаление.|8:Удалить.|14:Редактировать.|
link(onClick,325605:doEvent,[])
}
Add(IndexToChanel,325605,931,539)
{
Count=3
Data=Integer(0)
link(onEvent2,6185485:doSplit,[])
link(onEvent3,12585790:Method,[(975,559)(975,639)])
}
Add(PointHint,12585790,987,609)
{
Info=#14:Редактирование|
Width=113
Height=60
}
Add(DatePicker,14558761,280,448)
{
Left=75
Top=50
Width=85
Height=21
SetDateOnChange=1
Point(DateTime)
link(onChange,1427951:doConvert,[(321,454)(321,482)])
}
Add(DateConvertor,1427951,329,476)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(Data,14558761:DateTime,[(335,436)(219,436)(219,487)(286,487)])
}
Add(DatePicker,15467716,476,847)
{
Left=265
Top=360
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,7553719:doConvert,[])
}
Add(DateConvertor,7553719,574,847)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(onResult,886002:doString,[(622,853)(622,860)])
link(Data,15467716:DateTime,[(580,835)(530,835)(530,889)(482,889)])
}
Add(FormatStr,886002,637,854)
{
Mask="SELECT rowid,* FROM table1 WHERE Date='%1';"
link(onFString,13285129:doEvent2,[(677,860)(677,832)])
}
Add(ComboBox,12876104,777,791)
{
Left=365
Top=360
Width=85
Height=21
Strings=#13:основная база|13:поиск по дате|
link(onClick,4287698:doIndex,[])
}
Add(ChanelToIndex,9778624,917,784)
{
}
Add(GetIndexData,4287698,840,798)
{
}
Add(Hub,13285129,693,819)
{
InCount=2
OutCount=1
link(onEvent1,4821829:doQuery,[(745,825)(745,727)])
}
Add(FormatStr,10719042,637,749)
{
Mask="SELECT rowid,* FROM table1 ORDER BY rowid DESC;"
link(onFString,13285129:doEvent1,[(674,755)(674,825)])
}

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#7: 2017-10-28 12:55:48 ЛС | профиль | цитата

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#8: 2017-10-28 17:48:59 ЛС | профиль | цитата
Tad, я смотрел этот пример. но он у меня не работает. при запуске выдаёт ошибку. Как мне кажется для начинающих крайне непонятный пример. всё в куче Сегодня уже поздно у нас. Буду грызть завтра
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#9: 2017-10-28 17:54:31 ЛС | профиль | цитата
RT9U писал(а):
при запуске выдаёт ошибку.
?

--- Добавлено в 2017-10-28 18:05:05

RT9U писал(а):
Не могу понять как сделать коммутацию запросов.
При работе с БД можно создать

CREATE TABLE IF NOT EXISTS sql(
[id] INTEGER PRIMARY KEY,
[sSql] TEXT);
и брать их из этой таблицы по id

Редактировалось 1 раз(а), последний 2017-10-28 18:05:05
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#10: 2017-10-29 05:03:34 ЛС | профиль | цитата
Tad, ошибка такая:

по поводу первичных ключей пока слабо понимаю, что это такое. Ведь есть ROWID. Хотя прочитал статейку ROWID и PRIMERY KEY могут отличаться. Короче полный тёмный лес. Ландо потихоньку я думаю осилю...
карма: 0

0
Ответов: 85
Рейтинг: 0
#11: 2017-10-29 07:38:41 ЛС | профиль | цитата
вот, что у меня получается..

Make(delphi)
ver(4.05 build 186)
Add(MainForm,7194982,399,273)
{
Width=990
Height=907
Point(onClose)
link(onCreate,7377209:doOpen,[])
link(onClose,7377209:doClose,[])
}
Add(Edit,6135272,434,119)
{
Left=180
Top=50
TabOrder=1
Text=""
}
Add(Edit,9263952,483,119)
{
Left=240
Top=50
TabOrder=2
Text=""
}
Add(Edit,11820544,560,119)
{
Left=305
Top=50
TabOrder=3
Text=""
}
Add(StringTableMT,6358939,735,196)
{
Left=65
Top=80
Width=400
Height=250
TabOrder=5
Columns=#5:rid=0|10:Date=90==2|12:nuber1=90==2|12:nuber2=90==2|12:nuber3=90==2|
StrDelimiter="\9"
TabGrid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
AutoTblStrLst=0
Point(doMT_Add)
Point(Strings)
Point(onMouseDown)
Point(doSelEndStr)
Point(doGetStrList)
link(onMouseDown,11170313:doEvent,[])
}
Add(Button,10230466,301,84)
{
Left=365
Top=50
Width=65
Caption="Добавить"
link(onClick,9970:doEvent1,[])
}
Add(DS_SQLite,7377209,476,287)
{
Name="db1"
FileName="C://test.db"
WaitClose=0
Point(onError)
link(onOpen,15046218:doEvent1,[])
}
Add(DSC_Query,4821829,749,518)
{
DSManager="db1"
link(onQuery,6358939:doMT_Add,[(786,524)(786,318)(723,318)(723,237)])
link(SQL,4287698:Var,[(755,499)(734,499)])
}
Add(DSC_Exec,10923020,567,287)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (Date TEXT, nuber1 TEXT, nuber2 TEXT, nuber3 TEXT);"
DSManager="db1"
}
Add(DSC_Exec,15737299,518,224)
{
DSManager="db1"
link(onExec,13786616:doEvent1,[])
}
Add(FormatStr,9133225,476,224)
{
DataCount=4
Mask="INSERT INTO table1 VALUES ('%1', '%2', '%3', '%4')"
link(onFString,15737299:doExec,[])
link(Str1,1427951:Result,[(482,202)(279,202)])
link(Str2,6135272:Text,[(489,188)(440,188)])
link(Str3,9263952:Text,[(496,188)(489,188)])
link(Str4,11820544:Text,[(503,188)(566,188)])
}
Add(Hub,15046218,525,287)
{
link(onEvent1,10923020:doExec,[])
link(onEvent2,13786616:doEvent2,[(560,300)(560,237)])
}
Add(Hub,13786616,581,224)
{
InCount=3
link(onEvent1,6358939:doClear,[(721,230)(721,209)])
link(onEvent2,1534372:doString,[(623,237)(623,363)])
}
Add(Hub,9970,350,84)
{
OutCount=4
link(onEvent1,9133225:doString,[(378,90)(378,230)])
link(onEvent2,11820544:doText2,[(545,97)(545,132)])
link(onEvent3,9263952:doText2,[(463,104)(463,132)])
link(onEvent4,6135272:doText2,[(392,111)(392,132)])
}
Add(StrPart,6185485,938,217)
{
Char="\9"
link(onPart,8798942:doString,[])
link(Str,6358939:Select,[(944,184)(776,184)(776,253)(748,253)])
}
Add(DSC_Exec,12012279,1036,224)
{
DSManager="db1"
link(onExec,13786616:doEvent3,[(1079,230)(1079,263)(576,263)(576,244)])
}
Add(FormatStr,8798942,987,224)
{
DataCount=1
Mask="DELETE FROM table1 WHERE rowid=%1;"
link(onFString,12012279:doExec,[])
}
Add(IndexToChanel,11170313,784,203)
{
link(onEvent2,9942662:doPopupHere,[])
}
Add(PopupMenu,9942662,833,210)
{
Menu=#18:Отменить удаление.|8:Удалить.|14:Редактировать.|
link(onClick,325605:doEvent,[])
}
Add(IndexToChanel,325605,875,210)
{
Count=3
Data=Integer(0)
link(onEvent2,6185485:doSplit,[])
link(onEvent3,12585790:Method,[(919,230)(919,310)])
}
Add(PointHint,12585790,931,280)
{
Info=#14:Редактирование|
Width=113
Height=60
}
Add(DatePicker,14558761,224,119)
{
Left=75
Top=50
Width=85
Height=21
SetDateOnChange=1
Point(DateTime)
link(onChange,1427951:doConvert,[(265,125)(265,153)])
}
Add(DateConvertor,1427951,273,147)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(Data,14558761:DateTime,[(279,106)(208,106)(208,158)(230,158)])
}
Add(DatePicker,15467716,854,378)
{
Left=240
Top=360
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,7553719:doConvert,[])
}
Add(DateConvertor,7553719,917,378)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(onResult,886002:doString,[])
link(Data,15467716:DateTime,[(923,359)(910,359)(910,426)(860,426)])
}
Add(FormatStr,886002,980,378)
{
Mask="SELECT rowid,* FROM table1 WHERE Date='%1';"
Point(FString)
link(onFString,7246378:doText,[])
}
Add(ChanelToIndex,9778624,609,448)
{
link(onIndex,4287698:doIndex,[])
}
Add(GetIndexData,4287698,728,448)
{
link(onIndex,4821829:doQuery,[(772,454)(772,489)(716,489)(716,524)])
link(Data1,5868771:Text,[])
link(Data2,7246378:Text,[(741,443)(1049,443)])
}
Add(Edit,5868771,728,357)
{
Left=745
Top=640
Text=""
link(Str,1534372:FString,[(734,345)(696,345)(696,401)(657,401)])
}
Add(Edit,7246378,1043,378)
{
Left=650
Top=725
Text=""
link(Str,886002:FString,[(1049,366)(1017,366)(1017,422)(986,422)])
}
Add(RadioButton,9300976,518,420)
{
Left=345
Top=340
Width=90
Selected=0
Caption="нет поиска"
link(onSelect,9778624:doWork1,[(558,426)(558,454)])
}
Add(RadioButton,9009600,518,476)
{
Left=345
Top=360
Width=105
Caption="поиск по дате"
link(onSelect,9778624:doWork2,[(586,482)(586,461)])
}
Add(FormatStr,1534372,651,357)
{
Mask="SELECT rowid,* FROM table1 ORDER BY rowid DESC;"
Point(FString)
link(onFString,5868771:doText,[])
}

Однако загрузка начальной таблицы из базы не происходит, а вот по дате поиск происходит.
помогите добить, мозг уже взрывается
карма: 0

0
Ответов: 85
Рейтинг: 0
#12: 2017-10-29 09:44:34 ЛС | профиль | цитата
Вроде победил .
Однако не без дёгтя в radioboxе
Не нравятся мне эти радиобоксы. Почему то таблица из БД не встаёт при загрузке, приходится кликать по кнопке "нет поиска". поиск идет нормально вроде как.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,7194982,399,273)
{
Width=990
Height=907
Point(onClose)
link(onCreate,7377209:doOpen,[])
link(onClose,7377209:doClose,[])
}
Add(Edit,6135272,434,119)
{
Left=180
Top=50
TabOrder=1
Text=""
}
Add(Edit,9263952,483,119)
{
Left=240
Top=50
TabOrder=2
Text=""
}
Add(Edit,11820544,560,119)
{
Left=305
Top=50
TabOrder=3
Text=""
}
Add(StringTableMT,6358939,735,196)
{
Left=65
Top=80
Width=400
Height=250
TabOrder=5
Columns=#5:rid=0|10:Date=90==2|12:nuber1=90==2|12:nuber2=90==2|12:nuber3=90==2|
StrDelimiter="\9"
TabGrid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
AutoTblStrLst=0
Point(doMT_Add)
Point(Strings)
Point(onMouseDown)
link(onMouseDown,11170313:doEvent,[])
}
Add(Button,10230466,301,84)
{
Left=365
Top=50
Width=65
Caption="Добавить"
link(onClick,9970:doEvent1,[])
}
Add(DS_SQLite,7377209,476,287)
{
Name="db1"
FileName="C://test.db"
WaitClose=0
Point(onError)
link(onOpen,15046218:doEvent1,[])
}
Add(DSC_Query,4821829,735,518)
{
DSManager="db1"
link(onQuery,6358939:doMT_Add,[(786,524)(786,318)(723,318)(723,237)])
link(SQL,4287698:Var,[])
}
Add(DSC_Exec,10923020,567,287)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (Date TEXT, nuber1 TEXT, nuber2 TEXT, nuber3 TEXT);"
DSManager="db1"
}
Add(DSC_Exec,15737299,518,224)
{
DSManager="db1"
link(onExec,13786616:doEvent1,[])
}
Add(FormatStr,9133225,476,224)
{
DataCount=4
Mask="INSERT INTO table1 VALUES ('%1', '%2', '%3', '%4')"
link(onFString,15737299:doExec,[])
link(Str1,1427951:Result,[(482,202)(279,202)])
link(Str2,6135272:Text,[(489,188)(440,188)])
link(Str3,9263952:Text,[(496,188)(489,188)])
link(Str4,11820544:Text,[(503,188)(566,188)])
}
Add(Hub,15046218,525,287)
{
link(onEvent1,10923020:doExec,[])
link(onEvent2,13786616:doEvent2,[(560,300)(560,237)])
}
Add(Hub,13786616,616,224)
{
InCount=5
link(onEvent1,6358939:doClear,[(721,230)(721,209)])
link(onEvent2,8123897:doWork1,[(648,237)])
}
Add(Hub,9970,350,84)
{
OutCount=4
link(onEvent1,9133225:doString,[(378,90)(378,230)])
link(onEvent2,11820544:doText2,[(545,97)(545,132)])
link(onEvent3,9263952:doText2,[(463,104)(463,132)])
link(onEvent4,6135272:doText2,[(392,111)(392,132)])
}
Add(StrPart,6185485,938,217)
{
Char="\9"
link(onPart,8798942:doString,[])
link(Str,6358939:Select,[(944,184)(776,184)(776,253)(748,253)])
}
Add(DSC_Exec,12012279,1036,224)
{
DSManager="db1"
link(onExec,13786616:doEvent3,[(1079,230)(1079,263)(576,263)(576,244)])
}
Add(FormatStr,8798942,987,224)
{
DataCount=1
Mask="DELETE FROM table1 WHERE rowid=%1;"
link(onFString,12012279:doExec,[])
}
Add(IndexToChanel,11170313,784,203)
{
link(onEvent2,9942662:doPopupHere,[])
}
Add(PopupMenu,9942662,833,210)
{
Menu=#18:Отменить удаление.|8:Удалить.|14:Редактировать.|
link(onClick,325605:doEvent,[])
}
Add(IndexToChanel,325605,875,210)
{
Count=3
Data=Integer(0)
link(onEvent2,6185485:doSplit,[])
}
Add(DatePicker,14558761,224,119)
{
Left=75
Top=50
Width=85
Height=21
SetDateOnChange=1
Point(DateTime)
link(onChange,1427951:doConvert,[(265,125)(265,153)])
}
Add(DateConvertor,1427951,273,147)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(Data,14558761:DateTime,[(279,106)(208,106)(208,158)(230,158)])
}
Add(DatePicker,15467716,854,378)
{
Left=240
Top=360
Width=85
Height=21
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
SetDateOnChange=1
Point(DateTime)
link(onChange,7553719:doConvert,[])
}
Add(DateConvertor,7553719,917,378)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
Point(Result)
link(onResult,886002:doString,[])
link(Data,15467716:DateTime,[(923,359)(910,359)(910,426)(860,426)])
}
Add(FormatStr,886002,980,378)
{
Mask="SELECT rowid,* FROM table1 WHERE Date='%1';"
Point(FString)
link(onFString,7246378:doText,[])
}
Add(ChanelToIndex,9778624,609,448)
{
link(onIndex,5588585:doEvent1,[])
}
Add(GetIndexData,4287698,735,448)
{
link(onIndex,4821829:doQuery,[(779,454)(779,489)(716,489)(716,524)])
link(Data1,5868771:Text,[])
link(Data2,7246378:Text,[(748,443)(1049,443)])
}
Add(Edit,5868771,735,357)
{
Left=745
Top=640
Text=""
Point(onShow)
link(Str,1534372:FString,[(741,345)(703,345)(703,401)(664,401)])
}
Add(Edit,7246378,1043,378)
{
Left=650
Top=725
Text=""
Point(onShow)
link(Str,886002:FString,[(1049,366)(1017,366)(1017,422)(986,422)])
}
Add(RadioButton,9300976,455,427)
{
Left=345
Top=340
Width=90
Selected=0
Caption="нет поиска"
link(onSelect,5828010:doWork2,[(499,433)(499,391)])
}
Add(RadioButton,9009600,455,504)
{
Left=345
Top=360
Width=105
Caption="поиск по дате"
link(onSelect,872526:doEvent1,[(513,510)(513,489)])
}
Add(FormatStr,1534372,658,357)
{
Mask="SELECT rowid,* FROM table1 ORDER BY rowid DESC;"
Point(FString)
link(onFString,5868771:doText2,[(712,363)(712,370)])
}
Add(Hub,5588585,658,448)
{
link(onEvent1,4287698:doIndex,[])
link(onEvent2,67119:doMessage,[(676,461)(676,566)])
}
Add(Message,67119,700,560)
{
}
Add(Hub,7498474,532,385)
{
InCount=2
OutCount=3
link(onEvent1,13786616:doEvent4,[(581,391)(581,251)])
link(onEvent2,8123897:doWork2,[(591,398)(591,363)])
link(onEvent3,9778624:doWork1,[(567,405)(567,454)])
}
Add(HubEx,5828010,518,385)
{
link(onEvent,7498474:doEvent1,[])
}
Add(Hub,872526,532,483)
{
link(onEvent1,13786616:doEvent5,[(581,489)(581,258)])
link(onEvent2,9778624:doWork2,[(578,496)(578,461)])
}
Add(HubEx,8123897,644,357)
{
link(onEvent,1534372:doString,[])
}

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2017-10-29 13:59:37 ЛС | профиль | цитата
RT9U, кончай тренироваться на кошках.
Ставь конкретную задачу.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#14: 2017-10-29 14:59:58 ЛС | профиль | цитата
Tad, личку посмотри.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#15: 2017-11-01 09:05:01 ЛС | профиль | цитата
личку посмотри

Редактировалось 1 раз(а), последний 2017-11-01 09:05:48
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)