Поиск по дате

@Len@09 · Регистрация: 11.11.2009

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

Добрый день!
БД в Access подключенная через ADO в Delphi. На форме есть таблица DBGrid, в которую пользователь заносит данные таким образом: нажимает кнопку Добавить запись, появляется форма для воода данных. Поля для заполнения: Дата поступления в ИФНС, Грузоотправитель, Грузополучатель, Дата ТТН, Номер ТТН и т.д. После заполнения всех полей формы, данные переносятся в таблицу DBGrid. Мне необходимо организовать поиск по полю Дата поступления в ИФНС. Для поиска я создала отдельную форму, на которой расположены: MonthCalendar, DBEdit1 (вводим начальную дату через календарь), DBEdit2 (вводим конечеую дату), SpeedButton1. Код на кнопку SpeedButton1 такой:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedureTForm15.SpeedButton1Click(Sender:TObject);
var
StartDate:TdateTime;
FinishDate:TdateTime
begin
DataModule4.FindQuery.Active:=false;
DataModule4.FindQuery.SQL.Clear;
DataModule4.FindQuery.SQL.Add('SELECT*');
DataModule4.FindQuery.SQL.Add('FROM Таблица ГИБДД');
DataModule4.FindQuery.SQL.Add('Where [Дата поступления в ИФНС] between :StartDate and: FinishDate');
StartDate:=StrToDate(DBEdit1.Text);
FinishDate:=StrToDate(DBEdit2.Text);
DataModule4.FindQuery.Parameters.ParamByName ('StartDate').Value:= StartDate;
DataModule4.FindQuery.Parameters.ParamByName ('FinishDate').Value:= FinishDate;
DataModule4.FindQuery.Activ:=true;
Form12.ShowModal;
end;

Для DBEdit1 в свойстве DataSourse я указала DataModule4.DataSource1, в свойстве DataField указала поле Дата поступления в ИФНС.
Для DBEdit2 я указала все тоже самое что и для DBEdit1. Правильно ли это?
Пытаюсь осуществить поиск мне выдает ошибку: ProjectNalogProject.exe raised exception class EAccessViolation with message Access Violation at adress 004AF0A8 in module NalogProject.exe. Read off adress 00000240. Process stopped. Use step or Run to continue.

@Motzart · 13.02.2010, 00:10

делайте так:

Delphi
1
SQL.Add('SELECT* FROM Таблица ГИБДД Where [Дата поступления в ИФНС] between :StartDate and: FinishDate');')

@SAMZ · 13.02.2010, 05:08

Сообщение от Len@09

Form12.ShowModal;

Проверьте форму Form12. Если она динамическая (не создается в проекте, в файле .dpr), то надо

Delphi
1
2
3
Form12 := TForm12.Create(Self);
Form12.ShowModal;
Form12.Free;

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Поиск по дате

Решение