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

@Milaya2015 · Регистрация: 30.09.2015

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

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

@qwertehok · 28.03.2018, 11:48

лучше скопируй сюда код который не работает

@Milaya2015 · 28.03.2018, 17:45 **[ТС]**

Помогите пожалуйста с сортировкой и отчетом.
Это от другой программы код (Кнопка сортировка) :

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
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Form2.ADOQuery1.Close;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('Select * from Медперсонал ORDER BY');
case form2.RadioGroup1.ItemIndex of
0:Form2.ADOQuery1.SQL.Add(' №_медработника');
1:Form2.ADOQuery1.SQL.Add(' Фамилия');
2:Form2.ADOQuery1.SQL.Add (' Имя');
3:Form2.ADOQuery1.SQL.Add (' Отчество');
4:Form2.ADOQuery1.SQL.Add (' Адрес');
5:Form2.ADOQuery1.SQL.Add (' Телефон');
6:Form2.ADOQuery1.SQL.Add( '№_пациента');
7:Form2.ADOQuery1.SQL.Add( ' Должность ');
end;
IF Form2.RadioGroup2.ItemIndex= 1 then  Form2.ADOQuery1.SQL.Add('Desc');
Form2.ADOQuery1.Open;
form2.DBGrid1.Fields[0].DisplayWidth:=5 ;
form2.DBGrid1.Fields[1].DisplayWidth:=20;
form2.DBGrid1.Fields[2].DisplayWidth:=20;
form2.DBGrid1.Fields[3].DisplayWidth:=20;
form2.DBGrid1.Fields[4].DisplayWidth:=30;
form2.DBGrid1.Fields[5].DisplayWidth:=10;
form2.DBGrid1.Fields[6].DisplayWidth:=10;
form2.DBGrid1.Fields[7].DisplayWidth:=15;
 
end;

@qwertehok · 28.03.2018, 17:53

до 5й строки и от 17 все правильно

а вот кусок

Сообщение от Milaya2015

case form2.RadioGroup1.ItemIndex of
0:Form2.ADOQuery1.SQL.Add(' №_медработника');
1:Form2.ADOQuery1.SQL.Add(' Фамилия');
2:Form2.ADOQuery1.SQL.Add (' Имя');
3:Form2.ADOQuery1.SQL.Add (' Отчество');
4:Form2.ADOQuery1.SQL.Add (' Адрес');
5:Form2.ADOQuery1.SQL.Add (' Телефон');
6:Form2.ADOQuery1.SQL.Add( '№_пациента');
7:Form2.ADOQuery1.SQL.Add( ' Должность ');
end;
IF Form2.RadioGroup2.ItemIndex= 1 then *Form2.ADOQuery1.SQL.Add('Desc');

это ВСЕ неправильно

ты знаешь что такое SQL запрос?

@Milaya2015 · 28.03.2018, 18:07 **[ТС]**

Нет, не знаю. Помогите мне пожалуйста

@qwertehok · 28.03.2018, 18:16

хе хе
я ошибся))) ORDER BY не заметил

перед

Delphi
1
Form2.ADOQuery1.Open;

вставь строку

Delphi
1
Showmessage(Form2.ADOQuery1.SQL.text);

сделай скрин и выложи сюда

@Milaya2015 · 28.03.2018, 22:39 **[ТС]**

Вот так должно быть? Как это сделать в своей программе? Помогите на моей программе.

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
30
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Form2.ADOQuery1.Close;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('Select * from Сотрудники ORDER BY');
case form2.RadioGroup1.ItemIndex of
0:Form2.ADOQuery1.SQL.Add(' Код_сотрудника');
1:Form2.ADOQuery1.SQL.Add(' Фамилия');
2:Form2.ADOQuery1.SQL.Add (' Имя');
3:Form2.ADOQuery1.SQL.Add (' Отчество');
4:Form2.ADOQuery1.SQL.Add (' Пол');
5:Form2.ADOQuery1.SQL.Add (' Возраст');
6:Form2.ADOQuery1.SQL.Add( 'Телефон');
7:Form2.ADOQuery1.SQL.Add( ' Адрес ');
8:Form2.ADOQuery1.SQL.Add( ' Код_должности ');
9:Form2.ADOQuery1.SQL.Add( ' Код ученой_степени ');
end;
IF Form2.RadioGroup2.ItemIndex= 1 then  Form2.ADOQuery1.SQL.Add('Desc');
Showmessage(Form2.ADOQuery1.SQL.text)
Form2.ADOQuery1.Open;
form2.DBGrid1.Fields[0].DisplayWidth:=5 ;
form2.DBGrid1.Fields[1].DisplayWidth:=20;
form2.DBGrid1.Fields[2].DisplayWidth:=20;
form2.DBGrid1.Fields[3].DisplayWidth:=20;
form2.DBGrid1.Fields[4].DisplayWidth:=30;
form2.DBGrid1.Fields[5].DisplayWidth:=10;
form2.DBGrid1.Fields[6].DisplayWidth:=10;
form2.DBGrid1.Fields[7].DisplayWidth:=15;
 
end;

Добавлено через 4 часа 7 минут
Помогите пожалуйста с моим приложением , с Form2

@drvolodko · 29.03.2018, 07:06

Сообщение от Milaya2015

0:Form2.ADOQuery1.SQL.Add(' Код_сотрудника');
1:Form2.ADOQuery1.SQL.Add(' Фамилия');
2:Form2.ADOQuery1.SQL.Add (' Имя');
3:Form2.ADOQuery1.SQL.Add (' Отчество');
4:Form2.ADOQuery1.SQL.Add (' Пол');
5:Form2.ADOQuery1.SQL.Add (' Возраст');
6:Form2.ADOQuery1.SQL.Add( 'Телефон');

нет пробелов в конце строки. А в 6 и в начале. У тебя получается

SQL
1
SELECT * FROM Сотрудники ORDER BY Код_сотрудникаDESC

а это ошибка синтаксиса. А еще при использовании кириллицы и имен полей с пробелами данные имена необходимо обрамлять квадратными скобками [Код_сотрудника]

@Milaya2015 · 29.03.2018, 11:15 **[ТС]**

А вот SpeedButton можно заменить на Button? Можете помочь на моей программе с сортировкой, я не знаю как дальше делать, помогите пожалуйста.

@drvolodko · 29.03.2018, 12:40

Сообщение от Milaya2015

А вот SpeedButton можно заменить на Button

да хоть на bitBtn. Можно, конечно.

Сообщение от Milaya2015

я не знаю как дальше делать,

Что именно делать? На ошибки в запросе я указал. Что еще нужно? БД где? Где данные?

@Milaya2015 · 29.03.2018, 12:52 **[ТС]**

Я все сбросила в Сортировка.zip и БД.

@drvolodko · 29.03.2018, 15:13

Milaya2015, может я в чем-то и не прав, но я в упор не вижу в архиве файл labor.accdb

@Milaya2015 · 29.03.2018, 16:21 **[ТС]**

Извините, вот.

@drvolodko · 29.03.2018, 16:23

посмотрю.

@drvolodko · 29.03.2018, 17:18

1. Забываем навсегда про компоненты тапа Table (AdoTable). Есть Query и SQL
2. Я создал тебе DataModule (Unit6). Отныне и навсегда Connection должен быть один и желательно на этой форме (как сейчас) Если квери не создаешь программно, тогда и все квери тоже туда.
Остальные AdoConnection и Adotable я тоже удалил. Надеюсь по примеру на Form2 поймешь, как прикрутить Query к остальным таблицам.
В коде написал парочку комментариев, но без фанатизма. Новый проект во вложении. Свою БД тоже замени, у тебя там ошибка была я поправил.

@Milaya2015 · 29.03.2018, 21:46 **[ТС]**

Спасибо большое. Но у меня вопрос как вы сделали так RadioGroup1 и RadioGroup2?
А можно как то сделать без DataModule? просто вообще так не пользовались. А разместить их на Form2.

@drvolodko · 29.03.2018, 22:21

Сообщение от Milaya2015

А можно как то сделать без DataModule?

можно, но это так называемый "плохой стиль программирования". Перенеси компоненты из datamodule на форм2 и удали DM из проекта Project->remove from project.

Сообщение от Milaya2015

как вы сделали так RadioGroup1 и RadioGroup2?

У них есть свойство items. Заполнил и все

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера 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, то после закрытия окошка. . .

@qwertehok 5967 / 4543 / 1094 Регистрация: 29.08.2013 Сообщений: 28,160 Записей в блоге: 3
	28.03.2018, 11:48
	лучше скопируй сюда код который не работает 0

@Milaya2015 1 / 1 / 3 Регистрация: 30.09.2015 Сообщений: 221
	28.03.2018, 18:07 [ТС]
	Нет, не знаю. Помогите мне пожалуйста 0

@Milaya2015 1 / 1 / 3 Регистрация: 30.09.2015 Сообщений: 221
	29.03.2018, 11:15 [ТС]
	А вот SpeedButton можно заменить на Button? Можете помочь на моей программе с сортировкой, я не знаю как дальше делать, помогите пожалуйста. 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 745
	29.03.2018, 15:13
	Milaya2015, может я в чем-то и не прав, но я в упор не вижу в архиве файл labor.accdb 1

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 745
	29.03.2018, 16:23
	посмотрю. 1

@Milaya2015 1 / 1 / 3 Регистрация: 30.09.2015 Сообщений: 221
	29.03.2018, 21:46 [ТС]
	Спасибо большое. Но у меня вопрос как вы сделали так RadioGroup1 и RadioGroup2? А можно как то сделать без DataModule? просто вообще так не пользовались. А разместить их на Form2. 0

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

Решение