Вверх ↑
Этот топик читают: Гость
Ответов: 952
Рейтинг: 4
#76: 2009-01-27 22:09:54 ЛС | профиль | цитата
Большое спасибо Tad !
Сегодня же начну изучать это дело.
В DBFBlocknote были вставлены скрипты, которые для меня китайская грамота. Здесь же их нет
карма: 0

0
Ответов: 1891
Рейтинг: 110
#77: 2009-01-28 00:01:05 ЛС | профиль | цитата
user_asm, писал(а):
В DBFBlocknote были вставлены скрипты, которые для меня китайская грамота. Здесь же их нет


А в чем собственно трудности? Рассказывай и поможем
карма: 0
%time%
0
Ответов: 16884
Рейтинг: 1239
#78: 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]
Ответов: 952
Рейтинг: 4
#79: 2009-01-29 23:11:55 ЛС | профиль | цитата
Удаление заметил сразу.
Спасибо за Редактирование.
Думаю
Хм, выполняется запрос условием которого является Фамилия. DELETE FROM note where LastName = "%1"
"%1" - это Фамилия выделенной строки. ммммм.....
Кажется понял, щас прокрутим кино с "Редактирование записей" с точностью до наоборот
Хотя нет, сегодня уже не буду. На работу рано вставать
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#80: 2009-01-30 00:09:47 ЛС | профиль | цитата
user_asm, смотри "код" выше - там реализовано удаление с полной проверкой. Подключи вместо старого "удаления".
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3851
Рейтинг: 159
#81: 2009-01-30 00:16:57 ЛС | профиль | цитата
Tad, а условный поиск, если можно попроще?
карма: 0
начавший
0
Ответов: 16884
Рейтинг: 1239
#82: 2009-01-30 11:38:28 ЛС | профиль | цитата
Андрей., Поиск в БД очень простой (дольше пришлось рисовать 30 букв алфавита)
Выкладываю с ПОИСКОМ. Добавление, редактирование и удаление - ПКМ на таблице.

Вообще, для начальной работы с БД, нужно запомнить всего 4 команды:
SELECT <что> FROM < имя таблицы > [WHERE <условие>]
INSERT INTO < имя таблицы > VALUES( список переменных)
DELETE FROM < имя таблицы > WHERE <условие>
UPDATE < имя таблицы > SET < имя колонки = новое значение > WHERE <условие>
и для создания таблиц в БД одну - CREATE TABLE < имя таблицы >(имена колонок).
Самая сложная SELECT

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1sb.rar [7KB] [214]
Ответов: 3851
Рейтинг: 159
#83: 2009-01-30 12:49:40 ЛС | профиль | цитата
э, ссылочку поправить бы..
карма: 0
начавший
0
Ответов: 16884
Рейтинг: 1239
#84: 2009-01-30 13:05:22 ЛС | профиль | цитата
Андрей., непонял вроде нормально скачивается и читается.
На всякий случай перезалил.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#85: 2009-02-02 20:31:06 ЛС | профиль | цитата
2 Андрей.
Хоть и занят сейчас SQL базой, но все таки хочу разобраться до конца с текстовой базой.
Ты все красиво распихал спора нет. Вот только у меня не получается сделать работающей 2 вкладку.
Т.е. как допустим сделать 2 вкладку с аналогичными элементами как и на 1 вкладке.
Я скопировал вставил все во вторую вкладку да только не могу прицепить гетдату от 2 вкладки в узел, который я поставил линии закрытия формы.
Вот такая проблема.

карма: 0

0
Ответов: 3851
Рейтинг: 159
#86: 2009-02-02 22:01:27 ЛС | профиль | цитата
user_asm, так делать уже давно не модно - включи у формы точку onClose и раздай хабом события в обе вкладки/панели..
карма: 0
начавший
0
Ответов: 952
Рейтинг: 4
#87: 2009-02-03 21:51:09 ЛС | профиль | цитата
2 Tad
Корректирую твой пример на SQLite
Вот при добавлении записи выскочила такая месага - table note has 15 columns but 11 values were supplied
Насколько я понимаю буржуйский это значит что я пытаюсь впихнуть больше значений чем предусмотрено столбцов.
Что я не так сделал? Где смотреть?
Почему то не могу прикрепить к месаге файл проекта - пишет недостаточно прав Поэтому пишу словами.
карма: 0

0
Ответов: 3851
Рейтинг: 159
#88: 2009-02-03 23:18:26 ЛС | профиль | цитата
user_asm, а если попробовать создать новую базу?
------------ Дoбавленo:

Обмен файлами
карма: 0
начавший
0
Ответов: 952
Рейтинг: 4
#89: 2009-02-03 23:34:44 ЛС | профиль | цитата
Сам разобрался, добавление работает
Теперь надо ковырять удаление
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#90: 2009-05-20 13:21:20 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 12:33:31
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)