Вверх ↑
Ответов: 19
Рейтинг: 2
#1: 2019-09-28 10:44:22 ЛС | профиль | цитата

Add(MainForm,2953706,7,7)
{
Width=913
Height=535
}
Add(StringTableMT,15013775,483,28)
{
Top=15
Width=890
Height=435
Font=[MS Sans Serif,9,0,0,1]
Columns=#7:№ спец.|11:Дата заказа|13:Дата доставки|19:Наименование товара|16:Стоимость товара|10:Предоплата|7:Доплата|12:Долг клиента|14:Ф.И.О. Клиента|14:Адрес доставки|19:Телефоны покупателя|6:Услуги|17:ФИО Консультанта|21:Коментарий обязателен|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(Strings)
Point(doMT_Add)
}
Add(Button,2046472,357,42)
{
Left=5
Top=470
Width=75
Height=25
Font=[MS Sans Serif,9,0,0,1]
Caption="Добавить"
link(onClick,16473220:doOperation,[])
}
Add(Math,16473220,413,42)
{
Op2=1
ResultType=0
link(onResult,15013775:doAdd,[(466,48)(466,34)])
link(Op1,15013775:Count,[(419,30)(456,30)(456,85)(489,85)])
}
Add(SDialog,6855272,595,217)
{
Filter="База данных|*.db"
link(onExecute,1434466:doCharset,[])
}
Add(Charset,1434466,637,217)
{
Type=6
link(onCharset,4333167:doOpen,[])
}
Add(DS_SQLite,4333167,686,217)
{
Name="db1"
}
Add(FormatStr,1943821,651,273)
{
DataCount=1
Mask="create table %1 (№ спец. int, Дата заказа int, Дата доставки int, Наименование товара char, Стоимость товара int, Предоплата int, Доплата int, Услуги char, Долг клиента int, Ф.И.О. Клиента char, Адрес доставки char, Телефоны покупателя int, Ф.И.О Консультанта char, Коментарий обязателен char)"
Point(FString)
link(onFString,748533:doExec,[])
link(Str1,15407135:Var3,[(657,257)])
}
Add(DSC_Exec,748533,707,273)
{
DSManager="db1"
link(SQL,1943821:FString,[(713,261)(695,261)(695,314)(657,314)])
}
Add(ArrayEnum,11074536,560,336)
{
link(onItem,512661:doSplit,[])
link(onEndEnum,4333167:doClose,[(686,230)])
link(Array,15013775:Strings,[(566,194)(503,194)])
}
Add(MultiStrPart,512661,623,336)
{
Char="\9"
Count=14
link(onSplit,6809773:doString,[(751,342)(751,384)(590,384)(590,412)])
}
Add(FormatStr,6809773,616,406)
{
DataCount=15
Mask="insert into %1 values (%2, %3, %4, '%5', %6, %7, %8, %9, %10, '%11', '%12', %13, '%14', '%15')"
Point(FString)
link(onFString,7511720:doExec,[])
link(Str1,15407135:Var2,[(622,393)(468,393)])
link(Str2,512661:Part1,[])
link(Str3,512661:Part2,[])
link(Str4,512661:Part3,[])
link(Str5,512661:Part4,[])
link(Str6,512661:Part5,[])
link(Str7,512661:Part6,[])
link(Str8,512661:Part7,[])
link(Str9,512661:Part8,[])
link(Str10,512661:Part9,[])
link(Str11,512661:Part10,[])
link(Str12,512661:Part11,[])
link(Str13,512661:Part12,[])
link(Str14,512661:Part13,[])
link(Str15,512661:Part14,[])
}
Add(DSC_Exec,7511720,756,406)
{
DSManager="db1"
link(SQL,6809773:FString,[(762,394)(745,394)(745,447)(622,447)])
}
Add(Hub,14516312,462,217)
{
OutCount=3
link(onEvent1,6855272:doExecute,[])
link(onEvent2,1943821:doString,[(588,230)(588,279)])
link(onEvent3,11074536:doEnum,[(535,237)(535,342)])
}
Add(ChildFormEx,8548303,385,217)
{
link(onEvent2,14516312:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,15894618,21,21)
{
WorkCount=#14:doShowModal=МФ|
EventCount=#11:onEvent2=ОК|
VarCount=#6:Text=1|
Width=209
Height=123
link(doShowModal,7493839:doShowModal,[(32,27)(32,76)])
link(Text,11848274:Text,[(27,126)(146,126)])
}
Add(MainForm,7493839,49,42)
{
Left=35
Top=105
Width=397
Height=90
Name="Задайте имя новой таблицы"
Caption="Задайте имя новой таблицы"
Point(doShowModal)
}
Add(Edit,11848274,140,84)
{
Left=3
Top=3
Width=380
Text=""
}
Add(ButtonRush,10101876,49,84)
{
Left=140
Top=25
Caption="ОК"
Glyphs=[]
link(onClick,6628097:doEvent1,[(131,90)(131,55)])
}
Add(Hub,6628097,168,49)
{
link(onEvent1,7493839:doClose,[(193,55)(193,32)(37,32)(37,69)])
link(onEvent2,15894618:onEvent2,[(205,62)(205,27)])
}
END_SDK
Add(ButtonRush,15652663,315,217)
{
Left=85
Top=470
Caption="Сохранить"
Glyphs=[]
link(onClick,8548303:doShowModal,[])
}
Add(GetDataEx,15407135,462,252)
{
Angle=3
link(Data,8548303:Text,[(391,257)])
}
Add(ChildFormEx,11667126,210,133)
{
link(onEvent2,10958333:doCharset,[])
}
BEGIN_SDK
Add(EditMultiEx,16574667,21,21)
{
WorkCount=#14:doShowModal=МФ|
EventCount=#11:onEvent2=ОК|
VarCount=#6:Text=1|
link(doShowModal,14501119:doShowModal,[(32,27)(32,76)])
link(Text,11677351:Text,[(27,186)(146,186)])
}
Add(MainForm,14501119,45,42)
{
Left=35
Top=105
Width=397
Height=90
Caption="Введите имя таблицы"
Point(doShowModal)
}
Add(Edit,11677351,140,119)
{
Left=3
Top=3
Width=380
Text=""
}
Add(ButtonRush,16703012,63,98)
{
Left=140
Top=25
Caption="ОК"
Glyphs=[]
link(onClick,15316888:doEvent1,[(131,104)(131,69)])
}
Add(Hub,15316888,168,63)
{
link(onEvent1,14501119:doClose,[(193,69)(193,32)(37,32)(37,69)])
link(onEvent2,16574667:onEvent2,[(252,76)(252,27)])
}
END_SDK
Add(ButtonRush,7021298,63,133)
{
Left=160
Top=470
Caption="Открыть"
Glyphs=[]
link(onClick,14968856:doExecute,[])
}
Add(ODialog,14968856,112,133)
{
Filter="База данных|*.db"
link(onExecute,77769:doValue,[])
}
Add(Memory,77769,161,133)
{
link(onData,11667126:doShowModal,[])
}
Add(DS_SQLite,10161156,308,133)
{
Name="db2"
link(onOpen,8295092:doString,[])
}
Add(Charset,10958333,259,133)
{
Type=6
link(onCharset,10161156:doOpen,[])
link(Text,77769:Value,[(265,121)(203,121)(203,174)(167,174)])
}
Add(DSC_Exec,9938941,399,133)
{
DSManager="db2"
link(onExec,15013775:doMT_Add,[(466,139)(466,55)])
}
Add(FormatStr,8295092,350,133)
{
Mask="select * from %1"
link(onFString,9938941:doExec,[])
link(Str1,11667126:Text,[(356,121)(300,121)(300,176)(216,176)])
}
Add(InfoTip,8918758,49,98)
{
Info=#19:Открыть базу данных|
Frame=2
Width=407
Height=88
}
Add(InfoTip,11981128,294,203)
{
Info=#21:Сохранить базу данных|
Frame=2
Width=456
Height=123
}


--- Добавлено в 2019-09-28 10:46:51

Ребята, добрый день.
Помогите, пожалуйста!
Не создается БД. Где я ошиблась? Вроде бы все делала по видеоуроку.
Заранее благодарю.
карма: 0

0
Редактировалось 1 раз(а), последний 2019-09-28 10:46:51