VPF::[BCB6] ADOTable, ограниченный Поиск - Форум программистов

Palladin

Дата 23.4.2009, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

А можно ли посмотреть код Locate???? Если можно, то вырываем код, создаем массив типа инт, туда при первом клике заносим индекс строки, и просто при втором нажатии пропускаем!?
Если нет и нехочешь менять компоненты и т.д. придется поднапрячся и написать самому собственную функцию ХрустLocate.
Ток кажется это скажется на скорости поиска.
код что-то типа:

Код


ищем первую подходящую;
i=номер найденной строки;
L=флаг;
for(int t:=1;t<=k;t++)
if(a[t]=i) L=1;

if(L!=1)
{
ADOTable1.RecNo=i;
a[k]=i; k++;
}
когда поиск начинается по новому критерию, обнуляешь массив и переменные
}

Бред походу написал, но идея была smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

XPyCT

Дата 23.4.2009, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 24.8.2007
Где: Moldova

Репутация: 10
Всего: 10

Всем конечно спс! - но всетаки пришлось добавить на форму адоквери

и методом исключения уже работать! к сожалению цикл не подойдет! цикл хорош для не большик таблиц а если 10 тыщ записей это скоко ждать пока он обработает!
в общем решил так

Вот так находим нужных перцов! по клику на кнопке
а глобальную переменую- счетчик ClickButtonSearch инкремнтипую

Код



void __fastcall TfmGlavnoe::Button1Click(TObject *Sender)
{
ClickButtonSearch++;
String   SQL,textEdit;

textEdit=Edit1->Text;
ADOTable1->Active=false;
DataSource1->DataSet=Query;
Query->Active=false;
SQL = "Select id_abonament AS Абоенемент, fam as Фамилия, name as Имя, date_r As Дата_раждения,operator As Оператор,date_start As Начало _посещенияé from Abonament where fam='"+textEdit+"' or id_abonament='"+textEdit+"'";
 Query->SQL->Text = SQL;
 Query->Open();


}
//---------------------------------------------------------------------------

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

опять же смотрим в каком состоянии ClickButtonSearch

Код


if(ClickButtonSearch== 0)
{
 idAbonament=ADOTable1->FieldByName("id_abonament")->AsString;
 imea=ADOTable1->FieldByName("name")->AsString;
 fam=ADOTable1->FieldByName("fam")->AsString;
 fmGlavnoe->Hide();
 fmVisit->ShowModal();
 }

 else
    {
 idAbonament=Query->Fields->FieldByNumber(1)->AsString;// ;  //Query->FieldByName("id_abonament")->AsString;
 imea=Query->Fields->FieldByNumber(2)->AsString;
 fam=Query->Fields->FieldByNumber(3)->AsString;
 fmGlavnoe->Hide();
 fmVisit->ShowModal();
    }

таким образом я отработал и адотабле и адоквери

на закрытии формы все возвращаю на место к адотабле!

Код


 fmGlavnoe->Query->Active=false;
 fmGlavnoe->DataSource1->DataSet=fmGlavnoe->ADOTable1;
 fmGlavnoe->ADOTable1->Active=true;
 ClickButtonSearch=0;
 fmGlavnoe->Show();

всем огромный респект!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »