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)])
}