Вверх ↑
Ответов: 92
Рейтинг: 0
#1: 2018-01-24 12:40:06 ЛС | профиль | цитата
После добавления в схему MST_UseEditCtrl при закрытии программы начало появляться окно с ошибкой:

Exception ExceptionC in module
C:\программа at 00000000
Access violation at address 00000000.Read of address 00000000.


Когда переношу эти два элемента в новую схему после компиляции при закрытии появляется ошибка
runtime error 216 at 000027ba

После того как убираю элемент MST_UseEditCtrl ошибка исчезает.

В чем причина???

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,35,14)
{
Width=1060
Height=547
Color=12632256
Caption="Book"
Position=1
link(onCreate,4362848:doEvent1,[])
}
Add(Menu,126380,147,105)
{
Menu=#4:Файл|1:(|12:Открыть базу|12:Создать базу|12:Экспорт базы|1:-|5:Выход|1:)|8:Редактор|1:(|15:Создать таблицу|21:Переименовать таблицу|15:Удалить таблицу|1:)|
Point(onSelectNum)
link(onSelectNum,2345105:doEvent,[])
}
Add(IndexToChanel,2345105,203,112)
{
Count=18
link(onEvent2,12785880:doWork2,[])
link(onEvent3,8661489:doWork1,[])
link(onEvent6,2953706:doClose,[(247,153)(247,97)(23,97)(23,41)])
link(onEvent8,7187292:In,[(254,167)(254,174)])
link(onEvent9,3168787:In,[(251,174)(251,195)])
link(onEvent10,2431572:In,[(251,181)(251,216)])
}
Add(StyleXP,8902755,1449,14)
{
}
Add(HBoxLayout,233818,1505,14)
{
Name="nem1"
WidthScale=100
HeightScale=100
}
Add(ToolBar,5484123,133,420)
{
Left=30
Top=43
Width=40
Height=330
Color=-16777211
Font=[MS Sans Serif,9,0,16777215,1]
HintManager="Menu1"
Layout="nem4"
HeightScale=100
Buttons=['Add'=[ZIP3610000078DA73F235136000033320D6006205286604934000954706FFFFFF1FC5A37858E1814EDFA3F68FDA4F8EFDC40272F410E3A681B67F34FD0D8DF447285E47ED1F6D5F519A6E07A25C19E9F68FE2513C8A471606006BAFE242],'Open'=[ZIP3610000078DAED56210E833014DD0C096E47985C82E7007388790E80C7345830680C47E05A78340283F8EBFFA149695843B6F5D7F4250F48297DAFED4F79CF577ABB1052C987E47DE395AE12DB7B1DC3304060A02F8EE308D334D1DD7CD679D46EB69DF9D6ECF34FACEB0A01BFA3EF7BC8F37CC7AEEB605916167DD49347E38E711C435DD730CFB3177DDD83EB75F8A4CFE5C1A6CFE101EB0F357C79C0319BA6F1EE01C70E1E8287E0E13B0F986F5CE08C872CCB28DF602671914B6C1E9436F669DB96CE32AEBDD0E7ADCE50AE7A38D2D6EB01D7C2D55EA82C6DFB77244942F9D7158EE6AD1845115455E53423E3D8B8C6A63E6A9765C992DDCC9AE4D4D63D0821C843511456ED378C4F2040]]
Point(doAlign)
link(onClick,11214765:doEvent,[])
}
Add(IndexToChanel,11214765,182,420)
{
Count=6
link(onEvent1,7175532:doWork1,[(324,426)])
link(onEvent5,7175532:doWork2,[])
}
Add(Hub,4362848,91,28)
{
link(onEvent1,12785880:doWork1,[(301,34)(301,118)])
link(onEvent2,89786:doData,[(110,41)(110,237)(58,237)(58,433)])
}
Add(VBoxLayout,12770978,1589,14)
{
Name="Nem2"
Layout="nem1"
}
Add(MultiElementEx,14837064,1036,196)
{
@Hint=#26:Чтение содержимого таблицы|
link(onEvent1,7647794:doWork3,[(1087,202)])
link(onClear,15833769:doAddRow,[])
link(dbHandle,5426466:Var3,[(1042,139)(872,139)(872,227)])
link(Str1,4896060:Var3,[(1049,177)(1049,177)])
}
BEGIN_SDK
Add(EditMultiEx,9691955,3,40)
{
WorkCount=#8:doEvent1|
EventCount=#8:onEvent1|7:onClear|6:onItem|
DataCount=#8:dbHandle|4:Str1|
Width=189
Height=216
link(doEvent1,14363536:doEvent1,[(40,46)(40,48)])
}
Add(Message,11311690,126,210)
{
}
Add(EventFromData,12165874,77,105)
{
link(onEvent,11174548:doString,[(116,111)(116,94)(15,94)(15,111)])
}
Add(MT_Enum,13192474,126,168)
{
link(onItem,9691955:onItem,[(181,174)(181,60)])
}
Add(SQLite_Query,7689105,70,161)
{
link(onQuery,9691955:onClear,[(147,167)(147,53)])
link(onColumns,13192474:doEnum,[])
link(onError,11311690:doMessage,[(114,181)(114,216)])
link(dbHandle,9691955:dbHandle,[(76,147)(9,147)])
link(SQL,12165874:GetData,[])
}
Add(Hub,14363536,77,42)
{
link(onEvent1,9691955:onEvent1,[(141,48)(141,46)])
link(onEvent2,7689105:doQuery,[(118,55)(118,84)(60,84)(60,167)])
}
Add(FormatStr,11174548,21,105)
{
DataCount=1
Mask="select id,color,dat,reiting,description from %1;"
link(onFString,12165874:doData,[])
link(Str1,9691955:Str1,[(27,66)(16,66)])
}
END_SDK
Add(VBoxLayout,933116,1631,14)
{
Name="Name3"
Space=1
WidthScale=100
HeightScale=100
Layout="nem1"
}
Add(VBoxLayout,4121172,1547,14)
{
Name="nem4"
Layout="nem1"
}
Add(ToolBar,6180558,21,532)
{
Left=45
Top=510
Height=50
Layout="nem4"
Buttons=['Delete'=[ZIP3610000078DA73F235136000033320D6006205286604934000954706FFFFFF1FC5A3182F26170CA4DDD472C3A8FD83CB7E72C5A9613F2E3952F450CBFFD4524F4EFC53432DA5E98F5C7543DDFF031DFF84D23FBDC29F18B1D1F277D4FEA16EFF506CF7512B0C46BAFDE4B869B4BF328A49C100FF1251C5]]
link(onClick,242261:doEvent,[])
}
Add(IndexToChanel,242261,70,532)
{
Count=6
}
Add(Memory,7473735,70,378)
{
@Hint=#15:Состояние хоста|
Default=Integer(3)
}
Add(DoData,89786,70,427)
{
link(onEventData,5484123:doDisable,[])
link(Data,7473735:Value,[])
}
Add(HBoxLayout,6215916,1673,14)
{
Name="Name6"
WidthScale=100
Layout="Name3"
}
Add(MultiElement,12785880,504,112)
{
@Hint=#12:Открыть базу|
link(onEvent1,1247631:doCompare,[(569,118)(569,48)])
link(onEvent2,446430:doEvent1,[])
link(onEvent3,12835912:doEvent1,[(551,132)(551,160)])
link(onEvent4,15085619:doWork3,[(683,139)])
}
BEGIN_SDK
Add(EditMulti,7931541,21,21)
{
EventCount=4
WorkCount=3
VarCount=1
Width=986
Height=697
link(doWork1,5838324:doRead,[(291,27)(291,195)])
link(doWork2,3173665:doExecute,[(263,34)(263,230)])
link(doWork3,5465119:doEvent2,[(287,41)(287,321)])
link(Var1,4607395:Var1,[(27,306)])
}
Add(SQLite_DB,11159260,637,259)
{
link(onOpen,11218501:doWork3,[(718,265)])
link(FileName,12084681:Value,[(643,240)(685,240)])
}
Add(Hub,11511944,553,266)
{
InCount=3
OutCount=3
link(onEvent1,11159260:doOpen,[(602,272)(602,265)])
link(onEvent2,5465119:doEvent1,[(585,279)(585,314)])
}
Add(SQLite_Query,4760132,637,322)
{
SQL="select name from sqlite_master where type='table'"
link(onQuery,7931541:onEvent1,[(838,328)(838,27)])
link(dbHandle,4607395:Var2,[])
}
Add(Memory,13855204,637,364)
{
Default=Integer(0)
link(onData,7931541:onEvent3,[(838,370)(838,41)])
}
Add(ODialog,3173665,504,224)
{
Filter="SQLite files(*.db)|*.db"
StartDir=""
FileName=""
link(onExecute,7850340:doEvent1,[])
}
Add(Registry,5838324,560,189)
{
HKey=1
Key="hiasm_prog"
Value="dbname"
link(onRead,3111878:doWork1,[(627,195)])
}
Add(HubEx,3111878,623,203)
{
link(onEvent,12084681:doValue,[(654,209)(654,188)])
}
Add(Hub,7850340,553,224)
{
OutCount=4
link(onEvent1,16707598:doWork2,[])
link(onEvent2,3111878:doWork2,[(607,237)(607,209)])
link(onEvent3,11218501:doWork2,[])
link(onEvent4,11511944:doEvent2,[(595,251)(595,261)(543,261)(543,279)])
}
Add(HubEx,16707598,602,224)
{
link(onEvent,11159260:doClose,[(615,230)(615,272)])
}
Add(HubEx,11218501,714,238)
{
link(onEvent,7931541:onEvent2,[(864,244)(864,34)])
}
Add(Memory,12084681,679,182)
{
@Hint=#15:Состояние хоста|
link(onData,5838324:doWrite,[(734,188)(734,153)(548,153)(548,202)])
}
Add(GetDataEx,4607395,637,301)
{
link(Data,11159260:dbHandle,[])
}
Add(Hub,5465119,602,308)
{
InCount=2
OutCount=3
link(onEvent1,7931541:onEvent4,[(815,314)(815,48)])
link(onEvent2,4760132:doQuery,[(630,321)(630,328)])
link(onEvent3,13855204:doClear,[(626,328)(626,377)])
}
END_SDK
Add(MTStrTbl,3870454,868,308)
{
Left=345
Top=120
Width=382
Height=268
Ctl3D=1
Name="mtst"
Layout="Name3"
WidthScale=100
HeightScale=100
Columns=#5:id=50|8:Дата=100|16:Наименование=100|15:Комментарий=200|
NColorRow=1
ColumnClick=1
ColorItems=0
HeaderDragDrop=0
Grid=0
DrawManager="draw"
Point(onMouseDown)
Point(onDblClick)
link(onColumnClick,10976607:doSort,[(919,321)(919,314)])
link(onMouseDown,5373490:doEvent,[(919,342)(919,356)])
link(onDblClick,15292358:doEvent,[(919,349)(919,405)])
}
Add(MST_DB,15833769,1106,203)
{
MSTControl="mtst"
}
Add(MST_Clear,12587058,1106,140)
{
MSTControl="mtst"
}
Add(Hub,446430,595,119)
{
OutCount=4
link(onEvent1,15085619:doWork2,[])
link(onEvent2,7647794:doWork2,[(791,132)(791,160)])
link(onEvent3,4003005:doWork2,[(651,139)(651,720)])
link(onEvent4,4003005:doWork1,[(638,146)(638,713)])
}
Add(HubEx,7647794,1083,154)
{
Angle=3
link(onEvent,12587058:doClear,[(1087,146)])
}
Add(StrMask,1247631,616,42)
{
Mask="sqlite_sequence"
link(onFalse,6415163:doAdd,[(730,48)(730,76)])
}
Add(ChanelToIndex,8364307,756,707)
{
Count=4
Point(Data)
}
Add(MultiElement,4003005,693,707)
{
link(onEvent1,8364307:doWork1,[])
link(Data1,16462417:Var2,[])
}
BEGIN_SDK
Add(EditMulti,15484145,21,21)
{
EventCount=2
WorkCount=2
DataCount=1
Width=573
Height=501
link(doWork1,8010826:doQuery,[(70,27)(70,125)])
link(doWork2,245503:doData,[(117,34)(117,170)(86,170)(86,307)])
}
Add(SQLite_Query,8010826,119,119)
{
SQL="select seq from sqlite_sequence"
link(onQuery,4574450:doStr,[])
link(dbHandle,15484145:Data1,[(125,70)(27,70)])
}
Add(MT_String,4574450,175,119)
{
link(onResult,16656046:doOperation,[])
}
Add(Math,16656046,238,119)
{
link(onResult,3167:doWork3,[(282,125)(282,97)(233,97)])
link(Op2,4478878:Value,[])
}
Add(Memory,4478878,245,63)
{
@Hint=#15:Состояние хоста|
link(onData,298401:doStrCat,[(299,69)(299,132)])
}
Add(StrCat,298401,322,126)
{
Str1="Всего сайтов: "
link(onStrCat,15484145:onEvent1,[(354,132)(474,132)(474,27)])
link(Str2,16656046:Result,[(335,114)(289,114)(289,163)(244,163)])
}
Add(DoData,245503,98,301)
{
link(onEventData,3167:doWork2,[(180,307)(180,76)])
link(Data,12144983:Value,[])
}
Add(Memory,12144983,98,252)
{
@Hint=#15:Состояние хоста|
}
Add(HubEx,3167,229,70)
{
Angle=3
link(onEvent,4478878:doValue,[(233,69)])
}
END_SDK
Add(GetDataEx,16462417,693,222)
{
Angle=3
link(Data,5382461:Var3,[])
}
Add(ChildFormEx,16224631,1624,378)
{
@Hint=#15:Коротка справка|
link(onClick,7935593:doWork1,[(1682,384)(1682,405)])
link(onEvent2,13298291:In,[(1675,391)(1675,440)])
}
BEGIN_SDK
Add(EditMultiEx,5537328,3,3)
{
WorkCount=#14:doVisible=Help|
EventCount=#7:onClick|8:onEvent2|
VarCount=#4:Text|
DataCount=#8:dbHandle|
Width=573
Height=368
link(doVisible,16025488:doVisible,[(51,9)(51,55)])
link(Text,4559469:Text,[(9,254)(139,254)])
}
Add(MainForm,16025488,98,21)
{
Left=35
Top=105
Width=318
Height=134
Visible=1
Caption="Создать таблицу"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Edit,4559469,133,105)
{
Left=10
Top=40
Layout="creatdb"
WidthScale=100
Text="Database_1"
}
Add(Button,13252006,182,224)
{
Left=10
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Добавить"
link(onClick,7362876:doEvent1,[])
}
Add(Button,8057943,21,203)
{
Left=75
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Отмена"
link(onClick,8459428:doWork3,[(75,209)])
}
Add(VBoxLayout,9619120,371,28)
{
Name="creatdb"
Space=5
Padding=10
}
Add(HBoxLayout,3403492,420,28)
{
Name="creatdb2"
WidthScale=100
Layout="creatdb"
}
Add(Label,3655209,203,21)
{
Left=25
Top=15
Layout="creatdb"
Caption="Имя новой таблицы"
}
Add(Hub,7362876,231,224)
{
OutCount=3
link(onEvent1,5537328:onClick,[(351,230)(351,9)])
link(onEvent2,5537328:onEvent2,[(400,237)(400,16)])
link(onEvent3,8459428:doWork1,[(257,244)(257,69)])
}
Add(HubEx,8459428,71,63)
{
Angle=3
link(onEvent,16025488:doClose,[(75,48)])
}
END_SDK
Add(GetDataEx,15454577,539,222)
{
Angle=3
link(Data,12785880:Var1,[(510,227)])
}
Add(Hub,12835912,707,154)
{
link(onEvent1,6415163:doSelect,[(767,160)(767,118)])
link(onEvent2,13860672:doWork2,[])
}
Add(HubEx,13860672,859,161)
{
Angle=1
link(onEvent,14837064:doEvent1,[(863,202)])
}
Add(HubEx,15085619,679,119)
{
link(onEvent,6415163:doClear,[(749,125)(749,83)])
}
Add(MultiElement,7935593,1764,399)
{
link(Data1,14971607:Var,[])
link(Data2,16224631:Text,[(1777,387)(1686,387)(1686,422)(1630,422)])
}
BEGIN_SDK
Add(EditMulti,7050110,21,21)
{
WorkCount=1
DataCount=2
link(doWork1,1921348:doExec,[(87,27)(87,153)])
}
Add(SQLite_Exec,1921348,154,147)
{
link(dbHandle,7050110:Data1,[(160,84)(27,84)])
link(SQL,2680029:GetData,[])
}
Add(EventFromData,2680029,161,84)
{
link(onEvent,9582977:doString,[(200,90)(200,73)(99,73)(99,90)])
}
Add(FormatStr,9582977,105,84)
{
DataCount=1
Mask="CREATE TABLE %1 (\r\nid INTEGER PRIMARY KEY AUTOINCREMENT NULL,\r\ncolor TEXT NULL,\r\ndat TEXT NULL,\r\nreiting TEXT NULL,\r\ndescription TEXT NULL\r\n);"
link(onFString,2680029:doData,[])
link(Str1,7050110:Data2,[(111,52)(34,52)])
}
END_SDK
Add(FormatStr,13282791,1624,231)
{
DataCount=1
Mask="Вы действительно хотите удалить таблицу %1?"
Point(FString)
link(onFString,9463827:doMessage,[(1668,237)(1668,269)(1612,269)(1612,300)])
link(Str1,6012222:Var2,[])
}
Add(Message,9463827,1624,294)
{
Caption="Удалить таблицу"
Type=1
link(onMessage,11571520:doCompare,[])
link(Message,13282791:FString,[])
}
Add(GetDataEx,4896060,784,172)
{
Angle=3
link(Data,8057104:Var3,[])
}
Add(StrMask,11571520,1666,294)
{
Mask="2"
link(onFalse,11473775:doWork1,[])
}
Add(MultiElement,8661489,280,126)
{
@Hint=#12:Создать базу|
}
BEGIN_SDK
Add(EditMulti,9260860,21,21)
{
WorkCount=1
Width=475
Height=277
link(doWork1,14546571:doExecute,[(53,27)(53,90)])
}
Add(SQLite_Exec,15601423,238,84)
{
SQL="CREATE TABLE DB_1 (\r\nid INTEGER PRIMARY KEY AUTOINCREMENT NULL,\r\ncolor TEXT NULL,\r\ndat TEXT NULL,\r\nreiting TEXT NULL,\r\ndescription TEXT NULL\r\n);"
}
Add(SDialog,14546571,84,84)
{
Filter="SQLite files(*.db)|*.db"
FileName="pentest.db"
link(onExecute,11481450:doOpen,[])
}
Add(SQLite_DB,11481450,147,84)
{
link(onOpen,10334983:doEvent1,[])
}
Add(Hub,10334983,196,84)
{
link(onEvent1,15601423:doExec,[])
link(onEvent2,11481450:doClose,[(221,97)(221,133)(135,133)(135,97)])
}
END_SDK
Add(MultiElement,11473775,1722,294)
{
link(onEvent1,1072548:In,[])
link(Data1,9931914:Var,[])
link(Data2,6012222:Var3,[(1735,215)])
}
BEGIN_SDK
Add(EditMulti,3398037,21,21)
{
EventCount=1
WorkCount=1
DataCount=2
link(doWork1,2281419:doEvent1,[(98,27)(98,132)])
}
Add(SQLite_Exec,10858256,224,126)
{
link(dbHandle,3398037:Data1,[(230,84)(27,84)])
link(SQL,15679369:GetData,[])
}
Add(EventFromData,15679369,231,63)
{
link(onEvent,7297867:doString,[(270,69)(270,52)(169,52)(169,69)])
}
Add(FormatStr,7297867,175,63)
{
DataCount=1
Mask="DROP TABLE %1;"
link(onFString,15679369:doData,[])
link(Str1,3398037:Data2,[(181,52)(34,52)])
}
Add(Hub,2281419,175,126)
{
link(onEvent1,10858256:doExec,[])
link(onEvent2,3398037:onEvent1,[(255,139)(255,27)])
}
END_SDK
Add(GetDataEx,3728650,553,222)
{
Angle=3
link(Data,15454577:Var3,[])
}
Add(HubEx,4221252,462,126)
{
link(onEvent,10340291:doWork2,[])
}
Add(LineBreak,8050175,1547,231)
{
@Hint=#15:Удалить таблицу|
Caption="Delit Tabl"
link(Out,13282791:doString,[])
Primary=[2431572,-1281,-21]
}
Add(LineBreak,9850413,1547,378)
{
Caption="Creat Tabl"
link(Out,16224631:doVisible,[])
Primary=[7187292,-1274,-210]
}
Add(LineBreak,1114200,539,273)
{
Caption="Creat Tabl"
Type=1
link(Data,15454577:Var2,[])
Primary=[14971607,1225,84]
}
Add(LineBreak,5523843,378,126)
{
Caption="Creat Tabl"
link(Out,4221252:doWork2,[])
Primary=[13298291,1316,308]
}
Add(LineBreak,16584445,784,196)
{
Caption="Delit Tabl"
Type=1
link(Data,4896060:Var2,[])
Primary=[8789352,840,-7]
}
Add(LineBreak,5451923,553,245)
{
Caption="Delit Tabl"
Type=1
link(Data,3728650:Var2,[])
Primary=[9931914,1169,21]
}
Add(LineBreak,865607,385,154)
{
Caption="Delit Tabl"
link(Out,4221252:doWork3,[(466,160)])
Primary=[1072548,1386,140]
}
Add(ChildFormEx,5893351,1659,532)
{
@Hint=#15:Коротка справка|
link(onClick,13820772:doWork1,[])
link(onEvent2,16509627:In,[(1707,545)(1707,580)])
link(dbHandle,11308196:Var2,[])
}
BEGIN_SDK
Add(EditMultiEx,1214415,3,3)
{
WorkCount=#14:doVisible=Help|
EventCount=#7:onClick|8:onEvent2|
VarCount=#4:Text|
DataCount=#8:dbHandle|4:Str1|
Width=552
Height=368
link(doVisible,1691967:doEvent1,[(23,9)(23,55)])
link(Text,14394373:Text,[(9,254)(139,254)])
}
Add(MainForm,10146989,98,21)
{
Left=35
Top=105
Width=318
Height=134
Visible=1
Caption="Переименовать таблицу"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Edit,14394373,133,105)
{
Left=10
Top=40
Layout="creatdb"
WidthScale=100
Text="New_name"
}
Add(Button,15879121,182,224)
{
Left=10
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Переименовать"
link(onClick,5542748:doEvent1,[])
}
Add(Button,1501749,21,203)
{
Left=75
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Отмена"
link(onClick,16418378:doWork3,[(75,209)])
}
Add(VBoxLayout,8275739,371,28)
{
Name="creatdb"
Space=5
Padding=10
}
Add(HBoxLayout,2244701,420,28)
{
Name="creatdb2"
WidthScale=100
Layout="creatdb"
}
Add(Label,9894525,245,329)
{
Left=25
Top=15
Layout="creatdb"
Caption="Новое имя таблицы"
}
Add(Hub,5542748,231,224)
{
OutCount=3
link(onEvent1,1214415:onClick,[(351,230)(351,9)])
link(onEvent2,1214415:onEvent2,[(400,237)(400,16)])
link(onEvent3,16418378:doWork1,[(257,244)(257,69)])
}
Add(HubEx,16418378,71,63)
{
Angle=3
link(onEvent,10146989:doClose,[(75,48)])
}
Add(FormatStr,9143972,189,329)
{
DataCount=1
Mask="Новое имя для таблицы %1"
link(onFString,9894525:doText,[])
link(Str1,1214415:dbHandle,[(195,166)(9,166)])
}
Add(Hub,1691967,42,49)
{
link(onEvent1,10146989:doVisible,[])
link(onEvent2,9143972:doString,[(122,62)(122,335)])
}
END_SDK
Add(MultiElement,13820772,1736,532)
{
link(Data1,14803893:Var,[(1742,511)(1756,511)])
link(Data2,11308196:Var3,[(1749,509)])
link(Data3,5893351:Text,[(1756,520)(1704,520)(1704,576)(1665,576)])
}
BEGIN_SDK
Add(EditMulti,14866266,21,21)
{
WorkCount=1
DataCount=3
link(doWork1,2246897:doExec,[(87,27)(87,153)])
}
Add(SQLite_Exec,2246897,154,147)
{
link(dbHandle,14866266:Data1,[(160,84)(27,84)])
link(SQL,956950:GetData,[])
}
Add(EventFromData,956950,161,84)
{
link(onEvent,11959765:doString,[(200,90)(200,73)(99,73)(99,90)])
}
Add(FormatStr,11959765,105,84)
{
Mask="ALTER TABLE %1 RENAME TO %2;"
link(onFString,956950:doData,[])
link(Str1,14866266:Data2,[(111,52)(34,52)])
link(Str2,14866266:Data3,[(118,52)(41,52)])
}
END_SDK
Add(GetDataEx,8057104,770,172)
{
Angle=3
link(Data,6415163:String,[(767,177)(767,149)(839,149)])
}
Add(GetDataEx,5426466,707,222)
{
Angle=3
link(Data,16462417:Var3,[])
}
Add(GetDataEx,11308196,1659,504)
{
link(Data,4549640:Var,[])
}
Add(HubEx,10340291,469,126)
{
link(onEvent,12785880:doWork3,[])
}
Add(LineBreak,7394195,1568,532)
{
Caption="RenameTabl"
link(Out,5893351:doVisible,[])
Primary=[3168787,-1302,-343]
}
Add(LineBreak,16567725,770,238)
{
Caption="RenameTabl"
Type=1
link(Data,8057104:Var2,[])
Primary=[4549640,889,238]
}
Add(LineBreak,15247333,707,259)
{
Caption="RenameTabl"
Type=1
link(Data,5426466:Var2,[])
Primary=[14803893,1043,217]
}
Add(LineBreak,13406590,371,182)
{
Caption="RenameTabl"
link(Out,10340291:doWork3,[(473,188)])
Primary=[16509627,1351,392]
}
Add(ChildForm,3405103,980,406)
{
}
BEGIN_SDK
Add(EditMulti,15184779,21,21)
{
WorkCount=1
Width=937
Height=648
link(doWork1,15062958:doVisible,[(81,27)(81,76)])
}
Add(MainForm,15062958,98,42)
{
Left=35
Top=105
Width=550
Height=728
Visible=1
Caption="Дочерняя форма"
Position=1
Point(doVisible)
}
Add(Edit,4308971,252,161)
{
Left=10
Top=40
Layout="creatdb"
WidthScale=100
Text="Database_1"
}
Add(Button,4611249,301,280)
{
Left=10
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Добавить"
link(onClick,12731280:doEvent1,[])
}
Add(Button,2906484,175,259)
{
Left=75
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Отмена"
}
Add(VBoxLayout,16415156,490,84)
{
Name="creatdb"
Space=5
}
Add(HBoxLayout,3005754,539,84)
{
Name="creatdb2"
WidthScale=100
Layout="creatdb"
}
Add(Label,5876269,322,77)
{
Left=25
Top=15
Layout="creatdb"
Caption="Имя таблицы"
}
Add(Hub,12731280,350,280)
{
OutCount=3
}
Add(Scintilla,16320620,315,420)
{
Top=193
Width=476
Height=255
Color=15395562
Font=[Courier New,10,0,0,204]
Layout="creatdb"
HeightScale=100
Codepage=1
Styles=#17:// Язык подсветки|13:@1 Language=4|0:|12:// Цвет фона|23://@2 BackColor=14736598|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15329250|0:|39:// Цвет шрифта и фон выделенного текста|41:@4 SelBack=7798784, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|32:// Цвет визуальной линии отступа|16:@6 Color=4227327|0:|81:// Цвет линии ограничителя длинной строки и цвет флагов свёртки и переноса текста|40:@7 Color=15780518, ColorOfFlags=16711680|0:|43:// Цвет элементов поля нумерации и маркеров|77:@8 FontColor=8421504, BackColor=14012872, MarkerFore=255, MarkerBack=16777215|0:|31:// Цвет элементов поля фолдинга|86:@9 BackColor1=14012872, BackColor2=14736598, FoldIconFore=65535, FoldIconBack=16711680|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|88:# DEFAULT=0, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|95:# TAG=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=12470213|88:# TAGUNKNOWN=2, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# ATTRIBUTE=3, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|88:# ATTRIBUTEUNKNOWN=4, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# NUMBER=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|95:# DOUBLESTRING=6, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=16711808|95:# SINGLESTRING=7, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=16711808|88:# OTHER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|92:# COMMENT=9, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|92:# ENTITY=10, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=65535|94:# TAGEND=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=6528988|90:# XMLSTART=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|90:# XMLEND=13, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|92:# VALUE=19, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=65535|88:# SGML_DEFAULT=21, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# SGML_ERROR=26, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|13:// javascript|88:# HJ_START=40, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# HJ_DEFAULT=41, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|92:# HJ_COMMENT=42, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|92:# HJ_COMMENTLINE=43, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|92:# HJ_COMMENTDOC=44, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|90:# HJ_NUMBER=45, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|88:# HJ_WORD=46, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|94:# HJ_KEYWORD=47, FontBold=True, FontItalic=True, FontUnderline=False, FontColor=8388608|94:# HJ_DOUBLESTRING=48, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|94:# HJ_SINGLESTRING=49, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|88:# HJ_SYMBOLS=50, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|88:# HJ_STRINGEOL=51, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|95:# HJ_REGEX=52, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=16711803|
WordsKey2=#394:abstract boolean break byte case catch char class const continue debugger default delete do double else enum export extends final finally float for function goto if implements import in instanceof int interface long native new package private protected public return short static super switch synchronized this throw throws transient try typeof var void volatile while with true false prototype|
CaretLineBack=15131875
BraceBadFore=65535
ColorOfFlags=15780518
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=14012872
MarkMarginWidth=14
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
AutoComplete=1
AutoCompStrings=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|0:|
MinWordLen=2
ScrollBars=3
UserPoupMenu=0
Point(LinePosition)
Point(StrPosition)
Point(TextLength)
Point(Position)
Point(TextTarget)
Point(GetModify)
Point(onMouseUp)
Point(ArrayFold)
Point(onGetLineFold)
Point(onGetLineMarker)
Point(doSearch)
Point(doUndoRedo)
Point(doSetZoom)
Point(doEditingSelected)
Point(doSetLineFold)
Point(doGetLineFold)
Point(doMarkerAdd)
Point(doGetLineMarker)
Point(doFoldAll)
Point(onSearch)
Point(onMouseDown)
Point(onSave)
Point(onLoad)
Point(doSetEmptyUndoBuffer)
Point(doCodepage)
Point(doStyles)
Point(Handle)
Point(doColor)
}
Add(Button,189973,294,588)
{
Left=195
Top=515
Height=40
Layout="creatdb"
WidthScale=50
Caption="Сохранить"
}
END_SDK
Add(ChildForm,4648074,434,532)
{
}
BEGIN_SDK
Add(EditMulti,9792294,21,21)
{
WorkCount=1
Width=937
Height=648
link(doWork1,13225015:doVisible,[(81,27)(81,76)])
}
Add(MainForm,13225015,98,42)
{
Left=35
Top=105
Width=550
Height=732
Color=4802889
Visible=1
Caption="Дочерняя форма"
Position=1
Point(doVisible)
}
Add(PageControl,1944760,434,189)
{
Align=5
Childrens=#4:page|
Selected="page"
AutoCreate=1
}
BEGIN_SDK
Add(EditPolyMulti,16645054,21,21)
{
WorkCount=#5:##add|8:##delete|
EventCount=#10:onPControl|
Point(##add)
Point(##delete)
}
Add(PagePanel,8890210,161,70)
{
Left=35
Top=105
Align=5
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,816851,21,21)
{
WorkCount=#5:##add|8:##delete|
EventCount=#10:onPControl|
Width=1035
Height=641
Point(##add)
Point(##delete)
link(##add,12991115:doData,[(77,27)(77,104)])
}
Add(PagePanel,6635910,98,42)
{
Top=30
Width=534
Height=647
Align=5
WinStyle=1
Caption="Page"
Point(PHandle)
}
Add(DoData,12991115,98,98)
{
link(onEventData,816851:onPControl,[(593,104)(593,27)])
link(Data,6635910:PHandle,[])
}
Add(Edit,193135,595,161)
{
Left=10
Top=40
Layout="creatdb"
WidthScale=100
Text="Database_1"
}
Add(Button,13839379,644,280)
{
Left=10
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Добавить"
link(onClick,4627302:doEvent1,[])
}
Add(Button,14660696,518,259)
{
Left=75
Top=70
Height=40
Layout="creatdb2"
WidthScale=50
Caption="Отмена"
}
Add(VBoxLayout,5355029,833,84)
{
Name="creatdb"
Space=5
}
Add(HBoxLayout,4196537,882,84)
{
Name="creatdb2"
WidthScale=100
Layout="creatdb"
}
Add(Label,3073970,665,77)
{
Left=25
Top=15
Layout="creatdb"
Caption="Имя таблицы"
}
Add(Hub,4627302,693,280)
{
OutCount=3
}
Add(Button,10534920,637,588)
{
Left=195
Top=515
Height=40
Layout="creatdb"
WidthScale=50
Caption="Сохранить"
}
Add(Memo,12945494,441,336)
{
Left=440
Top=335
}
END_SDK
Add(DoData,16037209,336,189)
{
Data=String(page)
link(onEventData,1944760:##add,[])
}
Add(DoData,11476660,385,196)
{
Data=Integer(1)
link(onEventData,1944760:##delete,[])
}
Add(ChildPanel,12776357,287,189)
{
link(onEvent1,16037209:doData,[])
link(onEvent2,11476660:doData,[])
}
BEGIN_SDK
Add(EditMulti,7488395,21,21)
{
EventCount=2
}
Add(Panel,165575,35,105)
{
Top=663
Width=534
Height=30
Align=4
Color=4802889
BorderWidth=5
BevelWidth=0
}
Add(Button,15193427,126,49)
{
Left=5
Top=5
Height=921
Align=1
Caption="Add"
link(onClick,7488395:onEvent1,[(240,55)(240,27)])
}
Add(Button,12312653,126,91)
{
Left=60
Top=5
Height=921
Align=1
Caption="Delete"
link(onClick,7488395:onEvent2,[(240,97)(240,34)])
}
END_SDK
END_SDK
Add(HubEx,7175532,320,448)
{
Angle=1
link(onEvent,4648074:doWork1,[(324,538)])
}
Add(SQLite_Exec,6508024,553,658)
{
link(dbHandle,5382461:Var2,[(559,413)(622,413)])
}
Add(GetDataEx,5382461,616,222)
{
Angle=3
link(Data,3728650:Var3,[])
}
Add(Edit,5436779,1162,686)
{
Left=870
Top=445
Width=155
Text="4444"
}
Add(MST_SortInCol,10976607,938,308)
{
MSTControl="mtst"
Point(doSortDigit)
Point(doSortExtCmp)
}
Add(PopupMenu,12422400,987,357)
{
Menu=#10:Копир
карма: 0

0
Редактировалось 1 раз(а), последний 2018-01-24 12:41:08