Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-08-18 17:03:27 ЛС | профиль | цитата
Твоя хотелкаТип данных Моё предложение Описание Мой тип
IDидентификатор записиINTEGER PRIMARY KEY
- Серія та №TEXTСерія та №ввод с клавиатурыTEXT
- Марка, модельTEXTМарка, модельid из списка марок, ComboBox INTEGER
- ТипTEXTТипid из списка типов, ComboBox INTEGER
- ПостачальникTEXTПостачальникid из списка, ComboBox INTEGER
- Код ВК 001-2000TEXTКод ВК 001-2000ввод с клавиатурыTEXT
- Завод-виробникTEXTЗавод-виробникid из списка, ComboBox INTEGER
- Рік виготовленняTEXTРік виготовленняComboBox INTEGER
- Шасі(рама)№TEXTШасі(рама)№ввод с клавиатурыTEXT
- Кузов №TEXTКузов №ввод с клавиатурыTEXT
- Модель та № двигунаTEXTМодель та № двигунаввод с клавиатурыTEXT
- В/Н машиниTEXTВ/Н машиниввод с клавиатурыTEXT
- Пробiг (км)ввод с клавиатурыINTEGER

Forget_Flin писал(а):
это разные таблицы(transport1, transport2 и тд.)
Чем дальше в лес....
И чем же они отличаются ?
Отдельно машины, БМП, танки ????

Пример

Add(MainForm,2953706,91,147)
{
Width=585
Height=426
Position=1
Point(onClose)
link(onCreate,8746341:doOpen,[])
link(onClose,8746341:doClose,[])
}
Add(DS_SQLite,8746341,140,161)
{
Name="mdb"
FileName=":memory:"
link(onOpen,13177177:doExec,[])
}
Add(DSC_Query,2938967,427,168)
{
SQL="SELECT * from child_dog;"
DSManager="mdb"
link(onQuery,3507321:doMT_Add,[])
link(onColumns,3507321:doMT_AddCols,[])
}
Add(DSC_Exec,13177177,196,161)
{
DSManager="mdb"
link(onExec,1829424:doWork1,[])
link(onError,104677:doMessage,[])
link(SQL,597754:Text,[])
}
Add(Memo,597754,196,98)
{
Left=5
Top=5
Width=495
Height=115
Strings=#20:CREATE TABLE child (|41: id INTEGER PRIMARY KEY AUTOINCREMENT,|13: name TEXT|2:);|0:|0:|18:CREATE TABLE dog (|41: id INTEGER PRIMARY KEY AUTOINCREMENT,|12: dog TEXT|2:);|0:|24:CREATE TABLE child_dog (|21: child_id INTEGER,|18: dog_id INTEGER|2:);|0:|41:INSERT INTO child values(null,"Николай");|37:INSERT INTO child values(null,"Оля");|38:INSERT INTO child values(null,"Петя");|39:INSERT INTO child values(null,"Алёна");|42:INSERT INTO child values(null,"Виктория");|0:|36:INSERT INTO dog values(null,"Рекс");|38:INSERT INTO dog values(null,"Прибой");|36:INSERT INTO dog values(null,"Пума");|39:INSERT INTO dog values(null,"Джонька");|0:|0:|
ScrollBars=2
}
Add(Label,11924612,189,217)
{
Left=10
Top=130
Width=44
Height=17
Caption="Ошибка"
}
Add(ChildGroupBox,1829424,322,161)
{
link(onEvent1,14092458:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,8789816,21,21)
{
EventCount=1
WorkCount=1
Width=692
Height=347
link(doWork1,6619088:doVisible,[(42,27)(42,62)])
}
Add(GroupBox,6619088,63,56)
{
Left=10
Top=165
Width=480
Font=[MS Sans Serif,8,1,255,1]
Visible=1
Caption="Ввод данных ------ Хозяин -------------Собака"
Point(doVisible)
Point(onShow)
Point(onHide)
link(onShow,602491:doEvent1,[])
link(onHide,2467405:doEvent1,[(102,69)(102,146)])
}
Add(ComboBox,7123714,322,70)
{
Left=33
Top=18
Width=105
Height=21
Point(doAdd)
Point(doClear)
Point(Data)
}
Add(ComboBox,10844128,224,91)
{
Left=170
Top=19
Width=95
Height=21
Point(doAdd)
Point(doClear)
Point(Data)
}
Add(Button,14588940,49,273)
{
Left=310
Top=20
Width=85
Caption="Сохранить"
link(onClick,37933:doString,[])
}
Add(DSC_Query,4725770,273,70)
{
SQL="SELECT name,id FROM child;"
DSManager="parent.mdb"
link(onQuery,7123714:doAdd,[])
}
Add(InfoTip,11609014,406,49)
{
Info=#20:CREATE TABLE child (|41: id INTEGER PRIMARY KEY AUTOINCREMENT,|16: name TEXT );|0:|0:|18:CREATE TABLE dog (|41: id INTEGER PRIMARY KEY AUTOINCREMENT,|16: dog TEXT );|0:|24:CREATE TABLE child_dog (|21: child_id INTEGER,|19: dog_id INTEGER,|47: FOREIGN KEY(child_id) REFERENCES child(id),|44: FOREIGN KEY(dog_id) REFERENCES dog(id));|
HAlign=0
Width=281
Height=200
Margin=5
}
Add(DSC_Query,1491091,175,91)
{
SQL="SELECT dog,id FROM dog;"
DSManager="parent.mdb"
link(onQuery,10844128:doAdd,[])
}
Add(Hub,602491,112,56)
{
OutCount=4
link(onEvent1,7409929:doWork1,[(311,62)])
link(onEvent2,4725770:doQuery,[(253,69)(253,76)])
link(onEvent3,6696043:doWork1,[(215,76)])
link(onEvent4,1491091:doQuery,[(169,83)(169,97)])
}
Add(HubEx,6696043,211,98)
{
link(onEvent,10844128:doClear,[])
}
Add(Hub,2467405,175,140)
{
@Hint=#18:Чистим при скрытии|19:формы ввода данных |
link(onEvent1,6696043:doWork3,[(215,146)])
link(onEvent2,7409929:doWork3,[(311,153)])
AddHint(-135,25,121,26,@Hint)
}
Add(HubEx,7409929,307,77)
{
link(onEvent,7123714:doClear,[])
}
Add(FormatStr,2073948,252,273)
{
Mask="INSERT INTO child_dog values(%2,%1);"
link(onFString,11548674:doExec,[])
link(Str1,5475043:Var2,[])
link(Str2,9142859:Var2,[])
}
Add(FormatStr,37933,91,273)
{
Mask="-- Проверка на повтор\r\n SELECT CASE \r\n WHEN COUNT()=0 THEN 0 ELSE 1 end\r\n FROM child_dog where %2||%1=child_id||dog_id;"
link(onFString,11606643:doQuery,[])
link(Str1,5475043:Var1,[(97,236)])
link(Str2,9142859:Var1,[(104,243)])
}
Add(IndexToChanel,1850440,203,273)
{
link(onEvent1,2073948:doString,[])
link(onEvent2,6295369:doMessage,[(243,286)(243,321)])
}
Add(GetDataEx,5475043,252,231)
{
link(Data,10844128:Data,[(258,137)(230,137)])
}
Add(GetDataEx,9142859,259,238)
{
link(Data,7123714:Data,[(265,138)(328,138)])
}
Add(Message,6295369,252,315)
{
Message="Такая запись уже есть !"
Caption="Запись"
}
Add(DSC_Exec,11548674,308,273)
{
DSManager="parent.mdb"
link(onExec,8789816:onEvent1,[(698,279)(698,27)])
}
Add(DSC_Query,11606643,140,273)
{
DSManager="parent.mdb"
link(onQuery,1850440:doEvent,[])
link(onError,7703370:doMessage,[(194,293)(194,321)])
}
Add(Message,7703370,203,315)
{
}
END_SDK
Add(Message,104677,252,168)
{
}
Add(Hub,14092458,364,161)
{
OutCount=4
link(onEvent1,3507321:doClear,[(441,167)(441,160)])
link(onEvent2,2938967:doQuery,[])
link(onEvent3,5642306:doData,[(402,181)(402,209)])
link(onEvent4,13197326:doEvent1,[(388,188)(388,258)])
}
Add(StringTableMT,3507321,504,147)
{
Left=85
Top=225
Width=180
Height=150
StrDelimiter="\9"
ClearAll=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
Point(doMT_AddCols)
Point(doAutoColWidth)
}
Add(DoData,5642306,427,203)
{
Data=Integer(-1)
link(onEventData,3507321:doAutoColWidth,[(481,209)(481,188)])
}
Add(StringTableMT,7135971,497,238)
{
Left=375
Top=225
Width=180
Height=150
StrDelimiter="\9"
ClearAll=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
Point(doMT_AddCols)
Point(doAutoColWidth)
}
Add(DSC_Query,6397127,434,259)
{
SQL="SELECT child.name AS "Ребёнок", dog.dog AS "Собака" \r\nFROM child_dog, child, dog \r\nWHERE child.id=child_id and dog.id=dog_id;"
DSManager="mdb"
link(onQuery,7135971:doMT_Add,[])
link(onColumns,7135971:doMT_AddCols,[])
}
Add(Hub,13197326,399,252)
{
OutCount=3
link(onEvent1,7135971:doClear,[(441,258)(441,251)])
link(onEvent2,6397127:doQuery,[])
link(onEvent3,7968152:doData,[(423,272)(423,300)])
}
Add(Label,1003068,196,224)
{
Left=10
Top=220
Height=55
Caption="Что в \r\nсводной\r\nтаблице\r\n------>"
AutoSize=1
Alignment=1
}
Add(Label,3541319,203,231)
{
Left=315
Top=225
Height=105
Caption="Что должен\r\nвидеть\r\nоператор\r\nна экране\r\n--------> "
AutoSize=1
Alignment=1
}
Add(DoData,7968152,434,294)
{
Data=Integer(-1)
link(onEventData,7135971:doAutoColWidth,[(482,300)(482,279)])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 7 раз(а), последний 2018-08-18 17:24:01