Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-12-10 21:36:57 ЛС | профиль | цитата
zhorik5, вот твоё:
SELECT COUNT(*) FROM kontragenti;
Потом ты к полученному компонентом Math добавляешь 1 и
INSERT INTO kontragenti (nomer) VALUES (%1);,
а можно было и попроще INSERT INTO kontragenti(nomer) SELECT COUNT(*)+1 FROM kontragenti;
Но так делать нельзя.
Почему?
Допустим у тебя в kontragenti есть 10 записей.
Т.к. есть кнопка "Удалить", то удалили 5-ю.
Какой номер ты получишь своим SELECT COUNT(*) + Math
Правильно - 10, а такой номер уже есть. И будешь иметь две записи с nomer=10
При последующих UPDATE kontragenti SET angl_nazvanie='%2' WHERE nomer=%1
в таблице kontragenti получишь две одинаковые строки.
И так у тебя везде.
Убери кнопку "Удалить" со всех форм пока не сделаешь nomer INTEGER PRIMARY KEY.

Форма "Партнёры"

Add(ChildForm,9467718,658,140)
{
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,2379941,28,7)
{
EventCount=6
WorkCount=1
DataCount=1
VarCount=2
Width=692
Height=739
link(doWork1,14021805:doShowModal,[(63,13)(63,237)])
link(Var1,16034921:Index,[(34,722)(685,722)])
link(Var2,13311944:Var1,[(41,82)])
}
Add(MainForm,14021805,238,203)
{
Left=35
Top=105
Width=807
Height=383
Visible=1
Caption="П А Р Т Н Ё Р Ы."
Point(onClose)
Point(doShowModal)
link(onActivate,11585841:doEvent1,[(292,209)(292,139)])
link(onDeactivate,2379941:onEvent4,[(284,216)(284,34)])
link(onCreate,15049992:doOpen,[])
link(onClose,15049992:doClose,[])
}
Add(Edit,8193515,420,224)
{
Left=170
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7707199,434,294)
{
Left=170
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,15698063,455,399)
{
Left=615
Top=70
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Label,3448287,602,56)
{
Left=10
Top=10
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Название фирмы партнера"
AutoSize=1
Alignment=1
}
Add(Label,12074310,602,63)
{
Left=10
Top=45
Width=155
Height=29
Font=[Times New Roman,10,0,0,204]
Caption="Полное Наименование фирмы"
AutoSize=1
Alignment=1
}
Add(Label,16429677,602,70)
{
Left=10
Top=85
Width=155
Height=34
Font=[Times New Roman,10,1,0,204]
Caption="Английское Наименование (Обязательно!)"
AutoSize=1
Alignment=1
}
Add(Label,4932833,602,77)
{
Left=10
Top=130
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Адрес"
AutoSize=1
Alignment=1
}
Add(Label,1072301,602,84)
{
Left=10
Top=170
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="ИНН"
AutoSize=1
Alignment=1
}
Add(Label,11865404,602,91)
{
Left=10
Top=210
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="КПП"
AutoSize=1
Alignment=1
}
Add(Label,3469290,602,98)
{
Left=10
Top=245
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Расчетный счет"
AutoSize=1
Alignment=1
}
Add(Label,15736005,602,196)
{
Left=450
Top=10
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Кор. счет"
AutoSize=1
Alignment=1
}
Add(Label,1739345,602,105)
{
Left=10
Top=280
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Банк"
AutoSize=1
Alignment=1
}
Add(Button,7503969,77,378)
{
Left=600
Top=305
Width=85
Height=35
Enabled=1
Caption="ОК"
Point(doEnabled)
link(onClick,13004597:doEvent1,[])
}
Add(Button,13679188,70,294)
{
Left=695
Top=305
Width=85
Height=35
Caption="ОТМЕНА"
link(onClick,11040164:doWork2,[])
}
Add(Edit,8947271,385,35)
{
Left=170
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
Point(doSetFocus)
link(onChange,13466306:doMultiReplace,[(429,41)(429,90)])
}
Add(DS_SQLite,15049992,287,217)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,942555:doEvent1,[])
}
Add(Hub,14982477,189,385)
{
OutCount=3
link(onEvent1,8675650:doString,[(237,391)(237,692)])
link(onEvent2,2379941:onEvent1,[(217,398)(217,13)])
}
Add(GetDataEx,10322385,399,518)
{
link(Data,9848688:Text,[(405,123)(489,123)])
}
Add(DSC_Exec,10102804,539,686)
{
DSManager="parent.parent.global"
link(onExec,11040164:doWork1,[(699,692)(699,300)])
}
Add(Label,772740,602,189)
{
Left=450
Top=40
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="БИК"
AutoSize=1
Alignment=1
}
Add(Label,71411,602,182)
{
Left=450
Top=70
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="E@mail"
AutoSize=1
Alignment=1
}
Add(Label,9676561,602,175)
{
Left=450
Top=135
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Контактное лицо"
AutoSize=1
Alignment=1
}
Add(Label,3842413,602,168)
{
Left=450
Top=105
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Телефон"
AutoSize=1
Alignment=1
}
Add(Label,1664523,602,161)
{
Left=450
Top=175
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Использовать прайс"
AutoSize=1
Alignment=1
}
Add(Label,13024792,602,154)
{
Left=450
Top=210
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Код клиента"
AutoSize=1
Alignment=1
}
Add(Label,11531711,602,112)
{
Left=450
Top=245
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Закрепленный заправщик"
AutoSize=1
Alignment=1
}
Add(Label,5124501,602,147)
{
Left=450
Top=280
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Примечание"
AutoSize=1
Alignment=1
}
Add(Edit,9848688,483,84)
{
Left=170
Top=90
Width=160
Font=[Times New Roman,10,0,0,204]
Enabled=1
Text=""
Point(doSetFocus)
link(onChange,4175374:In,[])
}
Add(ComboBox,11496103,651,574)
{
Left=615
Top=245
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Strings=#3:Нет|
Text=""
DataType=1
Point(EditText)
}
Add(Edit,11868430,392,84)
{
Left=170
Top=50
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,3983540,483,574)
{
Left=615
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,797990,497,630)
{
Left=615
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7914082,462,434)
{
Left=615
Top=105
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9688994,469,469)
{
Left=615
Top=135
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9606788,441,329)
{
Left=615
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,12710250,448,364)
{
Left=615
Top=40
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,6824894,406,154)
{
Left=170
Top=130
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,8358532,413,189)
{
Left=170
Top=170
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(DSC_Query,14112046,595,574)
{
SQL="SELECT fio FROM sotrudniki"
DSManager="parent.parent.global"
link(onQuery,11496103:doAdd,[])
}
Add(LineBreak,8925000,553,574)
{
link(Out,14112046:doQuery,[])
Primary=[8707490,-189,-357]
}
Add(GetDataEx,13311944,385,77)
{
link(Data,8947271:Text,[])
}
Add(ComboBox,16034921,658,511)
{
Left=615
Top=170
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Hub,942555,336,217)
{
link(onEvent1,8707490:In,[])
link(onEvent2,13711868:In,[])
}
Add(DSC_Query,1590475,609,511)
{
SQL="SELECT naimenovanie FROM kategory_price"
DSManager="parent.parent.global"
link(onQuery,16034921:doAdd,[])
}
Add(LineBreak,10555221,567,511)
{
link(Out,1590475:doQuery,[])
Primary=[13711868,-203,-287]
}
Add(Button,1036844,91,455)
{
Left=515
Top=305
Width=75
Height=35
Enabled=1
Caption="Добавить"
Point(doEnabled)
link(onClick,7304843:doEvent1,[])
}
Add(Hub,13004597,126,378)
{
link(onEvent1,11040164:doWork3,[(207,384)])
link(onEvent2,3255284:doEvent1,[])
}
Add(Hub,3255284,161,385)
{
InCount=2
OutCount=1
link(onEvent1,14982477:doEvent1,[])
}
Add(ChildForm,8146851,294,539)
{
FirstUsage=0
link(onEvent1,2379941:onEvent5,[(577,545)(577,41)])
link(onEvent2,2379941:onEvent6,[(586,552)(586,48)])
link(Data1,10322385:Var1,[(300,523)])
}
BEGIN_SDK
Add(EditMulti,14390227,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=1315
Height=788
link(doWork1,1590239:doShowModal,[(73,27)(73,195)])
}
Add(ChildPanel,12795484,28,203)
{
link(onEvent1,11900977:doEvent2,[(82,209)(82,244)])
link(onEvent2,7738847:doEvent1,[(65,216)(65,265)])
link(onEvent3,16211581:doEvent2,[])
}
BEGIN_SDK
Add(EditMulti,5115687,21,21)
{
EventCount=3
}
Add(Panel,11032594,35,105)
{
Top=472
Width=364
Height=41
Align=4
}
Add(Button,12090924,44,30)
{
Left=10
Top=5
Width=70
Height=35
Caption="Сохранить"
link(onClick,5115687:onEvent1,[(198,36)(198,27)])
}
Add(Button,2547117,171,51)
{
Left=265
Top=5
Width=70
Height=35
Caption="Отмена"
link(onClick,5115687:onEvent2,[(262,57)(262,34)])
}
Add(Button,9624714,249,112)
{
Left=145
Top=5
Width=60
Height=35
Caption="Очистить"
link(onClick,5115687:onEvent3,[(287,118)(287,41)])
}
END_SDK
Add(ChildPanel,15552921,399,301)
{
link(onEvent1,6215464:doMT_Add,[(461,307)(461,244)])
}
BEGIN_SDK
Add(EditMulti,4159810,21,21)
{
EventCount=1
}
Add(Panel,7378138,35,105)
{
Width=364
Height=55
Align=2
BorderWidth=0
BevelWidth=0
}
Add(Label,1814261,69,27)
{
Left=5
Top=10
Width=91
Height=17
Caption="Заполнить ценой"
}
Add(DSC_Query,8435477,203,42)
{
SQL="SELECT nomer, vid_rabot, model, partner FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent1,[(275,48)(275,90)])
}
Add(Button,15192029,140,42)
{
Left=235
Top=5
Width=115
Height=25
Caption="Партнер"
link(onClick,8435477:doQuery,[])
}
Add(Button,13220521,140,91)
{
Left=105
Top=5
Width=60
Height=25
Caption="Розница"
link(onClick,8548199:doQuery,[])
}
Add(DSC_Query,8548199,203,91)
{
SQL="SELECT nomer, vid_rabot, model, roznica FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent2,[])
}
Add(Hub,10526459,280,84)
{
InCount=2
OutCount=1
link(onEvent1,4159810:onEvent1,[(308,90)(308,27)])
}
Add(Label,1868121,14,35)
{
Top=35
Width=365
Height=17
Caption="При заполнении прайса обязательно выберите любую строку таблицы"
}
END_SDK
Add(MainForm,1590239,140,161)
{
Left=35
Top=105
Width=372
Height=547
Visible=1
Point(doShowModal)
link(onActivate,14390227:onEvent1,[(754,167)(754,27)])
}
Add(StringTableMT,6215464,490,203)
{
Top=55
Width=364
Height=417
Align=5
Columns=#4:№=25|6:Услуга|6:Модель|7:Цена=35|
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(Cell)
Point(onChange)
Point(onLineChange)
link(onClick,12604284:doEvent1,[])
link(onDblClick,12604284:doEvent2,[])
link(onChange,12604284:doEvent3,[])
link(onLineChange,12604284:doEvent4,[])
}
Add(Hub,11900977,105,231)
{
InCount=2
link(onEvent1,1590239:doClose,[(123,237)(123,188)])
link(onEvent2,14390227:onEvent2,[(727,244)(727,34)])
}
Add(Hub,7738847,70,259)
{
link(onEvent1,11900977:doEvent1,[(105,265)])
link(onEvent2,16211581:doEvent1,[(287,272)(287,216)])
}
Add(ArrayRW,494619,609,203)
{
link(onRead,12314249:doSplit,[])
link(Array,6215464:Strings,[(615,191)(563,191)(563,260)(510,260)])
}
Add(MultiStrPart,12314249,672,203)
{
Char="\9"
Count=4
link(onSplit,5925683:doString,[(716,209)(716,265)(660,265)(660,300)])
}
Add(FormatStr,5925683,672,294)
{
DataCount=4
Mask="UPDATE price SET '%2'='%4' WHERE nomer=%1"
Point(FString)
link(onFString,5428505:doExec,[])
link(Str1,12314249:Part1,[])
link(Str2,14390227:Data1,[(685,158)(27,158)])
link(Str4,12314249:Part4,[])
}
Add(DSC_Exec,5428505,742,294)
{
DSManager="parent.parent.parent.global"
link(SQL,5925683:FString,[(748,282)(713,282)(713,338)(678,338)])
}
Add(Hub,12604284,546,203)
{
InCount=4
OutCount=1
link(onEvent1,494619:doRead,[])
}
Add(Hub,16211581,427,210)
{
InCount=2
OutCount=1
link(onEvent1,6215464:doClear,[])
}
END_SDK
Add(Hub,7304843,140,455)
{
OutCount=3
link(onEvent1,3255284:doEvent2,[(173,461)(173,414)(142,414)(142,398)])
link(onEvent2,8146851:doWork1,[(173,468)(173,545)])
link(onEvent3,7503969:doEnabled,[(166,475)(166,419)(58,419)(58,384)])
}
Add(Hub,11585841,308,133)
{
link(onEvent1,5259777:doEvent1,[(329,139)(329,48)])
link(onEvent2,2379941:onEvent3,[(562,146)(562,27)])
}
Add(Hub,5259777,336,42)
{
link(onEvent1,8947271:doText,[(368,48)(368,41)])
link(onEvent2,8947271:doSetFocus,[])
}
Add(LineBreak,11041788,28,455)
{
link(Out,1643356:doEvent1,[])
Primary=[4175374,504,-371]
}
Add(CheckBox,16362267,56,511)
{
Left=5
Top=315
Width=505
Caption="Если Вы заполнили все данные поставьте пожалуйста флажок и нажмите кнопку ДОБАВИТЬ"
link(onCheck,1643356:doEvent2,[(114,517)(114,493)(58,493)(58,468)])
}
Add(Hub,1643356,70,455)
{
InCount=2
OutCount=1
link(onEvent1,1036844:doEnabled,[])
}
Add(HubEx,11040164,203,294)
{
Angle=3
link(onEvent,14021805:doClose,[(207,230)])
}
Add(FormatStr,8675650,385,686)
{
DataCount=18
Mask="UPDATE kontragenti SET [nazvanie]='%1', \r\n [polnoe_naimenovanie]='%2', \r\n [angl_nazvanie]='%3', \r\n [adres] ='%4', \r\n [inn] ='%5', \r\n [kpp] ='%6', \r\n [raschetniy_schet] ='%7', \r\n [bank] ='%8', \r\n [kor_schet] ='%9', \r\n [bik] ='%10', \r\n [email] ='%11', \r\n [telefon] ='%12', \r\n [kontact_lico] ='%13', \r\n [ispolzovat_price] ='%14', \r\n [cod_clienta] ='%15', \r\n [zapravshik] ='%16', \r\n [primechanie] ='%17'\r\n WHERE [nomer]=%18;"
link(onFString,10102804:doExec,[])
link(Str1,13311944:Var2,[])
link(Str2,11868430:Text,[])
link(Str3,10322385:Var2,[])
link(Str4,6824894:Text,[])
link(Str5,8358532:Text,[])
link(Str6,8193515:Text,[])
link(Str7,4866543:Text,[])
link(Str8,7707199:Text,[])
link(Str9,9606788:Text,[])
link(Str10,12710250:Text,[])
link(Str11,15698063:Text,[])
link(Str12,7914082:Text,[])
link(Str13,9688994:Text,[])
link(Str14,16034921:String,[(482,566)(671,566)])
link(Str15,3983540:Text,[])
link(Str16,11496103:EditText,[(496,627)(671,627)])
link(Str17,797990:Text,[])
link(Str18,2379941:Data1,[(510,28)(34,28)])
}
Add(MultiReplace,13466306,441,84)
{
ReplaceList="а=a; б=b; в=v; г=g; д=d; е=e; ё=yo; ж=zh; з=z;\r\nи=i; й=y; к=k; л=l; м=m; н=n; о=o; п=p; р=r;\r\nс=s; т=t; у=u; ф=f; х=h; ц=c; ч=ch; ш=sh; щ=shch;\r\nь='; ы=q; ъ='; э=ye; ю=yu; я=ya; А=A; Б=B; В=V;\r\nГ=G; Д=D; Е=E; Ё=Yo; Ж=Zh; З=Z; И=I; Й=Y; К=K;\r\nЛ=L; М=M; Н=N; О=O; П=P; Р=R; С=S; Т=T; У=U;\r\nФ=F; Х=H; Ц=C; Ч=Ch; Ш=Sh; Щ=Shch; Ь='; Ы=Q; Ъ=';\r\nЭ=Ye; Ю=Yu; Я=Ya;"
link(onResult,9848688:doText,[])
}
Add(Edit,4866543,427,259)
{
Left=170
Top=245
Width=160
}
END_SDK

и всего 91 компонент против твоих >200
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 6 раз(а), последний 2017-12-11 00:14:19