Claymoreимеется таблица yeras.dbf в ней поля id_year1 и name_year1, допустим уже есть записи (2012, 2013, 2014) и при добавлении новой схожей записи, например 2013, он удалял удалял, либо не сохранял эту новую запись, прошу помогите с кодом и где лучше этот код записать???))) заранее благодарен)))

А зачем, собственно, добавлять НОВУЮ СХОЖУЮ запись. Если есть 2013, то зачем добавлять еще 2013 ????

ClaymoreIgorNG,

допустим пользователь блондинка)

Видимо, поэтому и не добавляется :):)

Claymore,

Ну мы ж не знаем, что у тебя висит на кнопках "Добавить", "Удалить", "Command3"

ClaymoreIgorNG,

в "добавить"

thisform.grid1.readonly = .F.
public lastnomer
select pn
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer

select years

APPEND BLANK
replace years.id_year1 with lastnomer


А почему в новую запись добавляется только id_year1 ?
А как насчет name_year1 ?

THISFORM.GRID1.column1.text1.style = 0
THISFORM.GRID1.SetFocus
THISFORM.REFRESH

кнопка "удалить"

PRIVATE n_Rec

select years

IF MESSAGEBOX ("Óäàëèòü ýòó çàïèñü?", 4 + 32 + 256) = 6
n_Rec=RECNO()
DELETE NEXT 1

ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF

THISFORM.GRID1.SetFocus
THISFORM.REFRESH

кнопка "выход"

thisform.Release

кнопка command-я её удалю позже))) она не нужная))

ClaymoreIgorNG,

а там в таблице сам уже вписываешь год, тот который тебе нужен)

По кнопке "Добавить" сделай формочку с полем ввода нового года и проверяй наличие введенного в таблице годов. Если не найдено, тогда добавляй, а если уже существует - не добавляй.

ClaymoreIgorNG,

ээээмммм, прости не понял, а как будет выглядеть код?)

в форме с полем ввода года Text1 и кнопкой "Ок" в click которой что-то типа:

SELECT years
LOCATE FOR RTRIM(THISFORM.Text1.Value) = RTRIM(name_year1)
IF NOT FOUND()
select pn && я, правда, не знаю что это за таблица, но судя по коду это id_year
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer
INSERT INTO years VALUES (lastnomer, RTRIM(THISFORM.Text1.Value))
ENDIF
THISFORM.Release

ClaymoreIgorNG,

я написал код в форме с полем ввода года Text1, который ты мне скинул в процедуре "click" :

SELECT years
LOCATE FOR RTRIM(THISFORM.Text1.Value) = RTRIM(name_year1) && Поиск в таблице введенного года
IF NOT FOUND() && Не найден
select pn && я, правда, не знаю что это за таблица, но судя по коду это id_year
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer
INSERT INTO years VALUES (lastnomer, RTRIM(THISFORM.Text1.Value)) && Добавление года
ELSE && Год найден
MESSAGEBOX("Такой год в таблице уже существует")
ENDIF
THISFORM.Release


после ввода нажимаю на таблицу форма закрывается, а запись добавлена, или я неправильно тебя понял :(

Меня не надо понимать, понимать нужно код.
Я отсюда не вижу какую таблицу ты нажимаешь.

Claymore,

Ну, чудес не бывает. Либо действительно есть, либо что-то не так сделал.
из командного окна
открой таблицу years
set deleted off
browse
и посмотри что есть в поле name_year1

descent52Claymore, добавь в свою таблицу новое поле ID типа Integer (AutoInc). И потом хоть тыщчу одинаковых записей плоди, в этом поле автоматом будет счётчик меняться. При выборке цепляй и это поле тоже. И потом удаляй по условию where id=N(номер id). И всего то делов

ТСу как раз и нужно, чтоб не было одинаковых записей.

Claymoredescent52,

нееее, я наверн понял, такой вариант не подходит, потому что возможно понадобится фишка такая с профилями, чтобы не допустить дубликаты профилей

А профили то здесь каким боком?

ClaymoreIgorNG,

Ребята, всем респектуха, что не прошли мимо моей проблемки))))) придумал я одну фишку короче)))) вот код

object (grid1.column1.text1) procedure (Valid)

select count(*) as sss from years where name_year1=this.value into ARRAY AAA \\делает поиск по полям ищет дубликат при добавлении
if aaa(1)>0 \\если дубликат найден
this.value=" " \\то строка стирается
endif \\конец

а у меня в форме имеется код

object (form1) procedure (destroy)

SELECT years \\берем таблицу years
DELETE FROM years WHERE TRIM(years.NAME_year1)= ' ' \\удаляем поле запись после закрытия формы если она пуста

хэппи енд, юхууу)))))


Это не хэппи енд.
Сначала ты добавляешь новую запись с id, потом в нее вводишь год с проверкой на дубликат и если такой год есть, то ты его стираешь, а потом еще и удаляешь эту запись.
Логичней было бы дать возможность пользователю ввести, потом проанализировать и на основании анализа либо добавить запись, либо написать пользователю, что он либо тупой, либо невнимательный.
Мне бы, как юзеру, показалось бы странным, что введенный мной текст магическим образом исчезает без объяснения причины.