дексованого поля N_cli. Для цього встановимо елемент для введення номера клієнта Edit (назвемо його Edit_Go) і, створивши кнопку Button (назвемо її Go_N_cli), напишемо процедуру обробки її натискання:
TForm1.Go_N_cliClick (Sender: TObject);. SetKey;. FieldByName («N_cli»). AsString:=Edit_Go.Text;
Table1.GotoKey;;
Рис.8 Фрагмент форми з полем введення № клієнта і кнопкою запуску
Коли база даних буде заповнена досить великою кількістю клієнтів, пошук за допомогою навігатора і переходу за номером стане довгим процесом. Для швидкості і зручностей?? реалізуємо пошук за прізвищем, ім'ям, по батькові клієнта, а щоб він був ще ефективніше налаштуємо його з можливістю вибірки частини слова.
З вкладки Управління даними виберемо компонент RadioGroup і встановимо його. Далі в інспектора об'єктів у властивості Items створимо три перемикача: Прізвища, імені, по батькові. Зробимо перемикач пошуку за прізвищем обраним за замовчуванням, встановивши у властивості ItemIndex значення 0 (так як нумерація починається з 0). Поле для введення шуканих даних створимо за допомогою компонента Edit (назвавши його Edit_searsh). Далі напишемо для цього компонента процедуру обробну подія OnChange:
procedure TForm1.Edit_searshChange (Sender: TObject);: string;// Створимо змінну для підстановки
begin
/ / вибираємо поля поіскаRadioGroup1.ItemIndex of
: strField:=«Fam»;
: strField:=«Imya»;
: strField:=«Otch»;;
/ / виконуємо поіск.Close;. SQL.Clear;// « LIKE" %" + Edit_searh.Text +" %» » - шукаємо фрагмент тексту
Query1.SQL.Add («Select * from meb_client where» + strField + «LIKE «»+Edit_searsh.Text+«%»»);.Open;.FieldByName(«Fam»).DisplayLabel:=«Фамилия»;.FieldByName(«Name»).DisplayLabel:=«Имя»;.FieldByName(«Otch»).DisplayLabel:=«Отчество»;
end;
Для перемикання DBGrid1 та інших з ним пов'язаних компонентів в режим пошуку і назад в режим перегляду створимо дві кнопки Button: OnSearsh, OffSearsh.
Напишемо для них процедури обробки OnClick:
TForm1.OnSearshClick (Sender: TObject);// Включення режиму поіска.DataSource:=DataSource2;; TForm1.OffSearshClick (Sender: TObject);// Включення режиму просмотра.DataSource:=DataSource1;;
Рис. 9 Фрагмент форми з компонентами управління пошуком
Наступним кроком у розробці проекту реалізуємо висновок звітів по клієнтам салону. Для цього додамо до форми три компоненти з вкладки Rave:
RvProject1;
RvSystem1;
RvDataSetConnection1.
1. Привласнимо властивості DataSet у RvDataSetConnection1значеніе Table. Далі викликавши контекстне меню натисканням правою кнопкою на RvProject запустимо дизайнер звітів Rave Visual Designer.
2. Потім вибираємо Project / New Data Object з головного меню для вибору діа...
