Вроде победил  .
Однако не без дёгтя в 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,[])
}
|
. Помогите или направьте в нужное русло. Спросил в соседней ветке ответа не последовало, скорее всего не правильно сформулировал вопрос.
.
Сегодня уже поздно у нас. Буду грызть завтра 
Поиск
Друзья
Администрация