Вверх ↑
Ответов: 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