Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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
14-30611
Думкин
2003-03-25 09:08
2003.04.10
О старом. Что-то мирно последнее время стало.


3-30311
Сергєєв Володимир
2003-03-23 14:24
2003.04.10
Временный катлог QReport


3-30212
MaggoT
2003-03-20 17:57
2003.04.10
Сортировка в обратном порядке


3-30217
Dimushkin
2003-03-24 11:00
2003.04.10
Quick Report и произвольный отчет


3-30265
off
2003-03-20 13:02
2003.04.10
Поиск в IB?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский