Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGrid,DBase [dBase, FoxPro]

Lena © (2003-03-20 12:54:00)
Привет всем! Прошу прощения за глупый вопрос. Я пытаюсь работать с Delphi после FoxPro. Вопрос такой: имею локальную dbf-базу c полями: NomGr C(4), NmGr C(25), которую пытаюсь редактировать в DBGride. База не индексирована, хочу проверить NomGr на возможное дублирование, пробовала в событиях ONGETTEXT, ONSETTEXT, ONVALIDATE поля NomGr поставить закладку на текущую запись и поискать запись с таким же NomGr, но ничего не получается, т.к. DataSet.State in [dsEdit,dsInsert], как выйти из этой ситуации без индексации базы по полю NomGr

blackman (2003-03-23 09:51:00) [1]
Проиндексировать надо и потом искать. С qwery долго

eugie (2003-03-23 06:53:00) [2]
А если так:

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;

Sheriff (2003-03-20 13:30:00) [3]
1. перепроектировать БД
2. вносить запись в Edit и по Enter проверять наличие инф-ии в БД
а вообще-то желательны подробности

Соловьев (2003-03-20 13:27:00) [4]
Получится:
Фиксируем значение OnClick:
...
TempStr := Table.fieldByName("NomGr").AsString
...
OnFilterRecord:
...
Access := Table.fieldByName("NomGr").AsString=TempStr;
...

Mike Kouzmine (2003-03-20 13:23:00) [5]
И не получится. Надо не так. Создать еще один табле на эту же таблицу и на OnChange поля искать в этой второй.

Соловьев (2003-03-20 12:59:00) [6]
Компоненты доступа?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »