Deplhi7,MsSql2005 запрос\хранимые процедуры

@Sevchek · Регистрация: 21.05.2013

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

День добрый, уважаемые форумчане!
Имеется база данных, в которой присутствую 2 таблицы: Клиенты(код_клиента, ФИО, Дата_рождения, Адрес) и Договора(Код_договора, Дата_договора, Код_клиента). Связаны соответственно: Договора.Код_клиента->Клиенты.Код_клиента.
Нужно вывести информацию пользовался ли данный человек услугами фирмы за определенный срок. То есть мы должны задать промежуток, фамилию и вывести в таблицу все договора заключенные с одним клиентом.
Мои попытки: 1)

SQL
1
2
3
4
5
6
7
8
9
 ALTER PROCEDURE [dbo].[PoiskPoFIO1]
@FIO nvarchar(50),@nach datetime, @kon datetime
AS
SELECT     klienti.FIO, Dogovora.Data_dogovora
FROM  Dogovora, klienti
WHERE Dogovora.Kod_klienta = klienti.Kod_klienta 
AND klienti.FIO=@FIO 
AND Dogovora.Data_dogovora=@nach
AND Dogovora.Data_dogovora BETWEEN @nach AND @kon

2)

SQL
1
2
3
4
5
6
7
ALTER PROCEDURE [dbo].[PoiskPoFIO2]
@FIO nvarchar(50),@nach datetime, @kon datetime
AS
SELECT     klienti.FIO, Dogovora.Data_dogovora
FROM         Dogovora INNER JOIN
                      klienti ON Dogovora.Kod_klienta = klienti.Kod_klienta
WHERE  klienti.FIO=@FIO AND Dogovora.Data_dogovora BETWEEN @nach AND @kon

1 попытка результат доработки, но не работающий. 2 попытка - работающая.
Теперь вопрос: какой принцип написания команды правильнее в данной ситуации? Как это вывести в Delphi7 при помощи компонентов: ADOQuery или ADOStoredProc? На рабочей форме имеются компоненты 2 DateTimePicker(для обозначения интервала), Edit(для ввода ФИО) и Button. Уместнее использовать DateTimePicker или ограничиться использование 2 Edit для ввода дат?
Текст на кнопке: для первого варианта процедуры
(g- сокращение ДатаМодуля )

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure TForm4.btn1Click(Sender: TObject);
begin
  g.query6.Close;
  g.query6.SQL.Clear;
  g.query6.SQL.Add('exec PoiskPoFIO1 :nach,:kon,:FIO');
g.query6.parambyname['nach'].Value:=DateTimePicker1.Date;
g.query6.parambyname['kon'].Value:=DateTimePicker2.Date;
g.query6.parambyname['FIO'].Value:=edt1.text;
g.query6.Open;
 
end;

Ругается. Буду очень благодарен за помощь! Заранее спасибо!

Скандербег · 21.05.2013, 17:31

ADOStoredProc проще.
После присвоения значений параметрам с этим компонентом работа точно такая же как и с ADOQuery.

Delphi
1
2
3
4
  ADOStoredProc1.Parameters[1].Value := DateTimePicker1.Date;
  ADOStoredProc1.Parameters[2].Value := DateTimePicker2.Date;
  ADOStoredProc1.Parameters[3].Value := edt1.text;
  ADOStoredProc1.Open;

@Sevchek · 21.05.2013, 17:51 **[ТС]**

Окей. Использую

Pascal
1
2
3
4
5
6
begin
g.sp1.Parameters[1].Value := dtp1.Date;
  g.sp1.Parameters[2].Value := dtp2.Date;
  g.sp1.Parameters[3].Value := edt1.text;
  g.sp1.Open;
end;

на кнопке.
В качестве процедуры выбираю попытку 2)
Имеем https://www.cyberforum.ru/atta... 1369144275

@Sevchek · 21.05.2013, 18:08 **[ТС]**

Прошу прощения, скопировал не то. На кнопке:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm4.btn1Click(Sender: TObject);
begin
  g.sp1.Close;
  g.sp1.ProcedureName:='PoiskPoFIO';
  g.sp1.Parameters.ParamByName('Nach').Value := dtp1.Date;
  g.sp1.Parameters.ParamByName('kon').Value := dtp2.Date;
  g.sp1.Parameters.ParamByName('FIO').Value := edt1.text;
  g.sp1.Open;
end;

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .