0 / 0 / 0
Регистрация: 03.05.2014
Сообщений: 7

Телефонный справочник

04.11.2008, 18:10. Показов 3563. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создел базу разместил ее на диске C:\SBD
Поместил на форму следующие компоненты: одну метку Label, поле редактирования Edit, таблицу DBGrid, две кнопки Buttons, DataSource1, Query1.

Помогите сделать так, чтобы форма выполняла поиск по номеру телефона
Миниатюры
Телефонный справочник  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.11.2008, 18:10
Ответы с готовыми решениями:

Телефонный справочник
Задание: В проекте Телефонный справочник на форме нового абонента, в поле Телефон ввести маску ввода: 8-058-5-85-96 имеет вид...

Телефонный справочник
Нужно составить программу телефонный справочник города. Исходные данные: Главное,Поиск,Редактирование,Справка. Дополнительное меню: ...

Телефонный справочник
Пожалуста очень прошу киньте пару справочников,чтобы было з поиском и использовалась база данный и ВБГрид!!!!!!!!!На перед спасибо)))))) ...

3
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
04.11.2008, 18:32
я поиск этот делал так:
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
void __fastcall TMainForm::FindPBtnClick(TObject *Sender)
{
  AnsiString Field = "TEL";
  isFind = false;
  AnsiString Analyze = "";
  DBGrid1->Visible = false;
  Mask->Enabled = false;
  TLocateOptions Ops;
  Ops.Clear();
  Ops << loCaseInsensitive;
  AnsiString Place = DataSource1->DataSet->FieldByName("RID")->AsString;
  int Pos = 0, Int = 0;
  Mask->Text = PadR(Mask->Text, 7, '*');
  for(int i = 1; i < Mask->Text.Length(); i++){
    if(!Pos && Mask->Text[i]!='*') Pos = i;
    if(Pos){
      Int++;
      if(Mask->Text[i]!='*' && Mask->Text[i + 1]=='*') break;
    }
  }
  if(isNext){
    DataSource1->DataSet->Next();
  }else{
    DataSource1->DataSet->First();
  }
  if(DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->FieldName == "TEL_2") Field = "TEL_2";
  while(!DataSource1->DataSet->Eof){
    Analyze = DataSource1->DataSet->FieldByName(Field)->AsString;
    if(Analyze.SubString(Pos, Int) == Mask->Text.SubString(Pos, Int)){
      isNext = true;
      isFind = true;
      break;
    }
    DataSource1->DataSet->Next();
  }
  DBGrid1->Visible = true;
  if(!isFind){
    AppError("Строка поиска не найдена");
    try{
      DataSource1->DataSet->Locate("RID", &Variant(Place), Ops);
    }catch( ... ){}
  }
}
0
0 / 0 / 0
Регистрация: 03.05.2014
Сообщений: 7
05.11.2008, 07:46  [ТС]
WooDooMan, Спасибо за помощь, но что то не получается.
...к черту этот справочник
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
05.11.2008, 09:25
да там ничего сложного, просто скачешь по источнику данных дбгрида в поиске заданной строки
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.11.2008, 09:25
Помогаю со студенческими работами здесь

Подправить телефонный справочник
Буду очень благодарен

телефонный справочник написаный по библии делфи
кто писал справочник по библии делфи флеонова просьба скинуть рабочий вариант в тему. буду очень благодарен) Добавлено через 34 минуты...

Телефонный справочник с возможностью сортировки, поиска и редактирования
киньте плиз ссылку на подробное описание создания телефонного справочника с возможностью сортировки поиска и редактировангия( создания...

Кто может киньте Телефонный справочник з Access очень надо пожалуста
Телефонный справочник!!!Помогите !!Вместе з Базой данных

Телефонный справочник - как продумать тот момент, что у одного сотрудника может быть несколько телефонов
Приветствую. Вроде тема затерта до дыр вдоль и поперек. Но есть есть у меня еще вопросик. Необходимо написать справочник сотрудников...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru