Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2009-01-29 10:41:15 ЛС | профиль | цитата
user_asm, я, под "гипнозом" DBFBlocknote совершенно забыл о самом главном пункте "Редактирование"
Вот выкладываю с такой возможностью.
И удаление нужно изменить - захочешь удалить одного Иванова, а удалятся все. Оставил тебе. Думай.
------------ Дoбавленo:

Решил добавить вариант удаления записи.

Add(ChildForm,16493891,364,357)
{
link(onEvent1,8573008:doWork,[])
link(onEvent2,1692323:doWork,[(408,370)(408,384)])
}
BEGIN_SDK
Add(EditMulti,10559478,3,3)
{
EventCount=2
WorkCount=1
DataCount=1
Width=602
Height=354
VOffset=20
link(doWork1,15650685:doEvent1,[(12,29)(12,83)])
}
Add(MainForm,8939820,112,35)
{
Left=35
Top=105
Width=205
Height=287
Color=0
Visible=1
Caption="Удаление записи"
BorderStyle=3
Point(doVisible)
}
Add(Label,919593,427,98)
{
Left=10
Top=15
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,8428909,441,119)
{
Left=10
Top=35
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,14807752,455,140)
{
Left=10
Top=55
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,13419684,469,161)
{
Left=10
Top=75
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,4059475,483,182)
{
Left=10
Top=95
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,14336432,497,203)
{
Left=10
Top=115
Width=175
Height=17
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,13326405,511,224)
{
Left=10
Top=135
Width=175
Height=77
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(Button,13272033,21,301)
{
Left=10
Top=220
Width=70
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Ctl3D=0
Caption="DELETE"
Data=Integer(1)
link(onClick,6989287:doEvent1,[])
}
Add(Button,8250856,35,28)
{
Left=120
Top=220
Width=65
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Ctl3D=0
Caption="Cancel"
Data=Integer(0)
link(onClick,8939820:doClose,[(93,34)(93,62)])
}
Add(SQLite_Exec,10345960,224,273)
{
link(onError,7482923:doWork3,[(326,279)])
link(dbHandle,12309576:Var,[])
}
Add(GlobalVar,12309576,224,238)
{
Name="dbHandle"
}
Add(Hub,6989287,84,301)
{
OutCount=3
link(onEvent1,13392004:doStrCat,[(122,307)(122,279)])
link(onEvent2,10559478:onEvent2,[(577,314)(577,36)])
}
Add(MT_MultiData,8015614,343,140)
{
Count=7
link(onData1,919593:doText,[(394,146)(394,104)])
link(onData2,8428909:doText,[(406,153)(406,125)])
link(onData3,14807752:doText,[(423,160)(423,146)])
link(onData4,13419684:doText,[])
link(onData5,4059475:doText,[(409,174)(409,188)])
link(onData6,14336432:doText,[(396,181)(396,209)])
link(onData7,13326405:doText,[(385,188)(385,230)])
}
Add(GlobalVar,3392645,280,98)
{
Name="dbHandle"
}
Add(SQLite_Query,4925121,280,140)
{
link(onQuery,8015614:doSeparateMT,[])
link(onError,7482923:doWork2,[])
link(dbHandle,3392645:Var,[])
}
Add(FormatStr,1432644,154,140)
{
DataCount=7
Mask=" FROM note WHERE (LastName="%1")AND(Name="%2")AND(Phone="%3")AND(Street="%4")AND(House="%5")AND(App="%6")AND(Notes="%7")"
Point(FString)
link(onFString,5102019:doStrCat,[])
link(Str1,2385762:Left,[])
link(Str2,2385762:Left1,[])
link(Str3,2385762:Left2,[])
link(Str4,2385762:Left3,[])
link(Str5,2385762:Left4,[])
link(Str6,2385762:Left5,[])
link(Str7,2385762:Right,[])
}
Add(Hub,15650685,21,77)
{
OutCount=3
link(onEvent1,8939820:doVisible,[(53,83)(53,69)])
link(onEvent2,2385762:doSplit,[])
link(onEvent3,1432644:doString,[(95,97)(95,146)])
}
Add(StrCat,5102019,224,140)
{
Str1="SELECT * "
link(onStrCat,4925121:doQuery,[])
}
Add(StrCat,13392004,147,273)
{
Str1="DELETE "
link(onStrCat,10345960:doExec,[])
link(Str2,1432644:FString,[])
}
Add(MultiElementEx,2385762,154,84)
{
link(Str,10559478:Data1,[(160,13)(9,13)])
}
BEGIN_SDK
Add(EditMultiEx,10953597,21,21)
{
WorkCount=#7:doSplit|
VarCount=#4:Left|5:Left1|5:Left2|5:Left3|5:Left4|5:Left5|5:Right|
DataCount=#10:Str=Строка|
Width=363
Height=88
link(doSplit,310487:doSplit,[(35,27)(35,55)])
link(Left,310487:Left,[(27,92)(55,92)])
link(Left1,3837051:Left,[(34,92)(104,92)])
link(Left2,10368066:Left,[(41,92)(153,92)])
link(Left3,1166088:Left,[(48,92)(209,92)])
link(Left4,2874459:Left,[(55,92)(265,92)])
link(Left5,12492863:Left,[(62,92)(314,92)])
link(Right,12492863:Right,[(69,92)(321,92)])
}
Add(StrPart,310487,49,49)
{
Char=";"
Point(Left)
link(onSplit,3837051:doSplit,[])
link(Str,10953597:Str,[(55,35)(27,35)])
}
Add(StrPart,3837051,98,49)
{
Char=";"
Point(Left)
link(onSplit,10368066:doSplit,[])
}
Add(StrPart,10368066,147,49)
{
Char=";"
Point(Left)
link(onSplit,1166088:doSplit,[])
}
Add(StrPart,1166088,203,49)
{
Char=";"
Point(Left)
link(onSplit,2874459:doSplit,[])
}
Add(StrPart,2874459,259,49)
{
Char=";"
Point(Left)
link(onSplit,12492863:doSplit,[])
}
Add(StrPart,12492863,308,49)
{
Char=";"
Point(Left)
Point(Right)
}
END_SDK
Add(HubEx,7482923,322,147)
{
Angle=3
link(onEvent,10559478:onEvent1,[(326,29)])
}
END_SDK
Add(LineBreakEx,8573008,420,357)
{
Caption="onError"
}
Add(LineBreakEx,1692323,420,378)
{
Caption="New"
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1sqliteblocknote.rar [5.9KB] [164]