Добавить поиск в приложение

@jlejluk · Регистрация: 14.05.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые форумчане,

Сталкнулся с такой проблемой нужно добавить поиск в приложение, на теории знаю как.
Примерно: На формемне нужен эдит, кнопка (хотя можно и без нее), ну и табличка, в которую будет выводить ответ
В кнопке нужно повесить отправку sql запроса типа select в базу с нужными where которые формирется вставляя текст из эдита
обрабатывается ответ из базы и выводится в таблицу.

Задача перевести теорию в код, подскажите пожалуйста. Приложение пишется на Delphi 7 БД в Аксесе.

@jlejluk · 12.06.2011, 15:41 **[ТС]**

Видите в чем проблема у меня должно быть админское приложение, тоесть не клиента.Вот я и не знаю что туда и засунуть кроме ввода вывода информации,поиск,еще можно статистику сделать но не знаю как ((( в итоговой работе должно получиться база+2 приложения ( нас 3 человека 1 базу я приложение админа,девченка для клиента)

@Arcor · 12.06.2011, 16:07

вот глянька, если понравится, то могу еще и остальные 2 приложения написать, на типе того как админ панель сделана

@jlejluk · 12.06.2011, 16:53 **[ТС]**

Это ваще офигенно просто, это ведь админское?
Если есть мысли по поводу того как сделать клиентское только рад буду выслушать, и функции туда наверное будут купить,просмотреть маршуты и что нибудь еще не знаю что ((

Да кстати,там видимо только распределение по времени и видам вагона плац. или купе, а можно я из своей наработки еще возьму например чтоб города можно было ввести, а то какое то странное добавление получится,где только время и вид вагона))

Добавлено через 35 минут
Можно ли подключить 1ДБгрид к двум Датасоурсам?

@jlejluk · 13.06.2011, 14:34 **[ТС]**

Посмотрите:

Вот база:

Помогите к ней переделать код, пол дня уже убил все никак не получается

вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO wagon(WagonType)VALUES(:WagonType)';
  ADOQuery1.Parameters.ParamByName('WagonType').Value := StrToTime(MaskEdit1.Text);
  ADOQuery1.Parameters.ParamByName('EndRouteT').Value := StrToTime(MaskEdit2.Text);
  ADOQuery1.Parameters.ParamByName('BeginSity').Value := Edit2.Text;
  ADOQuery1.Parameters.ParamByName('EndSity').Value := Edit3.Text;
  ADOQuery1.Parameters.ParamByName('BeginRouteD').Value := StrToDate(MaskEdit3.Text);
  ADOQuery1.Parameters.ParamByName('EndRouteD').Value := StrToDate(MaskEdit4.Text);
  if RadioGroup1.ItemIndex = 0 then
    ADOQuery1.Parameters.ParamByName('WagonType').Value := 'Купе'
  else
    ADOQuery1.Parameters.ParamByName('WagonType').Value := 'Плацкарт';
  ADOQuery1.Parameters.ParamByName('Price').Value := Edit1.Text;
  ADOQuery1.Parameters.ParamByName('Reis').Value := Edit2.Text+' - '+Edit3.Text;
  ADOQuery1.Parameters.ParamByName('BiletCount').Value := StrToInt(Edit4.Text);
  ADOQuery1.ExecSQL;
end;

@Arcor · 13.06.2011, 15:04

4 строка нам говорит, какие поля мы будем использовать в параметрах, у нас же тут стоит только WagonType, а параметрами с 5 строки пытаемся открыть и другие поля, что и выдает ошибку, потому что в 4 они как бы не объявлены. Если оставить 4 строку без изменений - у нас есть доступ только к 1 полю WagonType

6-18 строку удалить нужно будет, и все заработает

@jlejluk · 13.06.2011, 15:24 **[ТС]**

Моя наработка с измененным кодом.Не работает

@Arcor · 13.06.2011, 15:48

все работает, только пару кавычек не закрыл, и еще возникнет у тебя вопрос как вывести все в один дбгрид, ответ прост

Delphi
1
ADOQuery1.SQL.Text := 'SELECT * FROM wagon, bilet, marshrut';

выведет из 3 таблиц все в 1 грид

@Arcor · 13.06.2011, 15:49

вот код, забыл выложить

@jlejluk · 14.06.2011, 10:45 **[ТС]**

Ты только не ругайся)) но в общем все работет но кнопка создать не вносит данные в базу. и соответственно не выводит в дбгрид

Добавлено через 18 часов 53 минуты
Скажите что не так с кодом?Дублирует данные причем несколько раз, Например ввожу маршрут первый раз высе нормально добавляется и в базу и в ДБгрид, но еще в базе не пишется время, вот код

Delphi
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
ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO wagon(WagonType)VALUES(:WagonType)';
  ADOQuery1.Parameters.ParamByName('WagonType').Value := StrToTime(MaskEdit1.Text);
   if RadioGroup1.ItemIndex = 0 then
    ADOQuery1.Parameters.ParamByName('WagonType').Value := 'Купе'
  else
    ADOQuery1.Parameters.ParamByName('WagonType').Value := 'Плацкарт';
    ADOQuery1.ExecSQL;
  ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO Bilet(BiletCount,Price)VALUES (:BiletCount,:Price)';
  ADOQuery1.Parameters.ParamByName ('Price').Value := Edit1.Text;
  ADOQuery1.Parameters.ParamByName('BiletCount').Value := StrToInt(Edit4.Text);
   ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO Marshrut(BeginSity,EndSity,Reis)VALUES (:BeginSity,:EndSity,:Reis)';
  ADOQuery1.Parameters.ParamByName ('BeginSity').Value := Edit2.Text;
  ADOQuery1.Parameters.ParamByName ('EndSity').Value := Edit3.Text;
  ADOQuery1.Parameters.ParamByName ('Reis').Value := Edit2.Text+' - '+Edit3.Text;
   ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO Time(BeginRouteT,EndRouteT,BeginRouteD,EndRouteD)VALUES ( :BeginRouteT,:EndRouteT,:BeginRouteD,:EndRouteD)';
  ADOQuery1.Parameters.ParamByName('BeginRouteT').Value := StrToTime(MaskEdit1.Text);
  ADOQuery1.Parameters.ParamByName('EndRouteT').Value := StrToTime(MaskEdit2.Text);
  ADOQuery1.Parameters.ParamByName('BeginRouteD').Value := StrToDate(MaskEdit3.Text);
  ADOQuery1.Parameters.ParamByName('EndRouteD').Value := StrToDate(MaskEdit4.Text);
   
end;

@Arcor · 14.06.2011, 11:01

а для чего 4 строка? и может лучше

Delphi
1
ADOQuery1.ExecSQL;

вывести 1 раз, в конце, чтобы сразу обработался 1 раз весь запрос

@jlejluk · 14.06.2011, 11:22 **[ТС]**

когда ввожу вконце кода

Delphi
1
ADOQuery1.ExecSQL;

он ругается ошибка Insert INTO

@jlejluk · 21.06.2011, 16:16 **[ТС]**

Подскажите как можно внести статистику, хотя бы примерный код ( например поиск в базе наиболее дорогой или самый популярный маршрут-билет)

@Arcor · 21.06.2011, 16:20

открой гуглю и набери там, сортировка таблиц БД, будет много чего интересного с подробным SQL запросом

Новые блоги и статьи Все статьи Все блоги /
Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .
Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты

@jlejluk 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 32

	MS Access Добавить поиск в приложение 11.06.2011, 15:28. Показов 2895. Ответов 32 Метки нет (Все метки) Здравствуйте уважаемые форумчане, Сталкнулся с такой проблемой нужно добавить поиск в приложение, на теории знаю как. Примерно: На формемне нужен эдит, кнопка (хотя можно и без нее), ну и табличка, в которую будет выводить ответ В кнопке нужно повесить отправку sql запроса типа select в базу с нужными where которые формирется вставляя текст из эдита обрабатывается ответ из базы и выводится в таблицу. Задача перевести теорию в код, подскажите пожалуйста. Приложение пишется на Delphi 7 БД в Аксесе. 0

@jlejluk 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 32
	12.06.2011, 15:41 [ТС]
	Видите в чем проблема у меня должно быть админское приложение, тоесть не клиента.Вот я и не знаю что туда и засунуть кроме ввода вывода информации,поиск,еще можно статистику сделать но не знаю как ((( в итоговой работе должно получиться база+2 приложения ( нас 3 человека 1 базу я приложение админа,девченка для клиента) 0

@jlejluk 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 32
	12.06.2011, 16:53 [ТС]
	Это ваще офигенно просто, это ведь админское? Если есть мысли по поводу того как сделать клиентское только рад буду выслушать, и функции туда наверное будут купить,просмотреть маршуты и что нибудь еще не знаю что (( Да кстати,там видимо только распределение по времени и видам вагона плац. или купе, а можно я из своей наработки еще возьму например чтоб города можно было ввести, а то какое то странное добавление получится,где только время и вид вагона)) Добавлено через 35 минут Можно ли подключить 1ДБгрид к двум Датасоурсам? 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	13.06.2011, 15:04
	4 строка нам говорит, какие поля мы будем использовать в параметрах, у нас же тут стоит только WagonType, а параметрами с 5 строки пытаемся открыть и другие поля, что и выдает ошибку, потому что в 4 они как бы не объявлены. Если оставить 4 строку без изменений - у нас есть доступ только к 1 полю WagonType 6-18 строку удалить нужно будет, и все заработает 1

@jlejluk 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 32
	21.06.2011, 16:16 [ТС]
	Подскажите как можно внести статистику, хотя бы примерный код ( например поиск в базе наиболее дорогой или самый популярный маршрут-билет) 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	21.06.2011, 16:20
	открой гуглю и набери там, сортировка таблиц БД, будет много чего интересного с подробным SQL запросом 1