Форум: "Базы";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
ВнизDBGrid,DBase Найти похожие ветки
← →
Lena (2003-03-20 12:54) [0]Привет всем! Прошу прощения за глупый вопрос. Я пытаюсь работать с Delphi после FoxPro. Вопрос такой: имею локальную dbf-базу c полями: NomGr C(4), NmGr C(25), которую пытаюсь редактировать в DBGride. База не индексирована, хочу проверить NomGr на возможное дублирование, пробовала в событиях ONGETTEXT, ONSETTEXT, ONVALIDATE поля NomGr поставить закладку на текущую запись и поискать запись с таким же NomGr, но ничего не получается, т.к. DataSet.State in [dsEdit,dsInsert], как выйти из этой ситуации без индексации базы по полю NomGr
← →
Соловьев (2003-03-20 12:59) [1]Компоненты доступа?
← →
Mike Kouzmine (2003-03-20 13:23) [2]И не получится. Надо не так. Создать еще один табле на эту же таблицу и на OnChange поля искать в этой второй.
← →
Соловьев (2003-03-20 13:27) [3]Получится:
Фиксируем значение OnClick:
...
TempStr := Table.fieldByName("NomGr").AsString
...
OnFilterRecord:
...
Access := Table.fieldByName("NomGr").AsString=TempStr;
...
← →
Sheriff (2003-03-20 13:30) [4]1. перепроектировать БД
2. вносить запись в Edit и по Enter проверять наличие инф-ии в БД
а вообще-то желательны подробности
← →
eugie (2003-03-23 06:53) [5]А если так:
Procedure TableBeforePost(DataSet:TDataSet);
Var
myQuery:TQuery;
vSQL:String;
Begin
//Создаем компонент query для выяснения существования подобной
//записи
myQuery:=TQuery.Create(Self);
myQuery.DatBaseName:=Table.DataBaseName;
vSQL:="select count(t1.nomgr) as c_nomgr from table1 t1";
myQuery.SQL.Add(vSQL);
vSQL:="where t1.nomgr="+Table.FieldByName("nomgr").AsString;
myQuery.SQL.Add(vSQL);
//Открываем
myQuery.Open;
//Проверяем
If myQuery.FieldByName("c_nomgr").AsInteger>0 Then
Begin
myQuery.Close;
myQuery.Free;
ShowMessage("Дублирование записи!");
Abort;//Прерываем процесс сохранения изменений
end;
End;
← →
blackman (2003-03-23 09:51) [6]Проиндексировать надо и потом искать. С qwery долго
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c